166 lines
5.3 KiB
Factor
166 lines
5.3 KiB
Factor
! Copyright (C) 2008 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: alien.c-types io.encodings.utf8 io.encodings.string
|
|
kernel sequences unix.stat accessors unix combinators math
|
|
grouping system unix.statfs io.files io.backend alien.strings
|
|
math.bitwise alien.syntax ;
|
|
IN: unix.statfs.macosx
|
|
|
|
: MNT_RDONLY HEX: 00000001 ; inline
|
|
: MNT_SYNCHRONOUS HEX: 00000002 ; inline
|
|
: MNT_NOEXEC HEX: 00000004 ; inline
|
|
: MNT_NOSUID HEX: 00000008 ; inline
|
|
: MNT_NODEV HEX: 00000010 ; inline
|
|
: MNT_UNION HEX: 00000020 ; inline
|
|
: MNT_ASYNC HEX: 00000040 ; inline
|
|
: MNT_EXPORTED HEX: 00000100 ; inline
|
|
: MNT_QUARANTINE HEX: 00000400 ; inline
|
|
: MNT_LOCAL HEX: 00001000 ; inline
|
|
: MNT_QUOTA HEX: 00002000 ; inline
|
|
: MNT_ROOTFS HEX: 00004000 ; inline
|
|
: MNT_DOVOLFS HEX: 00008000 ; inline
|
|
: MNT_DONTBROWSE HEX: 00100000 ; inline
|
|
: MNT_IGNORE_OWNERSHIP HEX: 00200000 ; inline
|
|
: MNT_AUTOMOUNTED HEX: 00400000 ; inline
|
|
: MNT_JOURNALED HEX: 00800000 ; inline
|
|
: MNT_NOUSERXATTR HEX: 01000000 ; inline
|
|
: MNT_DEFWRITE HEX: 02000000 ; inline
|
|
: MNT_MULTILABEL HEX: 04000000 ; inline
|
|
: MNT_NOATIME HEX: 10000000 ; inline
|
|
: MNT_UNKNOWNPERMISSIONS MNT_IGNORE_OWNERSHIP ; inline
|
|
|
|
: MNT_VISFLAGMASK ( -- n )
|
|
{
|
|
MNT_RDONLY MNT_SYNCHRONOUS MNT_NOEXEC
|
|
MNT_NOSUID MNT_NODEV MNT_UNION
|
|
MNT_ASYNC MNT_EXPORTED MNT_QUARANTINE
|
|
MNT_LOCAL MNT_QUOTA
|
|
MNT_ROOTFS MNT_DOVOLFS MNT_DONTBROWSE
|
|
MNT_IGNORE_OWNERSHIP MNT_AUTOMOUNTED MNT_JOURNALED
|
|
MNT_NOUSERXATTR MNT_DEFWRITE MNT_MULTILABEL MNT_NOATIME
|
|
} flags ; inline
|
|
|
|
: MNT_UPDATE HEX: 00010000 ; inline
|
|
: MNT_RELOAD HEX: 00040000 ; inline
|
|
: MNT_FORCE HEX: 00080000 ; inline
|
|
: MNT_CMDFLAGS { MNT_UPDATE MNT_RELOAD MNT_FORCE } flags ; inline
|
|
|
|
: VFS_GENERIC 0 ; inline
|
|
: VFS_NUMMNTOPS 1 ; inline
|
|
: VFS_MAXTYPENUM 1 ; inline
|
|
: VFS_CONF 2 ; inline
|
|
: VFS_SET_PACKAGE_EXTS 3 ; inline
|
|
|
|
: MNT_WAIT 1 ; inline
|
|
: MNT_NOWAIT 2 ; inline
|
|
|
|
: VFS_CTL_VERS1 HEX: 01 ; inline
|
|
|
|
: VFS_CTL_STATFS HEX: 00010001 ; inline
|
|
: VFS_CTL_UMOUNT HEX: 00010002 ; inline
|
|
: VFS_CTL_QUERY HEX: 00010003 ; inline
|
|
: VFS_CTL_NEWADDR HEX: 00010004 ; inline
|
|
: VFS_CTL_TIMEO HEX: 00010005 ; inline
|
|
: VFS_CTL_NOLOCKS HEX: 00010006 ; inline
|
|
|
|
C-STRUCT: vfsquery
|
|
{ "uint32_t" "vq_flags" }
|
|
{ { "uint32_t" 31 } "vq_spare" } ;
|
|
|
|
: VQ_NOTRESP HEX: 0001 ; inline
|
|
: VQ_NEEDAUTH HEX: 0002 ; inline
|
|
: VQ_LOWDISK HEX: 0004 ; inline
|
|
: VQ_MOUNT HEX: 0008 ; inline
|
|
: VQ_UNMOUNT HEX: 0010 ; inline
|
|
: VQ_DEAD HEX: 0020 ; inline
|
|
: VQ_ASSIST HEX: 0040 ; inline
|
|
: VQ_NOTRESPLOCK HEX: 0080 ; inline
|
|
: VQ_UPDATE HEX: 0100 ; inline
|
|
: VQ_FLAG0200 HEX: 0200 ; inline
|
|
: VQ_FLAG0400 HEX: 0400 ; inline
|
|
: VQ_FLAG0800 HEX: 0800 ; inline
|
|
: VQ_FLAG1000 HEX: 1000 ; inline
|
|
: VQ_FLAG2000 HEX: 2000 ; inline
|
|
: VQ_FLAG4000 HEX: 4000 ; inline
|
|
: VQ_FLAG8000 HEX: 8000 ; inline
|
|
|
|
: NFSV4_MAX_FH_SIZE 128 ; inline
|
|
: NFSV3_MAX_FH_SIZE 64 ; inline
|
|
: NFSV2_MAX_FH_SIZE 32 ; inline
|
|
: NFS_MAX_FH_SIZE NFSV4_MAX_FH_SIZE ; inline
|
|
|
|
: MFSNAMELEN 15 ; inline
|
|
: MNAMELEN 90 ; inline
|
|
: MFSTYPENAMELEN 16 ; inline
|
|
|
|
C-STRUCT: fsid_t
|
|
{ { "int32_t" 2 } "val" } ;
|
|
|
|
C-STRUCT: statfs64
|
|
{ "uint32_t" "f_bsize" }
|
|
{ "int32_t" "f_iosize" }
|
|
{ "uint64_t" "f_blocks" }
|
|
{ "uint64_t" "f_bfree" }
|
|
{ "uint64_t" "f_bavail" }
|
|
{ "uint64_t" "f_files" }
|
|
{ "uint64_t" "f_ffree" }
|
|
{ "fsid_t" "f_fsid" }
|
|
{ "uid_t" "f_owner" }
|
|
{ "uint32_t" "f_type" }
|
|
{ "uint32_t" "f_flags" }
|
|
{ "uint32_t" "f_fssubtype" }
|
|
{ { "char" MFSTYPENAMELEN } "f_fstypename" }
|
|
{ { "char" MAXPATHLEN } "f_mntonname" }
|
|
{ { "char" MAXPATHLEN } "f_mntfromname" }
|
|
{ { "uint32_t" 8 } "f_reserved" } ;
|
|
|
|
FUNCTION: int statfs64 ( char* path, statfs64* buf ) ;
|
|
FUNCTION: int getmntinfo64 ( statfs64** mntbufp, int flags ) ;
|
|
|
|
|
|
TUPLE: macosx-file-system-info < file-system-info
|
|
block-size io-size blocks blocks-free blocks-available files
|
|
files-free file-system-id owner type-id flags filesystem-subtype ;
|
|
|
|
M: macosx file-systems ( -- array )
|
|
f <void*> dup 0 getmntinfo64 dup io-error
|
|
[ *void* ] dip
|
|
"statfs64" heap-size [ * memory>byte-array ] keep group
|
|
[ >file-system-info ] map ;
|
|
|
|
M: macosx >file-system-info ( byte-array -- file-system-info )
|
|
[ \ macosx-file-system-info new ] dip
|
|
{
|
|
[
|
|
[ statfs64-f_bavail ] [ statfs64-f_bsize ] bi *
|
|
>>free-space
|
|
]
|
|
[ statfs64-f_mntonname utf8 alien>string >>mount-point ]
|
|
[ statfs64-f_bsize >>block-size ]
|
|
|
|
[ statfs64-f_iosize >>io-size ]
|
|
[ statfs64-f_blocks >>blocks ]
|
|
[ statfs64-f_bfree >>blocks-free ]
|
|
[ statfs64-f_bavail >>blocks-available ]
|
|
[ statfs64-f_files >>files ]
|
|
[ statfs64-f_ffree >>files-free ]
|
|
[ statfs64-f_fsid >>file-system-id ]
|
|
[ statfs64-f_owner >>owner ]
|
|
[ statfs64-f_type >>type-id ]
|
|
[ statfs64-f_flags >>flags ]
|
|
[ statfs64-f_fssubtype >>filesystem-subtype ]
|
|
[
|
|
statfs64-f_fstypename utf8 alien>string
|
|
>>type
|
|
]
|
|
[
|
|
statfs64-f_mntfromname
|
|
utf8 alien>string >>device-name
|
|
]
|
|
} cleave ;
|
|
|
|
M: macosx file-system-info ( path -- file-system-info )
|
|
normalize-path
|
|
"statfs64" <c-object> tuck statfs64 io-error
|
|
>file-system-info ;
|