Subversion Repositories SvarDOS

Rev

Rev 369 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 369 Rev 371
1 
/*
1 
/*
2 
 * set [varname[=value]]
2 
 * set [varname[=value]]
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 
 
 8 
 
10 
static int cmd_set(const struct cmd_funcparam *p) {
 9 
static int cmd_set(const struct cmd_funcparam *p) {
11 
  char far *env = MK_FP(p->env_seg, 0);
 10 
  char far *env = MK_FP(p->env_seg, 0);
12 
  char buff[256];
 11 
  char buff[256];
13 
  int i;
 12 
  int i;
14 
  /* no arguments - display content */
 13 
  /* no arguments - display content */
15 
  if (p->argc == 0) {
 14 
  if (p->argc == 0) {
16 
    while (*env != 0) {
 15 
    while (*env != 0) {
17 
      /* copy string to local buff for display */
 16 
      /* copy string to local buff for display */
18 
      for (i = 0;; i++) {
 17 
      for (i = 0;; i++) {
19 
        buff[i] = *env;
 18 
        buff[i] = *env;
20 
        env++;
 19 
        env++;
21 
        if (buff[i] == 0) break;
 20 
        if (buff[i] == 0) break;
22 
      }
 21 
      }
23 
      puts(buff);
 22 
      puts(buff);
24 
    }
 23 
    }
25 
  } else if ((p->argc == 1) && (imatch(p->argv[0], "/?"))) {
 24 
  } else if ((p->argc == 1) && (imatch(p->argv[0], "/?"))) {
26 
    outputnl("TODO: help screen"); /* TODO */
 25 
    outputnl("TODO: help screen"); /* TODO */
27 
  } else { /* set variable (do not rely on argv, SET has its own rules...) */
 26 
  } else { /* set variable (do not rely on argv, SET has its own rules...) */
28 
    const char far *ptr;
 27 
    const char far *ptr;
29 
    char buff[256];
 28 
    char buff[256];
30 
    unsigned short i;
 29 
    unsigned short i;
31 
    /* locate the first space */
 30 
    /* locate the first space */
32 
    for (ptr = p->cmdline; *ptr != ' '; ptr++);
 31 
    for (ptr = p->cmdline; *ptr != ' '; ptr++);
33 
    /* now locate the first non-space: that's where the variable name begins */
 32 
    /* now locate the first non-space: that's where the variable name begins */
34 
    for (; *ptr == ' '; ptr++);
 33 
    for (; *ptr == ' '; ptr++);
35 
    /* copy variable to buff and switch it upercase */
 34 
    /* copy variable to buff and switch it upercase */
36 
    i = 0;
 35 
    i = 0;
37 
    for (; *ptr != '='; ptr++) {
 36 
    for (; *ptr != '='; ptr++) {
38 
      if (*ptr == '\r') goto syntax_err;
 37 
      if (*ptr == '\r') goto syntax_err;
39 
      buff[i] = *ptr;
 38 
      buff[i] = *ptr;
40 
      if ((buff[i] >= 'a') && (buff[i] <= 'z')) buff[i] -= ('a' - 'A');
 39 
      if ((buff[i] >= 'a') && (buff[i] <= 'z')) buff[i] -= ('a' - 'A');
41 
      i++;
 40 
      i++;
42 
    }
 41 
    }
43 
 
 42 
 
44 
    /* copy value now */
 43 
    /* copy value now */
45 
    while (*ptr != '\r') {
 44 
    while (*ptr != '\r') {
46 
      buff[i++] = *ptr;
 45 
      buff[i++] = *ptr;
47 
      ptr++;
 46 
      ptr++;
48 
    }
 47 
    }
49 
 
 48 
 
50 
    /* terminate buff */
 49 
    /* terminate buff */
51 
    buff[i] = 0;
 50 
    buff[i] = 0;
52 
 
 51 
 
53 
    /* commit variable to environment */
 52 
    /* commit variable to environment */
54 
    i = env_setvar(p->env_seg, buff);
 53 
    i = env_setvar(p->env_seg, buff);
55 
    if (i == ENV_INVSYNT) goto syntax_err;
 54 
    if (i == ENV_INVSYNT) goto syntax_err;
56 
    if (i == ENV_NOTENOM) outputnl("Not enough available space within the environment block");
 55 
    if (i == ENV_NOTENOM) outputnl("Not enough available space within the environment block");
57 
  }
 56 
  }
58 
  return(-1);
 57 
  return(-1);
59 
 
 58 
 
60 
  syntax_err:
 59 
  syntax_err:
61 
 
 60 
 
62 
  outputnl("Syntax error");
 61 
  outputnl("Syntax error");
63 
  return(-1);
 62 
  return(-1);
64 
}
 63 
}
65 
 
 64