Subversion Repositories SvarDOS

Rev

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

Rev 533 Rev 989
1 
/* This file is part of the SvarCOM project and is published under the terms
1 
/* This file is part of the SvarCOM project and is published under the terms
2 
 * of the MIT license.
2 
 * of the MIT license.
3 
 *
3 
 *
4 
 * Copyright (C) 2021 Mateusz Viste
4 
 * Copyright (C) 2021-2022 Mateusz Viste
5 
 *
5 
 *
6 
 * Permission is hereby granted, free of charge, to any person obtaining a
6 
 * Permission is hereby granted, free of charge, to any person obtaining a
7 
 * copy of this software and associated documentation files (the "Software"),
7 
 * copy of this software and associated documentation files (the "Software"),
8 
 * to deal in the Software without restriction, including without limitation
8 
 * to deal in the Software without restriction, including without limitation
9 
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
9 
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
10 
 * and/or sell copies of the Software, and to permit persons to whom the
10 
 * and/or sell copies of the Software, and to permit persons to whom the
11 
 * Software is furnished to do so, subject to the following conditions:
11 
 * Software is furnished to do so, subject to the following conditions:
12 
 *
12 
 *
13 
 * The above copyright notice and this permission notice shall be included in
13 
 * The above copyright notice and this permission notice shall be included in
14 
 * all copies or substantial portions of the Software.
14 
 * all copies or substantial portions of the Software.
15 
 *
15 
 *
16 
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17 
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
17 
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18 
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
18 
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
19 
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
19 
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20 
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
20 
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
21 
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
21 
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
22 
 * DEALINGS IN THE SOFTWARE.
22 
 * DEALINGS IN THE SOFTWARE.
23 
 */
 23 
 */
24 
 
 24 
 
25 
/*
25 
/*
26 
 * set [varname[=value]]
26 
 * set [varname[=value]]
27 
 *
27 
 *
28 
 * value cannot contain any '=' character, but it can contain spaces
28 
 * value cannot contain any '=' character, but it can contain spaces
29 
 * varname can also contain spaces
29 
 * varname can also contain spaces
30 
 */
 30 
 */
31 
 
 31 
 
32 
 
 32 
 
33 
static enum cmd_result cmd_set(struct cmd_funcparam *p) {
 33 
static enum cmd_result cmd_set(struct cmd_funcparam *p) {
34 
  char far *env = MK_FP(p->env_seg, 0);
 34 
  char far *env = MK_FP(p->env_seg, 0);
35 
  char *buff = p->BUFFER;
 35 
  char *buff = p->BUFFER;
36 
 
 36 
 
37 
  if (cmd_ishlp(p)) {
 37 
  if (cmd_ishlp(p)) {
38 
    outputnl("Displays, sets, or removes DOS environment variables");
 38 
    nls_outputnl(23,0); /* "Displays, sets, or removes DOS environment variables"); */
39 
    outputnl("");
 39 
    outputnl("");
40 
    outputnl("SET [variable=[string]]");
 40 
    nls_outputnl(23,1); /* "SET [variable=[string]]" */
41 
    outputnl("");
 41 
    outputnl("");
42 
    outputnl("variable  Specifies the environment-variable name");
 42 
    nls_outputnl(23,2); /* "variable  Specifies the environment-variable name" */
43 
    outputnl("string    Specifies a series of characters to assign to the variable");
 43 
    nls_outputnl(23,3); /* "string    Specifies a series of characters to assign to the variable" */
44 
    outputnl("");
 44 
    outputnl("");
45 
    outputnl("Type SET without parameters to display the current environment variables.");
 45 
    nls_outputnl(23,4); /* "Type SET without parameters to display the current environment variables." */
46 
    return(CMD_OK);
 46 
    return(CMD_OK);
47 
  }
 47 
  }
48 
 
