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

fixed handling of UNC paths under windows

db4
8byte-jose 2011-01-25 13:32:21 +01:00
parent bdc0526f37
commit b3f0ff51aa
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -325,9 +325,14 @@ M: winnt root-directory? ( path -- ? )
TR: normalize-separators "/" "\\" ; TR: normalize-separators "/" "\\" ;
M: winnt normalize-path ( string -- string' ) M: winnt normalize-path ( string -- string' )
absolute-path dup [ "//" head? ] [ "\\\\" head? ] bi
normalize-separators or [
prepend-prefix ; normalize-separators
] [
absolute-path
normalize-separators
prepend-prefix
] if ;
M: winnt CreateFile-flags ( DWORD -- DWORD ) M: winnt CreateFile-flags ( DWORD -- DWORD )
FILE_FLAG_OVERLAPPED bitor ; FILE_FLAG_OVERLAPPED bitor ;