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

error check run process 

related words in docs
use ERROR:
db4
Doug Coleman 2008-04-18 13:42:56 -05:00
parent 347eba475b
commit 1b83645097
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/editors/vim/vim.factor
View File

@ -18,7 +18,7 @@ M: vim vim-command ( file line -- array )
: vim-location ( file line -- ) : vim-location ( file line -- )
vim-command vim-command
vim-detach get-global vim-detach get-global
[ run-detached ] [ run-process ] if drop ; [ try-detached ] [ try-process ] if ;
"vim" vim-path set-global "vim" vim-path set-global
[ vim-location ] edit-hook set-global [ vim-location ] edit-hook set-global

3
extra/io/launcher/launcher-docs.factor
View File

@ -113,6 +113,8 @@ HELP: try-process
{ $values { "desc" "a launch descriptor" } } { $values { "desc" "a launch descriptor" } }
{ $description "Launches a process and waits for it to complete. If it exits with a non-zero status code, throws a " { $link process-failed } " error." } ; { $description "Launches a process and waits for it to complete. If it exits with a non-zero status code, throws a " { $link process-failed } " error." } ;
{ run-process try-process run-detached } related-words
HELP: kill-process HELP: kill-process
{ $values { "process" process } } { $values { "process" process } }
{ $description "Kills a running process. Does nothing if the process has already exited." } ; { $description "Kills a running process. Does nothing if the process has already exited." } ;
@ -171,6 +173,7 @@ ARTICLE: "io.launcher.launch" "Launching processes"
"Launching processes:" "Launching processes:"
{ $subsection run-process } { $subsection run-process }
{ $subsection try-process } { $subsection try-process }
{ $subsection run-detached }
"Redirecting standard input and output to a pipe:" "Redirecting standard input and output to a pipe:"
{ $subsection <process-stream> } { $subsection <process-stream> }
{ $subsection with-process-stream } ; { $subsection with-process-stream } ;

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

@ -127,10 +127,7 @@ 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 ;
TUPLE: process-failed code ; ERROR: process-failed code ;
: process-failed ( code -- * )
\ process-failed boa throw ;
: try-process ( desc -- ) : try-process ( desc -- )
run-process wait-for-process dup zero? run-process wait-for-process dup zero?