This repo is not current. Development has moved from Hg to Git. For the latest code use the "Source Code" tab above to go to the "Thun" git repo or navigate to:
https://osdn.net/projects/joypy/scm/git/Thun
| リビジョン | d21c31c2700370c9d1e63d36f1883f11cbf6f5b9 (tree) |
|---|---|
| 日時 | 2019-08-19 04:17:37 |
| 作者 |  Simon Forman <sforman@hush...> |
| コミッター | Simon Forman |
minor cleanup
thun/gnu-prolog/fork.pl (diff)| @@ -11,27 +11,23 @@ | ||
| 11 | 11 | fork_prolog(ChildPID), |
| 12 | 12 | bar(ChildPID, In, Out, Expr, Stack). |
| 13 | 13 | |
| 14 | -bar(0, In, Out, Expr, Stack) :- | |
| 15 | - close(In), | |
| 14 | +bar(0, In, Out, Expr, Stack) :- close(In), | |
| 16 | 15 | thun(Expr, Stack, [Result|_]), |
| 17 | - w(Out, Result), | |
| 18 | - close(Out), | |
| 16 | + w(Out, Result), close(Out), | |
| 19 | 17 | halt. |
| 20 | 18 | |
| 21 | 19 | bar(PID, _, Out, _, _) :- |
| 22 | - integer(PID), | |
| 23 | - PID =\= 0, | |
| 20 | + integer(PID), PID =\= 0, | |
| 24 | 21 | close(Out). |
| 25 | 22 | |
| 26 | 23 | read_pipe(In, Result) :- |
| 27 | 24 | select([In], R, [], _, 1500), |
| 28 | - (R=[In] -> | |
| 29 | - read(In, Result) | |
| 30 | - ; | |
| 31 | - Result=timeout | |
| 32 | - ), | |
| 25 | + read_pipe_(R, In, Result), | |
| 33 | 26 | close(In). |
| 34 | 27 | |
| 28 | +read_pipe_([In], In, Result) :- read(In, Result). | |
| 29 | +read_pipe_( [], _, timeout). | |
| 30 | + | |
| 35 | 31 | mkpipe(In, Out) :- |
| 36 | 32 | create_pipe(In, Out), |
| 37 | 33 | set_stream_buffering(Out, none), |
Fork