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

use newly available get_n_chars/3 from library(charsio)

Browse Source
This commit is contained in:
Markus Triska
2022-02-22 23:51:01 +01:00
parent d1372d9b3b
commit 8fb673e93e
1 changed files with 2 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/lib/sgml.pl
View File

@@ -58,6 +58,7 @@
:- use_module(library(error)). :- use_module(library(error)).
:- use_module(library(dcgs)). :- use_module(library(dcgs)).
:- use_module(library(pio)). :- use_module(library(pio)).
:- use_module(library(charsio)).
load_html(Source, Es, Options) :- load_html(Source, Es, Options) :-
load_structure_(Source, Es, Options, html). load_structure_(Source, Es, Options, html).
@@ -75,15 +76,8 @@ load_structure_(file(Fs), [E], Options, What) :-
load_(What, Cs, E, Options). load_(What, Cs, E, Options).
load_structure_(stream(Stream), [E], Options, What) :- load_structure_(stream(Stream), [E], Options, What) :-
must_be(list, Options), must_be(list, Options),
read_to_end(Stream, Cs), get_n_chars(Stream, _, Cs),
load_(What, Cs, E, Options). load_(What, Cs, E, Options).
load_(html, Cs, E, Options) :- '$load_html'(Cs, E, Options). load_(html, Cs, E, Options) :- '$load_html'(Cs, E, Options).
load_(xml, Cs, E, Options) :- '$load_xml'(Cs, E, Options). load_(xml, Cs, E, Options) :- '$load_xml'(Cs, E, Options).
read_to_end(Stream, Cs) :-
'$get_n_chars'(Stream, 4096, Cs0),
( Cs0 = [] -> Cs = []
; partial_string(Cs0, Cs, Rest),
read_to_end(Stream, Rest)
).