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     BOOL              Success;
  80     LONG              VarLength;
  81     char              Buffer1[BUFFER_SIZE];
  82     char              Buffer2[BUFFER_SIZE];
  83
  84
  85     if (SHArg(NAME) != NULL)
  86     {
  87         Success = DeleteVar(SHArg(NAME), GVF_LOCAL_ONLY | LV_ALIAS);
  88
  89         if (Success == FALSE)
  90         {
  91             PrintFault(IoErr(), "Unalias");
  92
  93             return RETURN_WARN;
  94         }
  95     }
  96     else
  97     {
  98         /* Display a list of aliases.
  99          */
 100         UnaliasProc = (struct Process *)FindTask(NULL);
 101
 102         if (UnaliasProc != NULL)
 103         {
 104             ForeachNode(&(UnaliasProc->pr_LocalVars), UnaliasNode)
 105             {
 106                 if (UnaliasNode->lv_Node.ln_Type == LV_ALIAS)
 107                 {
 108                     /* Get a clean variable with no excess
 109                      * characters.
 110                      */
 111                     VarLength = -1;
 112                     VarLength = GetVar(UnaliasNode->lv_Node.ln_Name,
 113                                        &Buffer1[0],
 114                                        BUFFER_SIZE,
 115                                        GVF_LOCAL_ONLY | LV_ALIAS);
 116
 117                     if (VarLength != -1)
 118                     {
 119                         GetNewString(&Buffer1[0],
 120                                      &Buffer2[0],
 121                                      VarLength);
 122
 123                         Buffer2[VarLength] = 0;
 124
 125                         Printf("%-20s\t%-20s\n", UnaliasNode->lv_Node.ln_Name, Buffer2);
 126                     }
 127                 }
 128             }
 129         }
 130     }
 131
 132     return RETURN_OK;
 133
 134     AROS_SHCOMMAND_EXIT
 135
 136 } /* main */
 137
 138 void GetNewString(STRPTR s, STRPTR d, LONG l)
 139 {
 140     int i;
 141     int j;
 142
 143     i = j = 0;
 144
 145     while (i < l)
 146     {
 147         if (s[i] == '*' || s[i] == '\e')
 148         {
 149             d[j] = '*';
 150
 151             i++;
 152             j++;
 153         }
 154         else
 155         {
 156             d[j] = s[i];
 157
 158             i++;
 159             j++;
 160         }
 161     }
 162 } /* GetNewString */