workbench/c/shellcommands/CD.c

   1 /*
   2     Copyright © 1995-2012, 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         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 static STRPTR GetLockName(BPTR lock, struct ExecBase *SysBase,
  54     struct DosLibrary *DOSBase);
  55
  56 AROS_SH1(CD, 41.2,
  57     AROS_SHA(STRPTR, , DIR, , NULL))
  58 {
  59     AROS_SHCOMMAND_INIT
  60
  61     BPTR dir,newdir;
  62     STRPTR buf;
  63     struct FileInfoBlock *fib;
  64     LONG return_code = 0, error = 0;
  65
  66     if (SHArg(DIR))
  67     {
  68         dir = Lock(SHArg(DIR), SHARED_LOCK);
  69
  70         if (dir)
  71         {
  72             fib = AllocDosObject(DOS_FIB, NULL);
  73
  74             if (fib != NULL)
  75             {
  76                 if (Examine(dir, fib))
  77                 {
  78                     if (fib->fib_DirEntryType > 0)
  79                     {
  80                         newdir = dir;
  81                         dir = CurrentDir(newdir);
  82
  83                         buf = GetLockName(newdir, SysBase, DOSBase);
  84                         if (buf != NULL)
  85                         {
  86                             SetCurrentDirName(buf);
  87                             FreeVec(buf);
  88                         }
  89                     }
  90                     else
  91                         error = ERROR_OBJECT_WRONG_TYPE;
  92                 }
  93                 else
  94                     error = IoErr();
  95
  96                 FreeDosObject(DOS_FIB, fib);
  97             }
  98             else
  99                 error = IoErr();
 100
 101             UnLock(dir);
 102         }
 103         else
 104             error = IoErr();
 105     }
 106     else
 107     {
 108         dir = CurrentDir(BNULL);
 109
 110         buf = GetLockName(dir, SysBase, DOSBase);
 111         if (buf != NULL)
 112         {
 113             if (FPuts(Output(), buf) < 0 || FPuts(Output(), "\n") < 0)
 114                 error = IoErr();
 115         }
 116         else
 117             error = IoErr();
 118         FreeVec(buf);
 119         CurrentDir(dir);
 120     }
 121
 122     if (error != 0)
 123     {
 124         PrintFault(error, "CD");
 125         return_code = RETURN_ERROR;
 126     }
 127
 128     return return_code;
 129
 130     AROS_SHCOMMAND_EXIT
 131 }
 132
 133
 134 static STRPTR GetLockName(BPTR lock, struct ExecBase *SysBase, struct DosLibrary *DOSBase)
 135 {
 136     LONG error = 0;
 137     STRPTR buf = NULL;
 138     ULONG i;
 139
 140     for(i = 256; buf == NULL && error == 0; i += 256)
 141     {
 142         buf = AllocVec(i, MEMF_PUBLIC);
 143         if (buf != NULL)
 144         {
 145             if (!NameFromLock(lock, buf, i))
 146             {
 147                 error = IoErr();
 148                 if (error == ERROR_LINE_TOO_LONG)
 149                 {
 150                     error = 0;
 151                     FreeVec(buf);
 152                     buf = NULL;
 153                 }
 154             }
 155         }
 156         else
 157             error = IoErr();
 158     }
 159
 160     if (error != 0)
 161         SetIoErr(error);
 162     return buf;
 163 }