Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv32034/win32forth/src
Modified Files:
Utils.f
Log Message:
gah: Fixed minor bug in copyfile
Index: Utils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** Utils.f 21 Oct 2006 10:54:55 -0000 1.14
--- Utils.f 6 Feb 2007 11:31:32 -0000 1.15
***************
*** 338,342 ****
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! : copyfile { \ from$ to$ -<from to>- } \ copy a file to a directory
max-path localAlloc: from$
max-path localAlloc: to$
--- 338,346 ----
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! : copyfile ( -<from to>- -- ) \ W32F
! \ *G Copy a file to a directory. The from string is made up of the path (either absolute
! \ ** or relative) and the file name (with extension). The to string is the path (either
! \ ** absolute or relative) only; the filename is taken from the from string.
! { | from$ to$ }
max-path localAlloc: from$
max-path localAlloc: to$
|
