2024-05-13 02:39 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

* ChangeLog.txt * src/rtl/fscopy.c ! fixed typos, thanks to Grigory Filatov and Pete * include/harbour.hbx * src/harbour.def ! added hb_vfCopyFileEx() and hb_fileCopyEx()
harbour · May 13, 2024 · a10feba · a10feba
1 parent 1c70367
commit a10feba
Show file tree

Hide file tree

Showing 4 changed files with 15 additions and 3 deletions.
diff --git a/ChangeLog.txt b/ChangeLog.txt
@@ -7,6 +7,15 @@
    Entries may not always be in chronological/commit order.
    See license at the end of file. */
 
+2024-05-13 02:39 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
+  * ChangeLog.txt
+  * src/rtl/fscopy.c
+    ! fixed typos, thanks to Grigory Filatov and Pete
+
+  * include/harbour.hbx
+  * src/harbour.def
+    ! added hb_vfCopyFileEx() and hb_fileCopyEx()
+
 2024-05-09 23:23 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
   * include/hbapifs.h
   * src/rtl/fscopy.c
@@ -24,8 +33,8 @@
 
   * src/rtl/vfile.c
     + added new PRG function:
-         hb_vfCopyFile( <cFileSrc>, <cFileDst>, [<nBufSize>=65536], ;
-                        [<lTimePreserve>=.t.], [<bCallBack>] ) --> <nResult>
+         hb_vfCopyFileEx( <cFileSrc>, <cFileDst>, [<nBufSize>=65536], ;
+                          [<lTimePreserve>=.t.], [<bCallBack>] ) --> <nResult>
       It's wrapper to hb_fileCopyEx() C function.
       For very big files setting <nBufSize> to greater value, i.e. 16777216
       may increase performance.

diff --git a/include/harbour.hbx b/include/harbour.hbx
@@ -945,6 +945,7 @@ DYNAMIC hb_vfClose
 DYNAMIC hb_vfCommit
 DYNAMIC hb_vfConfig
 DYNAMIC hb_vfCopyFile
+DYNAMIC hb_vfCopyFileEx
 DYNAMIC hb_vfDirectory
 DYNAMIC hb_vfDirBuild
 DYNAMIC hb_vfDirExists

diff --git a/src/harbour.def b/src/harbour.def
@@ -1138,6 +1138,7 @@ HB_FUN_HB_VFCLOSE
 HB_FUN_HB_VFCOMMIT
 HB_FUN_HB_VFCONFIG
 HB_FUN_HB_VFCOPYFILE
+HB_FUN_HB_VFCOPYFILEEX
 HB_FUN_HB_VFDIRBUILD
 HB_FUN_HB_VFDIRECTORY
 HB_FUN_HB_VFDIREXISTS
@@ -2469,6 +2470,7 @@ hb_fileClose
 hb_fileCommit
 hb_fileConfigure
 hb_fileCopy
+hb_fileCopyEx
 hb_fileCreateTemp
 hb_fileCreateTempEx
 hb_fileDelete

diff --git a/src/rtl/fscopy.c b/src/rtl/fscopy.c
@@ -185,7 +185,7 @@ HB_BOOL hb_fileCopyEx( const char * pszSource, const char * pszDest, HB_SIZE nBu
             long lJulian, lMillisec;
 
             if( hb_fileTimeGet( pszSource, &lJulian, &lMillisec ) )
-               hb_fileTimeSet( hb_parcx( 1 ), lJulian, lMillisec );
+               hb_fileTimeSet( pszDest, lJulian, lMillisec );
          }
       }
       hb_fsSetError( errCode );