diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

avoid loading memfile

Browse Source
This commit is contained in:
Vítor Santos Costa 2011-03-11 19:48:43 +00:00
parent 92d2152aa7
commit 8eeae7942c
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
library/charsio.yap
View File

@ -32,8 +32,6 @@
term_to_atom/2 term_to_atom/2
]). ]).
:- use_module(library(memfile)).
:- meta_predicate(with_output_to_chars(0,?)). :- meta_predicate(with_output_to_chars(0,?)).
:- meta_predicate(with_output_to_chars(0,-,?)). :- meta_predicate(with_output_to_chars(0,-,?)).
:- meta_predicate(with_output_to_chars(0,-,?,?)). :- meta_predicate(with_output_to_chars(0,-,?,?)).
@ -73,13 +71,17 @@ open_chars_stream(Codes, Stream) :-
open_chars_stream(Codes, Stream, ''). open_chars_stream(Codes, Stream, '').
open_chars_stream(Codes, Stream, Postfix) :- open_chars_stream(Codes, Stream, Postfix) :-
new_memory_file(MF), predicate_property(memory_file:open_memory_file(_,_,_),_), !,
open_memory_file(MF, write, Out), memory_file:new_memory_file(MF),
memory_file:open_memory_file(MF, write, Out),
format(Out, '~s~w', [Codes, Postfix]), format(Out, '~s~w', [Codes, Postfix]),
close(Out), close(Out),
open_memory_file(MF, read, Stream, memory_file:open_memory_file(MF, read, Stream,
[ free_on_close(true) [ free_on_close(true)
]). ]).
open_chars_stream(Codes, Stream, Postfix) :-
ensure_loaded(library(memfile)),
open_chars_stream(Codes, Stream, Postfix).
with_output_to_chars(Goal, Codes) :- with_output_to_chars(Goal, Codes) :-
with_output_to(codes(Codes), Goal). with_output_to(codes(Codes), Goal).