handle cr in files

This commit is contained in:
U-Khasa\Vitor 2010-02-11 12:06:27 -06:00
parent 95e596a8a1
commit f350e369b5
2 changed files with 10 additions and 0 deletions

7
pl/boot.yap Normal file → Executable file
View File

@ -571,6 +571,9 @@ true :- true.
'$another' :-
format(user_error,' ? ',[]),
get0(user_input,C),
'$do_another'(C).
'$do_another'(C) :-
( C== 0'; -> '$skip'(user_input,10), %'
'$add_nl_outside_console',
fail
@ -581,6 +584,10 @@ true :- true.
;
print_message(help,yes)
)
;
C== 13 ->
get0(user_input,NC),
'$do_another'(NC)
;
C== -1 -> halt
;

3
pl/debug.yap Normal file → Executable file
View File

@ -589,6 +589,9 @@ debugging :-
'$debugger_write'(Stream, G) :-
writeq(Stream, G).
'$action'(13,P,CallNumber,G,Module,Zip) :- !, % newline creep
get0(user_input,C),
'$action'(C,P,CallNumber,G,Module,Zip).
%'$action'(10,_,_,_,_,on) :- % newline creep
% nb_setval('$debug_jump',false).
'$action'(10,_,_,_,_,on) :- !, % newline creep