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

fix mounted on linux

db4
erg 2008-10-22 19:54:22 -05:00
parent f9b90d035b
commit b4b02d29fa
2 changed files with 7 additions and 5 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

@ -1,8 +1,8 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.c-types combinators kernel io.files unix.stat USING: alien.c-types combinators kernel unix.stat
math accessors system unix io.backend layouts vocabs.loader math accessors system unix io.backend layouts vocabs.loader
alien.syntax ; alien.syntax unix.statfs io.files ;
IN: unix.statfs.linux IN: unix.statfs.linux
C-STRUCT: statfs C-STRUCT: statfs

8
basis/unix/statfs/linux/linux.factor
View File

@ -1,7 +1,9 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.c-types combinators kernel io.files unix.stat USING: alien.c-types combinators kernel io.files unix.stat
math accessors system unix io.backend layouts vocabs.loader ; math accessors system unix io.backend layouts vocabs.loader
sequences csv io.streams.string io.encodings.utf8 namespaces
unix.statfs io.files ;
IN: unix.statfs.linux IN: unix.statfs.linux
cell-bits { cell-bits {
@ -30,5 +32,5 @@ frequency pass-number ;
] with-scope ] with-scope
[ mtab-csv>mtab-entry ] map ; [ mtab-csv>mtab-entry ] map ;
M: linux mounted* M: linux mounted
parse-mtab [ mount-point>> >file-system-info ] map ; parse-mtab [ mount-point>> file-system-info ] map ;