133 lines
2.7 KiB
C
133 lines
2.7 KiB
C
/*
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*/
|
|
/* $Header$ */
|
|
/* USER-OPTION HANDLING */
|
|
|
|
#include <alloc.h>
|
|
#include "idfsize.h"
|
|
#include "class.h"
|
|
#include "macro.h"
|
|
#include "idf.h"
|
|
|
|
char options[128]; /* one for every char */
|
|
int inc_pos = 1; /* place where next -I goes */
|
|
int inc_max;
|
|
int inc_total;
|
|
int debug;
|
|
char **inctable;
|
|
|
|
extern int idfsize;
|
|
int txt2int();
|
|
|
|
do_option(text)
|
|
char *text;
|
|
{
|
|
switch(*text++) {
|
|
case '-':
|
|
options[*text] = 1;
|
|
break;
|
|
default:
|
|
error("illegal option: %c", text[-1]);
|
|
break;
|
|
case 'o': /* ignore garbage after #else or #endif */
|
|
options['o'] = 1;
|
|
break;
|
|
case 'C' : /* comment output */
|
|
options['C'] = 1;
|
|
break;
|
|
case 'D' : /* -Dname : predefine name */
|
|
{
|
|
register char *cp = text, *name, *mactext;
|
|
unsigned maclen;
|
|
|
|
if (class(*cp) != STIDF && class(*cp) != STELL) {
|
|
error("identifier missing in -D%s", text);
|
|
break;
|
|
}
|
|
name = cp;
|
|
while (*cp && in_idf(*cp))
|
|
++cp;
|
|
if (!*cp) { /* -Dname */
|
|
maclen = 1;
|
|
mactext = Salloc("1", 2);
|
|
} else
|
|
if (*cp == '=') { /* -Dname=text */
|
|
*cp++ = '\0'; /* end of name */
|
|
maclen = strlen(cp);
|
|
mactext = Salloc(cp, maclen + 1);
|
|
}
|
|
else { /* -Dname?? */
|
|
error("malformed option -D%s", text);
|
|
break;
|
|
}
|
|
macro_def(str2idf(name, 0), mactext, -1, maclen, NOFLAG);
|
|
break;
|
|
}
|
|
case 'I' : /* -Ipath : insert "path" into include list */
|
|
if (*text) {
|
|
register int i;
|
|
register char *new = text;
|
|
|
|
if (++inc_total > inc_max) {
|
|
char **n = (char **)
|
|
Malloc((10 + inc_max) * sizeof(char *));
|
|
|
|
for (i = 0; i < inc_max; i++) {
|
|
n[i] = inctable[i];
|
|
}
|
|
free((char *) inctable);
|
|
inctable = n;
|
|
inc_max += 10;
|
|
}
|
|
|
|
i = inc_pos++;
|
|
while (new) {
|
|
register char *tmp = inctable[i];
|
|
|
|
inctable[i++] = new;
|
|
new = tmp;
|
|
}
|
|
}
|
|
else inctable[inc_pos] = 0;
|
|
break;
|
|
case 'M': /* maximum identifier length */
|
|
idfsize = txt2int(&text);
|
|
if (*text)
|
|
error("malformed -M option");
|
|
if (idfsize > IDFSIZE) {
|
|
warning("maximum identifier length is %d", IDFSIZE);
|
|
idfsize = IDFSIZE;
|
|
}
|
|
if (idfsize < 8) {
|
|
warning("minimum identifier length is 8");
|
|
idfsize = 8;
|
|
}
|
|
break;
|
|
case 'P' : /* run preprocessor stand-alone, without #'s */
|
|
options['P'] = 1;
|
|
break;
|
|
case 'U' : /* -Uname : undefine predefined */
|
|
if (*text) do_undef(text);
|
|
break;
|
|
}
|
|
}
|
|
|
|
int
|
|
txt2int(tp)
|
|
char **tp;
|
|
{
|
|
/* the integer pointed to by *tp is read, while increasing
|
|
*tp; the resulting value is yielded.
|
|
*/
|
|
register int val = 0;
|
|
register int ch;
|
|
|
|
while (ch = **tp, ch >= '0' && ch <= '9') {
|
|
val = val * 10 + ch - '0';
|
|
(*tp)++;
|
|
}
|
|
return val;
|
|
}
|