From 724041c31d5ea3525ef9aa397ed621273c06937e Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Thu, 6 Mar 2008 12:05:47 -0600 Subject: [PATCH] io.unix.files: add link-info unix backend --- extra/io/unix/files/files.factor | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/extra/io/unix/files/files.factor b/extra/io/unix/files/files.factor index db3cf674c7..4142c4be77 100755 --- 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 ;