workbench/c/MakeDir.c

   1 /*
   2     Copyright © 1995-2008, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     MakeDir CLI command.
   6 */
   7
   8 #include <exec/memory.h>
   9 #include <exec/execbase.h>
  10 #include <proto/exec.h>
  11 #include <dos/dos.h>
  12 #include <proto/dos.h>
  13 #include <utility/tagitem.h>
  14
  15 #include <stdio.h>
  16
  17 const TEXT version[] = "$VER: MakeDir 42.5 (15.12.2007)\n";
  18
  19 /******************************************************************************
  20
  21     NAME
  22
  23         MakeDir
  24
  25     SYNOPSIS
  26
  27         NAME/M/A,ALL/S
  28
  29     LOCATION
  30
  31         C:
  32
  33     FUNCTION
  34
  35         Create new empty directories with specified names.
  36
  37     INPUTS
  38
  39         NAME  --  names of the directories that should be created
  40         ALL   --  creates intermediate directories
  41
  42     RESULT
  43
  44     NOTES
  45
  46         MakeDir does not create an icon for a new directory.
  47
  48     EXAMPLE
  49
  50     BUGS
  51
  52     SEE ALSO
  53
  54     INTERNALS
  55
  56 ******************************************************************************/
  57
  58
  59 enum
  60 {
  61     ARG_NAME = 0,
  62     ARG_ALL,
  63     NOOFARGS
  64 };
  65
  66 BPTR CreateDirAll(STRPTR name);
  67
  68 int __nocommandline;
  69
  70 int main(void)
  71 {
  72     IPTR           args[NOOFARGS] = { (IPTR) NULL };
  73     struct RDArgs *rda;
  74
  75     LONG   error = RETURN_OK;
  76     BPTR   lock;
  77
  78     rda = ReadArgs("NAME/M/A,ALL/S", args, NULL);
  79
  80     if(rda != NULL)
  81     {
  82         int      i = 0;
  83         STRPTR  *name = (STRPTR *)args[ARG_NAME];
  84
  85         if((name == NULL) || (*name == NULL))
  86         {
  87             SetIoErr(ERROR_REQUIRED_ARG_MISSING);
  88             error = RETURN_FAIL;
  89         }
  90         else
  91         {
  92             for(i = 0; name[i] != NULL; i++)
  93             {
  94                 if (args[ARG_ALL])
  95                     lock = CreateDirAll(name[i]);
  96                 else
  97                     lock = CreateDir(name[i]);
  98
  99                 /* The AmigaDOS semantics are quite strange here. When it is
 100                    impossible to create a certain directory, MakeDir goes on
 101                    to try to create the rest of the specified directories and
 102                    returns the LAST return value for the operation. */
 103                 if(lock != NULL)
 104                 {
 105                     UnLock(lock);
 106                     error = RETURN_OK;
 107                 }
 108                 else
 109                 {
 110                     LONG lasterr = IoErr(); // We don't want error from PutStr()
 111                     PutStr("Cannot create directory ");
 112                     PutStr(name[i]);
 113                     PutStr("\n");
 114                     SetIoErr(lasterr);
 115                     error = RETURN_ERROR;
 116                 }
 117             }
 118         }
 119
 120         FreeArgs(rda);
 121     }
 122     else
 123         error = RETURN_FAIL;
 124
 125     if(error != RETURN_OK)
 126         PrintFault(IoErr(), "MakeDir");
 127
 128     return error;
 129 }
 130
 131 /* CreateDirAll
 132  *
 133  * Walk path from left to right, Lock()ing each element. If locking fails,
 134  * try CreateDir.
 135  * This routine is smart enough to try optimize multiple '/'s.
 136  */
 137
 138 BPTR CreateDirAll(STRPTR name)
 139 {
 140     STRPTR pt = name;
 141     BOOL first = TRUE;
 142     BPTR oldcurdir;
 143     BPTR l, o;
 144     UBYTE oc = 0;
 145     int skip = 0;
 146     UBYTE _fib[sizeof(struct FileInfoBlock) + 3];
 147     struct FileInfoBlock *fib = (APTR) ((((IPTR) _fib) + 3) & ~3);
 148
 149     CurrentDir(oldcurdir = CurrentDir(0));
 150
 151     for (;;)
 152     {
 153         UBYTE c = *pt++;
 154
 155         if (c == ':' || c == '/' || c == '\0')
 156         {
 157             if (c == ':')
 158             {
 159                 skip = 0;
 160
 161                 if (!first)
 162                 {
 163                     SetIoErr(ERROR_DEVICE_NOT_MOUNTED);
 164                     break;
 165                 }
 166                 first = FALSE;
 167                 oc = pt[skip];
 168                 pt[skip] = '\0';
 169                 //Printf("Lock \"%s\"\n", (LONG) name);
 170                 l = Lock(name, ACCESS_READ);
 171             }
 172             else
 173             {
 174                 skip = 0;
 175                 if (c == '/')
 176                 {
 177                     while (pt[skip] == '/')
 178                     {
 179                         skip++;
 180                     }
 181                 }
 182
 183                 oc = pt[skip];
 184                 pt[skip] = '\0';
 185                 //Printf("Lock \"%s\"\n", (LONG) name);
 186                 l = Lock(name, ACCESS_READ);
 187                 if (!l)
 188                 {
 189                     pt[skip] = oc;
 190                     skip = *name != '/' && c == '/' ? -1 : 0;
 191                     oc = pt[skip];
 192                     pt[skip] = '\0';
 193
 194                     //Printf("CreateDir \"%s\"\n", (LONG) name);
 195                     l = name[0] == '/' || name[0] == '\0' ? 0 : CreateDir(name);
 196                     if (l)
 197                     {
 198                         if (!ChangeMode(CHANGE_LOCK, l, ACCESS_READ))
 199                         {
 200                             UnLock(l);
 201                             l = Lock(name, ACCESS_READ);
 202                         }
 203                     }
 204                 }
 205                 else
 206                 {
 207                     LONG res;
 208
 209                     /* Make sure it's a directory */
 210                     if (!(res = Examine(l, fib)) || fib->fib_DirEntryType < 0)
 211                     {
 212                         UnLock(l);
 213                         if (res)
 214                         {
 215                             SetIoErr(c == '\0' ? ERROR_OBJECT_EXISTS : ERROR_OBJECT_WRONG_TYPE);
 216                         }
 217                         break;
 218                     }
 219                     pt += skip;
 220                     skip = 0;
 221                 }
 222             }
 223
 224             if (!l)
 225             {
 226                 break;
 227             }
 228
 229             o = CurrentDir(l);
 230             if (o != oldcurdir)
 231             {
 232                 UnLock(o);
 233             }
 234
 235             pt[skip] = oc;
 236             name = pt;
 237
 238             if (c == '\0')
 239             {
 240                 //Printf("return success\n");
 241                 return CurrentDir(oldcurdir);
 242             }
 243         }
 244     }
 245
 246     pt[skip] = oc;
 247
 248     o = CurrentDir(oldcurdir);
 249     if (o != oldcurdir)
 250     {
 251         UnLock(o);
 252     }
 253
 254     //Printf("return error\n");
 255     return NULL;
 256 }