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