Subversion Repositories SvarDOS

Rev

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

Rev 405 Rev 406
1
/* entry point for internal commands
1
/* entry point for internal commands
2
 * matches internal commands and executes them
2
 * matches internal commands and executes them
3
 * returns -1 or exit code if processed
3
 * returns -1 or exit code if processed
4
 * returns -2 if command unrecognized */
4
 * returns -2 if command unrecognized */
5
 
5
 
6
#include <i86.h>
6
#include <i86.h>
7
#include <stdio.h>
7
#include <stdio.h>
8
#include <stdlib.h>
8
#include <stdlib.h>
9
#include <string.h>
9
#include <string.h>
10
 
10
 
11
#include "doserr.h"
11
#include "doserr.h"
12
#include "env.h"
12
#include "env.h"
13
#include "helpers.h"
13
#include "helpers.h"
14
#include "rmodinit.h"
14
#include "rmodinit.h"
15
 
15
 
16
#define BUFFER_SIZE 2048    /* make sure this is not bigger than the static buffer in command.c */
16
#define BUFFER_SIZE 2048    /* make sure this is not bigger than the static buffer in command.c */
17
 
17
 
18
struct cmd_funcparam {
18
struct cmd_funcparam {
19
  int argc;                 /* number of arguments */
19
  int argc;                 /* number of arguments */
20
  const char *argv[256];    /* pointers to each argument */
20
  const char *argv[256];    /* pointers to each argument */
21
  unsigned short env_seg;   /* segment of environment block */
21
  unsigned short env_seg;   /* segment of environment block */
22
  unsigned short rmod_seg;  /* segment of the resident module */
22
  unsigned short rmod_seg;  /* segment of the resident module */
23
  unsigned short argoffset; /* offset of cmdline where first argument starts */
23
  unsigned short argoffset; /* offset of cmdline where first argument starts */
24
  const char far *cmdline;  /* original cmdline (terminated by a NULL) */
24
  const char far *cmdline;  /* original cmdline (terminated by a NULL) */
25
  char BUFFER[BUFFER_SIZE]; /* a buffer for whatever is needed */
25
  char BUFFER[BUFFER_SIZE]; /* a buffer for whatever is needed */
26
};
26
};
27
 
27
 
28
/* scans argv for the presence of a "/?" parameter. returns 1 if found, 0 otherwise */
28
/* scans argv for the presence of a "/?" parameter. returns 1 if found, 0 otherwise */
29
static int cmd_ishlp(const struct cmd_funcparam *p) {
29
static int cmd_ishlp(const struct cmd_funcparam *p) {
30
  int i;
30
  int i;
31
  for (i = 0; i < p->argc; i++) {
31
  for (i = 0; i < p->argc; i++) {
32
    if ((p->argv[i][0] == '/') && (p->argv[i][1] == '?')) return(1);
32
    if ((p->argv[i][0] == '/') && (p->argv[i][1] == '?')) return(1);
33
  }
33
  }
34
  return(0);
34
  return(0);
35
}
35
}
36
 
36
 
37
#include "cmd/_notimpl.c"
37
#include "cmd/_notimpl.c"
38
#include "cmd/cd.c"
38
#include "cmd/cd.c"
39
#include "cmd/cls.c"
39
#include "cmd/cls.c"
40
#include "cmd/copy.c"
40
#include "cmd/copy.c"
41
#include "cmd/del.c"
41
#include "cmd/del.c"
42
#include "cmd/vol.c"     /* must be included before dir.c due to dependency */
42
#include "cmd/vol.c"     /* must be included before dir.c due to dependency */
43
#include "cmd/dir.c"
43
#include "cmd/dir.c"
44
#include "cmd/echo.c"
44
#include "cmd/echo.c"
45
#include "cmd/exit.c"
45
#include "cmd/exit.c"
46
#include "cmd/mkdir.c"
46
#include "cmd/mkdir.c"
47
#include "cmd/path.c"
47
#include "cmd/path.c"
48
#include "cmd/pause.c"
48
#include "cmd/pause.c"
49
#include "cmd/prompt.c"
49
#include "cmd/prompt.c"
50
#include "cmd/rem.c"
50
#include "cmd/rem.c"
-
 
51
#include "cmd/rename.c"
51
#include "cmd/rmdir.c"
52
#include "cmd/rmdir.c"
52
#include "cmd/set.c"
53
#include "cmd/set.c"
53
#include "cmd/type.c"
54
#include "cmd/type.c"
54
#include "cmd/ver.c"
55
#include "cmd/ver.c"
55
#include "cmd/verify.c"
56
#include "cmd/verify.c"
56
 
