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

Logtalk 2.30.1 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1903 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2007-06-12 10:39:47 +00:00
parent 84f478c301
commit 6b4bde14e1
475 changed files with 6213 additions and 6424 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1273
library/logtalk/logtalk.pl
View File

File diff suppressed because it is too large Load Diff

83
library/logtalk/yap.config
View File

@@ -1,11 +1,11 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Logtalk - Object oriented extension to Prolog
% Release 2.29.5
% Logtalk - Open source object-oriented logic programming language
% Release 2.30.1
%
% configuration file for YAP Prolog 4.3.23 and later versions
%
% last updated: March 15, 2007
% last updated: May 22, 2007
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -44,6 +44,7 @@
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),
dynamic('$lgt_db_lookup_cache_'/6), hide_predicate('$lgt_db_lookup_cache_'/6),
dynamic('$lgt_static_binding_cache_'/4), hide_predicate('$lgt_static_binding_cache_'/4),
dynamic('$lgt_pp_warnings_top_argument_'/1), hide_predicate('$lgt_pp_warnings_top_argument_'/1),
dynamic('$lgt_pp_comp_warnings_counter_'/1), hide_predicate('$lgt_pp_comp_warnings_counter_'/1),
dynamic('$lgt_pp_load_warnings_counter_'/1), hide_predicate('$lgt_pp_load_warnings_counter_'/1),
@@ -179,24 +180,6 @@ forall(Generate, Test) :-
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% alternate directory predicates
%
% these alternate directories are used by Logtalk load/compile predicates
% when the flag altdirs is used; the directory paths should always end
% with the path separator character
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% '$lgt_alt_directory'(?atom, ?atom)
'$lgt_alt_directory'(prolog, 'lgt_temp/').
'$lgt_alt_directory'(xml, 'xml_docs/').
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% default flag values
@@ -237,9 +220,15 @@ forall(Generate, Test) :-
'$lgt_default_flag'(events, off).
'$lgt_default_flag'(altdirs, off).
'$lgt_default_flag'(tmpdir, 'lgt_tmp/').
'$lgt_default_flag'(xmldir, 'xml_docs/').
'$lgt_default_flag'(supports_encoding_dir, false).
'$lgt_default_flag'(threads, off).
'$lgt_default_flag'(threads, Threads) :-
( current_prolog_flag(system_options, threads) ->
Threads = on
; Threads = off
).
@@ -337,11 +326,11 @@ forall(Generate, Test) :-
).
% '$lgt_load_prolog_code'(+atom)
% '$lgt_load_prolog_code'(+atom, +atom)
%
% compile and load a Prolog file
'$lgt_load_prolog_code'(File) :-
'$lgt_load_prolog_code'(File, _) :-
reconsult(File).
@@ -521,15 +510,32 @@ forall(Generate, Test) :-
load_foreign_files(Files,Libs,InitRoutine).
% '$lgt_copy_pl_directive'(@callable)
% '$lgt_rewrite_and_copy_pl_directive'(@callable, -callable)
'$lgt_copy_pl_directive'(_) :-
fail.
'$lgt_rewrite_and_copy_pl_directive'(table(PIs), table(CPIs)) :-
writeq(table(PIs)), nl,
'$lgt_rewrite_and_copy_pl_table_directive'(PIs, CPIs).
'$lgt_rewrite_and_copy_pl_table_directive'([], []).
'$lgt_rewrite_and_copy_pl_table_directive'([PI| PIs], [CPI| CPIs]) :-
'$lgt_rewrite_and_copy_pl_table_directive'(PI, CPI),
'$lgt_rewrite_and_copy_pl_table_directive'(PIs, CPIs).
'$lgt_rewrite_and_copy_pl_table_directive'((PI, PIs), (CPI, CPIs)) :-
'$lgt_rewrite_and_copy_pl_table_directive'(PI, CPI),
'$lgt_rewrite_and_copy_pl_table_directive'(PIs, CPIs).
'$lgt_rewrite_and_copy_pl_table_directive'(Functor/Arity, TFunctor/TArity) :-
'$lgt_pp_object_'(_, Prefix, _, _, _, _, _, _, _, _, _),
'$lgt_construct_predicate_functor'(Prefix, Functor, Arity, TFunctor),
functor(Meta, Functor, Arity),
( '$lgt_pp_meta_predicate_'(Meta) ->
TArity is Arity + 4
; TArity is Arity + 3
).
% '$lgt_rewrite_pl_directive'(@callable, -callable)
% '$lgt_rewrite_and_recompile_pl_directive'(@callable, -callable)
'$lgt_rewrite_pl_directive'(_, _) :-
'$lgt_rewrite_and_recompile_pl_directive'(_, _) :-
fail.
@@ -575,6 +581,25 @@ forall(Generate, Test) :-
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Shortcut to the Logtalk built-in predicate logtalk_load/1
%
% defined in the config files in order to be able to comment it out in case
% of conflict with some Prolog native feature; it implies conformance with
% the ISO Prolog standard regarding the definition of the {}/1 syntax
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
{File, Files} :-
!,
logtalk_load(File),
{Files}.
{File} :-
logtalk_load(File).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% end!