This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/library/readutil.yap

81 lines
1.9 KiB
Plaintext
Raw Normal View History

2015-07-25 03:28:04 +01:00
/*************************************************************************
* *
* 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 *
* *
*************************************************************************/
2015-11-18 15:06:25 +00:00
/**
* @file readutil.yap
* @author VITOR SANTOS COSTA <vsc@VITORs-MBP.lan>
* @date Wed Nov 18 00:16:15 2015
*
2015-11-18 15:06:25 +00:00
* @brief Read full lines and a full file in a single call.
*
*
2015-11-18 15:06:25 +00:00
*/
2015-07-25 03:28:04 +01:00
:- 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,
2015-11-13 13:23:49 +00:00
read_file_to_terms/3,
read_line_to_string/2
2015-07-25 03:28:04 +01:00
]).
2015-11-18 15:06:25 +00:00
/**
* @defsgroup readutil
* @ingroup library
*
* Read full lines and a full file in a single call.
*
2015-11-18 15:06:25 +00:00
*/
2015-07-25 03:28:04 +01:00
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)
).