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

oops....

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-11-05 17:27:20 +00:00
parent 4dfcdd4e87
commit 4cbeb6df39
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
library/system.yap
View File

@ -625,9 +625,9 @@ process_inp_stream_for_exec(std, 0, _, L, L) :- !.
process_inp_stream_for_exec(pipe(ForWriting), ForReading, _, L, [ForReading|L]) :- var(ForWriting), !, process_inp_stream_for_exec(pipe(ForWriting), ForReading, _, L, [ForReading|L]) :- var(ForWriting), !,
open_pipe_streams(ForReading, ForWriting). open_pipe_streams(ForReading, ForWriting).
process_inp_stream_for_exec(pipe(Stream), _, _, L, L) :- !, process_inp_stream_for_exec(pipe(Stream), _, _, L, L) :- !,
stream_property(Stream, output). stream_property(Stream, input).
process_inp_stream_for_exec(Stream, Stream, _, L, L) :- process_inp_stream_for_exec(Stream, Stream, _, L, L) :-
stream_property(Stream, output). stream_property(Stream, put).
process_out_stream_for_exec(Error, _, G, L, L) :- var(Error), !, process_out_stream_for_exec(Error, _, G, L, L) :- var(Error), !,
@ -638,9 +638,9 @@ process_out_stream_for_exec(std, 1, _, L, L) :- !.
process_out_stream_for_exec(pipe(ForReading), ForWriting, _, L, [ForWriting|L]) :- var(ForReading), !, process_out_stream_for_exec(pipe(ForReading), ForWriting, _, L, [ForWriting|L]) :- var(ForReading), !,
open_pipe_streams(ForReading, ForWriting). open_pipe_streams(ForReading, ForWriting).
process_out_stream_for_exec(pipe(Stream), _, _, L, L) :- !, process_out_stream_for_exec(pipe(Stream), _, _, L, L) :- !,
stream_property(Stream, input). stream_property(Stream, output).
process_out_stream_for_exec(Stream, Stream, _, L, L) :- process_out_stream_for_exec(Stream, Stream, _, L, L) :-
stream_property(Stream, input). stream_property(Stream, output).
process_err_stream_for_exec(Error, _, G, L, L) :- var(Error), !, process_err_stream_for_exec(Error, _, G, L, L) :- var(Error), !,
close_temp_streams(L), close_temp_streams(L),
@ -650,9 +650,9 @@ process_err_stream_for_exec(std, 2, _, L, L) :- !.
process_err_stream_for_exec(pipe(ForReading), ForWriting, _, L, [ForWriting|L]) :- var(ForReading), !, process_err_stream_for_exec(pipe(ForReading), ForWriting, _, L, [ForWriting|L]) :- var(ForReading), !,
open_pipe_streams(ForReading, ForWriting). open_pipe_streams(ForReading, ForWriting).
process_err_stream_for_exec(pipe(Stream), Stream, _, L, L) :- !, process_err_stream_for_exec(pipe(Stream), Stream, _, L, L) :- !,
stream_property(Stream, input). stream_property(Stream, output).
process_err_stream_for_exec(Stream, Stream, _, L, L) :- process_err_stream_for_exec(Stream, Stream, _, L, L) :-
stream_property(Stream, input). stream_property(Stream, output).
close_temp_streams([]). close_temp_streams([]).
close_temp_streams([S|Ss]) :- close_temp_streams([S|Ss]) :-
@ -813,3 +813,4 @@ tmpdir(TmpDir):-
path_separator('\\'):- path_separator('\\'):-
win, !. win, !.
path_separator('/'). path_separator('/').