wait-for-stdin ( stdin -- size )

Vocabulary

io.backend.unix

Inputs

stdin

an object

Outputs

size

an object

Definition

USING: accessors alien.c-types alien.data io kernel unix.types ;

IN: io.backend.unix

: wait-for-stdin ( stdin -- size )
    [ control>> 88 over stream-write1 stream-flush ]
    [ size>> ssize_t heap-size swap stream-read ssize_t deref ]
    bi ;