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