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

io.launcher.unix: cleanup find-process.

factor-shell
John Benediktsson 2018-01-20 13:33:16 -08:00
parent cb89a14ed6
commit 0eb4fc2951
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/io/launcher/unix/unix.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2007, 2010 Slava Pestov. ! Copyright (C) 2007, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types alien.data assocs combinators USING: accessors alien.c-types alien.data assocs combinators
continuations environment io.backend io.backend.unix continuations environment fry io.backend io.backend.unix
io.files.private io.files.unix io.launcher io.launcher.private io.files.private io.files.unix io.launcher io.launcher.private
io.pathnames io.ports kernel libc math namespaces sequences io.pathnames io.ports kernel libc math namespaces sequences
simple-tokenizer strings system unix unix.ffi unix.process ; simple-tokenizer strings system unix unix.ffi unix.process ;
@ -92,7 +92,7 @@ IN: io.launcher.unix
M: unix (current-process) ( -- handle ) getpid ; M: unix (current-process) ( -- handle ) getpid ;
M: unix (run-process) ( process -- pid ) M: unix (run-process) ( process -- pid )
[ spawn-process ] curry [ ] with-fork ; '[ _ spawn-process ] [ ] with-fork ;
M: unix (kill-process) ( process -- ) M: unix (kill-process) ( process -- )
[ handle>> SIGTERM ] [ group>> ] bi { [ handle>> SIGTERM ] [ group>> ] bi {
@ -102,8 +102,7 @@ M: unix (kill-process) ( process -- )
} case io-error ; } case io-error ;
: find-process ( handle -- process ) : find-process ( handle -- process )
processes get swap [ nip swap handle>> = ] curry processes get keys [ handle>> = ] with find nip ;
assoc-find 2drop ;
TUPLE: signal n ; TUPLE: signal n ;