Subversion Repositories SvarDOS

Rev

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

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