Subversion Repositories SvarDOS

Rev

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

Rev 989 Rev 1134
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-2022 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 
    nls_outputnl(23,0); /* "Displays, sets, or removes DOS environment variables"); */
 38 
    nls_outputnl(23,0); /* "Displays, sets, or removes DOS environment variables"); */
39 
    outputnl("");
 39 
    outputnl("");
40 
    nls_outputnl(23,1); /* "SET [variable=[string]]" */
 40 
    nls_outputnl(23,1); /* "SET [variable=[string]]" */
41 
    outputnl("");
 41 
    outputnl("");
42 
    nls_outputnl(23,2); /* "variable  Specifies the environment-variable name" */
 42 
    nls_outputnl(23,2); /* "variable  Specifies the environment-variable name" */
43 
    nls_outputnl(23,3); /* "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 
    nls_outputnl(23,4); /* "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, errcode = 0;
- 
 
 64 
 
64 
    /* locate the first space */
 65 
    /* locate the first space or tab */
65 
    for (ptr = p->cmdline; *ptr != ' '; ptr++);
 66 
    for (ptr = p->cmdline; ((*ptr != ' ') && (*ptr != '\t')); ptr++);
- 
 
 67 
 
66 
    /* now locate the first non-space: that's where the variable name begins */
 68 
    /* now locate the first non-space/non-tab: that's where the variable name begins */
67 
    for (; *ptr == ' '; ptr++);
 69 
    for (; ((*ptr == ' ') || (*ptr == '\t')); ptr++);
- 
 
 70 
 
68 
    /* copy variable to buff and switch it upercase */
 71 
    /* copy variable name to buff */
69 
    i = 0;
 72 
    i = 0;
70 
    for (; *ptr != '='; ptr++) {
 73 
    for (; *ptr != '='; ptr++) {
71 
      if (*ptr == 0) goto syntax_err;
 74 
      if (*ptr == 0) goto syntax_err;
72 
      buff[i] = *ptr;
 75 
      buff[i++] = *ptr;
- 
 
 76 
    }
- 
 
 77 
 
- 
 
 78 
    /* make variable name all caps */
- 
 
 79 
    _asm {
- 
 
 80 
      push ax
- 
 
 81 
      push cx
- 
 
 82 
      push dx
- 
 
 83 
 
73 
      if ((buff[i] >= 'a') && (buff[i] <= 'z')) buff[i] -= ('a' - 'A');
 84 
      mov ax, 0x6521 /* country-dependent capitalize string (DOS 4+) */
- 
 
 85 
      mov cx, [i]    /* CX=length of string */
- 
 
 86 
      mov dx, buff   /* DS:DX->string to capitalize */
- 
 
 87 
      int 0x21
- 
 
 88 
      jnc DONE
- 
 
 89 
      mov [errcode], ax
74 
      i++;
 90 
      DONE:
- 
 
 91 
 
- 
 
 92 
      pop dx
- 
 
 93 
      pop cx
- 
 
 94 
      pop ax
- 
 
 95 
    }
- 
 
 96 
    if (errcode != 0) {
- 
 
 97 
      nls_outputnl_doserr(errcode);
- 
 
 98 
      return(CMD_FAIL);
75 
    }
 99 
    }
76 
 
 100 
 
77 
    /* copy value now */
 101 
    /* copy value now */
78 
    while (*ptr != 0) {
 102 
    while (*ptr != 0) {
79 
      buff[i++] = *ptr;
 103 
      buff[i++] = *ptr;
80 
      ptr++;
 104 
      ptr++;
81 
    }
 105 
    }
82 
 
 106 
 
83 
    /* terminate buff */
 107 
    /* terminate buff */
84 
    buff[i] = 0;
 108 
    buff[i] = 0;
85 
 
 109 
 
86 
    /* commit variable to environment */
 110 
    /* commit variable to environment */
87 
    i = env_setvar(p->env_seg, buff);
 111 
    i = env_setvar(p->env_seg, buff);
88 
    if (i == ENV_INVSYNT) goto syntax_err;
 112 
    if (i == ENV_INVSYNT) goto syntax_err;
89 
    if (i == ENV_NOTENOM) {
 113 
    if (i == ENV_NOTENOM) {
90 
      nls_outputnl(23,5); /* "Not enough available space within the environment block" */
 114 
      nls_outputnl(23,5); /* "Not enough available space within the environment block" */
91 
      return(CMD_FAIL);
 115 
      return(CMD_FAIL);
92 
    }
 116 
    }
93 
  }
 117 
  }
94 
  return(CMD_OK);
 118 
  return(CMD_OK);
95 
 
 119 
 
96 
  syntax_err:
 120 
  syntax_err:
97 
 
 121 
 
98 
  nls_outputnl(0,1); /* "Invalid syntax" */
 122 
  nls_outputnl(0,1); /* "Invalid syntax" */
99 
  return(CMD_FAIL);
 123 
  return(CMD_FAIL);
100 
}
 124 
}
101 
 
 125