clean up stream error handling, add get_byte/{1,2}
This commit is contained in:
@@ -49,9 +49,10 @@ user:term_expansion((:- op(Pred, Spec, [Op | OtherOps])), OpResults) :-
|
||||
current_prolog_flag/2, expand_goal/2,
|
||||
expand_term/2, fail/0, false/0, findall/3,
|
||||
findall/4, flush_output/0, flush_output/1,
|
||||
get_char/1, halt/0, max_arity/1, number_chars/2,
|
||||
number_codes/2, once/1, op/3, open/3, open/4,
|
||||
read_term/2, read_term/3, repeat/0, retract/1,
|
||||
get_byte/1, get_byte/2, get_char/1, halt/0,
|
||||
max_arity/1, number_chars/2, number_codes/2,
|
||||
once/1, op/3, open/3, open/4, read_term/2,
|
||||
read_term/3, repeat/0, retract/1,
|
||||
set_prolog_flag/2, set_input/1, set_output/1,
|
||||
setof/3, sub_atom/5, subsumes_term/2,
|
||||
term_variables/2, throw/1, true/0,
|
||||
@@ -1190,3 +1191,11 @@ flush_output(S) :-
|
||||
flush_output :-
|
||||
current_output(S),
|
||||
'$flush_output'(S).
|
||||
|
||||
|
||||
get_byte(S, B) :-
|
||||
'$get_byte'(S, B).
|
||||
|
||||
get_byte(S) :-
|
||||
current_input(S),
|
||||
'$get_byte'(S, B).
|
||||
|
||||
Reference in New Issue
Block a user