 48 
 
49 
  /* no arguments - display content */
 49 
  /* no arguments - display content */
50 
  if (p->argc == 0) {
 50 
  if (p->argc == 0) {
51 
    while (*env != 0) {
 51 
    while (*env != 0) {
52 
      unsigned short i;
 52 
      unsigned short i;
53 
      /* copy string to local buff for display */
 53 
      /* copy string to local buff for display */
54 
      for (i = 0;; i++) {
 54 
      for (i = 0;; i++) {
55 
        buff[i] = *env;
 55 
        buff[i] = *env;
56 
        env++;
 56 
        env++;
57 
        if (buff[i] == 0) break;
 57 
        if (buff[i] == 0) break;
58 
      }
 58 
      }
59 
      outputnl(buff);
 59 
      outputnl(buff);
60 
    }
 60 
    }
61 
  } else { /* set variable (do not rely on argv, SET has its own rules...) */
 61 
  } else { /* set variable (do not rely on argv, SET has its own rules...) */
62 
    const char far *ptr;
 62 
    const char far *ptr;
63 
    unsigned short i;
 63 
    unsigned short i;
64 
    /* locate the first space */
 64 
    /* locate the first space */
65 
    for (ptr = p->cmdline; *ptr != ' '; ptr++);
 65 
    for (ptr = p->cmdline; *ptr != ' '; ptr++);
66 
    /* now locate the first non-space: that's where the variable name begins */
 66 
    /* now locate the first non-space: that's where the variable name begins */
67 
    for (; *ptr == ' '; ptr++);
 67 
    for (; *ptr == ' '; ptr++);
68 
    /* copy variable to buff and switch it upercase */
 68 
    /* copy variable to buff and switch it upercase */
69 
    i = 0;
 69 
    i = 0;
70 
    for (; *ptr != '='; ptr++) {
 70 
    for (; *ptr != '='; ptr++) {
71 
      if (*ptr == 0) goto syntax_err;
 71 
      if (*ptr == 0) goto syntax_err;
72 
      buff[i] = *ptr;
 72 
      buff[i] = *ptr;
73 
      if ((buff[i] >= 'a') && (buff[i] <= 'z')) buff[i] -= ('a' - 'A');
 73 
      if ((buff[i] >= 'a') && (buff[i] <= 'z')) buff[i] -= ('a' - 'A');
74 
      i++;
 74 
      i++;
75 
    }
 75 
    }
76 
 
 76 
 
77 
    /* copy value now */
 77 
    /* copy value now */
78 
    while (*ptr != 0) {
 78 
    while (*ptr != 0) {
79 
      buff[i++] = *ptr;
 79 
      buff[i++] = *ptr;
80 
      ptr++;
 80 
      ptr++;
81 
    }
 81 
    }
82 
 
 82 
 
83 
    /* terminate buff */
 83 
    /* terminate buff */
84 
    buff[i] = 0;
 84 
    buff[i] = 0;
85 
 
 85 
 
86 
    /* commit variable to environment */
 86 
    /* commit variable to environment */
87 
    i = env_setvar(p->env_seg, buff);
 87 
    i = env_setvar(p->env_seg, buff);
88 
    if (i == ENV_INVSYNT) goto syntax_err;
 88 
    if (i == ENV_INVSYNT) goto syntax_err;
89 
    if (i == ENV_NOTENOM) {
 89 
    if (i == ENV_NOTENOM) {
90 
      outputnl("Not enough available space within the environment block");
 90 
      nls_outputnl(23,5); /* "Not enough available space within the environment block" */
91 
      return(CMD_FAIL);
 91 
      return(CMD_FAIL);
92 
    }
 92 
    }
93 
  }
 93 
  }
94 
  return(CMD_OK);
 94 
  return(CMD_OK);
95 
 
 95 
 
96 
  syntax_err:
 96 
  syntax_err:
97 
 
 97 
 
98 
  outputnl("Syntax error");
 98 
  nls_outputnl(0,1); /* "Invalid syntax" */
99 
  return(CMD_FAIL);
 99 
  return(CMD_FAIL);
100 
}
 100 
}
101 
 
 101