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

disable BOM on ttys

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-03-24 09:38:52 +00:00
parent 5f7101a9e3
commit c7f700627d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pl/debug.yap
View File

@ -2,7 +2,7 @@
* * * *
* YAP Prolog * * YAP Prolog *
* * * *
* Yap Prolog was developed at NCCUP - Universidade do Porto * * Yap Prolog was developed at NCCUP - Universidade do Porto *
* * * *
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997 * * Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997 *
* * * *
@ -77,6 +77,7 @@ mode and the existing spy-points, when the debugger is on.
'$init_debugger' :- '$init_debugger' :-
'$nb_getval'('$trace', _, fail), !. '$nb_getval'('$trace', _, fail), !.
'$init_debugger' :- '$init_debugger' :-
'$debugger_input',
nb_setval('$trace',off), nb_setval('$trace',off),
nb_setval('$if_skip_mode',no_skip), nb_setval('$if_skip_mode',no_skip),
nb_setval('$spy_glist',[]), nb_setval('$spy_glist',[]),
@ -690,10 +691,10 @@ be lost.
set_stream(S,alias(debugger_input)). set_stream(S,alias(debugger_input)).
'$debugger_input' :- '$debugger_input' :-
current_prolog_flag(unix, true ), !, current_prolog_flag(unix, true ), !,
open('/dev/tty', read, _S, [alias(debugger_input)]). open('/dev/tty', read, _S, [alias(debugger_input),bom(false)]).
'$debugger_input' :- '$debugger_input' :-
current_prolog_flag(windows, true ), !, current_prolog_flag(windows, true ), !,
open('CONIN$', read, _S, [alias(debugger_input)]). open('CONIN$', read, _S, [alias(debugger_input),bom(false)]).
% last argument to do_spy says that we are at the end of a context. It % last argument to do_spy says that we are at the end of a context. It