From 31e5c54125cff0e88940ea357f4710c48f3ac256 Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Mon, 23 Nov 2009 10:09:32 +0000 Subject: [PATCH] support message_string/2 for SWI emulation. --- docs/yap.tex | 5 +++++ pl/errors.yap | 3 +++ 2 files changed, 8 insertions(+) diff --git a/docs/yap.tex b/docs/yap.tex index d98e0b1e5..1599e0b55 100644 --- a/docs/yap.tex +++ b/docs/yap.tex @@ -3083,6 +3083,11 @@ format statements as described with @code{print_message_lines/3}. This predicate should be defined dynamic and multifile to allow other modules defining clauses for it too. +@item message_to_string(+@var{Term}, -@var{String}) +@findex message_to_string/2 +@snindex message_to_string/2 +@cnindex message_to_string/2 +Translates a message-term into a string object. Primarily intended for SWI-Prolog emulation. @end table @node Testing Terms, Predicates on Atoms, Messages, Top diff --git a/pl/errors.yap b/pl/errors.yap index 11278b292..08f790cbb 100644 --- a/pl/errors.yap +++ b/pl/errors.yap @@ -229,6 +229,9 @@ '$process_error'(Throw, _) :- print_message(error,error(unhandled_exception,Throw)). +message_to_string(Event, Message) :- + '$messages':generate_message(Event, Message, []). + print_message(force(_Severity), Msg) :- !, print(user_error,Msg). print_message(error, error(Msg,Info)) :- var(Info), !,