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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Doug Coleman 2008-03-06 12:22:27 -06:00
parent 41e4d59e63 724041c31d
commit 6e9037c21a
3 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
core/io/files/files.factor
View File

@ -54,6 +54,7 @@ TUPLE: no-parent-directory path ;
TUPLE: file-info type size permissions modified ; TUPLE: file-info type size permissions modified ;
HOOK: file-info io-backend ( path -- info ) HOOK: file-info io-backend ( path -- info )
HOOK: link-info io-backend ( path -- info )
SYMBOL: +regular-file+ SYMBOL: +regular-file+
SYMBOL: +directory+ SYMBOL: +directory+

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 ;

5
extra/unix/stat/stat.factor
View File

@ -74,3 +74,8 @@ FUNCTION: int mkdir ( char* path, mode_t mode ) ;
"stat" <c-object> dup >r "stat" <c-object> dup >r
stat check-status stat check-status
r> ; r> ;
: lstat* ( pathname -- stat )
"stat" <c-object> dup >r
lstat check-status
r> ;