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

use raw pathnames for file-systems word

db4
Doug Coleman 2009-09-08 17:05:05 -05:00
parent 740a175e56
commit 5a7ac3965d
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/io/files/info/windows/windows.factor
View File

@ -129,8 +129,7 @@ ERROR: not-absolute-path ;
[ first Letter? ] [ first Letter? ]
} 1&& [ 2 head "\\" append ] [ not-absolute-path ] if ; } 1&& [ 2 head "\\" append ] [ not-absolute-path ] if ;
M: winnt file-system-info ( path -- file-system-info ) : (file-system-info) ( path -- file-system-info )
normalize-path root-directory
dup [ volume-information ] [ file-system-space ] bi dup [ volume-information ] [ file-system-space ] bi
\ win32-file-system-info new \ win32-file-system-info new
swap *ulonglong >>free-space swap *ulonglong >>free-space
@ -144,6 +143,9 @@ M: winnt file-system-info ( path -- file-system-info )
swap >>mount-point swap >>mount-point
calculate-file-system-info ; calculate-file-system-info ;
M: winnt file-system-info ( path -- file-system-info )
normalize-path root-directory (file-system-info) ;
: volume>paths ( string -- array ) : volume>paths ( string -- array )
16384 <ushort-array> tuck dup length 16384 <ushort-array> tuck dup length
0 <uint> dup [ GetVolumePathNamesForVolumeName 0 = ] dip swap [ 0 <uint> dup [ GetVolumePathNamesForVolumeName 0 = ] dip swap [
@ -180,7 +182,7 @@ M: winnt file-system-info ( path -- file-system-info )
M: winnt file-systems ( -- array ) M: winnt file-systems ( -- array )
find-volumes [ volume>paths ] map find-volumes [ volume>paths ] map
concat [ concat [
[ file-system-info ] [ (file-system-info) ]
[ drop \ file-system-info new swap >>mount-point ] recover [ drop \ file-system-info new swap >>mount-point ] recover
] map ; ] map ;