input-stream? ( object -- ? )

Vocabulary

io

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the input-stream class.

Definition

USING: classes.tuple.private curses.listener io.ports
io.streams.c io.streams.counting io.streams.null io.streams.peek
io.streams.random io.streams.zeros kernel math.private
readline-listener.private slots.private ui.tools.listener ;

IN: io

: input-stream? ( object -- ? )
    dup dup tuple? [
        layout-of
        dup
        7
        slot
        dup
        \ readline-reader
        eq?
        [ drop t ]
        [
            dup \ zero-stream eq?
            [ drop t ] [
                dup \ random-stream eq?
                [ drop t ] [
                    dup \ counting-stream eq?
                    [ drop t ] [
                        dup \ peek-stream eq?
                        ~quotation~ ~quotation~ if
                    ] if
                ] if
            ] if
        ]
        if
        [ drop t ]
        [
            dup dup 1 slot 19 fixnum>=
            [ 19 slot \ interactor eq? ] [ drop f ] if
            [ drop t ] [
                dup dup 1 slot 15 fixnum>=
                [ 15 slot \ input-port eq? ] [ drop f ] if
                [ drop t ] [
                    dup
                    1
                    slot
                    13
                    fixnum>=
                    [ 13 slot \ c-reader eq? ]
                    [ drop f ]
                    if
                ] if
            ] if
        ]
        if
    ] [ drop f ] if
    [ drop t ] [
        dup curses-listener-stream?
        [ drop t ] [ null-reader? ] if
    ] if ;