__copyfile() added

1999-06-23 16:32:51 +00:00
parent 9585d3ce40
commit 161c3d8d0b
1 changed files with 56 additions and 0 deletions
--- a/harbour/source/rtl/copyfile.c
+++ b/harbour/source/rtl/copyfile.c
@@ -0,0 +1,56 @@
+/*
+ * $Id$
+ */
+
+#include <itemapi.h>
+#include <extend.h>
+#include <errorapi.h>
+#include <ctoharb.h>
+#include <filesys.api>
+
+#define BUFFER_SIZE 8096
+
+static long _fsCopy(BYTEP ,BYTEP ) ;
+
+HARBOUR hb___copyfile() {
+    if ( ISCHAR(1) && ISCHAR(2) ) {
+        hb_retnl(_fsCopy((BYTEP)hb_parc(1),(BYTEP)hb_parc(2)));
+    }
+    return;
+} 
+
+static long _fsCopy(BYTEP source,BYTEP dest) {
+   FHANDLE dHANDLE,sHANDLE;
+   char    *buffer;
+   USHORT  usCount;
+   ULONG   ulCount = 0L;
+   sHANDLE = _fsOpen(source, FO_READ);
+   if ( ! _fsError() ) {
+       dHANDLE = _fsCreate(dest,FC_NORMAL);
+       if ( _fsError() ) {
+           _fsClose(sHANDLE);
+           return( -2L) ;
+       }
+       buffer = hb_xgrab(BUFFER_SIZE);
+       if (buffer == NULL) {
+           _fsClose(sHANDLE);
+           _fsClose(dHANDLE);
+           return(-3L);
+       }
+       usCount = _fsRead(sHANDLE,buffer,BUFFER_SIZE);
+       while(1) {
+           ulCount += (ULONG)usCount;
+           _fsWrite(dHANDLE,buffer, usCount);
+           usCount = _fsRead(sHANDLE,buffer, BUFFER_SIZE);
+           if (usCount != BUFFER_SIZE ) {
+               break;
+           }
+       }
+       ulCount += (ULONG)usCount;
+       _fsWrite(dHANDLE,buffer,usCount);
+       hb_xfree(buffer);
+       _fsClose(sHANDLE);
+       _fsClose(dHANDLE);
+   }
+   return( ulCount );
+}