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
% Release 2.14.3
% Release 2.14.4
%
% Copyright (c) 1998-2002 Paulo Moura. All Rights Reserved.
%
@ -1022,7 +1022,7 @@ logtalk_version(Major, Minor, Patch) :-
\+ integer(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_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_compiler_option'(report, on) ->
nl, write('>>> compiling '), writeq(Entity),
nl, write('>>> '), writeq(Entity), write(' is up-to-date'), nl
;
true).

15
library/logtalk/yap430.config
View File

@ -1,11 +1,11 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% 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(
(set_prolog_flag(update_semantics, logical),
set_prolog_flag(unknown, error),
use_module(library(system)),
'$lgt_hide_predicates')).
@ -257,7 +258,7 @@ forall(Generate, Test) :-
% see if a file exist in the current directory
'$lgt_file_exists'(File) :-
exists(File).
file_exists(File).
% '$lgt_load_prolog_code'(+atom)
@ -311,12 +312,14 @@ forall(Generate, Test) :-
% '$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'(0, 0, 0).
'$lgt_current_time'(Hours, Mins, Secs) :-
datime(datime(_, _, _, Hours, Mins, Secs)).