57
 
57
#include "cmd.h"
58
#include "cmd.h"
58
 
59
 
59
 
60
 
60
struct CMD_ID {
61
struct CMD_ID {
61
  const char *cmd;
62
  const char *cmd;
62
  int (*func_ptr)(struct cmd_funcparam *); /* pointer to handling function */
63
  int (*func_ptr)(struct cmd_funcparam *); /* pointer to handling function */
63
};
64
};
64
 
65
 
65
const struct CMD_ID INTERNAL_CMDS[] = {
66
const struct CMD_ID INTERNAL_CMDS[] = {
66
  {"BREAK",   cmd_notimpl},
67
  {"BREAK",   cmd_notimpl},
67
  {"CD",      cmd_cd},
68
  {"CD",      cmd_cd},
68
  {"CHCP",    cmd_notimpl},
69
  {"CHCP",    cmd_notimpl},
69
  {"CHDIR",   cmd_cd},
70
  {"CHDIR",   cmd_cd},
70
  {"CLS",     cmd_cls},
71
  {"CLS",     cmd_cls},
71
  {"COPY",    cmd_copy},
72
  {"COPY",    cmd_copy},
72
  {"CTTY",    cmd_notimpl},
73
  {"CTTY",    cmd_notimpl},
73
  {"DATE",    cmd_notimpl},
74
  {"DATE",    cmd_notimpl},
74
  {"DEL",     cmd_del},
75
  {"DEL",     cmd_del},
75
  {"DIR",     cmd_dir},
76
  {"DIR",     cmd_dir},
76
  {"ECHO",    cmd_echo},
77
  {"ECHO",    cmd_echo},
77
  {"ERASE",   cmd_del},
78
  {"ERASE",   cmd_del},
78
  {"EXIT",    cmd_exit},
79
  {"EXIT",    cmd_exit},
79
  {"LH",      cmd_notimpl},
80
  {"LH",      cmd_notimpl},
80
  {"LOADHIGH",cmd_notimpl},
81
  {"LOADHIGH",cmd_notimpl},
81
  {"MD",      cmd_mkdir},
82
  {"MD",      cmd_mkdir},
82
  {"MKDIR",   cmd_mkdir},
83
  {"MKDIR",   cmd_mkdir},
83
  {"PAUSE",   cmd_pause},
84
  {"PAUSE",   cmd_pause},
84
  {"PATH",    cmd_path},
85
  {"PATH",    cmd_path},
85
  {"PROMPT",  cmd_prompt},
86
  {"PROMPT",  cmd_prompt},
86
  {"RD",      cmd_rmdir},
87
  {"RD",      cmd_rmdir},
87
  {"REM",     cmd_rem},
88
  {"REM",     cmd_rem},
88
  {"REN",     cmd_notimpl},
89
  {"REN",     cmd_rename},
89
  {"RENAME",  cmd_notimpl},
90
  {"RENAME",  cmd_rename},
90
  {"RMDIR",   cmd_rmdir},
91
  {"RMDIR",   cmd_rmdir},
91
  {"SET",     cmd_set},
92
  {"SET",     cmd_set},
92
  {"TIME",    cmd_notimpl},
93
  {"TIME",    cmd_notimpl},
93
  {"TYPE",    cmd_type},
94
  {"TYPE",    cmd_type},
94
  {"VER",     cmd_ver},
95
  {"VER",     cmd_ver},
95
  {"VERIFY",  cmd_verify},
96
  {"VERIFY",  cmd_verify},
96
  {"VOL",     cmd_vol},
97
  {"VOL",     cmd_vol},
97
  {NULL,      NULL}
98
  {NULL,      NULL}
98
};
99
};
99
 
100
 
100
 
101
 
101
/* NULL if cmdline is not matching an internal command, otherwise returns a
102
/* NULL if cmdline is not matching an internal command, otherwise returns a
102
 * pointer to a CMD_ID struct */
103
 * pointer to a CMD_ID struct */
