setup-process-group* ( attrp argv flags process -- attrp' argv flags' )

Vocabulary

io.launcher.unix

Inputs

attrp	an object
argv	an object
flags	an object
process	an object

Outputs

attrp'	an object
argv	an object
flags'	an object

Definition

USING: accessors combinators io.launcher kernel math
unix.process ;

IN: io.launcher.unix

: setup-process-group*
    ( attrp argv flags process -- attrp' argv flags' )
    group>> {
        { +same-group+ [ ] }
        {
            +new-group+
            [
                POSIX_SPAWN_SETPGROUP bitor
                pick 0 posix_spawnattr_setpgroup check-posix
            ]
        }
        { +new-session+ [ POSIX_SPAWN_SETSID bitor ] }
    } case ;