posix-elevated ( command replace? -- process )

Vocabulary

elevate.unix.private

Inputs

command	an object
replace?	an object

Outputs

process

an object

Definition

USING: elevate.private io.launcher kernel ;

IN: elevate.unix.private

:: posix-elevated ( command replace? -- process )
    command "sudo" prepend-command replace?
    [ posix-replace-process ] [ run-process ] if
    dup failed-process?
    [ drop command { "sudo" } elevated-failed ] [ ] if ;