stat>file-info ( stat -- file-info )

Vocabulary

io.files.info.unix

Inputs

stat

an object

Outputs

file-info

an object

Definition

USING: system ;

IN: io.files.info.unix

HOOK: stat>file-info os ( stat -- file-info )

Methods

USING: accessors calendar.unix combinators generic
io.files.info.unix kernel system ;

M: macos stat>file-info
    [ M\ macos stat>file-info (call-next-method) ] keep {
        [ st_flags>> >>flags ]
        [ st_gen>> >>gen ]
        [ st_birthtimespec>> timespec>unix-time >>birth-time ]
    } cleave ;


USING: accessors calendar.unix combinators io.files.info.unix
kernel math system ;

M: unix stat>file-info
    [ new-file-info ] dip {
        [ stat>type >>type ]
        [ st_size>> >>size ]
        [ st_mode>> >>permissions ]
        [ st_ctimespec>> timespec>unix-time >>created ]
        [ st_mtimespec>> timespec>unix-time >>modified ]
        [ st_atimespec>> timespec>unix-time >>accessed ]
        [ st_uid>> >>uid ]
        [ st_gid>> >>gid ]
        [ st_dev>> >>dev ]
        [ st_ino>> >>ino ]
        [ st_nlink>> >>nlink ]
        [ st_rdev>> >>rdev ]
        [ st_blocks>> >>blocks ]
        [ st_blksize>> >>blocksize ]
        [
            drop dup blocks>> standard-unix-block-size *
            >>size-on-disk
        ]
    } cleave ;