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

2008-03-06 12:05:47 -06:00 · 2008-03-06 12:05:47 -06:00 · 724041c31d
parent 56919b42af
commit 724041c31d
1 changed files with 9 additions and 0 deletions
--- a/extra/io/unix/files/files.factor
+++ b/extra/io/unix/files/files.factor
@ -89,3 +89,12 @@ M: unix-io file-info ( path -- info )
        [ stat-st_mtim timespec-sec seconds unix-1970 time+ ]
    } cleave
    \ 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 ;