handle cr in files
This commit is contained in:
parent
95e596a8a1
commit
f350e369b5
7
pl/boot.yap
Normal file → Executable file
7
pl/boot.yap
Normal file → Executable 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
3
pl/debug.yap
Normal file → Executable 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
|
||||
|
Reference in New Issue
Block a user