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

linux32 and linx64 filesystem info objects instead of only one type

db4
Doug Coleman 2008-10-21 03:16:48 -05:00
parent 09c1f8cc01
commit 33948aa024
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/unix/statfs/linux/32/32.factor
View File

@ -18,12 +18,12 @@ C-STRUCT: statfs
FUNCTION: int statfs ( char* path, statfs64* buf ) ; FUNCTION: int statfs ( char* path, statfs64* buf ) ;
TUPLE: linux-file-system-info < file-system-info TUPLE: linux32-file-system-info < file-system-info
type bsize blocks bfree bavail files ffree fsid type bsize blocks bfree bavail files ffree fsid
namelen frsize spare ; namelen frsize spare ;
M: linux >file-system-info ( struct -- statfs ) M: linux >file-system-info ( struct -- statfs )
[ \ linux-file-system-info new ] dip [ \ linux32-file-system-info new ] dip
{ {
[ [
[ statfs64-f_bsize ] [ statfs64-f_bsize ]

4
basis/unix/statfs/linux/64/64.factor
View File

@ -20,12 +20,12 @@ C-STRUCT: statfs64
FUNCTION: int statfs64 ( char* path, statfs64* buf ) ; FUNCTION: int statfs64 ( char* path, statfs64* buf ) ;
TUPLE: linux-file-system-info < file-system-info TUPLE: linux64-file-system-info < file-system-info
type bsize blocks bfree bavail files ffree fsid type bsize blocks bfree bavail files ffree fsid
namelen frsize spare ; namelen frsize spare ;
M: linux >file-system-info ( struct -- statfs ) M: linux >file-system-info ( struct -- statfs )
[ \ linux-file-system-info new ] dip [ \ linux64-file-system-info new ] dip
{ {
[ [
[ statfs64-f_bsize ] [ statfs64-f_bsize ]