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

Logtalk 2.22.5 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1244 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2005-02-10 00:02:06 +00:00
parent 5d09011015
commit 755c60a7ca
179 changed files with 1485 additions and 1197 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1578
library/logtalk/logtalk.pl
View File

File diff suppressed because it is too large Load Diff

36
library/logtalk/yap.config
View File

@@ -1,11 +1,11 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Logtalk - Object oriented extension to Prolog
% Release 2.22.4
% Release 2.22.5
%
% configuration file for YAP Prolog 4.3.23 and later versions
%
% last updated: November 19, 2004
% last updated: February 8, 2005
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -35,10 +35,14 @@
dynamic('$lgt_extends_object_'/3), hide_predicate('$lgt_extends_object_'/3),
dynamic('$lgt_debugging_'/1), hide_predicate('$lgt_debugging_'/1),
dynamic('$lgt_dbg_debugging_'/0), hide_predicate('$lgt_dbg_debugging_'/0),
dynamic('$lgt_dbg_tracing_'/0), hide_predicate('$lgt_dbg_tracing_'/0),
dynamic('$lgt_dbg_skipping_'/0), hide_predicate('$lgt_dbg_skipping_'/0),
dynamic('$lgt_dbg_spying_'/2), hide_predicate('$lgt_dbg_spying_'/2),
dynamic('$lgt_dbg_spying_'/4), hide_predicate('$lgt_dbg_spying_'/4),
dynamic('$lgt_dbg_leashing_'/1), hide_predicate('$lgt_dbg_leashing_'/1),
dynamic('$lgt_obj_lookup_cache_'/6), hide_predicate('$lgt_obj_lookup_cache_'/6),
dynamic('$lgt_self_lookup_cache_'/6), hide_predicate('$lgt_self_lookup_cache_'/6),
dynamic('$lgt_super_lookup_cache_'/6), hide_predicate('$lgt_super_lookup_cache_'/6)
dynamic('$lgt_obj_lookup_cache_'/4), hide_predicate('$lgt_obj_lookup_cache_'/4),
dynamic('$lgt_self_lookup_cache_'/4), hide_predicate('$lgt_self_lookup_cache_'/4),
dynamic('$lgt_super_lookup_cache_'/5), hide_predicate('$lgt_super_lookup_cache_'/5)
;
true.
@@ -90,13 +94,16 @@
% forall(+callable, +callble)
forall(Generate, Test) :-
\+ call((Generate, \+ call(Test))).
\+ (call(Generate), \+ call(Test)).
% lgt_call/2-8
% retractall(+callable) -- built-in
% lgt_call/2-9
%
% use these definitions only if your compiler does
% not provide call/1-8 as built-in predicates
% not provide call/1-9 as built-in predicates
'$lgt_call'(F, A) :-
call_with_args(F, A).
@@ -126,9 +133,13 @@ forall(Generate, Test) :-
call_with_args(F, A1, A2, A3, A4, A5, A6, A7).
% lgt_once/2-8
'$lgt_call'(F, A1, A2, A3, A4, A5, A6, A7, A8) :-
call_with_args(F, A1, A2, A3, A4, A5, A6, A7, A8).
% lgt_once/2-9
%
% if your compiler provides call/1-8 as built-in
% if your compiler provides call/1-9 as built-in
% predicates rewrite these definitions using call(...), !.
'$lgt_once'(F, A) :-
@@ -166,6 +177,11 @@ forall(Generate, Test) :-
!.
'$lgt_once'(F, A1, A2, A3, A4, A5, A6, A7, A8) :-
call_with_args(F, A1, A2, A3, A4, A5, A6, A7, A8),
!.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%