workbench/c/shellcommands/Unset.c

   1 /*
   2     Copyright © 1995-2004, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Unset CLI command.
   6 */
   7
   8 /*****************************************************************************
   9
  10     NAME
  11
  12         Unset
  13
  14     SYNOPSIS
  15
  16         NAME
  17
  18     LOCATION
  19
  20         C:
  21
  22     FUNCTION
  23
  24        Deletes local variable.
  25
  26     INPUTS
  27
  28         NAME    - The name of the local variable to unset.
  29
  30     RESULT
  31
  32         Standard DOS error codes.
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44 ******************************************************************************/
  45
  46
  47 #include <proto/dos.h>
  48 #include <proto/exec.h>
  49
  50 #include <dos/dos.h>
  51 #include <dos/dosextens.h>
  52 #include <dos/rdargs.h>
  53 #include <dos/var.h>
  54 #include <exec/lists.h>
  55 #include <exec/nodes.h>
  56 #include <exec/types.h>
  57 #include <aros/shcommands.h>
  58
  59 #define BUFFER_SIZE     160
  60
  61 static void GetNewString(STRPTR, STRPTR, LONG);
  62
  63 AROS_SH1(Unset, 41.0,
  64 AROS_SHA(STRPTR, ,NAME, ,NULL))
  65 {
  66     AROS_SHCOMMAND_INIT
  67
  68     struct Process  * UnsetProc;
  69     struct LocalVar * UnsetNode;
  70     IPTR              OutArgs[3];
  71     LONG              VarLength;
  72     char              Buffer1[BUFFER_SIZE];
  73     char              Buffer2[BUFFER_SIZE];
  74
  75
  76     if (SHArg(NAME) != NULL)
  77     {
  78         /* Delete the local Var from the list.
  79          */
  80
  81          if (!DeleteVar(SHArg(NAME), GVF_LOCAL_ONLY))
  82          {
  83              return RETURN_FAIL;
  84          }
  85
  86     }
  87     else
  88     {
  89         /* Display a list of local variables.
  90         */
  91         UnsetProc = (struct Process *)FindTask(NULL);
  92
  93         ForeachNode(&(UnsetProc->pr_LocalVars), UnsetNode)
  94         {
  95             if (UnsetNode->lv_Node.ln_Type == LV_VAR)
  96             {
  97                 /* Get a clean variable with no excess
  98                  * characters.
  99                  */
 100                  VarLength = -1;
 101                  VarLength = GetVar(UnsetNode->lv_Node.ln_Name,
 102                                     &Buffer1[0],
 103                                     BUFFER_SIZE,
 104                                     GVF_LOCAL_ONLY);
 105
 106                  if (VarLength != -1)
 107                  {
 108                      GetNewString(&Buffer1[0], &Buffer2[0], VarLength);
 109
 110                      Buffer2[VarLength] = 0;
 111
 112                      OutArgs[0] = (IPTR)UnsetNode->lv_Node.ln_Name;
 113                      OutArgs[1] = (IPTR)&Buffer2[0];
 114                      OutArgs[2] = (IPTR)NULL;
 115                      VPrintf("%-20s\t%-20s\n", &OutArgs[0]);
 116                  }
 117             }
 118        }
 119     }
 120
 121     return RETURN_OK;
 122
 123     AROS_SHCOMMAND_EXIT
 124 } /* main */
 125
 126
 127 static void GetNewString(STRPTR s, STRPTR d, LONG l)
 128 {
 129     int i;
 130     int j;
 131
 132     i = j = 0;
 133
 134     while (i < l)
 135     {
 136         if (s[i] == '*' || s[i] == '\e')
 137         {
 138             d[j] = '*';
 139
 140             i++;
 141             j++;
 142         }
 143         else
 144         {
 145             d[j] = s[i];
 146
 147             i++;
 148             j++;
 149         }
 150     }
 151 } /* GetNewString */