103
static const struct CMD_ID *cmd_match(const char far *cmdline, unsigned short *argoffset) {
104
static const struct CMD_ID *cmd_match(const char far *cmdline, unsigned short *argoffset) {
104
  unsigned short i;
105
  unsigned short i;
105
  char buff[10];
106
  char buff[10];
106
 
107
 
107
  /* copy command to buffer, until space, NULL, tab, return, dot, slash or backslash */
108
  /* copy command to buffer, until space, NULL, tab, return, dot, slash or backslash */
108
  for (i = 0; i < 9; i++) {
109
  for (i = 0; i < 9; i++) {
109
    if (cmdline[i] == ' ') break;
110
    if (cmdline[i] == ' ') break;
110
    if (cmdline[i] == 0) break;
111
    if (cmdline[i] == 0) break;
111
    if (cmdline[i] == '\t') break;
112
    if (cmdline[i] == '\t') break;
112
    if (cmdline[i] == '\r') break;
113
    if (cmdline[i] == '\r') break;
113
    if (cmdline[i] == '.') break;
114
    if (cmdline[i] == '.') break;
114
    if (cmdline[i] == '/') break;
115
    if (cmdline[i] == '/') break;
115
    if (cmdline[i] == '\\') break;
116
    if (cmdline[i] == '\\') break;
116
    buff[i] = cmdline[i];
117
    buff[i] = cmdline[i];
117
  }
118
  }
118
  buff[i] = 0;
119
  buff[i] = 0;
119
 
120
 
120
  /* advance to nearest non-space to find where arguments start */
121
  /* advance to nearest non-space to find where arguments start */
121
  while (cmdline[i] == ' ') i++;
122
  while (cmdline[i] == ' ') i++;
122
  *argoffset = i;
123
  *argoffset = i;
123
 
124
 
124
  /* try matching an internal command */
125
  /* try matching an internal command */
125
  for (i = 0; INTERNAL_CMDS[i].cmd != NULL; i++) {
126
  for (i = 0; INTERNAL_CMDS[i].cmd != NULL; i++) {
126
    /*printf("imatch(%s,%s)\r\n", buff, INTERNAL_CMDS[i].cmd); */
127
    /*printf("imatch(%s,%s)\r\n", buff, INTERNAL_CMDS[i].cmd); */
127
    if (imatch(buff, INTERNAL_CMDS[i].cmd)) {
128
    if (imatch(buff, INTERNAL_CMDS[i].cmd)) {
128
      /*printf("match cmd i=%u (buff=%s)\r\n", i, buff);*/
129
      /*printf("match cmd i=%u (buff=%s)\r\n", i, buff);*/
129
      return(&(INTERNAL_CMDS[i]));
130
      return(&(INTERNAL_CMDS[i]));
130
    }
131
    }
131
  }
132
  }
132
 
133
 
133
  return(NULL); /* command is not recognized as internal */
134
  return(NULL); /* command is not recognized as internal */
134
}
135
}
135
 
136
 
136
 
137
 
137
/* explodes a command into an array of arguments where last arg is NULL
138
/* explodes a command into an array of arguments where last arg is NULL
138
 * returns number of args */
139
 * returns number of args */
139
unsigned short cmd_explode(char *buff, const char far *s, char const **argvlist) {
140
unsigned short cmd_explode(char *buff, const char far *s, char const **argvlist) {
140
  int si = 0, argc = 0, i = 0;
141
  int si = 0, argc = 0, i = 0;
141
  for (;;) {
142
  for (;;) {
142
    /* skip to next non-space character */
143
    /* skip to next non-space character */
143
    while (s[si] == ' ') si++;
144
    while (s[si] == ' ') si++;
144
    /* end of string? */
145
    /* end of string? */
145
    if (s[si] == 0) break;
146
    if (s[si] == 0) break;
146
    /* set argv ptr */
147
    /* set argv ptr */
147
    argvlist[argc++] = buff + i;
148
    argvlist[argc++] = buff + i;
148
    /* find next arg delimiter (spc, null, slash or plus) while copying arg to local buffer */
149
    /* find next arg delimiter (spc, null, slash or plus) while copying arg to local buffer */
149
    do {
150
    do {
150
      buff[i++] = s[si++];
151
      buff[i++] = s[si++];
151
    } while (s[si] != ' ' && s[si] != 0 && s[si] != '/' && s[si] != '+');
152
    } while (s[si] != ' ' && s[si] != 0 && s[si] != '/' && s[si] != '+');
152
    buff[i++] = 0;
153
    buff[i++] = 0;
153
    /* is this end of string? */
154
    /* is this end of string? */
154
    if (s[si] == 0) break;
155
    if (s[si] == 0) break;
155
  }
156
  }
156
  argvlist[argc] = NULL;
157
  argvlist[argc] = NULL;
157
  return(argc);
158
  return(argc);
158
}
159
}
159
 
160
 
160
 
161
 
