1*58a2b000SEvgeniy Ivanov /* $NetBSD: doscommain.c,v 1.6 2008/12/14 18:46:33 christos Exp $ */
2*58a2b000SEvgeniy Ivanov
3*58a2b000SEvgeniy Ivanov /*
4*58a2b000SEvgeniy Ivanov * Copyright (c) 1996
5*58a2b000SEvgeniy Ivanov * Matthias Drochner. All rights reserved.
6*58a2b000SEvgeniy Ivanov *
7*58a2b000SEvgeniy Ivanov * Redistribution and use in source and binary forms, with or without
8*58a2b000SEvgeniy Ivanov * modification, are permitted provided that the following conditions
9*58a2b000SEvgeniy Ivanov * are met:
10*58a2b000SEvgeniy Ivanov * 1. Redistributions of source code must retain the above copyright
11*58a2b000SEvgeniy Ivanov * notice, this list of conditions and the following disclaimer.
12*58a2b000SEvgeniy Ivanov * 2. Redistributions in binary form must reproduce the above copyright
13*58a2b000SEvgeniy Ivanov * notice, this list of conditions and the following disclaimer in the
14*58a2b000SEvgeniy Ivanov * documentation and/or other materials provided with the distribution.
15*58a2b000SEvgeniy Ivanov *
16*58a2b000SEvgeniy Ivanov * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
17*58a2b000SEvgeniy Ivanov * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
18*58a2b000SEvgeniy Ivanov * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
19*58a2b000SEvgeniy Ivanov * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
20*58a2b000SEvgeniy Ivanov * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
21*58a2b000SEvgeniy Ivanov * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
22*58a2b000SEvgeniy Ivanov * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
23*58a2b000SEvgeniy Ivanov * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
24*58a2b000SEvgeniy Ivanov * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
25*58a2b000SEvgeniy Ivanov * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
26*58a2b000SEvgeniy Ivanov *
27*58a2b000SEvgeniy Ivanov */
28*58a2b000SEvgeniy Ivanov
29*58a2b000SEvgeniy Ivanov /* argument line processing for DOS .COM programs */
30*58a2b000SEvgeniy Ivanov
31*58a2b000SEvgeniy Ivanov #include <lib/libsa/stand.h>
32*58a2b000SEvgeniy Ivanov
33*58a2b000SEvgeniy Ivanov /* The Program Segment Prefix */
34*58a2b000SEvgeniy Ivanov
35*58a2b000SEvgeniy Ivanov static struct psp{
36*58a2b000SEvgeniy Ivanov char mist1[0x2c];
37*58a2b000SEvgeniy Ivanov short envseg;
38*58a2b000SEvgeniy Ivanov char mist2[0x80-2-0x2c];
39*58a2b000SEvgeniy Ivanov char cmdlen;
40*58a2b000SEvgeniy Ivanov char cmd[127];
41*58a2b000SEvgeniy Ivanov } *PSP = (struct psp*)0;
42*58a2b000SEvgeniy Ivanov
43*58a2b000SEvgeniy Ivanov static char* argv[64]; /* theor max */
44*58a2b000SEvgeniy Ivanov
45*58a2b000SEvgeniy Ivanov static int whitespace(char);
46*58a2b000SEvgeniy Ivanov
47*58a2b000SEvgeniy Ivanov static int
whitespace(char c)48*58a2b000SEvgeniy Ivanov whitespace(char c)
49*58a2b000SEvgeniy Ivanov {
50*58a2b000SEvgeniy Ivanov if ((c == '\0') || (c == ' ') || (c == '\t')
51*58a2b000SEvgeniy Ivanov || (c == '\r') || (c == '\n'))
52*58a2b000SEvgeniy Ivanov return (1);
53*58a2b000SEvgeniy Ivanov return 0;
54*58a2b000SEvgeniy Ivanov }
55*58a2b000SEvgeniy Ivanov
56*58a2b000SEvgeniy Ivanov enum state {skipping, doing_arg, doing_long_arg};
57*58a2b000SEvgeniy Ivanov
58*58a2b000SEvgeniy Ivanov /* build argv/argc, start real main() */
59*58a2b000SEvgeniy Ivanov int doscommain(void);
60*58a2b000SEvgeniy Ivanov extern int main(int, char**);
61*58a2b000SEvgeniy Ivanov
62*58a2b000SEvgeniy Ivanov int
doscommain(void)63*58a2b000SEvgeniy Ivanov doscommain(void)
64*58a2b000SEvgeniy Ivanov {
65*58a2b000SEvgeniy Ivanov int argc, i;
66*58a2b000SEvgeniy Ivanov enum state s;
67*58a2b000SEvgeniy Ivanov
68*58a2b000SEvgeniy Ivanov argv[0] = "???"; /* we don't know */
69*58a2b000SEvgeniy Ivanov argc = 1;
70*58a2b000SEvgeniy Ivanov s = skipping;
71*58a2b000SEvgeniy Ivanov
72*58a2b000SEvgeniy Ivanov for (i = 0; i < PSP->cmdlen; i++){
73*58a2b000SEvgeniy Ivanov
74*58a2b000SEvgeniy Ivanov if (whitespace(PSP->cmd[i])) {
75*58a2b000SEvgeniy Ivanov if (s == doing_arg) {
76*58a2b000SEvgeniy Ivanov /* end of argument word */
77*58a2b000SEvgeniy Ivanov PSP->cmd[i] = '\0';
78*58a2b000SEvgeniy Ivanov s = skipping;
79*58a2b000SEvgeniy Ivanov }
80*58a2b000SEvgeniy Ivanov continue;
81*58a2b000SEvgeniy Ivanov }
82*58a2b000SEvgeniy Ivanov
83*58a2b000SEvgeniy Ivanov if (PSP->cmd[i] == '"') {
84*58a2b000SEvgeniy Ivanov /* start or end long arg
85*58a2b000SEvgeniy Ivanov * (end only if next char is whitespace)
86*58a2b000SEvgeniy Ivanov * XXX but '" ' cannot be in argument
87*58a2b000SEvgeniy Ivanov */
88*58a2b000SEvgeniy Ivanov switch (s) {
89*58a2b000SEvgeniy Ivanov case skipping:
90*58a2b000SEvgeniy Ivanov /* next char begins new argument word */
91*58a2b000SEvgeniy Ivanov argv[argc++] = &PSP->cmd[i + 1];
92*58a2b000SEvgeniy Ivanov s = doing_long_arg;
93*58a2b000SEvgeniy Ivanov break;
94*58a2b000SEvgeniy Ivanov case doing_long_arg:
95*58a2b000SEvgeniy Ivanov if (whitespace(PSP->cmd[i + 1])) {
96*58a2b000SEvgeniy Ivanov PSP->cmd[i] = '\0';
97*58a2b000SEvgeniy Ivanov s = skipping;
98*58a2b000SEvgeniy Ivanov }
99*58a2b000SEvgeniy Ivanov case doing_arg:
100*58a2b000SEvgeniy Ivanov /* ignore in the middle of arguments */
101*58a2b000SEvgeniy Ivanov default:
102*58a2b000SEvgeniy Ivanov break;
103*58a2b000SEvgeniy Ivanov }
104*58a2b000SEvgeniy Ivanov continue;
105*58a2b000SEvgeniy Ivanov }
106*58a2b000SEvgeniy Ivanov
107*58a2b000SEvgeniy Ivanov /* all other characters */
108*58a2b000SEvgeniy Ivanov if (s == skipping) {
109*58a2b000SEvgeniy Ivanov /* begin new argument word */
110*58a2b000SEvgeniy Ivanov argv[argc++] = &PSP->cmd[i];
111*58a2b000SEvgeniy Ivanov s = doing_arg;
112*58a2b000SEvgeniy Ivanov }
113*58a2b000SEvgeniy Ivanov }
114*58a2b000SEvgeniy Ivanov if (s != skipping)
115*58a2b000SEvgeniy Ivanov PSP->cmd[i] = '\0'; /* to be sure */
116*58a2b000SEvgeniy Ivanov
117*58a2b000SEvgeniy Ivanov /* start real main() */
118*58a2b000SEvgeniy Ivanov return main(argc, argv);
119*58a2b000SEvgeniy Ivanov }
120