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

Don't use exception handling for handle>file-size

db4
Doug Coleman 2011-10-19 10:15:09 -07:00
parent a625197ba5
commit 3507a0cc4b
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/io/files/windows/windows.factor
View File

@ -133,14 +133,17 @@ M: windows init-io ( -- )
ERROR: invalid-file-size n ;
: (handle>file-size) ( handle -- n )
0 ulonglong <ref> [ GetFileSizeEx win32-error=0/f ] keep ulonglong deref ;
: (handle>file-size) ( handle -- n/f )
0 ulonglong <ref> [ GetFileSizeEx ] keep swap
[ drop f ] [ drop ulonglong deref ] if-zero ;
! Returns T{ windows-error f 1 "Incorrect function." } if stream is not seekable
! GetFileSizeEx errors with ERROR_INVALID_FUNCTION if handle is not seekable
: handle>file-size ( handle -- n/f )
'[ _ (handle>file-size) ]
[ dup n>> 1 = [ drop f ] [ rethrow ] if ] recover ;
(handle>file-size) [
GetLastError ERROR_INVALID_FUNCTION =
[ f ] [ throw-win32-error ] if
] unless* ;
ERROR: seek-before-start n ;
: set-seek-ptr ( n handle -- )