(read-symbolic-link) ( path bufsiz -- path' )

Vocabulary

unix

Inputs

path	an object
bufsiz	an object

Outputs

path'

an object

Definition

USING: byte-arrays kernel math sequences strings unix.ffi ;

IN: unix

: (read-symbolic-link) ( path bufsiz -- path' )
    dup <byte-array> 3dup swap
    [ readlink ] unix-system-call pick dupd <
    [ head >string 2nip ] [ 2nip 2 * (read-symbolic-link) ] if ;