workbench/c/shellcommands/Alias.c

   1 /*
   2     Copyright © 1995-2004, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Alias CLI command.
   6 */
   7
   8 /*****************************************************************************
   9
  10     NAME
  11
  12         Alias
  13
  14     SYNOPSIS
  15
  16         NAME,STRING/F
  17
  18     LOCATION
  19
  20         C:
  21
  22     FUNCTION
  23
  24         Alias allows you to create an alternate name for other DOS commands.
  25         If Alias is used with no parameters, it will display the current
  26         list of Aliases defined within the current shell.
  27
  28         Using a pair of square brackets within an alias allows you to
  29         provide the 'new' dos command with parameters.
  30
  31         If no parameters are specified, the current list of aliases are
  32         displayed.
  33
  34     INPUTS
  35
  36         NAME    - The name of the alias to set.
  37
  38         STRING  - The value of the alias NAME.
  39
  40     RESULT
  41
  42         Standard DOS error codes.
  43
  44     NOTES
  45
  46     EXAMPLE
  47
  48         Alias DF "Type [] number"
  49
  50             By typing "DF S:Shell-Startup" in the shell, you are actually
  51             executing the command "Type S:Shell-Startup number". This will
  52             display the contents of the S:Shell-Startup file in the shell
  53             with line numbers on the left hand side.
  54
  55     BUGS
  56
  57     SEE ALSO
  58
  59         Unalias
  60
  61     INTERNALS
  62
  63 ******************************************************************************/
  64
  65
  66 #include <proto/dos.h>
  67 #include <proto/exec.h>
  68
  69 #include <dos/dos.h>
  70 #include <dos/dosextens.h>
  71 #include <dos/rdargs.h>
  72 #include <dos/var.h>
  73 #include <exec/lists.h>
  74 #include <exec/nodes.h>
  75 #include <exec/types.h>
  76
  77 #include <aros/shcommands.h>
  78
  79 #define BUFFER_SIZE     160
  80
  81 void GetNewString(STRPTR, STRPTR, LONG);
  82
  83 AROS_SH2(Alias, 41.0,
  84 AROS_SHA(STRPTR, ,NAME, ,NULL),
  85 AROS_SHA(STRPTR, ,STRING,/F,NULL))
  86 {
  87     AROS_SHCOMMAND_INIT
  88
  89     struct Process  *AliasProc;
  90     struct LocalVar *AliasNode;
  91     char             Buffer[BUFFER_SIZE];
  92     IPTR             OutArgs[3];
  93     int              Return_Value = RETURN_OK;
  94     BOOL             Success;
  95     LONG             VarLength;
  96     char             Buffer1[BUFFER_SIZE];
  97     char             Buffer2[BUFFER_SIZE];
  98
  99
 100     if (SHArg(NAME) != NULL || SHArg(STRING) != NULL)
 101     {
 102         /* Make sure we get to here is either arguments are
 103          * provided on the command line.
 104          */
 105         if (SHArg(NAME) != NULL && SHArg(STRING) == NULL)
 106         {
 107             Success = GetVar(SHArg(NAME), &Buffer[0],
 108                              BUFFER_SIZE, GVF_LOCAL_ONLY | LV_ALIAS);
 109
 110             if (Success == FALSE)
 111             {
 112                 Return_Value = RETURN_WARN;
 113                 PrintFault(IoErr(), "Alias");
 114             }
 115             else
 116             {
 117                 OutArgs[0] = (IPTR)&Buffer[0];
 118                 OutArgs[1] = (IPTR)NULL;
 119                 VPrintf("%s\n", &OutArgs[0]);
 120             }
 121         }
 122         else
 123         {
 124             /* Add the new local variable to the list. */
 125             Success = SetVar(SHArg(NAME), SHArg(STRING),
 126                              -1, GVF_LOCAL_ONLY | LV_ALIAS);
 127
 128             if (Success == FALSE)
 129             {
 130                 PrintFault(IoErr(), "Alias");
 131                 Return_Value = RETURN_ERROR;
 132             }
 133         }
 134     }
 135     else
 136     {
 137         /* Display a list of aliases. */
 138         AliasProc = (struct Process *)FindTask(NULL);
 139
 140         ForeachNode(&(AliasProc->pr_LocalVars), AliasNode)
 141         {
 142             if (AliasNode->lv_Node.ln_Type == LV_ALIAS)
 143             {
 144                 /* Get a clean variable with no excess
 145                  * characters.
 146                  */
 147                 VarLength = GetVar(AliasNode->lv_Node.ln_Name,
 148                                     &Buffer1[0],
 149                                     BUFFER_SIZE,
 150                                     GVF_LOCAL_ONLY | LV_ALIAS);
 151                 if (VarLength != -1)
 152                 {
 153                      GetNewString(&Buffer1[0], &Buffer2[0], VarLength);
 154
 155                      Buffer2[VarLength] = 0;
 156
 157                      OutArgs[0] = (IPTR)AliasNode->lv_Node.ln_Name;
 158                      OutArgs[1] = (IPTR)&Buffer2[0];
 159                      OutArgs[2] = (IPTR)NULL;
 160                      VPrintf("%-20s\t%-20s\n", &OutArgs[0]);
 161                 }
 162             }
 163         }
 164     }
 165
 166     return Return_Value;
 167
 168     AROS_SHCOMMAND_EXIT
 169 } /* main */
 170
 171
 172 void GetNewString(STRPTR s, STRPTR d, LONG l)
 173 {
 174     int i;
 175     int j;
 176
 177     i = j = 0;
 178
 179     while (i < l)
 180     {
 181         if (s[i] == '*' || s[i] == '\e')
 182         {
 183             d[j] = '*';
 184
 185             i++;
 186             j++;
 187         }
 188         else
 189         {
 190             d[j] = s[i];
 191
 192             i++;
 193             j++;
 194         }
 195     }
 196 } /* GetNewString */