with-io ( quot -- )

Vocabulary

glib.backend

Inputs

quot

an object

Outputs

None

Definition

USING: alien.c-types combinators continuations
glib.backend.private glib.ffi io.thread kernel libc ;

IN: glib.backend

:: with-io ( quot -- )
    stop-io-thread <funcs> &free GSource heap-size g_source_new
    &g_source_unref :> source source <poll-fd> g_source_add_poll
    source f g_source_attach drop
    [ quot ( -- ) call-effect ]
    [ source g_source_destroy start-io-thread ] finally ;