workbench/c/shellcommands/Unalias.c

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