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

Logtalk 2.15.4 release files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@843 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2003-07-09 00:20:55 +00:00
parent 3751bd451f
commit e8e39e597b
100 changed files with 819 additions and 133 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
library/logtalk/logtalk.pl
View File

@@ -2,7 +2,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Logtalk - Object oriented extension to Prolog
% Release 2.15.3
% Release 2.15.4
%
% Copyright (c) 1998-2003 Paulo Moura. All Rights Reserved.
%
@@ -1073,7 +1073,7 @@ current_logtalk_flag(Flag, Value) :-
\+ '$lgt_flag_'(Flag, _),
'$lgt_default_flag'(Flag, Value).
current_logtalk_flag(version, version(2, 15, 3)).
current_logtalk_flag(version, version(2, 15, 4)).
@@ -1129,12 +1129,12 @@ current_logtalk_flag(version, version(2, 15, 3)).
'$lgt_current_predicate'(Obj, Functor/Arity, Sender, Scope) :-
'$lgt_current_object_'(Obj, _, Dcl, _, _, _),
findall(
Functor/Arity-(PScope, SContainer),
Functor/Arity - (PScope, SContainer),
('$lgt_call'(Dcl, Pred, PScope, _, _, SContainer, _),
functor(Pred, Functor, Arity)),
Preds),
'$lgt_cp_filter'(Preds, Filtered),
'$lgt_member'(Functor/Arity-(PScope, SContainer), Filtered),
'$lgt_member'(Functor/Arity - (PScope, SContainer), Filtered),
once((\+ \+ PScope = Scope; Sender = SContainer)).
@@ -1330,7 +1330,7 @@ current_logtalk_flag(version, version(2, 15, 3)).
Metavars = []),
'$lgt_metavars'(Context, Metavars),
'$lgt_tr_body'(Body, TBody, Context),
asserta((Call:-('$lgt_nop'(Body), TBody)))
asserta((Call :- ('$lgt_nop'(Body), TBody)))
;
(PScope = p ->
throw(error(permission_error(modify, private_predicate, Head), Obj::asserta((Head:-Body)), Sender))
@@ -1417,7 +1417,7 @@ current_logtalk_flag(version, version(2, 15, 3)).
Metavars = []),
'$lgt_metavars'(Context, Metavars),
'$lgt_tr_body'(Body, TBody, Context),
assertz((Call:-('$lgt_nop'(Body), TBody)))
assertz((Call :- ('$lgt_nop'(Body), TBody)))
;
(PScope = p ->
throw(error(permission_error(modify, private_predicate, Head), Obj::assertz((Head:-Body)), Sender))
@@ -1522,10 +1522,10 @@ current_logtalk_flag(version, version(2, 15, 3)).
(Type = (dynamic) ->
((\+ \+ PScope = Scope; Sender = SContainer) ->
('$lgt_once'(Def, Head, _, _, _, Call) ->
retract((Call:-('$lgt_nop'(Body), _)))
retract((Call :- ('$lgt_nop'(Body), _)))
;
('$lgt_once'(DDef, Head, _, _, _, Call) ->
retract((Call:-('$lgt_nop'(Body), _))),
retract((Call :- ('$lgt_nop'(Body), _))),
'$lgt_update_ddef_table'(DDef, Call)
;
fail))
@@ -5467,7 +5467,7 @@ user0__def(Pred, _, _, _, Pred, user).
atom(Prefix).
'$lgt_valid_compiler_option'(doctype(Option)) :-
once((Option == standalone; Option == local; Option == web)).
once((Option == standalone; Option == (local); Option == web)).
@@ -5694,7 +5694,7 @@ user0__def(Pred, _, _, _, Pred, user).
% '$lgt_dcg_terminals'(@list, -goal, @var, @var)
% '$lgt_dcg_terminals'(+list, -goal, @var, @var)
%
% translate list of terminals
@@ -5702,7 +5702,8 @@ user0__def(Pred, _, _, _, Pred, user).
'$lgt_dcg_terminals'(Terminals, S, List).
'$lgt_dcg_terminals'([], S, S).
'$lgt_dcg_terminals'([], S, S) :-
!. % make predicate determinist when first argument is [Var1| Var2]
'$lgt_dcg_terminals'([Terminal| Terminals], S, [Terminal| Rest]) :-
'$lgt_dcg_terminals'(Terminals, S, Rest).
@@ -6186,7 +6187,7 @@ user0__def(Pred, _, _, _, Pred, user).
%
% table of ISO defined predicates
%
% used in portability checking
% used for portability checking
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

2
library/logtalk/yap430.config
View File

@@ -1,7 +1,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Logtalk - Object oriented extension to Prolog
% Release 2.15.3
% Release 2.15.4
%
% configuration file for YAP Prolog 4.3.23 or later
%