workbench/c/Shell/convertArg.c

   1 /*
   2     Copyright (C) 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4  */
   5
   6 #include <string.h>
   7 #include "Shell.h"
   8
   9 /* subsitute one script argument and leaves the input after .ket */
  10 LONG convertArg(ShellState *ss, Buffer *in, Buffer *out, BOOL *quoted)
  11 {
  12     STRPTR s = in->buf + in->cur;
  13     STRPTR p = s;
  14     STRPTR q = ++s;
  15     LONG i;
  16     BOOL scriptarg = FALSE;
  17
  18     if (s[0] == ss->dollar && s[1] == ss->dollar && s[2] == ss->ket)
  19     {
  20         TEXT buf[16];
  21         LONG len = l2a(ss->cliNumber, buf);
  22         bufferAppend(buf, len, out, SysBase);
  23         in->cur += 4;
  24         return 0;
  25     }
  26
  27     if (!*quoted && *p == '<' && *q == '>') /* Run <>NIL: ... */
  28         return convertRedir(ss, in, out);
  29
  30     for (; *q != ss->ket && *q != ss->dollar && *q != '\0'; ++q)
  31     {
  32         if (!*quoted)
  33             switch (*q)
  34             {
  35             case '"':
  36             case ' ':
  37                 if (*p == '<') /* input redirection */
  38                     return convertRedir(ss, in, out);
  39
  40                 bufferAppend(s, q - s, out, SysBase);
  41                 return 0;
  42             }
  43     }
  44
  45     for (i = 0; i < ss->argcount; ++i)
  46     {
  47         struct SArg *a = ss->args + i;
  48         STRPTR arg = NULL;
  49         IPTR val = ss->arg[i];
  50         UBYTE t = a->type;
  51         LONG j, len = a->namelen;
  52
  53         if (q - s != len)
  54             continue;
  55
  56         if (strncmp(s, a->name, len) != 0)
  57             continue;
  58         else
  59             scriptarg = TRUE;
  60
  61         if (val)
  62         {
  63             if (t & SWITCH)
  64                 arg = val ? a->name : NULL;
  65             else if (t & TOGGLE)
  66             {
  67                 arg = val ? "1" : "0";
  68                 len = 1;
  69             }
  70             else if (t & MULTIPLE)
  71             {
  72                 STRPTR *m = (STRPTR *) val;
  73
  74                 for (j = 0; (arg = m[j]); ++j)
  75                 {
  76                     if (j > 0)
  77                         bufferAppend(" ", 1, out, SysBase);
  78
  79                     len = cliLen(arg);
  80                     bufferAppend(arg, len, out, SysBase);
  81                 }
  82             }
  83             else
  84             {
  85                 arg = (STRPTR) val;
  86                 len = a->len;
  87             }
  88         }
  89         else if (s[len] == ss->dollar) /* default arg */
  90         {
  91             arg = s + len + 1;
  92             len = q - arg;
  93         }
  94         else
  95         {
  96             arg = (STRPTR) a->def;
  97             len = a->deflen;
  98         }
  99
 100         if (arg)
 101             bufferAppend(arg, len, out, SysBase);
 102         break;
 103     }
 104
 105     if(scriptarg)
 106     {
 107         while (*q != '\0' && *q++ != ss->ket);
 108         in->cur = q - in->buf;
 109     }
 110     else
 111         bufferCopy(in, out, 1, SysBase);
 112
 113     return 0;
 114 }