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

use ~d to write time spent consulting

Browse Source 
replace write/2 and write/1 by direct accesses to low-level routines


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@124 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-07-12 12:50:58 +00:00
parent 0995041a7e
commit 3e6060a84f
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pl/boot.yap
View File

@ -129,13 +129,11 @@ set_output(Stream) :-
8 use portray(_)
*/
write(T) :- current_output(S), '$write'(S,4,T), fail.
write(_).
write(T) :-
'$write'(4, T).
write(Stream,T) :-
'$write'(Stream,4,T),
fail.
write(_,_).
'$write'(Stream,4,T).
put(Stream,N) :- N1 is N, '$put'(Stream,N1).
@ -908,7 +906,7 @@ break :- '$get_value'('$break',BL), NBL is BL+1,
( '$get_value'('$verbose',off) ->
true
;
'$format'(user_error, "[ ~w consulted ~w bytes in ~w seconds ]~n", [F,H,T])
'$format'(user_error, "[ ~w consulted ~w bytes in ~g seconds ]~n", [F,H,T])
),
'$set_value'('$consulting',Old),
'$set_value'('$consulting_file',OldF),

4
pl/consult.yap
View File

@ -144,7 +144,7 @@ reconsult(Fs) :-
( '$get_value'('$verbose',off) ->
true
;
'$format'(user_error, "[ ~w reconsulted ~w bytes in ~w seconds ]~n", [F,H,T])
'$format'(user_error, "[ ~w reconsulted ~w bytes in ~g seconds ]~n", [F,H,T])
),
'$set_value'('$consulting',Old),
'$set_value'('$consulting_file',OldF),
@ -184,7 +184,7 @@ reconsult(Fs) :-
( '$get_value'('$verbose',off) ->
true
;
'$format'(user_error, "[ ~w reconsulted ~w bytes in ~w seconds ]~n", [F,H,T])
'$format'(user_error, "[ ~w reconsulted ~w bytes in ~g seconds ]~n", [F,H,T])
),
'$set_value'('$consulting',Old),
'$set_value'('$consulting_file',OldF),