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

support plant

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-07-31 11:35:10 -05:00
parent d7b5be0ccd
commit 50e94c9094
5 changed files with 1741 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
swi/library/CMakeLists.txt
View File

@ -6,6 +6,7 @@ set (LIBRARY_PL
date.pl date.pl
debug.pl debug.pl
edit.pl edit.pl
error.pl
main.pl main.pl
menu.pl menu.pl
nb_set.pl nb_set.pl
@ -13,6 +14,7 @@ set (LIBRARY_PL
operators.pl operators.pl
option.pl option.pl
pairs.pl pairs.pl
plunit.pl
predicate_options.pl predicate_options.pl
predopts.pl predopts.pl
prolog_clause.pl prolog_clause.pl
@ -26,6 +28,7 @@ set (LIBRARY_PL
settings.pl settings.pl
shlib.pl shlib.pl
thread_pool.pl thread_pool.pl
unix.pl
url.pl url.pl
utf8.pl utf8.pl
win_menu.pl win_menu.pl
@ -38,7 +41,3 @@ set (LIBRARY_PL
install(FILES ${LIBRARY_PL} install(FILES ${LIBRARY_PL}
DESTINATION ${libpl} DESTINATION ${libpl}
) )

8
swi/library/debug.pl
View File

@ -52,15 +52,15 @@
/*:- use_module(library(prolog_stack)).*/ % We use the autoloader if needed /*:- use_module(library(prolog_stack)).*/ % We use the autoloader if needed
:- if(current_prolog_flag(dialect, yap)). %:- if(current_prolog_flag(dialect, yap)).
:- use_module(library(hacks), [stack_dump/1]). :- use_module(library(hacks), [stack_dump/1]).
% this is as good as I can do. % this is as good as I can do.
backtrace(N) :- backtrace(N) :-
stack_dump(N). stack_dump(N).
:- endif. %:- endif.
%:- set_prolog_flag(generate_debug_info, false). %:- set_prolog_flag(generate_debug_info, false).
@ -258,7 +258,7 @@ print_debug(Topic, _To, Format, Args) :-
prolog:debug_print_hook(Topic, Format, Args), !. prolog:debug_print_hook(Topic, Format, Args), !.
print_debug(_, [], _, _) :- !. print_debug(_, [], _, _) :- !.
print_debug(Topic, To, Format, Args) :- print_debug(Topic, To, Format, Args) :-
phrase('$messages':translate_message(debug(Format, Args)), Lines), phrase('$messages':translate_message(debug(Format, Args), warning), Lines),
( member(T, To), ( member(T, To),
debug_output(T, Stream), debug_output(T, Stream),
print_message_lines(Stream, kind(debug(Topic)), Lines), print_message_lines(Stream, kind(debug(Topic)), Lines),

1
swi/library/error.pl Normal file
View File

@ -0,0 +1 @@
:- module( error, []).

1730
swi/library/plunit.pl Normal file
View File

File diff suppressed because it is too large Load Diff

3
swi/library/unix.pl Normal file
View File

@ -0,0 +1,3 @@
:- module( unix, [pipe/2] ).
pipe(Inp, Out) :- open_pipe_stream(Inp, Out).