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     LONG              VarLength;
  71     char              Buffer1[BUFFER_SIZE];
  72     char              Buffer2[BUFFER_SIZE];
  73
  74
  75     if (SHArg(NAME) != NULL)
  76     {
  77         /* Delete the local Var from the list.
  78          */
  79
  80          if (!DeleteVar(SHArg(NAME), GVF_LOCAL_ONLY))
  81          {
  82              return RETURN_FAIL;
  83          }
  84
  85     }
  86     else
  87     {
  88         /* Display a list of local variables.
  89         */
  90         UnsetProc = (struct Process *)FindTask(NULL);
  91
  92         ForeachNode(&(UnsetProc->pr_LocalVars), UnsetNode)
  93         {
  94             if (UnsetNode->lv_Node.ln_Type == LV_VAR)
  95             {
  96                 /* Get a clean variable with no excess
  97                  * characters.
  98                  */
  99                  VarLength = -1;
 100                  VarLength = GetVar(UnsetNode->lv_Node.ln_Name,
 101                                     &Buffer1[0],
 102                                     BUFFER_SIZE,
 103                                     GVF_LOCAL_ONLY);
 104
 105                  if (VarLength != -1)
 106                  {
 107                      GetNewString(&Buffer1[0], &Buffer2[0], VarLength);
 108
 109                      Buffer2[VarLength] = 0;
 110
 111                      Printf("%-20s\t%-20s\n", UnsetNode->lv_Node.ln_Name, Buffer2);
 112                  }
 113             }
 114        }
 115     }
 116
 117     return RETURN_OK;
 118
 119     AROS_SHCOMMAND_EXIT
 120 } /* main */
 121
 122
 123 static void GetNewString(STRPTR s, STRPTR d, LONG l)
 124 {
 125     int i;
 126     int j;
 127
 128     i = j = 0;
 129
 130     while (i < l)
 131     {
 132         if (s[i] == '*' || s[i] == '\e')
 133         {
 134             d[j] = '*';
 135
 136             i++;
 137             j++;
 138         }
 139         else
 140         {
 141             d[j] = s[i];
 142
 143             i++;
 144             j++;
 145         }
 146     }
 147 } /* GetNewString */