64 lines
1.6 KiB
Plaintext
64 lines
1.6 KiB
Plaintext
|
/*************************************************************************
|
||
|
|
* *
|
||
|
|
* YAP Prolog *
|
||
|
|
* *
|
||
|
|
* Yap Prolog was developed at NCCUP - Universidade do Porto *
|
||
|
|
* *
|
||
|
|
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997 *
|
||
|
|
* *
|
||
|
|
**************************************************************************
|
||
|
|
* *
|
||
|
|
* File: readutil.yap *
|
||
|
|
* Last rev: 5/12/99 *
|
||
|
|
* mods: *
|
||
|
|
* comments: SWI compatible read utilities *
|
||
|
|
* *
|
||
|
|
*************************************************************************/
|
||
|
|
|
||
|
|
:- module(readutil, [
|
||
|
|
read_line_to_codes/2,
|
||
|
|
read_line_to_codes/3,
|
||
|
|
read_stream_to_codes/2,
|
||
|
|
read_stream_to_codes/3,
|
||
|
|
read_file_to_codes/2,
|
||
|
|
read_file_to_codes/3,
|
||
|
|
read_file_to_terms/2,
|
||
|
|
read_file_to_terms/3
|
||
|
|
]).
|
||
|
|
|
||
|
|
|
||
|
|
read_stream_to_codes(Stream, Codes) :-
|
||
|
|
read_stream_to_codes(Stream, Codes, []).
|
||
|
|
|
||
|
|
read_file_to_codes(File, Codes, _) :-
|
||
|
|
open(File, read, Stream),
|
||
|
|
read_stream_to_codes(Stream, Codes, []),
|
||
|
|
close(Stream).
|
||
|
|
|
||
|
|
read_file_to_codes(File, Codes) :-
|
||
|
|
open(File, read, Stream),
|
||
|
|
read_stream_to_codes(Stream, Codes, []),
|
||
|
|
close(Stream).
|
||
|
|
|
||
|
|
read_file_to_terms(File, Codes, _) :-
|
||
|
|
open(File, read, Stream),
|
||
|
|
prolog_read_stream_to_terms(Stream, Codes, []),
|
||
|
|
close(Stream).
|
||
|
|
|
||
|
|
read_file_to_terms(File, Codes) :-
|
||
|
|
open(File, read, Stream),
|
||
|
|
read_stream_to_terms(Stream, Codes, []),
|
||
|
|
close(Stream).
|
||
|
|
|
||
|
|
|
||
|
|
prolog_read_stream_to_terms(Stream, Terms, Terms0) :-
|
||
|
|
read(Stream, Term),
|
||
|
|
(Term == end_of_file ->
|
||
|
|
Terms = Terms0
|
||
|
|
;
|
||
|
|
Terms = [Term|TermsI],
|
||
|
|
prolog_read_stream_to_terms(Stream, TermsI, Terms0)
|
||
|
|
).
|
||
|
|
|
||
|
|
|