sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Rename bar to korf and some docs.

This commit is contained in:
Simon Forman 2019-08-18 16:59:31 -07:00
parent 26c2730273
commit b59e70f96d
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
thun/gnu-prolog/fork.pl
View File

@ -1,26 +1,26 @@
:- multifile(func/3). :- multifile(func/3).
func(fork, [F, G|S], [X, Y|S]) :- func(fork, [F, G|S], [X, Y|S]) :-
fork(F, S, R, ChildPID), fork(F, S, R, ChildPID), % Send F off to the child,
thun(G, S, [Y|_]), thun(G, S, [Y|_]), % Run G locally,
read_pipe(R, X), read_pipe(R, X), % Collect the result from F,
wait(ChildPID, Status). % FIXME check status!!! wait(ChildPID, Status). % FIXME check status!!!
fork(Expr, Stack, In, ChildPID) :- fork(Expr, Stack, In, ChildPID) :-
mkpipe(In, Out), mkpipe(In, Out),
fork_prolog(ChildPID), fork_prolog(ChildPID),
bar(ChildPID, In, Out, Expr, Stack). korf(ChildPID, In, Out, Expr, Stack).
bar(0, In, Out, Expr, Stack) :- close(In), korf(0, In, Out, Expr, Stack) :- close(In), % In the child.
thun(Expr, Stack, [Result|_]), thun(Expr, Stack, [Result|_]),
w(Out, Result), close(Out), w(Out, Result), close(Out),
halt. halt.
bar(PID, _, Out, _, _) :- korf(PID, _, Out, _, _) :- % In the parent.
integer(PID), PID =\= 0, integer(PID), PID =\= 0,
close(Out). close(Out).
read_pipe(In, Result) :- read_pipe(In, Result) :- % select/5, read the pipe or timeout.
select([In], R, [], _, 1500), select([In], R, [], _, 1500),
read_pipe_(R, In, Result), read_pipe_(R, In, Result),
close(In). close(In).