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

More Windows CopyFile stuff

release
Slava Pestov 2007-11-24 16:39:00 -05:00
parent aaa493ebd2
commit a13975502c
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/io/windows/windows.factor
View File

@ -109,16 +109,14 @@ M: windows-io <file-appender> ( path -- stream )
open-append <win32-file> <writer> ;
M: windows-io rename-file ( from to -- )
[ normalize-pathname ] 2apply
MoveFile win32-error=0/f ;
[ normalize-pathname ] 2apply MoveFile win32-error=0/f ;
M: windows-io delete-file ( path -- )
normalize-pathname
DeleteFile win32-error=0/f ;
normalize-pathname DeleteFile win32-error=0/f ;
M: windows-io copy-file ( from to -- )
normalize-pathname
f CopyFile win32-error=0/f ;
dup parent-directory make-directories
[ normalize-pathname ] 2apply f CopyFile win32-error=0/f ;
M: windows-io make-directory ( path -- )
normalize-pathname

5
extra/windows/kernel32/kernel32.factor
View File

@ -566,7 +566,8 @@ FUNCTION: BOOL ConnectNamedPipe ( HANDLE hNamedPipe, LPOVERLAPPED lpOverlapped )
! FUNCTION: CopyFileA
! FUNCTION: CopyFileExA
! FUNCTION: CopyFileExW
! FUNCTION: CopyFileW
FUNCTION: BOOL CopyFileW ( LPCTSTR lpExistingFileName, LPCTSTR lpNewFileName, BOOL bFailIfExists ) ;
: CopyFile CopyFileW ; inline
! FUNCTION: CopyLZFile
! FUNCTION: CreateActCtxA
! FUNCTION: CreateActCtxW
@ -575,7 +576,7 @@ FUNCTION: BOOL ConnectNamedPipe ( HANDLE hNamedPipe, LPOVERLAPPED lpOverlapped )
! FUNCTION: CreateDirectoryExA
! FUNCTION: CreateDirectoryExW
FUNCTION: BOOL CreateDirectoryW ( LPCTSTR lpPathName, LPSECURITY_ATTRIBUTES lpSecurityAttribytes ) ;
: CreateDirectory CreateDirectoryW ;
: CreateDirectory CreateDirectoryW ; inline
! FUNCTION: CreateEventA
! FUNCTION: CreateEventW