add-fd-to-run-loop ( fd callback -- )

Vocabulary

core-foundation.run-loop

Inputs

fd	an object
callback	an object

Outputs

None

Definition

USING: accessors core-foundation
core-foundation.file-descriptors destructors kernel sequences ;

IN: core-foundation.run-loop

: add-fd-to-run-loop ( fd callback -- )
    [
        <CFFileDescriptor> |CFRelease
        [ enable-all-callbacks ] [ get-run-loop fds>> push ]
        [ create-fd-source |CFRelease add-source-to-run-loop ]
        tri
    ] with-destructors ;