seek-handle ( n seek-type handle -- )

Vocabulary

io.ports

Inputs

n	an object
seek-type	an object
handle	an object

Outputs

None

Definition

USING: system ;

IN: io.ports

HOOK: seek-handle os ( n seek-type handle -- )

Methods

USING: accessors combinators io io.ports kernel system unix
unix.ffi ;

M: unix seek-handle
    swap {
        { seek-absolute [ SEEK_SET ] }
        { seek-relative [ SEEK_CUR ] }
        { seek-end [ SEEK_END ] }
        [ bad-seek-type ]
    } case [ fd>> swap ] dip [ lseek ] unix-system-call drop ;