plain-writer? ( object -- ? )

Vocabulary

io.streams.plain

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the plain-writer class.

Definition

USING: classes.tuple.private curses.listener growable
io.encodings io.streams.null kernel slots.private ;

IN: io.streams.plain

: plain-writer? ( object -- ? )
    dup dup tuple?
    [ layout-of 7 slot \ encoder eq? ] [ drop f ] if
    [ drop t ] [
        dup curses-listener-stream?
        [ drop t ]
        [ dup null-writer? [ drop t ] [ growable? ] if ] if
    ] if ;