handle-length ( handle -- n/f )

Vocabulary

io.ports

Inputs

handle

an object

Outputs

n/f

an object

Definition

USING: system ;

IN: io.ports

HOOK: handle-length os ( handle -- n/f )

Methods

USING: accessors io.ports kernel system unix.stat ;

M: unix handle-length
    fd>> \ stat new [ fstat -1 = not ] keep swap
    [ st_size>> ] [ drop f ] if ;