rename name to mount-point
parent
d922afa0a4
commit
03d96cc1bd
|
@ -274,7 +274,7 @@ M: winnt file-system-info ( path -- file-system-info )
|
|||
swap *ulonglong >>total-bytes
|
||||
swap *ulonglong >>free-space
|
||||
swap >>type
|
||||
swap >>name ;
|
||||
swap >>mount-point ;
|
||||
|
||||
: find-first-volume ( word -- string handle )
|
||||
MAX_PATH 1+ <byte-array> dup length
|
||||
|
|
|
@ -37,7 +37,7 @@ M: linux mounted
|
|||
[ mount-point>> file-system-info ] keep
|
||||
{
|
||||
[ file-system-name>> >>device-name ]
|
||||
[ mount-point>> >>name ]
|
||||
[ mount-point>> >>mount-point ]
|
||||
[ type>> >>type ]
|
||||
} cleave
|
||||
] map ;
|
||||
|
|
|
@ -135,7 +135,7 @@ M: macosx >file-system-info ( byte-array -- file-system-info )
|
|||
[ statfs64-f_bavail ] [ statfs64-f_bsize ] bi *
|
||||
>>free-space
|
||||
]
|
||||
[ statfs64-f_mntonname utf8 alien>string >>name ]
|
||||
[ statfs64-f_mntonname utf8 alien>string >>mount-point ]
|
||||
[ statfs64-f_bsize >>block-size ]
|
||||
|
||||
[ statfs64-f_iosize >>io-size ]
|
||||
|
|
|
@ -69,7 +69,7 @@ M: netbsd >file-system-info ( byte-array -- netbsd-file-system-info )
|
|||
[ statvfs-f_owner >>owner ]
|
||||
[ statvfs-f_spare >>spare ]
|
||||
[ statvfs-f_fstypename utf8 alien>string >>file-system-type-name ]
|
||||
[ statvfs-f_mntonname utf8 alien>string >>name ]
|
||||
[ statvfs-f_mntonname utf8 alien>string >>mount-point ]
|
||||
[ statvfs-f_mntfromname utf8 alien>string >>mount-from ]
|
||||
} cleave ;
|
||||
|
||||
|
|
|
@ -184,7 +184,7 @@ SYMBOL: +unknown+
|
|||
|
||||
! File-system
|
||||
|
||||
TUPLE: file-system-info device-name name type free-space ;
|
||||
TUPLE: file-system-info device-name mount-point type free-space ;
|
||||
|
||||
HOOK: file-system-info os ( path -- file-system-info )
|
||||
|
||||
|
|
Loading…
Reference in New Issue