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

fix windows bootstrap

db4
U-FROGGER\erg 2008-03-26 10:17:20 -05:00
parent 0f8ce65487
commit 783d7a20da
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/io/windows/nt/files/files.factor
View File

@ -65,12 +65,17 @@ ERROR: empty-pathname ;
USE: tools.walker USE: tools.walker
M: windows-nt-io normalize-pathname ( string -- string ) M: windows-nt-io normalize-pathname ( string -- string )
"resource:" ?head [
left-trim-separators resource-path
normalize-pathname
] [
dup string? [ nonstring-pathname ] unless dup string? [ nonstring-pathname ] unless
dup empty? [ empty-pathname ] when dup empty? [ empty-pathname ] when
{ { CHAR: / CHAR: \\ } } substitute { { CHAR: / CHAR: \\ } } substitute
current-directory get swap windows-append-path current-directory get swap windows-append-path
[ "/\\." member? ] right-trim [ "/\\." member? ] right-trim
dup peek CHAR: : = [ "\\" append ] when ; dup peek CHAR: : = [ "\\" append ] when
] if ;
M: windows-nt-io CreateFile-flags ( DWORD -- DWORD ) M: windows-nt-io CreateFile-flags ( DWORD -- DWORD )
FILE_FLAG_OVERLAPPED bitor ; FILE_FLAG_OVERLAPPED bitor ;