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

fix size-on-disk for unix

db4
Doug Coleman 2009-04-20 17:44:12 -05:00
parent 12a89f1550
commit bd6eb42d0f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/io/files/info/unix/unix.factor
View File

@ -63,6 +63,8 @@ M: unix link-info ( path -- info )
M: unix new-file-info ( -- class ) unix-file-info new ; M: unix new-file-info ( -- class ) unix-file-info new ;
CONSTANT: standard-unix-block-size 512
M: unix stat>file-info ( stat -- file-info ) M: unix stat>file-info ( stat -- file-info )
[ new-file-info ] dip [ new-file-info ] dip
{ {
@ -80,7 +82,7 @@ M: unix stat>file-info ( stat -- file-info )
[ stat-st_rdev >>rdev ] [ stat-st_rdev >>rdev ]
[ stat-st_blocks >>blocks ] [ stat-st_blocks >>blocks ]
[ stat-st_blksize >>blocksize ] [ stat-st_blksize >>blocksize ]
[ drop dup [ blocks>> ] [ blocksize>> ] bi * >>size-on-disk ] [ drop dup blocks>> standard-unix-block-size * >>size-on-disk ]
} cleave ; } cleave ;
: n>file-type ( n -- type ) : n>file-type ( n -- type )