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

Logtalk 2.30.7 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1973 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2007-11-06 01:50:09 +00:00
parent 6c3aee8c63
commit 42aabce1bb
320 changed files with 2252 additions and 1289 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1221
library/logtalk/logtalk.pl
View File

File diff suppressed because it is too large Load Diff

68
library/logtalk/yap.config
View File

@@ -1,11 +1,11 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Logtalk - Open source object-oriented logic programming language
% Release 2.30.2
% Release 2.30.7
%
% configuration file for YAP Prolog 4.3.23 and later versions
% configuration file for YAP Prolog 5.1.2 and later versions
%
% last updated: May 22, 2007
% last updated: November 1, 2007
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -210,12 +210,12 @@ forall(Generate, Test) :-
'$lgt_default_flag'(startup_message, flags(verbose)).
'$lgt_default_flag'(underscore_vars, singletons).
'$lgt_default_flag'(underscore_variables, singletons).
'$lgt_default_flag'(code_prefix, '').
'$lgt_default_flag'(debug, off).
'$lgt_default_flag'(supports_break_predicate, true).
'$lgt_default_flag'(break_predicate, true).
'$lgt_default_flag'(events, off).
@@ -223,13 +223,19 @@ forall(Generate, Test) :-
'$lgt_default_flag'(tmpdir, 'lgt_tmp/').
'$lgt_default_flag'(xmldir, 'xml_docs/').
'$lgt_default_flag'(supports_encoding_dir, false).
'$lgt_default_flag'(encoding_directive, Encoding) :-
( catch(current_prolog_flag(version_data, _), _, fail) -> % version_data flag added on YAP version 5.1.3
Encoding = full % together with working Unicode support
; Encoding = unsupported
).
'$lgt_default_flag'(threads, Threads) :-
( current_prolog_flag(system_options, threads) ->
Threads = on
; Threads = off
).
'$lgt_default_flag'(context_switching_calls, allow).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -442,7 +448,11 @@ forall(Generate, Test) :-
'$lgt_read_single_char'(Char) :-
get_char(Char).
get_char(Char),
( peek_code(10) -> % hack to workaround the lack of built-in
get_code(_) % support for unbuffered character input
; true
).
@@ -483,20 +493,6 @@ forall(Generate, Test) :-
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% setting of text stream character encoding
% (needed for processing encoding/1 directives)
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% '$lgt_set_stream_encoding'(@stream, +atom)
'$lgt_set_stream_encoding'(_, _).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% handling of Prolog-proprietary directives on Logtalk source files
@@ -513,17 +509,25 @@ forall(Generate, Test) :-
% '$lgt_rewrite_and_copy_pl_directive'(@callable, -callable)
'$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_directive_pis'(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_rewrite_and_copy_pl_directive'(thread_local(PIs), thread_local(CPIs)) :-
'$lgt_rewrite_and_copy_pl_directive_pis'(PIs, CPIs).
'$lgt_rewrite_and_copy_pl_directive_pis'(PIs, _) :-
var(PIs),
throw(instantiation_error).
'$lgt_rewrite_and_copy_pl_directive_pis'([], []) :-
!.
'$lgt_rewrite_and_copy_pl_directive_pis'([PI| PIs], [CPI| CPIs]) :-
!,
'$lgt_rewrite_and_copy_pl_directive_pis'(PI, CPI),
'$lgt_rewrite_and_copy_pl_directive_pis'(PIs, CPIs).
'$lgt_rewrite_and_copy_pl_directive_pis'((PI, PIs), (CPI, CPIs)) :-
!,
'$lgt_rewrite_and_copy_pl_directive_pis'(PI, CPI),
'$lgt_rewrite_and_copy_pl_directive_pis'(PIs, CPIs).
'$lgt_rewrite_and_copy_pl_directive_pis'(Functor/Arity, TFunctor/TArity) :-
'$lgt_pp_object_'(_, Prefix, _, _, _, _, _, _, _, _, _),
'$lgt_construct_predicate_functor'(Prefix, Functor, Arity, TFunctor),
functor(Meta, Functor, Arity),
@@ -547,7 +551,7 @@ forall(Generate, Test) :-
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% current_thread(+atom, ?nonvar) -- built-in
% thread_property(+atom, ?nonvar) -- built-in
% thread_self(?atom) -- built-in