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

add file-system-info

db4
Doug Coleman 2008-10-20 00:30:24 -05:00
parent fe66a089e3
commit 0121d0f678
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/unix/stat/macosx/macosx.factor
View File

@ -115,12 +115,6 @@ C-STRUCT: vfsquery
: NFSV2_MAX_FH_SIZE 32 ; inline : NFSV2_MAX_FH_SIZE 32 ; inline
: NFS_MAX_FH_SIZE NFSV4_MAX_FH_SIZE ; inline : NFS_MAX_FH_SIZE NFSV4_MAX_FH_SIZE ; inline
! C-STRUCT: fhandle
! { "int" "fh_len" }
! { { "uchar" NFS_MAX_FH_SIZE } "fh_data" } ;
! TYPEDEF: fhandle fhandle_t
: MFSNAMELEN 15 ; inline : MFSNAMELEN 15 ; inline
: MNAMELEN 90 ; inline : MNAMELEN 90 ; inline
: MFSTYPENAMELEN 16 ; inline : MFSTYPENAMELEN 16 ; inline

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

@ -153,7 +153,8 @@ PRIVATE>
"." last-split1 nip ; "." last-split1 nip ;
! File info ! File info
TUPLE: file-info type size permissions created modified accessed ; TUPLE: file-info type size permissions created modified
accessed ;
HOOK: file-info io-backend ( path -- info ) HOOK: file-info io-backend ( path -- info )
@ -181,6 +182,12 @@ SYMBOL: +unknown+
: directory? ( file-info -- ? ) type>> +directory+ = ; : directory? ( file-info -- ? ) type>> +directory+ = ;
! File-system
TUPLE: file-system-info mount-on free-space ;
HOOK: file-system-info os ( path -- file-system-info )
<PRIVATE <PRIVATE
HOOK: cd io-backend ( path -- ) HOOK: cd io-backend ( path -- )