steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Better error message

db4
Slava Pestov 2008-06-15 02:37:37 -05:00
parent 292a6fdb0d
commit 0f2da40977
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/io/launcher/launcher.factor
View File

@ -4,7 +4,7 @@ USING: system kernel namespaces strings hashtables sequences
assocs combinators vocabs.loader init threads continuations assocs combinators vocabs.loader init threads continuations
math accessors concurrency.flags destructors math accessors concurrency.flags destructors
io io.backend io.timeouts io.pipes io.pipes.private io.encodings io io.backend io.timeouts io.pipes io.pipes.private io.encodings
io.streams.duplex io.ports ; io.streams.duplex io.ports debugger prettyprint inspector ;
IN: io.launcher IN: io.launcher
TUPLE: process < identity-tuple TUPLE: process < identity-tuple
@ -131,11 +131,16 @@ HOOK: run-process* io-backend ( process -- handle )
run-detached run-detached
dup detached>> [ dup wait-for-process drop ] unless ; dup detached>> [ dup wait-for-process drop ] unless ;
ERROR: process-failed code ; ERROR: process-failed process code ;
M: process-failed error.
dup "Process exited with error code " write code>> . nl
"Launch descriptor:" print nl
process>> describe ;
: try-process ( desc -- ) : try-process ( desc -- )
run-process wait-for-process dup zero? run-process dup wait-for-process dup zero?
[ drop ] [ process-failed ] if ; [ 2drop ] [ process-failed ] if ;
HOOK: kill-process* io-backend ( handle -- ) HOOK: kill-process* io-backend ( handle -- )