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

remove direct uint arrays in file info

db4
Doug Coleman 2009-08-30 11:58:30 -05:00
parent b938123d94
commit 447be26efd
4 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/io/files/info/unix/freebsd/freebsd.factor
View File

@ -4,8 +4,7 @@ USING: accessors alien.c-types alien.syntax combinators
io.backend io.files io.files.info io.files.unix kernel math system unix io.backend io.files io.files.info io.files.unix kernel math system unix
unix.statfs.freebsd unix.statvfs.freebsd unix.getfsstat.freebsd unix.statfs.freebsd unix.statvfs.freebsd unix.getfsstat.freebsd
sequences grouping alien.strings io.encodings.utf8 unix.types sequences grouping alien.strings io.encodings.utf8 unix.types
specialized-arrays.direct.uint arrays io.files.info.unix arrays io.files.info.unix classes.struct ;
classes.struct ;
IN: io.files.info.unix.freebsd IN: io.files.info.unix.freebsd
TUPLE: freebsd-file-system-info < unix-file-system-info TUPLE: freebsd-file-system-info < unix-file-system-info
@ -34,7 +33,7 @@ M: freebsd statfs>file-system-info ( file-system-info statvfs -- file-system-inf
[ f_asyncreads>> >>asyncreads ] [ f_asyncreads>> >>asyncreads ]
[ f_namemax>> >>name-max ] [ f_namemax>> >>name-max ]
[ f_owner>> >>owner ] [ f_owner>> >>owner ]
[ f_fsid>> 2 <direct-uint-array> >array >>id ] [ f_fsid>> >>id ]
[ f_fstypename>> utf8 alien>string >>type ] [ f_fstypename>> utf8 alien>string >>type ]
[ f_mntfromname>> utf8 alien>string >>device-name ] [ f_mntfromname>> utf8 alien>string >>device-name ]
[ f_mntonname>> utf8 alien>string >>mount-point ] [ f_mntonname>> utf8 alien>string >>mount-point ]

6
basis/io/files/info/unix/linux/linux.factor
View File

@ -4,8 +4,8 @@ USING: accessors alien.c-types alien.syntax combinators csv
io.backend io.encodings.utf8 io.files io.files.info io.streams.string io.backend io.encodings.utf8 io.files io.files.info io.streams.string
io.files.unix kernel math.order namespaces sequences sorting io.files.unix kernel math.order namespaces sequences sorting
system unix unix.statfs.linux unix.statvfs.linux io.files.links system unix unix.statfs.linux unix.statvfs.linux io.files.links
specialized-arrays.direct.uint arrays io.files.info.unix assocs arrays io.files.info.unix assocs io.pathnames unix.types
io.pathnames unix.types classes.struct ; classes.struct ;
FROM: csv => delimiter ; FROM: csv => delimiter ;
IN: io.files.info.unix.linux IN: io.files.info.unix.linux
@ -26,7 +26,7 @@ M: linux statfs>file-system-info ( struct -- statfs )
[ f_bavail>> >>blocks-available ] [ f_bavail>> >>blocks-available ]
[ f_files>> >>files ] [ f_files>> >>files ]
[ f_ffree>> >>files-free ] [ f_ffree>> >>files-free ]
[ f_fsid>> 2 <direct-uint-array> >array >>id ] [ f_fsid>> >>id ]
[ f_namelen>> >>namelen ] [ f_namelen>> >>namelen ]
[ f_frsize>> >>preferred-block-size ] [ f_frsize>> >>preferred-block-size ]
! [ statfs64-f_spare >>spare ] ! [ statfs64-f_spare >>spare ]

4
basis/io/files/info/unix/netbsd/netbsd.factor
View File

@ -5,7 +5,7 @@ combinators system io.backend accessors alien.c-types
io.encodings.utf8 alien.strings unix.types io.files.unix io.encodings.utf8 alien.strings unix.types io.files.unix
io.files io.files.info unix.statvfs.netbsd unix.getfsstat.netbsd arrays io.files io.files.info unix.statvfs.netbsd unix.getfsstat.netbsd arrays
grouping sequences io.encodings.utf8 classes.struct grouping sequences io.encodings.utf8 classes.struct
specialized-arrays.direct.uint io.files.info.unix ; io.files.info.unix ;
IN: io.files.info.unix.netbsd IN: io.files.info.unix.netbsd
TUPLE: netbsd-file-system-info < unix-file-system-info TUPLE: netbsd-file-system-info < unix-file-system-info
@ -36,7 +36,7 @@ M: netbsd statvfs>file-system-info ( file-system-info statvfs -- file-system-inf
[ f_syncwrites>> >>sync-writes ] [ f_syncwrites>> >>sync-writes ]
[ f_asyncreads>> >>async-reads ] [ f_asyncreads>> >>async-reads ]
[ f_asyncwrites>> >>async-writes ] [ f_asyncwrites>> >>async-writes ]
[ f_fsidx>> 2 <direct-uint-array> >array >>idx ] [ f_fsidx>> >>idx ]
[ f_fsid>> >>id ] [ f_fsid>> >>id ]
[ f_namemax>> >>name-max ] [ f_namemax>> >>name-max ]
[ f_owner>> >>owner ] [ f_owner>> >>owner ]

5
basis/io/files/info/unix/openbsd/openbsd.factor
View File

@ -4,8 +4,7 @@ USING: accessors alien.c-types alien.strings alien.syntax
combinators io.backend io.files io.files.info io.files.unix kernel math combinators io.backend io.files io.files.info io.files.unix kernel math
sequences system unix unix.getfsstat.openbsd grouping sequences system unix unix.getfsstat.openbsd grouping
unix.statfs.openbsd unix.statvfs.openbsd unix.types unix.statfs.openbsd unix.statvfs.openbsd unix.types
specialized-arrays.direct.uint arrays io.files.info.unix arrays io.files.info.unix classes.struct ;
classes.struct ;
IN: io.files.unix.openbsd IN: io.files.unix.openbsd
TUPLE: freebsd-file-system-info < unix-file-system-info TUPLE: freebsd-file-system-info < unix-file-system-info
@ -32,7 +31,7 @@ M: openbsd statfs>file-system-info ( file-system-info statfs -- file-system-info
[ f_syncreads>> >>sync-reads ] [ f_syncreads>> >>sync-reads ]
[ f_asyncwrites>> >>async-writes ] [ f_asyncwrites>> >>async-writes ]
[ f_asyncreads>> >>async-reads ] [ f_asyncreads>> >>async-reads ]
[ f_fsid>> 2 <direct-uint-array> >array >>id ] [ f_fsid>> >>id ]
[ f_namemax>> >>name-max ] [ f_namemax>> >>name-max ]
[ f_owner>> >>owner ] [ f_owner>> >>owner ]
[ f_fstypename>> alien>native-string >>type ] [ f_fstypename>> alien>native-string >>type ]