unix-system-call-allow-eintr ( quot -- quot )

Vocabulary

unix

Inputs

quot	a quotation

Outputs

quot	a quotation

Word description

Calls a Unix function once using the same return convention as unix-system-call. Returns the result on success or EINTR, consuming the original arguments in either case. Other failures throw unix-system-call-error. It never retries the operation.

Notes

Suitable for close on supported Unix platforms and for kevent changelist submissions, where an EINTR result does not mean the operation should be replayed.

See also

unix-system-call

Definition

USING: combinators.smart generalizations kernel libc sequences
sequences.generalizations ;

IN: unix

MACRO:: unix-system-call-allow-eintr ( quot -- quot )
    quot inputs :> n quot first :> word 0 :> ret! 0 :> error! [
        n ndup quot call ret! errno error! ret unix-call-failed? 
        [
            error EINTR = [
                n narray error dup strerror word
                unix-system-call-error
            ] unless
        ] when n ndrop ret
    ] ;