Subversion Repositories SvarDOS

Rev

Rev 380 | Rev 385 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

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