workbench/c/Shell/convertVar.c

   1 /*
   2     Copyright (C) 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4  */
   5
   6 #include <proto/dos.h>
   7
   8 #include <ctype.h>
   9
  10 #include "Shell.h"
  11
  12 #include <aros/debug.h>
  13
  14 /* environment variables handling (locals and globals) */
  15 LONG convertVar(ShellState *ss, Buffer *in, Buffer *out, BOOL *quoted)
  16 {
  17     STRPTR p = in->buf + in->cur;
  18     STRPTR s = p + 1;
  19     LONG bra = (*s == '{' ? 2 : 0);
  20     TEXT varName[257];
  21     TEXT varValue[256];
  22     LONG i, len;
  23
  24     if (bra)
  25         ++s;
  26
  27     for (i = 0; i < 256; ++i)
  28     {
  29         if (bra)
  30         {
  31             if (*s == '\0' || *s == '}')
  32                 break;
  33         }
  34         else
  35         {
  36             if (!isalnum(*s))
  37                 break;
  38         }
  39
  40         varName[i] = *s++;
  41     }
  42
  43     if (i >= 256) /* FIXME setup a VAR_MAX constant */
  44         return ERROR_LINE_TOO_LONG;
  45
  46     varName[i] = '\0';
  47
  48     if (bra)
  49     {
  50         if (*s == '}')
  51             s++;
  52         else
  53             bra--;
  54     }
  55
  56     if ((bra != 1) && (i > 0) && ((len = GetVar(varName, varValue, 256, LV_VAR)) != -1))
  57     {
  58         D(bug("[Shell] found var: %s = %s\n", varName, varValue));
  59         bufferAppend(varValue, len, out, SysBase);
  60     }
  61     else
  62     {
  63         D(bug("[Shell] var not found: %s\n", varName));
  64         bufferAppend(p, ++i + bra, out, SysBase);
  65     }
  66
  67     in->cur = s - in->buf;
  68     return 0;
  69 }