workbench/c/Relabel.c

   1 /*
   2     Copyright © 1995-2004, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 /******************************************************************************
   7
   8
   9     NAME
  10
  11         Relabel
  12
  13     SYNOPSIS
  14
  15         DRIVE/A, NAME/A
  16
  17     LOCATION
  18
  19         Workbench:C
  20
  21     FUNCTION
  22
  23         Rename a volume
  24
  25     INPUTS
  26
  27         DRIVE   --  The volume to rename
  28         NAME    --  The new name
  29
  30     RESULT
  31
  32     NOTES
  33
  34     EXAMPLE
  35
  36     BUGS
  37
  38     SEE ALSO
  39
  40     INTERNALS
  41
  42 ******************************************************************************/
  43
  44 #include <dos/dos.h>
  45 #include <dos/dosextens.h>
  46 #include <dos/rdargs.h>
  47 #include <dos/stdio.h>
  48 #include <proto/dos.h>
  49 #include <proto/exec.h>
  50 #include <string.h>
  51
  52 static const char version[] = "$VER: Relabel 41.1 (02.06.2000)\n";
  53
  54 enum { ARG_DRIVE = 0, ARG_NAME };
  55
  56 int __nocommandline;
  57
  58 int main(void)
  59 {
  60     int  retval = RETURN_FAIL;
  61     IPTR args[] = { (IPTR) NULL, (IPTR) NULL };
  62     struct RDArgs *rda;
  63
  64     rda = ReadArgs("DRIVE/A,NAME/A", args, NULL);
  65
  66     if(rda != NULL)
  67     {
  68         if(strchr((STRPTR)args[ARG_NAME], ':') == NULL)
  69         {
  70                 ULONG len = strlen((STRPTR)args[ARG_DRIVE]);
  71                 UBYTE tmp[len + 1];
  72                 struct DosList *dl;
  73
  74                 if (!len || ((STRPTR)args[ARG_DRIVE])[len - 1] != ':')
  75                         goto invalid;
  76
  77                 len--;
  78                 memcpy(tmp, (STRPTR)args[ARG_DRIVE], len);
  79                 tmp[len] = '\0';
  80
  81                 dl = LockDosList(LDF_READ | LDF_DEVICES | LDF_VOLUMES);
  82                 dl = FindDosEntry(dl, tmp, LDF_DEVICES | LDF_VOLUMES);
  83                 UnLockDosList(LDF_READ | LDF_DEVICES | LDF_VOLUMES);
  84
  85                 if (dl)
  86                 {
  87                         if (Relabel((STRPTR)args[ARG_DRIVE], (STRPTR)args[ARG_NAME]))
  88                         {
  89                                 retval = RETURN_OK;
  90                         }
  91                         else
  92                         {
  93                                 PrintFault(IoErr(), NULL);
  94                         }
  95                 }
  96                 else
  97                 {
  98 invalid:
  99                         PutStr("Invalid device or volume name\n");
 100                 }
 101
 102         }
 103         else
 104         {
 105             PutStr("':' is not a valid character in a volume name.\n");
 106             retval = RETURN_FAIL;
 107         }
 108     }
 109     else
 110     {
 111         PrintFault(IoErr(), "Relabel");
 112         retval = RETURN_FAIL;
 113     }
 114
 115     FreeArgs(rda);
 116
 117     return retval;
 118 }