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

fix informational_messages

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1551 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-02-24 14:26:37 +00:00
parent d2864574ed
commit 703d948559
4 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
changes-5.1.html
View File

@ -16,6 +16,9 @@
<h2>Yap-5.1.0:</h2>
<ul>
<li> FIXED: informational_messages was being ignored (Nicos Angelopoulos).</li>
<li> FIXED: initialization should only be performed after all
consulted files are done.</li>
<li> FIXED: garbage collector now makes refs to erased LU clauses point
to LogUpdErasedMarker.</li>
<li> FIXED: get rid of old code referring to LogUpds from within ImmediateSemantics.</li>

3
pl/boot.yap
View File

@ -1066,7 +1066,8 @@ throw(Ball) :-
call(G),
fail.
'$exec_initialisation_goals' :-
recorded('$initialisation',G,R),
'$show_consult_level'(Level),
recorded('$initialisation',do(Level,G),R),
erase(R),
G \= '$',
'$current_module'(M),

6
pl/consult.yap
View File

@ -251,7 +251,10 @@ use_module(M,F,Is) :-
'$initialization'(C) :- db_reference(C), !,
'$do_error'(type_error(callable,C),initialization(C)).
'$initialization'(G) :-
recorda('$initialisation',G,_),
'$show_consult_level'(Level1),
% it will be done after we leave the current consult level.
Level is Level1-1,
recorda('$initialisation',do(Level,G),_),
fail.
'$initialization'(_).
@ -282,6 +285,7 @@ use_module(M,F,Is) :-
( '$access_yap_flags'(15, 0) ->
'$system_catch'(load_files(X, []),Module,Error,'$Error'(Error))
;
'$set_value'('$verbose',off),
load_files(X, [silent(true)])
),
( '$access_yap_flags'(15, 0) -> true ; halt).

7
pl/errors.yap
View File

@ -11,8 +11,11 @@
* File: errors.yap *
* comments: error messages for YAP *
* *
* Last rev: $Date: 2006-01-26 19:20:00 $,$Author: vsc $ *
* Last rev: $Date: 2006-02-24 14:26:37 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $
* Revision 1.74 2006/01/26 19:20:00 vsc
* syntax error was giving the offset
*
* Revision 1.73 2006/01/20 04:35:28 vsc
*
* fix error message
@ -190,6 +193,8 @@ print_message(Level, Mss) :-
'$output_error_message'(Type, Where), !.
'$print_message'(error,Throw) :-
format(user_error,'% YAP: no handler for error ~w~n', [Throw]).
'$print_message'(informational,_) :-
get_value('$verbose',off).
'$print_message'(informational,M) :-
'$do_informational_message'(M).
'$print_message'(warning,M) :-