home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / CopyFile / CopyFile.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-04-23  |  7.9 KB  |  375 lines  |  [TEXT/KAHL]
  1. /*
  2.    fiddling with the standard file package and the high level file
  3.    routines.
  4.  
  5.    This is a Generic file copy program.
  6.    
  7.    New File Feb 17 1987
  8.                Feb 20...Fixed bug which would not allow copy if
  9.                      target directory had file with same name
  10.                      as target file.
  11.             Feb 20...Added Alert error messages.
  12.    
  13.    Author:  Jerry LeVan
  14.                325 Boone Trail
  15.                Richmond Ky 40475
  16.    
  17.    Environment: MPW v1.01/MPW C v1.0
  18.                    MacPlus - Finder v5.3/System v3.2
  19.    
  20.    Build Instructions: c gencopy.c
  21.                           rez types.r gencopy.r -o gencopy
  22.                        link gencopy.c.o ∂
  23.                              "{clibraries}"cruntime.o ∂
  24.                              "{clibraries}"cinterface.o ∂
  25.                         -o gencopy
  26.   Exercise for the reader:
  27.     a) Use Alerts to give the user better feedback (done!)
  28.     b) Make sure there is room on the target volume prior to copy
  29.     c) Force the file system to use larger buffers to speed the copy
  30.     d) Make sure I have covered all the error conditions
  31.     
  32.   Warning: This program will delete a file if it has the same name 
  33.              as the target prior to the start of the copy and the file
  34.            is in the same directory. The program will not allow
  35.            a file to be copied over itself.
  36.  
  37. */
  38.  
  39.  
  40. #define BUFSIZ 8192
  41.  
  42. #define MSG_ID 128
  43.  
  44. /**********************************************************************/
  45.  
  46. void InitProgram()
  47. {
  48.     /* Standard Initialization Sequence */
  49.  
  50.     /*UnloadSeg(_DataInit);*/    /* unload the runtime initializer code */
  51.     
  52.     InitGraf(&qd.thePort);    /* set up quickdraw */
  53.     InitFonts();            /* Set up fonts        */
  54. /*    FlushEvents(everyEvent,0);     empty the event queue */
  55.     InitWindows();            /* Set up window manager */
  56.     InitMenus();            /* Set up menus */
  57.     TEInit();                /* Needed for Dialogs */
  58.     InitDialogs(nil);        /* No restart proc */
  59.     InitCursor();
  60. }
  61. /********************************************************************/
  62.  
  63. Boolean GetSourceFile
  64. (SFReply *reply,OSType *creator,OSType *theType,short *flags)
  65. {
  66.     Point loc;
  67.     SFTypeList typeList;
  68.     short ntypes;
  69.     FInfo info;
  70.     
  71.  
  72.     loc.v = 80;
  73.     loc.h = 100;
  74.     
  75.     ntypes = -1; /* all files */
  76.     SFGetFile(loc, 0, 0, ntypes, typeList, 0, reply);
  77.     
  78.     if(reply->good)
  79.     {
  80.        /* we need to get the info for the selected file */
  81.        
  82.         if(GetFInfo(reply->fName,reply->vRefNum,&info))
  83.             return false;
  84.        
  85.         *creator    = info.fdCreator;
  86.         *theType    = info.fdType;        /* actually in the reply record */
  87.         *flags        = info.fdFlags;
  88.        
  89.         return true;
  90.     }
  91.  
  92.     return false;
  93. }
  94.  
  95. /********************************************************************/
  96.    
  97. Boolean GetDestFile
  98. (SFReply *infile,SFReply *reply)
  99. {  
  100.     Point    loc;
  101.       
  102.       
  103.     loc.v = 80;
  104.     loc.h = 100;
  105.       
  106.       
  107.     SFPutFile(loc,(unsigned char *)"\pSelect Target Name",infile->fName, nil, reply);
  108.     
  109.     if(reply->good)
  110.     { 
  111.         /* we can't allow the source and destination to be the same file */
  112.  
  113.         if(EqualString(infile->fName,reply->fName,false,false)&&(infile->vRefNum == reply->vRefNum))
  114.         {
  115.             ParamText((unsigned char*)"Sorry, Source and Destination Can't Be Identical",nil,nil,nil);
  116.             StopAlert(MSG_ID,nil);
  117.             return false;
  118.         }
  119.         
  120.         return true;
  121.     }
  122.     return false;
  123. }
  124.  
  125. /********************************************************************/
  126.  
  127. Boolean CreateTheFile
  128. (SFReply *infile,SFReply *outfile,OSType creator,OSType theType,OSErr *reason)
  129. { 
  130.     FInfo    info;
  131.  
  132.  
  133.     *reason = Create(outfile->fName,outfile->vRefNum,creator,theType);
  134.     if(*reason)
  135.     {
  136.         /* we had an error during the create */
  137.         
  138.         if(*reason == /*dupFNErr*/-48)
  139.         {
  140.             /* try to delete the file */
  141.             
  142.             FSDelete(outfile->fName,outfile->vRefNum);
  143.             *reason=Create(outfile->fName,outfile->vRefNum,creator,theType);
  144.             if(*reason)
  145.                 return false;        /* some other error */
  146.             else
  147.                 return true;        /* sucessful open */
  148.         }
  149.         else
  150.             return false;            /* some other error */
  151.     }
  152.      
  153.      return true;
  154. }
  155.    
  156. /********************************************************************/
  157.  
  158. void CopyAFork
  159. (short inref,short outref,OSErr *err)
  160. { 
  161.     char    buff[BUFSIZ];        /* one cluster buffer */
  162.     long    count;                /* count actually transfered */
  163.     OSErr    ReadErr,WriteErr;    /* error flags */
  164.     
  165.     
  166.     do
  167.     { 
  168.         count = BUFSIZ;    /* blocksize */
  169.         
  170.         ReadErr=FSRead(inref,&count,buff);
  171.         if(ReadErr)
  172.         {
  173.             if(ReadErr!=eofErr)
  174.             {
  175.                 *err = ReadErr;
  176.                 return;
  177.             }
  178.         }
  179.         
  180.         WriteErr = FSWrite(outref,&count,buff);
  181.         if(WriteErr)
  182.         {
  183.             *err = WriteErr;
  184.             return;
  185.         }
  186.     }
  187.     while(ReadErr != eofErr);
  188.     
  189.     *err = noErr;
  190. }
  191.  
  192. /********************************************************************/
  193.  
  194. Boolean CopyDataFork
  195. (SFReply *infile,SFReply *outfile,OSType creator,OSErr *err)
  196. {
  197.     short    inref,outref;
  198.    
  199.    
  200.     /* open the input data fork */
  201.     
  202.     *err = FSOpen(infile->fName,infile->vRefNum,&inref);
  203.     if(*err)
  204.         return false;
  205.    
  206.     /* open the output data fork */
  207.     
  208.     *err = FSOpen(outfile->fName,outfile->vRefNum,&outref);
  209.     if(*err)
  210.     {
  211.         FSClose(inref);
  212.         inref = 0;
  213.         return false;
  214.     }
  215.       
  216.     CopyAFork(inref,outref,err);
  217.  
  218.     FSClose(inref);
  219.     inref = 0;
  220.     FSClose(outref);
  221.     outref = 0;
  222.      
  223.     if(*err)
  224.     {
  225.         FSDelete(outfile->fName,outfile->vRefNum);
  226.         return false;
  227.     }
  228.     else
  229.     {
  230.          return true;
  231.     }
  232. }
  233. /********************************************************************/
  234.  
  235. Boolean CopyResourceFork(SFReply *infile,SFReply *outfile,OSErr *err)
  236. {
  237.     short    inref,outref,theErr;
  238.  
  239.  
  240.     /* open the input resource fork */
  241.     
  242.     *err = OpenRF(infile->fName,infile->vRefNum,&inref);
  243.     if(*err)
  244.         return false;
  245.    
  246.     /* open the output resource fork */
  247.     *err=OpenRF(outfile->fName,outfile->vRefNum,&outref);
  248.     if(*err)
  249.     {
  250.         FSClose(inref);
  251.         inref = 0;
  252.         return false;
  253.     }
  254.       
  255.     /* copy a fork */
  256.     
  257.     CopyAFork(inref,outref,err);
  258.      
  259.     /* clean up */
  260.     
  261.     FSClose(inref);
  262.     inref = 0;
  263.     FSClose(outref);
  264.     outref = 0;
  265.     
  266.     FlushVol(nil,outfile->vRefNum);
  267.     
  268.     if(*err)
  269.     {
  270.         FSDelete(outfile->fName,outfile->vRefNum);
  271.         return false;
  272.     }
  273.     else
  274.     {
  275.         return true;
  276.     }
  277. }
  278.  
  279. /********************************************************************/
  280.  
  281. Boolean SetFileAttributes
  282. (SFReply *outfile,short flags,OSErr *reason)
  283. {
  284.     FInfo info;
  285.     
  286.     
  287.     *reason = GetFInfo(outfile->fName,outfile->vRefNum,&info);
  288.     if(*reason)
  289.         return false;
  290.     
  291.     info.fdFlags = flags;        /* protected bundle etc */
  292.     
  293.     *reason = SetFInfo(outfile->fName,outfile->vRefNum,&info);
  294.     if(*reason)
  295.         return false;
  296.  
  297.     return true;
  298. }
  299.  
  300. /********************************************************************/
  301. void main()
  302. {
  303.     SFReply            infilespec,outfilespec;
  304.     OSType            creator,theType;
  305.     short            flags;                /* finder flags */
  306.     OSErr            reason;                /* system error code on bad return */
  307.     unsigned char    temp[20];            /* storage for numeric conversion */
  308.    
  309.    
  310.     InitProgram();
  311.    
  312.  
  313.     /* get source file spec, quit if user bails out */
  314.     
  315.     if(!GetSourceFile(&infilespec,&creator,&theType,&flags))
  316.         return;
  317.  
  318.     
  319.     /* get destination file spec, quit if user bails out */
  320.     
  321.     if(!GetDestFile(&infilespec,&outfilespec))
  322.         return;
  323.  
  324.  
  325.     /* create the output file (exit on error) */
  326.  
  327.     if(!CreateTheFile(&infilespec,&outfilespec,creator,theType,&reason))
  328.     {
  329.         NumToString(reason,temp);
  330.         ParamText((unsigned char*)"\pCan't Create Output File",(unsigned char*)"\pReason:",temp,nil);
  331.         StopAlert(MSG_ID,nil);
  332.         return;
  333.     }
  334.       
  335.     
  336.     /* copy the data fork exit on error */
  337.    
  338.     if(!CopyDataFork(&infilespec,&outfilespec,creator,&reason))
  339.     { 
  340.         NumToString(reason,temp);
  341.         ParamText((unsigned char*)"\pError Copying Data Fork",(unsigned char*)"\pReason:",temp,nil);
  342.         StopAlert(MSG_ID,nil);
  343.         return;
  344.     }
  345.  
  346.       
  347.     /* copy the resource fork, exit on error */     
  348.  
  349.     if(!CopyResourceFork(&infilespec,&outfilespec,&reason))
  350.     {
  351.         NumToString(reason,temp);
  352.         ParamText((unsigned char*)"\pError Copying Resource Fork",(unsigned char*)"\pReason:",temp,nil);
  353.         StopAlert(MSG_ID,nil);
  354.         return;
  355.     }
  356.  
  357.  
  358.             
  359.     /* set the destination file attributes */
  360.  
  361.     if(!SetFileAttributes(&outfilespec,flags,&reason))
  362.     {
  363.         NumToString(reason,temp);
  364.         ParamText((unsigned char*)"\pError Setting File Attributes",(unsigned char*)"\pReason:",temp,nil);
  365.         StopAlert(MSG_ID,nil);
  366.         return;
  367.     }
  368.     
  369.  
  370.     /* advise user of sucessful completion */
  371.  
  372.     ParamText((unsigned char*)"\pNo Errors Detected...Copy Complete",nil,nil,nil);
  373.     NoteAlert(MSG_ID,nil);
  374. }
  375.