init-fd ( fd -- fd )

Vocabulary

io.backend.unix

Inputs

fd

an object

Outputs

fd

an object

Definition

USING: accessors destructors kernel unix unix.ffi ;

IN: io.backend.unix

: init-fd ( fd -- fd )
    [
        |dispose dup fd>> F_SETFL O_NONBLOCK
        [ fcntl ] unix-system-call drop
        dup fd>> F_SETFD FD_CLOEXEC
        [ fcntl ] unix-system-call drop
    ] with-destructors ;