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

View File

@ -115,12 +115,6 @@ C-STRUCT: vfsquery
: NFSV2_MAX_FH_SIZE 32 ; 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
: MNAMELEN 90 ; inline
: MFSTYPENAMELEN 16 ; inline

View File

@ -153,7 +153,8 @@ PRIVATE>
"." last-split1 nip ;
! 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 )
@ -181,6 +182,12 @@ SYMBOL: +unknown+
: 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
HOOK: cd io-backend ( path -- )