Subversion Repositories SvarDOS

Rev

Go to most recent revision | Details | 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>
352 mateuszvis 9
 
363 mateuszvis 10
#include "doserr.h"
352 mateuszvis 11
#include "helpers.h"
12
 
364 mateuszvis 13
struct cmd_funcparam {
14
  int argc;
15
  const char *argv[256];
16
  unsigned short env_seg;
17
  const char far *cmdline;
18
};
19
 
363 mateuszvis 20
#include "cmd/cd.c"
364 mateuszvis 21
#include "cmd/exit.c"
352 mateuszvis 22
#include "cmd/set.c"
23
 
24
#include "cmd.h"
25
 
26
 
364 mateuszvis 27
struct CMD_ID {
28
  const char *cmd;
29
  int (*func_ptr)(const struct cmd_funcparam *); /* pointer to handling function */
30
};
352 mateuszvis 31
 
364 mateuszvis 32
const struct CMD_ID INTERNAL_CMDS[] = {
33
  {"CD",      cmd_cd},
34
  {"CHDIR",   cmd_cd},
35
  {"EXIT",    cmd_exit},
36
  {"SET",     cmd_set},
37
  {NULL,      NULL}
38
};
39
 
40
 
41
/* NULL if cmdline is not matching an internal command, otherwise returns a
42
 * pointer to a CMD_ID struct */
43
static const struct CMD_ID *cmd_match(const char far *cmdline, unsigned short *argoffset) {
44
  unsigned short i;
45
  char buff[10];
46
 
47
  /* copy command to buffer, until space, NULL, tab, return, dot, slash or backslash */
48
  for (i = 0; i < 9; i++) {
49
    if (cmdline[i] == ' ') break;
50
    if (cmdline[i] == 0) break;
51
    if (cmdline[i] == '\t') break;
52
    if (cmdline[i] == '\r') break;
53
    if (cmdline[i] == '.') break;
54
    if (cmdline[i] == '/') break;
55
    if (cmdline[i] == '\\') break;
56
    buff[i] = cmdline[i];
57
  }
58
  buff[i] = 0;
59
 
60
  /* advance to nearest non-space to find where arguments start */
61
  while (cmdline[i] == ' ') i++;
62
  *argoffset = i;
63
 
64
  /* try matching an internal command */
65
  for (i = 0; INTERNAL_CMDS[i].cmd != NULL; i++) {
66
    /*printf("imatch(%s,%s)\r\n", buff, INTERNAL_CMDS[i].cmd); */
67
    if (imatch(buff, INTERNAL_CMDS[i].cmd)) {
68
      /*printf("match cmd i=%u (buff=%s)\r\n", i, buff);*/
69
      return(&(INTERNAL_CMDS[i]));
70
    }
71
  }
72
 
73
  return(NULL); /* command is not recognized as internal */
352 mateuszvis 74
}
364 mateuszvis 75
 
76
 
77
/* explodes a command into an array of arguments where last arg is NULL
78
 * returns number of args */
79
unsigned short cmd_explode(char *buff, const char far *s, char const **argvlist) {
80
  int si = 0, argc = 0, i = 0;
81
  for (;;) {
82
    /* skip to next non-space character */
83
    while (s[si] == ' ') si++;
84
    /* end of string? */
85
    if (s[si] == 0) break;
86
    /* set argv ptr */
87
    argvlist[argc++] = buff + i;
88
    /* find next space while copying arg to local buffer */
89
    do {
90
      buff[i++] = s[si++];
91
    } while (s[si] != ' ' && s[si] != 0 && s[si] != '/');
92
    buff[i++] = 0;
93
    /* is this end of string? */
94
    if (s[si] == 0) break;
95
  }
96
  argvlist[argc] = NULL;
97
  return(argc);
98
}
99
 
100
 
101
int cmd_process(unsigned short env_seg, const char far *cmdline) {
102
  const struct CMD_ID *cmdptr;
103
  struct cmd_funcparam p;
104
  unsigned short argoffset;
105
  char cmdbuff[256];
106
 
107
  cmdptr = cmd_match(cmdline, &argoffset);
108
  if (cmdptr == NULL) return(-2); /* command is not recognized as internal */
109
 
110
  /* printf("recognized internal command: '%s', tail of command at offset %u\r\n", cmdptr->cmd, argoffset); */
111
 
112
  /* prepare function parameters and feed it to the cmd handling function */
113
  p.argc = cmd_explode(cmdbuff, cmdline + argoffset, p.argv);
114
  p.env_seg = env_seg;
115
  p.cmdline = cmdline;
116
 
117
  return((cmdptr->func_ptr)(&p));
118
}