rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

check for unexpected EOF in get_to_eof (#1897)

Browse Source
This commit is contained in:
Mark
2023-07-19 17:13:47 -06:00
parent 85bc544fb9
commit 4fd247f881
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/lib/charsio.pl
View File

@@ -323,8 +323,13 @@ get_n_chars(Stream, N, Cs) :-
'$get_n_chars'(Stream, N, Cs) '$get_n_chars'(Stream, N, Cs)
). ).
get_n_chars_wrapper(Stream, N, Cs) :-
'$get_n_chars'(Stream, N, Cs).
get_to_eof(Stream, Cs) :- get_to_eof(Stream, Cs) :-
'$get_n_chars'(Stream, 512, Cs0), catch(get_n_chars_wrapper(Stream, 512, Cs0),
error(syntax_error(unexpected_end_of_file), _),
Cs0 = []),
( Cs0 == [] -> Cs = [] ( Cs0 == [] -> Cs = []
; partial_string(Cs0, Cs, Rest), ; partial_string(Cs0, Cs, Rest),
get_to_eof(Stream, Rest) get_to_eof(Stream, Rest)