home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD1.img / d1xx / d111 / assigndev / assigndev.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-11-15  |  5.8 KB  |  178 lines
  1. /****************************************************************************
  2. * 
  3. * A S S I G N D E V . C
  4. *
  5. *   Duplicate a device in place--Allowing multiple names to a device.
  6. *
  7. *   Phillip Lindsay (c) 1987 Commodore-Amiga, Inc.
  8. *   Unlimited use granted as long as copyright remains intact.
  9. *
  10. ****************************************************************************/
  11.  
  12.                                                               /* V23.08.87 */
  13. /* Some changes and a bug fix were made by Olaf Seibert, KosmoSoft */
  14.  
  15. #include <exec/types.h>
  16. #include <exec/nodes.h>
  17. /* #include <exec/lists.h> */
  18. #include <exec/memory.h>
  19. #include <libraries/dos.h>
  20. #include <libraries/dosextens.h>
  21. #include <libraries/filehandler.h>
  22.  
  23.  
  24. #ifdef AZTEC_C
  25. #include <functions.h>
  26. #else
  27.     *** WARNING: YOU SHOULD BEST BE USING AZTEC C TO COMPILE THIS CODE ***
  28. #endif
  29.  
  30. extern  struct  DosLibrary      *DOSBase;
  31.  
  32.  
  33. /*
  34.  * external functions found in "misc.c"
  35.  */
  36. extern  BSTR    ctob();
  37. extern  char    *allocstr(),
  38.                 *btoc(),
  39.                 *strupper();
  40. extern  BOOL    ourdevnode();
  41. extern  struct DeviceNode
  42.                 *finddosnode();
  43. extern  VOID    freedev(),
  44.                 dupdev(),
  45.                 adddosnode(),
  46.                 trunc(),
  47.                 memfill(),
  48.                 memcpy();
  49.  
  50. /*
  51.  * External functions found in "fprints.c"
  52.  */
  53. extern  int     fprints(),
  54.                 fputs();
  55.                 
  56. /*
  57.  * Exit message numbers
  58.  */
  59.  
  60. #define ERROR_NOT_FOUND   0
  61. #define ERROR_NOT_REMOVED 1
  62. #define ERROR_REMOVED     2
  63. #define ERROR_COPIED      3
  64.  
  65. static char TxtError[]  = "Error: ";
  66.  
  67. main(argc,argv)
  68. int argc;
  69. char **argv;
  70. {
  71.                 struct  RootNode    *rnode;     /* root node pointer     */
  72.                 struct  DosInfo     *dinfo;     /* DOS info pointer      */
  73.     register    struct  DeviceNode  *dnode;     /* device entry pointer  */
  74.     register            BPTR        *dnodelink; /* last device pointer   */
  75.                         char        *bname,     /* tmp. ptr to bstr      */
  76.                                     name[32],   /* tmp. for device name  */
  77.                                     *oldname,   /* existing device name  */
  78.                                     *newname;   /* new device name       */
  79.                         int         status;     /* error flag            */
  80.                 struct  FileHandle  *stdout = Output();
  81.  
  82.     if (argc == 3) { /* duplicate given device  */
  83.         newname = argv[1];
  84.         trunc(strupper(newname),':');
  85.         
  86.         if ( dnode = finddosnode(newname) ) { /* OIS V09.08.87 */
  87.             static char exists[] = " already exists";
  88.             if (dnode->dn_Type == DLT_DEVICE) {
  89.                 fprints(stdout, "Warning: Device %s:%s; ", newname, exists);
  90.             } else {
  91.                 fprints(stdout, "%sVolume or directory %s:%s\n",
  92.                     TxtError, newname, exists);
  93.                 exit((int) RETURN_ERROR);
  94.             }
  95.         }
  96.         
  97.         oldname = argv[2];
  98.         trunc(strupper(oldname),':');
  99.  
  100.     } else if (argc == 2) { /* Try and remove specified device */
  101.         oldname = argv[1];
  102.         trunc(strupper(oldname),':');
  103.         newname = NULL;
  104.     } else { /* Give them usage info */ 
  105.         if (argc != 0) { /* Started from a CLI */ /* OIS V23.08.87 */
  106.             static char old[] = " [old device]\n";
  107.             fprints(stdout, "Usage: %s [new device]%s", argv[0], old);
  108.             fprints(stdout, "       %s%s", argv[0], old);
  109.         }
  110.         exit((int) RETURN_ERROR);
  111.     }        
  112.     
  113.    
  114.     rnode   = (struct RootNode *)  DOSBase->dl_Root;        /* Find root node */
  115.     dinfo   = (struct DosInfo  *)  BADDR(rnode->rn_Info);   /* Now dos info   */
  116.     dnodelink =                    &dinfo->di_DevInfo;      /* Our first link */
  117.  
  118. /*
  119.  * Here we search for the given device name and once found we will duplicate
  120.  * the entire device data structure.  Then we add a new device node with
  121.  * the supplied name to the device list. If no "newname" is specified the
  122.  * given device is removed from the device list and free memory for the device
  123.  * node and device name. (normally you only delete nodes you created...I do 
  124.  * take precautions to NOT delete existing system devices...I add a key to
  125.  * the end of the device name to flag the device node as being created by
  126.  * ASSIGNDEV. 
  127.  */
  128.     
  129.     Forbid();          /* Protect ourselves */
  130.     
  131.     while (dnode = (struct DeviceNode *) BADDR(*dnodelink)) {
  132.         if ( dnode->dn_Type == DLT_DEVICE )  /* Are dealing with a device? */
  133.         {
  134.             bname = (char *) BADDR(dnode->dn_Name);
  135.             memcpy(bname, name, (ULONG)( bname[0] + 1 ) );
  136.             if ( !( strcmp( oldname, strupper(btoc(name)) ) ) ) {
  137.                 if ( newname ) {                     /* Duplicate it ? */
  138.                     dupdev(dnode,newname);
  139.                     status = ERROR_COPIED;
  140.                 } else if ( ourdevnode(dnode) ) {    /* OIS V15.08.87 */
  141.                     *dnodelink = dnode->dn_Next;     /* No, remove it */
  142.                     freedev(dnode);
  143.                     status = ERROR_REMOVED;
  144.                 } else {
  145.                     status = ERROR_NOT_REMOVED;
  146.                 }                                    /* OIS V09.08.87 */
  147.                 break;
  148.             }   
  149.         }
  150.         dnodelink = &dnode->dn_Next;
  151.     }
  152.  
  153.     Permit(); 
  154.  
  155.     switch (status) { /* OIS V09.08.87 */
  156.     case ERROR_NOT_FOUND:
  157.         fprints(stdout, "%sDevice %s: not found\n", TxtError, oldname);
  158.         status = RETURN_ERROR;
  159.         break;
  160.     case ERROR_NOT_REMOVED:
  161.         fprints(stdout, "%sCannot remove device %s:\n", TxtError, oldname); 
  162.         status = RETURN_ERROR;
  163.         break;
  164.     case ERROR_REMOVED:
  165.         fprints(stdout, "Removed %s:\n",oldname);
  166.         status = RETURN_OK;
  167.         break;
  168.     case ERROR_COPIED:
  169.         fprints(stdout, "Duplicated %s: -> %s:\n",oldname,newname);
  170.         status = RETURN_OK;
  171.     }
  172.  
  173.     exit(status);
  174.      
  175. }
  176.  
  177. /* eof */
  178.