mirror of
https://github.com/open-simh/simtools.git
synced 2026-01-14 07:39:37 +00:00
Generalise argument string parsing,
not just for .include. Manual shows various delimiters.
This commit is contained in:
parent
f01ee85a8f
commit
184fae4b67
13
assemble.c
13
assemble.c
@ -449,18 +449,7 @@ static int assemble(
|
||||
return 0;
|
||||
}
|
||||
|
||||
if (name[0] == '"') {
|
||||
char *name1 = name + 1;
|
||||
char *ename = name1 + strlen(name1) - 1;
|
||||
if (*ename == '"') {
|
||||
*ename = '\0';
|
||||
} else {
|
||||
report(stack->top, "No closing quotation mark: %s\n", name);
|
||||
}
|
||||
incl = new_file_stream(name1);
|
||||
} else {
|
||||
incl = new_file_stream(name);
|
||||
}
|
||||
incl = new_file_stream(name);
|
||||
if (incl == NULL) {
|
||||
report(stack->top, "Unable to open .INCLUDE file %s\n", name);
|
||||
free(name);
|
||||
|
||||
9
parse.c
9
parse.c
@ -563,6 +563,15 @@ int brackrange(
|
||||
endlen = 1;
|
||||
*start = 1;
|
||||
break;
|
||||
case '/': /* seen on page 6-52 */
|
||||
case '?': /* seen on page 6-52 */
|
||||
case '\\': /* seen on page 6-52 */
|
||||
case '"': /* seen in Kermit-11 source for RT11 */
|
||||
endstr[0] = cp[0];
|
||||
strcpy(endstr + 1, "\n");
|
||||
*start = 1;
|
||||
endlen = 1;
|
||||
break;
|
||||
default:
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user