diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

First version of Logtalk 2.14.4 compiler and config file.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@622 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura 2002-10-07 10:55:21 +00:00
parent 5d0716fb66
commit b0bee478ec
2 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
library/logtalk/logtalk.pl
View File

@ -2,7 +2,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% Logtalk - Object oriented extension to Prolog % Logtalk - Object oriented extension to Prolog
% Release 2.14.3 % Release 2.14.4
% %
% Copyright (c) 1998-2002 Paulo Moura. All Rights Reserved. % Copyright (c) 1998-2002 Paulo Moura. All Rights Reserved.
% %
@ -1022,7 +1022,7 @@ logtalk_version(Major, Minor, Patch) :-
\+ integer(Patch), \+ integer(Patch),
throw(error(type_error(integer, Patch), logtalk_version(Major, Minor, Patch))). throw(error(type_error(integer, Patch), logtalk_version(Major, Minor, Patch))).
logtalk_version(2, 14, 3). logtalk_version(2, 14, 4).
@ -1083,7 +1083,7 @@ current_logtalk_flag(Flag, Value) :-
\+ '$lgt_flag_'(Flag, _), \+ '$lgt_flag_'(Flag, _),
'$lgt_default_flag'(Flag, Value). '$lgt_default_flag'(Flag, Value).
current_logtalk_flag(version, version(2, 14, 3)). current_logtalk_flag(version, version(2, 14, 4)).
@ -1928,6 +1928,7 @@ user0__def(Pred, _, _, _, Pred, user).
\+ '$lgt_needs_recompilation'(Entity), \+ '$lgt_needs_recompilation'(Entity),
!, !,
('$lgt_compiler_option'(report, on) -> ('$lgt_compiler_option'(report, on) ->
nl, write('>>> compiling '), writeq(Entity),
nl, write('>>> '), writeq(Entity), write(' is up-to-date'), nl nl, write('>>> '), writeq(Entity), write(' is up-to-date'), nl
; ;
true). true).

15
library/logtalk/yap430.config
View File

@ -1,11 +1,11 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
% Logtalk - Object oriented extension to Prolog % Logtalk - Object oriented extension to Prolog
% Release 2.14.3 % Release 2.14.4
% %
% configuration file for YAP Prolog 4.3.x % configuration file for YAP Prolog 4.3.23 or later
% %
% last updated: August 23, 2002 % last updated: October 3, 2002
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@ -16,6 +16,7 @@
:- initialization( :- initialization(
(set_prolog_flag(update_semantics, logical), (set_prolog_flag(update_semantics, logical),
set_prolog_flag(unknown, error), set_prolog_flag(unknown, error),
use_module(library(system)),
'$lgt_hide_predicates')). '$lgt_hide_predicates')).
@ -257,7 +258,7 @@ forall(Generate, Test) :-
% see if a file exist in the current directory % see if a file exist in the current directory
'$lgt_file_exists'(File) :- '$lgt_file_exists'(File) :-
exists(File). file_exists(File).
% '$lgt_load_prolog_code'(+atom) % '$lgt_load_prolog_code'(+atom)
@ -311,12 +312,14 @@ forall(Generate, Test) :-
% '$lgt_current_date'(?Year, ?Month, ?Day) % '$lgt_current_date'(?Year, ?Month, ?Day)
'$lgt_current_date'(99, 2, 7). '$lgt_current_date'(Year, Month, Day) :-
datime(datime(Year, Month, Day, _, _, _)).
% '$lgt_current_time'(?Hours, ?Mins, ?Secs) % '$lgt_current_time'(?Hours, ?Mins, ?Secs)
'$lgt_current_time'(0, 0, 0). '$lgt_current_time'(Hours, Mins, Secs) :-
datime(datime(_, _, _, Hours, Mins, Secs)).