spawn-process ( process -- pid )

Vocabulary

io.launcher.unix

Inputs

process

an object

Outputs

pid

an object

Definition

USING: alien.data alien.strings alien.utilities combinators
io.encodings.utf8 io.launcher.private kernel sequences
unix.process unix.types ;

IN: io.launcher.unix

: spawn-process ( process -- pid )
    {
        [
            [ 0 pid_t <ref> dup ] dip get-arguments [
                first utf8 string>alien
                posix-spawn-file-actions-init
                setup-working-directory posix-spawnattr-init
                reset-ignored-signals*
            ] keep utf8 strings>alien POSIX_SPAWN_SETSIGDEF
        ]
        [
            setup-process-group* overd posix_spawnattr_setflags
            check-posix
        ]
        [ setup-redirection* ]
        [
            get-environment assoc>env utf8 strings>alien
            posix_spawnp check-posix pid_t deref
        ]
        [ setup-priority* ]
    } cleave ;