Subversion Repositories SvarDOS

Rev

Rev 357 | Rev 364 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 357 Rev 361
Line 3... Line 3...
3 
 *
3 
 *
4 
 * value cannot contain any '=' character, but it can contain spaces
4 
 * value cannot contain any '=' character, but it can contain spaces
5 
 * varname can also contain spaces
5 
 * varname can also contain spaces
6 
 */
 6 
 */
7 
 
 7 
 
- 
 
 8 
#include "env.h"
- 
 
 9 
 
- 
 
 10 
 
8 
static int cmd_set(int argc, char const **argv, unsigned short env_seg, const char far *cmdline) {
 11 
static int cmd_set(int argc, char const **argv, unsigned short env_seg, const char far *cmdline) {
9 
  char far *env = MK_FP(env_seg, 0);
 12 
  char far *env = MK_FP(env_seg, 0);
10 
  char buff[256];
 13 
  char buff[256];
11 
  int i;
 14 
  int i;
12 
  /* no arguments - display content */
 15 
  /* no arguments - display content */
Line 20... Line 23...
20 
      }
 23 
      }
21 
      puts(buff);
 24 
      puts(buff);
22 
    }
 25 
    }
23 
  } else if ((argc == 2) && (imatch(argv[1], "/?"))) {
 26 
  } else if ((argc == 2) && (imatch(argv[1], "/?"))) {
24 
    puts("TODO: help screen"); /* TODO */
 27 
    puts("TODO: help screen"); /* TODO */
25 
  } else { /* do not rely on argv, SET has its own rules... */
 28 
  } else { /* set variable (do not rely on argv, SET has its own rules...) */
26 
    const char far *ptr;
 29 
    const char far *ptr;
27 
    char buff[256];
 30 
    char buff[256];
28 
    int i;
 31 
    unsigned short i;
29 
    /* locate the first space */
 32 
    /* locate the first space */
30 
    for (ptr = cmdline; *ptr != ' '; ptr++);
 33 
    for (ptr = cmdline; *ptr != ' '; ptr++);
31 
    /* now locate the first non-space: that's where the variable name begins */
 34 
    /* now locate the first non-space: that's where the variable name begins */
32 
    for (; *ptr == ' '; ptr++);
 35 
    for (; *ptr == ' '; ptr++);
33 
    /* copy variable to buff and switch it upercase */
 36 
    /* copy variable to buff and switch it upercase */
Line 37... Line 40...
37 
      buff[i] = *ptr;
 40 
      buff[i] = *ptr;
38 
      if ((buff[i] >= 'a') && (buff[i] <= 'z')) buff[i] -= ('a' - 'A');
 41 
      if ((buff[i] >= 'a') && (buff[i] <= 'z')) buff[i] -= ('a' - 'A');
39 
      i++;
 42 
      i++;
40 
    }
 43 
    }
41 
 
 44 
 
42 
    /* if not an = sign, then error */
 - 
 
43 
    if (*ptr != '=') goto syntax_err;
 - 
 
44 
 
 - 
 
45 
    /* add the eq sign to buff */
 45 
    /* copy value now */
46 
    buff[i++] = '=';
 - 
 
47 
    ptr++;
 - 
 
48 
 
 - 
 
49 
    /* copy value now, but make sure it contains no '=' sign */
 - 
 
50 
    while (*ptr != '\r') {
 46 
    while (*ptr != '\r') {
51 
      if (*ptr == '=') goto syntax_err;
 - 
 
52 
      buff[i++] = *ptr;
 47 
      buff[i++] = *ptr;
53 
      ptr++;
 48 
      ptr++;
54 
    }
 49 
    }
55 
 
 50 
 
56 
    /* terminate buff */
 51 
    /* terminate buff */
57 
    buff[i] = 0;
 52 
    buff[i] = 0;
58 
 
 53 
 
59 
    /* TODO add it to environment */
 54 
    /* commit variable to environment */
60 
    puts(buff);
 55 
    i = env_setvar(env_seg, buff);
61 
    puts("TODO: ACTUALLY ADD TO ENV");
 56 
    if (i == ENV_INVSYNT) goto syntax_err;
62 
 
 - 
 
- 
 
 57 
    if (i == ENV_NOTENOM) puts("Not enough available space within the environment block");
63 
  }
 58 
  }
64 
  return(-1);
 59 
  return(-1);
65 
 
 60 
 
66 
  syntax_err:
 61 
  syntax_err:
67 
 
 62