(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.macos.private unix.ffi ;

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