(terminal-size) ( -- columns lines )

Vocabulary

terminal

Inputs

None

Outputs

columns	an object
lines	an object

Definition

USING: system ;

IN: terminal

HOOK: (terminal-size) os ( -- columns lines )

Methods

USING: accessors io.streams.c kernel math system terminal
terminal.macosx.private unix.ffi ;

M: macosx (terminal-size)
    stdout-handle fileno TIOCGWINSZ winsize new [ ioctl ] keep
    swap 0 < [ drop 0 0 ] [ [ ws_col>> ] [ ws_row>> ] bi ] if ;