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

handle cr in files

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

@ -589,6 +589,9 @@ debugging :-
'$debugger_write'(Stream, G) :- '$debugger_write'(Stream, G) :-
writeq(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 %'$action'(10,_,_,_,_,on) :- % newline creep
% nb_setval('$debug_jump',false). % nb_setval('$debug_jump',false).
'$action'(10,_,_,_,_,on) :- !, % newline creep '$action'(10,_,_,_,_,on) :- !, % newline creep