steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.unix.files: add link-info unix backend

db4
Eduardo Cavazos 2008-03-06 12:05:47 -06:00
parent 56919b42af
commit 724041c31d
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/io/unix/files/files.factor
View File

@ -89,3 +89,12 @@ M: unix-io file-info ( path -- info )
[ stat-st_mtim timespec-sec seconds unix-1970 time+ ] [ stat-st_mtim timespec-sec seconds unix-1970 time+ ]
} cleave } cleave
\ file-info construct-boa ; \ file-info construct-boa ;
M: unix-io link-info ( path -- info )
lstat* {
[ stat>type ]
[ stat-st_size ]
[ stat-st_mode ]
[ stat-st_mtim timespec-sec seconds unix-1970 time+ ]
} cleave
\ file-info construct-boa ;