support plant

swi/library/CMakeLists.txt

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

swi/library/debug.pl

@@ -52,15 +52,15 @@
 
 /*:- 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]).
 
-% this is as good as I can do. 
+% this is as good as I can do.
 backtrace(N) :-
 	stack_dump(N).
 
-:- endif.
+%:- endif.
 
 %:- set_prolog_flag(generate_debug_info, false).
 
@@ -258,7 +258,7 @@ print_debug(Topic, _To, Format, Args) :-
 	prolog:debug_print_hook(Topic, Format, Args), !.
 print_debug(_, [], _, _) :- !.
 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),
 	    debug_output(T, Stream),
 	    print_message_lines(Stream, kind(debug(Topic)), Lines),

swi/library/error.pl

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

swi/library/unix.pl

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