File tree Expand file tree Collapse file tree 2 files changed +8
-8
lines changed Expand file tree Collapse file tree 2 files changed +8
-8
lines changed Original file line number Diff line number Diff line change 1515 read_term_from_chars /3,
1616 write_term_to_chars /3,
1717 chars_base64 /3,
18- char_stream /1,
19- char_stream /2,
20- char_stream /3,
18+ chars_to_stream /1,
19+ chars_to_stream /2,
20+ chars_to_stream /3,
2121 put_chars /2]).
2222
2323:- use_module (library(dcgs )).
Original file line number Diff line number Diff line change 88
99
1010test ("can create string char stream" ,
11- ( char_stream (Stream ),
11+ ( chars_to_stream (Stream ),
1212 put_char(Stream , a ),
1313 get_char(Stream , C ),
1414 C =a
1717
1818test ("can spell simple word with char stream" ,
1919 (
20- char_stream (Stream ),
20+ chars_to_stream (Stream ),
2121 put_char(Stream , c ),
2222 put_char(Stream , a ),
2323 put_char(Stream , t ),
2727
2828test ("can read from and write to char stream" ,
2929 (
30- char_stream (Stream ),
30+ chars_to_stream (Stream ),
3131 put_char(Stream , c ),
3232 put_char(Stream , a ),
3333 get_char(Stream , _C ),
4242 (
4343 Phrase ="can convert string to char stream" ,
4444 length(Phrase , N ),
45- char_stream (Phrase , Stream ),
45+ chars_to_stream (Phrase , Stream ),
4646 get_n_chars(Stream , N , Chars ),
4747 Phrase =Chars
4848 )
5252 (
5353 Phrase ="can convert string to char stream" ,
5454 length(Phrase , N ),
55- char_stream (Phrase , Stream , [] ),
55+ chars_to_stream (Phrase , Stream , [] ),
5656 get_n_chars(Stream , N , Chars ),
5757 Phrase =Chars
5858 )).
You can’t perform that action at this time.
0 commit comments