1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
/* $id$
$Locker: $ $Name: $ $State: Exp $
* skip_word - skip a word / find next word delimiter
* word delimiters are whitespaces and non-leading option characters
* skipdm - skip all word delimiters / find next non-word delimiter
* word delimiters are whitespaces only
This file bases on CMDLINE.C of FreeCOM v0.81 beta 1.
$Log: find.c,v $
Revision 1.1 2001/04/12 00:33:53 skaus
chg: new structure
chg: If DEBUG enabled, no available commands are displayed on startup
fix: PTCHSIZE also patches min extra size to force to have this amount
of memory available on start
bugfix: CALL doesn't reset options
add: PTCHSIZE to patch heap size
add: VSPAWN, /SWAP switch, .SWP resource handling
bugfix: COMMAND.COM A:\
bugfix: CALL: if swapOnExec == ERROR, no change of swapOnExec allowed
add: command MEMORY
bugfix: runExtension(): destroys command[-2]
add: clean.bat
add: localized CRITER strings
chg: use LNG files for hard-coded strings (hangForEver(), init.c)
via STRINGS.LIB
add: DEL.C, COPY.C, CBREAK.C: STRINGS-based prompts
add: fixstrs.c: prompts & symbolic keys
add: fixstrs.c: backslash escape sequences
add: version IDs to DEFAULT.LNG and validation to FIXSTRS.C
chg: splitted code apart into LIB\*.c and CMD\*.c
bugfix: IF is now using error system & STRINGS to report errors
add: CALL: /N
*/
#include "../config.h"
#include <assert.h>
#include <ctype.h>
#include <string.h>
#include "../include/cmdline.h"
/*
* Find the next delimiter/non-delimiter within p
* Honor quotes and leading option characters
*/
static char *find(char *p, int delim)
{ int ch, quote;
int isopt;
assert(p);
#define isdelim(ch) (isopt? isoptdelim(ch): isargdelim(ch))
if((isopt = isoption(p)) != 0 && delim) {
/* Assume the following example:
p == "arg/opt"
first find("arg/opt", 1) == find next delimiter
returns pointer to "/opt"
Now the process would call skip delimiters to reach the
next argument --> find("/opt", 0) == find next non-delimiter
will return "/opt", because '/' is delimiter only when
searching for delimiters.
Now the process would call skip non-delimiters to reach the
end of the arg --> find("/opt", 1) == find next delimiter
This time the leading optch's are part of the argument.
===> This is performed in this branch.
If the string would be "/opt1/opt2", the call of
find("/opt1/opt2", 1) == find next delimiter must stop
at the second '/'.
*/
while((ch = *++p) != 0 && isoptch(ch));
}
quote = 0;
while((ch = *p++) != '\0' && (quote
|| (delim && !(isdelim(ch) || isoptch(ch)))
|| (!delim && isdelim(ch))))
if(quote == ch)
quote = 0;
else if(strchr(QUOTE_STR, ch))
quote = ch;
return p - 1;
#undef isdelim
}
char *skip_word(char *p)
{ return find(p, 1);
}
char *skipdm(char *p)
{ return find(p, 0);
}
|
