home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / fcopy.zip / FCOPY.C < prev    next >
C/C++ Source or Header  |  1993-08-03  |  3KB  |  111 lines
  1.  
  2. /* 
  3.  * FCOPY.C - copy one file to another within clipper.
  4.  * This is a sample of evaluating a code block from C only.
  5.  * 
  6.  * Test With Clipper 5.2 only
  7.  * Copyright (c) Peter Kulek Aug 1993
  8.  *
  9.  * Compuserve ID  : 100140,1220
  10.  * 
  11.  * Specialising in Data Driven Object Oriented Applications for EIS & MIS
  12.  *
  13.  */
  14.  
  15.  
  16. #include "extend.h"
  17. #include "clipdefs.h"
  18. #include "filesys.api"
  19. #include "fm.api"
  20. #include "item.api"
  21.  
  22. //#define BUFFER_SIZE 1024
  23. #define BUFFER_SIZE 512
  24. #define IF(x)       if (x) {
  25. #define ELSE        } else {
  26. #define ELSEIF(x)   } else if(x) {
  27. #define ENDIF       }
  28. #define EXIT        break;
  29. #define DOWHILE     while(1) {
  30. #define ENDDO       }
  31.  
  32. #define MALLOC(x)    _xalloc(x)
  33. #define FREE(x)      _xfree(x)
  34.  
  35.  
  36. long _fsCopy(BYTEP ,BYTEP ,ITEM ) ;
  37. void blockeval( EVALINFO,ITEM, ULONG) ;
  38.  
  39. CLIPPER F_COPY() {
  40.     ITEM block = _itemParam( 3 ) ;
  41.     _retni(-1);
  42.     IF ( ISCHAR(1) && ISCHAR(2) )
  43.         _retnl(_fsCopy((BYTEP)_parc(1),(BYTEP)_parc(2),block));
  44.     ENDIF
  45.     return;
  46. } 
  47.  
  48. long _fsCopy(BYTEP source,BYTEP dest ,ITEM block) {
  49.         EVALINFO info;  // Create eval Info
  50.         FHANDLE dHANDLE,sHANDLE;
  51.         char    *buffer;
  52.         USHORT  usCount;
  53.         ULONG   ulCount = 0L;
  54.         sHANDLE = _fsOpen(source, FO_READ);
  55.         _evalNew( &info, block ); // Create an object of eval
  56.         IF( ! _fsError() ) 
  57.             dHANDLE = _fsCreate(dest,FC_NORMAL);
  58.             IF( _fsError() ) 
  59.                 _fsClose(sHANDLE);
  60.                 return( -2L) ;
  61.             ENDIF
  62.             buffer = MALLOC(BUFFER_SIZE);
  63.             IF(buffer == NULL)
  64.                 _fsClose(sHANDLE);
  65.                 _fsClose(dHANDLE);
  66.                 return(-3L) ;
  67.             ENDIF
  68.             usCount = _fsRead(sHANDLE,buffer,BUFFER_SIZE);
  69.             DOWHILE
  70.                 ulCount += (ULONG)usCount;
  71.                 blockeval(info,block,ulCount);
  72.                 _fsWrite(dHANDLE,buffer, usCount);
  73.                 usCount = _fsRead(sHANDLE,buffer, BUFFER_SIZE);
  74.                 IF (usCount != BUFFER_SIZE )
  75.                     EXIT
  76.                 ENDIF
  77.             ENDDO 
  78.             ulCount += (ULONG)usCount;
  79.             blockeval(info,block,ulCount);
  80.             _fsWrite(dHANDLE,buffer,usCount);
  81.             FREE(buffer);
  82.             _fsClose(sHANDLE);
  83.             _fsClose(dHANDLE);
  84.         ENDIF
  85.         _evalRelease( &info );  // Release object
  86.         return( ulCount );
  87. }
  88.  
  89.  
  90. // Test Eval of block from C
  91. static void blockeval(EVALINFO info, ITEM block, ULONG count) {
  92.     ITEM     retP;
  93.     IF( _itemType(block) == BLOCK )
  94.         _evalPutParam(&info,_itemPutNL(NULL,count)); // Put parameter on stack
  95.         retP = _evalLaunch( &info );   // Eval code block
  96.         _itemRelease( retP );  // release parameters from stack       
  97.     ENDIF
  98.     return;
  99. }
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.