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

View File

@ -1,8 +1,8 @@
! Copyright (C) 2008 Doug Coleman.
! 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
alien.syntax ;
alien.syntax unix.statfs io.files ;
IN: unix.statfs.linux
C-STRUCT: statfs

View File

@ -1,7 +1,9 @@
! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
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
cell-bits {
@ -30,5 +32,5 @@ frequency pass-number ;
] with-scope
[ mtab-csv>mtab-entry ] map ;
M: linux mounted*
parse-mtab [ mount-point>> >file-system-info ] map ;
M: linux mounted
parse-mtab [ mount-point>> file-system-info ] map ;