workbench/c/shellcommands/CD.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: CD CLI command
   6     Lang: English
   7 */
   8 /*****************************************************************************
   9
  10     NAME
  11
  12         CD
  13
  14     SYNOPSIS
  15
  16         DIR
  17
  18     LOCATION
  19
  20         Workbench:C/
  21
  22     FUNCTION
  23
  24         Without argument it shows the name of the current directory.
  25         With argument it changes the current directory.
  26
  27     INPUTS
  28
  29         DIR -- path to change to current directory
  30
  31     RESULT
  32
  33     EXAMPLE
  34
  35     BUGS
  36
  37     SEE ALSO
  38
  39     INTERNALS
  40
  41     HISTORY
  42
  43 ******************************************************************************/
  44
  45 #include <exec/execbase.h>
  46 #include <exec/memory.h>
  47 #include <proto/exec.h>
  48 #include <dos/dos.h>
  49 #include <proto/dos.h>
  50
  51 #include <aros/shcommands.h>
  52
  53 AROS_SH1(CD, 41.1,
  54 AROS_SHA(STRPTR, ,DIR, ,NULL))
  55 {
  56     AROS_SHCOMMAND_INIT
  57
  58     BPTR dir,newdir;
  59     STRPTR buf;
  60     ULONG i;
  61     struct FileInfoBlock *fib;
  62     LONG error = 0;
  63
  64
  65     if (SHArg(DIR))
  66     {
  67         dir = Lock(SHArg(DIR), SHARED_LOCK);
  68
  69         if (dir)
  70         {
  71             fib = AllocDosObject(DOS_FIB, NULL);
  72
  73             if (fib != NULL)
  74             {
  75                 if (Examine(dir, fib))
  76                 {
  77                     if (fib->fib_DirEntryType > 0)
  78                     {
  79                         newdir = dir;
  80                         dir = CurrentDir(newdir);
  81
  82                         for (i = 256;;i += 256)
  83                         {
  84                             buf = AllocVec(i, MEMF_ANY);
  85
  86                             if (buf == NULL)
  87                             {
  88                                 SetIoErr(ERROR_NO_FREE_STORE);
  89                                 error = RETURN_ERROR;
  90                                 break;
  91                             }
  92
  93                             if (NameFromLock(newdir, buf, i))
  94                             {
  95                                 SetCurrentDirName(buf);
  96                                 FreeVec(buf);
  97                                 break;
  98                             }
  99
 100                             FreeVec(buf);
 101
 102                             if (IoErr() != ERROR_LINE_TOO_LONG)
 103                             {
 104                                 error = RETURN_ERROR;
 105                                 break;
 106                             }
 107                         }
 108                     }
 109                     else
 110                     {
 111                         SetIoErr(ERROR_OBJECT_WRONG_TYPE);
 112                         error = RETURN_ERROR;
 113                     }
 114                 }
 115                 else
 116                 {
 117                     error = RETURN_ERROR;
 118                 }
 119
 120                 FreeDosObject(DOS_FIB, fib);
 121             }
 122             else
 123             {
 124                 SetIoErr(ERROR_NO_FREE_STORE);
 125                 error = RETURN_ERROR;
 126             }
 127
 128             UnLock(dir);
 129         }
 130         else
 131         {
 132             error = RETURN_ERROR;
 133         }
 134     }
 135     else
 136     {
 137         dir = CurrentDir(NULL);
 138
 139         for(i = 256;;i += 256)
 140         {
 141             buf = AllocVec(i, MEMF_ANY);
 142
 143             if (buf == NULL)
 144             {
 145                 SetIoErr(ERROR_NO_FREE_STORE);
 146                 error = RETURN_ERROR;
 147                 break;
 148             }
 149
 150             if (NameFromLock(dir, buf, i))
 151             {
 152                 if (FPuts(Output(), buf) < 0 || FPuts(Output(), "\n") < 0)
 153                 {
 154                     error = RETURN_ERROR;
 155                 }
 156
 157                 FreeVec(buf);
 158                 break;
 159             }
 160
 161             FreeVec(buf);
 162
 163             if (IoErr() != ERROR_LINE_TOO_LONG)
 164             {
 165                 error = RETURN_ERROR;
 166                 break;
 167             }
 168         }
 169
 170         CurrentDir(dir);
 171     }
 172
 173     if (error)
 174     {
 175         PrintFault(IoErr(), "CD");
 176     }
 177
 178     return error;
 179
 180     AROS_SHCOMMAND_EXIT
 181 }