ci-run-process ( process -- timestamp os-envs cwd uid euid gid egid out elapsed os-envs' process )

Vocabulary

process-autopsy

Inputs

process

an object

Outputs

timestamp	an object
os-envs	an object
cwd	an object
uid	an object
euid	an object
gid	an object
egid	an object
out	an object
elapsed	an object
os-envs'	an object
process	an object

Definition

USING: calendar environment io.pathnames io.streams.string
kernel namespaces tools.deploy.backend tools.time unix.groups
unix.users ;

IN: process-autopsy

: ci-run-process
    ( process -- timestamp os-envs cwd uid euid gid egid out elapsed os-envs' process )
    [
        [
            now-gmt os-envs current-directory get real-user-id
            effective-user-id real-group-id effective-group-id
        ] dip
        [ [ run-with-output ] curry with-string-writer ]
        benchmark os-envs
    ] keep ;