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

try to make bootstrap work again

db4
Doug Coleman 2008-10-19 19:39:20 -05:00
parent e4b6cd7578
commit 4f948ef5ce
2 changed files with 101 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/unix/stat/linux/32/32.factor
View File

@ -31,3 +31,15 @@ FUNCTION: int __lxstat ( int ver, char* pathname, stat* buf ) ;
: stat ( pathname buf -- int ) 3 -rot __xstat ;
: lstat ( pathname buf -- int ) 3 -rot __lxstat ;
C-STRUCT: statfs
{ "long" "f_type" }
{ "long" "f_bsize" }
{ "long" "f_blocks" }
{ "long" "f_bfree" }
{ "long" "f_bavail" }
{ "long" "f_files" }
{ "long" "f_ffree" }
{ "fsid_t" "f_fsid" }
{ "long" "f_namelen" } ;

91
basis/unix/stat/linux/64/64.factor
View File

@ -1,5 +1,5 @@
USING: kernel alien.syntax math ;
USING: kernel alien.syntax math sequences unix
alien.c-types arrays accessors combinators ;
IN: unix.stat
@ -29,3 +29,90 @@ FUNCTION: int __lxstat ( int ver, char* pathname, stat* buf ) ;
: stat ( pathname buf -- int ) 1 -rot __xstat ;
: lstat ( pathname buf -- int ) 1 -rot __lxstat ;
C-STRUCT: fstab
{ "char*" "fs_spec" }
{ "char*" "fs_file" }
{ "char*" "fs_vfstype" }
{ "char*" "fs_mntops" }
{ "char*" "fs_type" }
{ "int" "fs_freq" }
{ "int" "fs_passno" } ;
FUNCTION: fstab* getfsent ( ) ;
FUNCTION: fstab* getfsspec ( char* name ) ;
FUNCTION: fstab* getfsfile ( char* name ) ;
FUNCTION: int setfsent ( ) ;
FUNCTION: void endfsent ( ) ;
TUPLE: fstab spec file vfstype mntops type freq passno ;
: fstab-struct>fstab ( struct -- fstab )
[ fstab new ] dip
{
[ fstab-fs_spec >>spec ]
[ fstab-fs_file >>file ]
[ fstab-fs_vfstype >>vfstype ]
[ fstab-fs_mntops >>mntops ]
[ fstab-fs_type >>type ]
[ fstab-fs_freq >>freq ]
[ fstab-fs_passno >>passno ]
} cleave ;
C-STRUCT: fsid
{ { "int" 2 } "__val" } ;
TYPEDEF: fsid __fsid_t
TYPEDEF: ssize_t __SWORD_TYPE
TYPEDEF: ulonglong __fsblkcnt64_t
TYPEDEF: ulonglong __fsfilcnt64_t
C-STRUCT: statfs64
{ "__SWORD_TYPE" "f_type" }
{ "__SWORD_TYPE" "f_bsize" }
{ "__fsblkcnt64_t" "f_blocks" }
{ "__fsblkcnt64_t" "f_bfree" }
{ "__fsblkcnt64_t" "f_bavail" }
{ "__fsfilcnt64_t" "f_files" }
{ "__fsfilcnt64_t" "f_ffree" }
{ "__fsid_t" "f_fsid" }
{ "__SWORD_TYPE" "f_namelen" }
{ "__SWORD_TYPE" "f_frsize" }
{ { "__SWORD_TYPE" 5 } "f_spare" } ;
TUPLE: statfs type bsize blocks bfree bavail files ffree fsid
namelen frsize spare ;
: statfs-struct>statfs ( struct -- statfs )
[ \ statfs new ] dip
{
[ statfs64-f_type >>type ]
[ statfs64-f_bsize >>bsize ]
[ statfs64-f_blocks >>blocks ]
[ statfs64-f_bfree >>bfree ]
[ statfs64-f_bavail >>bavail ]
[ statfs64-f_files >>files ]
[ statfs64-f_ffree >>ffree ]
[ statfs64-f_fsid >>fsid ]
[ statfs64-f_namelen >>namelen ]
[ statfs64-f_frsize >>frsize ]
[ statfs64-f_spare >>spare ]
} cleave ;
FUNCTION: int statfs64 ( char* path, statfs64* buf ) ;
: statfs ( path -- byte-array )
"statfs64" <c-object> [ statfs64 io-error ] keep ;
: all-fstabs ( -- seq )
setfsent io-error
[ getfsent dup ] [ fstab-struct>fstab ] [ drop ] produce endfsent ;
C-STRUCT: mntent
{ "char*" "mnt_fsname" }
{ "char*" "mnt_dir" }
{ "char*" "mnt_type" }
{ "char*" "mnt_opts" }
{ "int" "mnt_freq" }
{ "int" "mnt_passno" } ;