(spawn-process) ( process -- pid )

Vocabulary

io.launcher.unix

Inputs

process

an object

Outputs

pid

an object

Definition

USING: alien.data combinators kernel sequences unix.process
unix.types ;

IN: io.launcher.unix

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