161
int cmd_process(unsigned short rmod_seg, unsigned short env_seg, const char far *cmdline, char *BUFFER) {
162
int cmd_process(unsigned short rmod_seg, unsigned short env_seg, const char far *cmdline, char *BUFFER) {
162
  const struct CMD_ID *cmdptr;
163
  const struct CMD_ID *cmdptr;
163
  unsigned short argoffset;
164
  unsigned short argoffset;
164
  struct cmd_funcparam *p = (void *)BUFFER;
165
  struct cmd_funcparam *p = (void *)BUFFER;
165
 
166
 
166
  /* special case: is this a drive change? (like "E:") */
167
  /* special case: is this a drive change? (like "E:") */
167
  if ((cmdline[0] != 0) && (cmdline[1] == ':') && ((cmdline[2] == ' ') || (cmdline[2] == 0))) {
168
  if ((cmdline[0] != 0) && (cmdline[1] == ':') && ((cmdline[2] == ' ') || (cmdline[2] == 0))) {
168
    if (((cmdline[0] >= 'a') && (cmdline[0] <= 'z')) || ((cmdline[0] >= 'A') && (cmdline[0] <= 'Z'))) {
169
    if (((cmdline[0] >= 'a') && (cmdline[0] <= 'z')) || ((cmdline[0] >= 'A') && (cmdline[0] <= 'Z'))) {
169
      unsigned char drive = cmdline[0];
170
      unsigned char drive = cmdline[0];
170
      unsigned char curdrive = 0;
171
      unsigned char curdrive = 0;
171
      if (drive >= 'a') {
172
      if (drive >= 'a') {
172
        drive -= 'a';
173
        drive -= 'a';
173
      } else {
174
      } else {
174
        drive -= 'A';
175
        drive -= 'A';
175
      }
176
      }
176
      _asm {
177
      _asm {
177
        push ax
178
        push ax
178
        push dx
179
        push dx
179
        mov ah, 0x0e     /* DOS 1+ - SELECT DEFAULT DRIVE */
180
        mov ah, 0x0e     /* DOS 1+ - SELECT DEFAULT DRIVE */
180
        mov dl, drive    /* DL = new default drive (00h = A:, 01h = B:, etc) */
181
        mov dl, drive    /* DL = new default drive (00h = A:, 01h = B:, etc) */
181
        int 0x21
182
        int 0x21
182
        mov ah, 0x19     /* DOS 1+ - GET CURRENT DRIVE */
183
        mov ah, 0x19     /* DOS 1+ - GET CURRENT DRIVE */
183
        int 0x21
184
        int 0x21
184
        mov curdrive, al /* cur drive (0=A, 1=B, etc) */
185
        mov curdrive, al /* cur drive (0=A, 1=B, etc) */
185
        pop dx
186
        pop dx
186
        pop ax
187
        pop ax
187
      }
188
      }
188
      if (curdrive != drive) puts(doserr(0x0f));
189
      if (curdrive != drive) puts(doserr(0x0f));
189
      return(-1);
190
      return(-1);
190
    }
191
    }
191
  }
192
  }
192
 
193
 
193
  /* try matching an internal command */
194
  /* try matching an internal command */
194
  cmdptr = cmd_match(cmdline, &argoffset);
195
  cmdptr = cmd_match(cmdline, &argoffset);
195
  if (cmdptr == NULL) return(-2); /* command is not recognized as internal */
196
  if (cmdptr == NULL) return(-2); /* command is not recognized as internal */
196
 
197
 
197
  /* printf("recognized internal command: '%s', tail of command at offset %u\r\n", cmdptr->cmd, argoffset); */
198
  /* printf("recognized internal command: '%s', tail of command at offset %u\r\n", cmdptr->cmd, argoffset); */
198
 
199
 
199
  /* prepare function parameters and feed it to the cmd handling function */
200
  /* prepare function parameters and feed it to the cmd handling function */
200
  p->argc = cmd_explode(BUFFER + sizeof(*p), cmdline + argoffset, p->argv);
201
  p->argc = cmd_explode(BUFFER + sizeof(*p), cmdline + argoffset, p->argv);
201
  p->env_seg = env_seg;
202
  p->env_seg = env_seg;
202
  p->rmod_seg = rmod_seg;
203
  p->rmod_seg = rmod_seg;
203
  p->argoffset = argoffset;
204
  p->argoffset = argoffset;
204
  p->cmdline = cmdline;
205
  p->cmdline = cmdline;
205
 
206
 
206
  return((cmdptr->func_ptr)(p));
207
  return((cmdptr->func_ptr)(p));
207
}
208
}
208
 
209