home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / icon / iconextras.lha / IconExtras / src / copyicon / copyicon.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-01-14  |  1.3 KB  |  59 lines
  1. #include <exec/types.h>
  2. #include <workbench/workbench.h>
  3. #include <workbench/startup.h>
  4. #include <libraries/dos.h>
  5.  
  6. #include <clib/alib_protos.h>
  7. #include <clib/icon_protos.h>
  8. #include <clib/dos_protos.h>
  9. #include <clib/exec_protos.h>
  10.  
  11. #include <stdio.h>
  12. #include <stdlib.h>
  13. #include <string.h>
  14.  
  15. void cleanexit(int error);
  16.  
  17. struct Library *IconBase = NULL;
  18. struct DiskObject *dobj = NULL;
  19.  
  20. void main(int argc,char *argv[]) {
  21.  
  22.     if(argc!=3) {
  23.         printf("Usage:\n");
  24.         printf("%s <source icon [.info]> <destination icon [.info]>\n",argv[0]);
  25.         cleanexit(RETURN_OK);
  26.     }
  27.  
  28.     if(!(IconBase=OpenLibrary("icon.library",33))) {
  29.         printf("Couldn't open icon.library\n");
  30.         cleanexit(RETURN_FAIL);
  31.     }
  32.  
  33.     /* Strip .info from end of each filename if it ends that way */
  34.     if(strlen(argv[1]) > 5 && !strcmp(&argv[1][strlen(argv[1])-5],".info"))
  35.         argv[1][strlen(argv[1])-5]='\0';
  36.     if(strlen(argv[2]) > 5 && !strcmp(&argv[2][strlen(argv[2])-5],".info"))
  37.         argv[2][strlen(argv[2])-5]='\0';
  38.  
  39.     if(!(dobj=GetDiskObject(argv[1]))) {
  40.         printf("File not found\n");
  41.         cleanexit(RETURN_FAIL);
  42.     }
  43.  
  44.     dobj->do_CurrentX=dobj->do_CurrentY=NO_ICON_POSITION;
  45.  
  46.     if(!PutDiskObject(argv[2],dobj)) {
  47.         printf("Couldn't open output file\n");
  48.         cleanexit(RETURN_FAIL);
  49.     }
  50.  
  51.     cleanexit(RETURN_OK);
  52. }
  53.  
  54. void cleanexit(int error) {
  55.     if(IconBase) CloseLibrary(IconBase);
  56.     if(dobj) FreeDiskObject(dobj);
  57.     exit(error);
  58. }
  59.