341 lines
6.7 KiB
C
341 lines
6.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$ */
|
||
|
|
/* U S E R O P T I O N - H A N D L I N G */
|
||
|
|
|
||
|
|
#include "lint.h"
|
||
|
|
#include "botch_free.h"
|
||
|
|
#include <alloc.h>
|
||
|
|
#include "nopp.h"
|
||
|
|
#include "idfsize.h"
|
||
|
|
#include "nobitfield.h"
|
||
|
|
#include "class.h"
|
||
|
|
#include "macro.h"
|
||
|
|
#include "idf.h"
|
||
|
|
#include "arith.h"
|
||
|
|
#include "sizes.h"
|
||
|
|
#include "align.h"
|
||
|
|
#include "use_tmp.h"
|
||
|
|
#include "dataflow.h"
|
||
|
|
|
||
|
|
#ifndef NOPP
|
||
|
|
extern char **inctable;
|
||
|
|
extern int inc_pos;
|
||
|
|
extern int inc_max;
|
||
|
|
extern int inc_total;
|
||
|
|
#endif NOPP
|
||
|
|
|
||
|
|
char options[128]; /* one for every char */
|
||
|
|
#ifdef LINT
|
||
|
|
char loptions[128]; /* one for every char */
|
||
|
|
#endif LINT
|
||
|
|
|
||
|
|
extern int idfsize;
|
||
|
|
|
||
|
|
static int txt2int();
|
||
|
|
|
||
|
|
do_option(text)
|
||
|
|
char *text;
|
||
|
|
{
|
||
|
|
register char opt;
|
||
|
|
|
||
|
|
next_option: /* to allow combined one-char options */
|
||
|
|
switch (opt = *text++) {
|
||
|
|
|
||
|
|
case 0: /* to end the goto next_option loop */
|
||
|
|
break;
|
||
|
|
|
||
|
|
default:
|
||
|
|
#ifndef LINT
|
||
|
|
fatal("illegal option: %c", opt);
|
||
|
|
#else LINT
|
||
|
|
warning("illegal option: %c", opt);
|
||
|
|
#endif LINT
|
||
|
|
break;
|
||
|
|
|
||
|
|
case '-':
|
||
|
|
options[*text++] = 1; /* flags, debug options etc. */
|
||
|
|
goto next_option;
|
||
|
|
|
||
|
|
#ifndef LINT
|
||
|
|
#ifdef DATAFLOW
|
||
|
|
case 'd':
|
||
|
|
#endif DATAFLOW
|
||
|
|
case 'p': /* procentry/procexit */
|
||
|
|
case 'L' : /* no fil/lin */
|
||
|
|
case 'n': /* use no registers */
|
||
|
|
case 'w': /* no warnings will be given */
|
||
|
|
case 's': /* no stricts will be given */
|
||
|
|
options[opt] = 1;
|
||
|
|
goto next_option;
|
||
|
|
#endif LINT
|
||
|
|
|
||
|
|
#ifdef LINT
|
||
|
|
case 'h': /* heuristic tests */
|
||
|
|
case 'v': /* no complaints about unused arguments */
|
||
|
|
case 'a': /* check long->int int->long conversions */
|
||
|
|
case 'b': /* don't report unreachable break-statements */
|
||
|
|
case 'x': /* complain about unused extern declared variables */
|
||
|
|
case 'u': /* no "used but not defined"; for pass 2 */
|
||
|
|
case 'L': /* lintlibrary */
|
||
|
|
loptions[opt] = 1;
|
||
|
|
goto next_option;
|
||
|
|
#endif LINT
|
||
|
|
|
||
|
|
#ifdef ___XXX___
|
||
|
|
deleted, is now a debug-flag
|
||
|
|
case 'C' : /* E option + comment output */
|
||
|
|
#ifndef NOPP
|
||
|
|
options['E'] = 1;
|
||
|
|
warning("-C: comment is not output");
|
||
|
|
#else NOPP
|
||
|
|
warning("-C option ignored");
|
||
|
|
#endif NOPP
|
||
|
|
break;
|
||
|
|
#endif ___XXX___
|
||
|
|
|
||
|
|
case 'D' : { /* -Dname : predefine name */
|
||
|
|
#ifndef NOPP
|
||
|
|
register char *cp = text, *name, *mactext;
|
||
|
|
|
||
|
|
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 */
|
||
|
|
mactext = "1";
|
||
|
|
}
|
||
|
|
else
|
||
|
|
if (*cp == '=') { /* -Dname=text */
|
||
|
|
*cp++ = '\0'; /* end of name */
|
||
|
|
mactext = cp;
|
||
|
|
}
|
||
|
|
else { /* -Dname?? */
|
||
|
|
error("malformed option -D%s", text);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
macro_def(str2idf(name), mactext, -1, strlen(mactext),
|
||
|
|
NOFLAG);
|
||
|
|
#else NOPP
|
||
|
|
warning("-D option ignored");
|
||
|
|
#endif NOPP
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifdef ___XXX___
|
||
|
|
deleted, is now a debug-flag
|
||
|
|
case 'E' : /* run preprocessor only, with #<int> */
|
||
|
|
#ifndef NOPP
|
||
|
|
options['E'] = 1;
|
||
|
|
#else NOPP
|
||
|
|
warning("-E option ignored");
|
||
|
|
#endif NOPP
|
||
|
|
break;
|
||
|
|
#endif ___XXX___
|
||
|
|
|
||
|
|
case 'I' : /* -Ipath : insert "path" into include list */
|
||
|
|
#ifndef NOPP
|
||
|
|
if (*text) {
|
||
|
|
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) {
|
||
|
|
char *tmp = inctable[i];
|
||
|
|
|
||
|
|
inctable[i++] = new;
|
||
|
|
new = tmp;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else inctable[inc_pos] = 0;
|
||
|
|
#else NOPP
|
||
|
|
warning("-I option ignored");
|
||
|
|
#endif NOPP
|
||
|
|
break;
|
||
|
|
|
||
|
|
case 'M': /* maximum identifier length */
|
||
|
|
idfsize = txt2int(&text);
|
||
|
|
if (*text || idfsize <= 0)
|
||
|
|
fatal("malformed -M option");
|
||
|
|
if (idfsize > IDFSIZE)
|
||
|
|
fatal("maximum identifier length is %d", IDFSIZE);
|
||
|
|
break;
|
||
|
|
|
||
|
|
#ifdef ___XXX___
|
||
|
|
deleted, is now a debug-flag
|
||
|
|
case 'P' : /* run preprocessor stand-alone, without #'s */
|
||
|
|
#ifndef NOPP
|
||
|
|
options['E'] = 1;
|
||
|
|
options['P'] = 1;
|
||
|
|
#else NOPP
|
||
|
|
warning("-P option ignored");
|
||
|
|
#endif NOPP
|
||
|
|
break;
|
||
|
|
#endif ___XXX___
|
||
|
|
|
||
|
|
#ifdef LINT
|
||
|
|
case 'S' : { /* -Sint : static scope number for lint */
|
||
|
|
extern int stat_number;
|
||
|
|
stat_number = txt2int(&text);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
#endif LINT
|
||
|
|
|
||
|
|
case 'T' : {
|
||
|
|
#ifdef USE_TMP
|
||
|
|
extern char *C_tmpdir;
|
||
|
|
if (*text)
|
||
|
|
C_tmpdir = text;
|
||
|
|
else
|
||
|
|
C_tmpdir = ".";
|
||
|
|
#else USE_TMP
|
||
|
|
warning("-T option ignored");
|
||
|
|
#endif USE_TMP
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
case 'U' : { /* -Uname : undefine predefined */
|
||
|
|
#ifndef NOPP
|
||
|
|
register struct idf *idef;
|
||
|
|
|
||
|
|
if (*text) {
|
||
|
|
if ((idef = str2idf(text))->id_macro) {
|
||
|
|
free_macro(idef->id_macro);
|
||
|
|
idef->id_macro = (struct macro *) 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
#else NOPP
|
||
|
|
warning("-U option ignored");
|
||
|
|
#endif NOPP
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
#ifndef LINT
|
||
|
|
case 'V' : /* set object sizes and alignment requirements */
|
||
|
|
#ifdef NOCROSS
|
||
|
|
warning("-V option ignored");
|
||
|
|
break;
|
||
|
|
#else NOCROSS
|
||
|
|
{
|
||
|
|
register arith sz, algn;
|
||
|
|
char c;
|
||
|
|
|
||
|
|
while (c = *text++) {
|
||
|
|
sz = txt2int(&text);
|
||
|
|
algn = 0;
|
||
|
|
if (*text == '.') {
|
||
|
|
text++;
|
||
|
|
algn = txt2int(&text);
|
||
|
|
}
|
||
|
|
switch (c) {
|
||
|
|
case 's': /* short */
|
||
|
|
if (sz != (arith)0)
|
||
|
|
short_size = sz;
|
||
|
|
if (algn != 0)
|
||
|
|
short_align = algn;
|
||
|
|
break;
|
||
|
|
case 'w': /* word */
|
||
|
|
if (sz != (arith)0)
|
||
|
|
dword_size = (word_size = sz) << 1;
|
||
|
|
if (algn != 0)
|
||
|
|
word_align = algn;
|
||
|
|
break;
|
||
|
|
case 'i': /* int */
|
||
|
|
if (sz != (arith)0)
|
||
|
|
int_size = sz;
|
||
|
|
if (algn != 0)
|
||
|
|
int_align = algn;
|
||
|
|
break;
|
||
|
|
case 'l': /* long */
|
||
|
|
if (sz != (arith)0)
|
||
|
|
long_size = sz;
|
||
|
|
if (algn != 0)
|
||
|
|
long_align = algn;
|
||
|
|
break;
|
||
|
|
case 'f': /* float */
|
||
|
|
if (sz != (arith)0)
|
||
|
|
float_size = sz;
|
||
|
|
if (algn != 0)
|
||
|
|
float_align = algn;
|
||
|
|
break;
|
||
|
|
case 'd': /* double */
|
||
|
|
if (sz != (arith)0)
|
||
|
|
double_size = sz;
|
||
|
|
if (algn != 0)
|
||
|
|
double_align = algn;
|
||
|
|
break;
|
||
|
|
case 'x': /* long double */
|
||
|
|
if (sz != (arith)0)
|
||
|
|
lngdbl_size = sz;
|
||
|
|
if (algn != 0)
|
||
|
|
lngdbl_align = algn;
|
||
|
|
break;
|
||
|
|
case 'p': /* pointer */
|
||
|
|
if (sz != (arith)0)
|
||
|
|
pointer_size = sz;
|
||
|
|
if (algn != 0)
|
||
|
|
pointer_align = algn;
|
||
|
|
break;
|
||
|
|
case 'r': /* adjust bitfields right */
|
||
|
|
#ifndef NOBITFIELD
|
||
|
|
options['r'] = 1;
|
||
|
|
#else NOBITFIELD
|
||
|
|
warning("bitfields are not implemented");
|
||
|
|
#endif NOBITFIELD
|
||
|
|
break;
|
||
|
|
case 'S': /* initial struct alignment */
|
||
|
|
if (sz != (arith)0)
|
||
|
|
struct_align = sz;
|
||
|
|
break;
|
||
|
|
case 'U': /* initial union alignment */
|
||
|
|
if (sz != (arith)0)
|
||
|
|
union_align = sz;
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
error("-V: bad type indicator %c\n", c);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
#endif NOCROSS
|
||
|
|
#endif LINT
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
static int
|
||
|
|
txt2int(tp)
|
||
|
|
register char **tp;
|
||
|
|
{
|
||
|
|
/* the integer pointed to by *tp is read, while increasing
|
||
|
|
*tp; the resulting value is yielded.
|
||
|
|
*/
|
||
|
|
register int val = 0, ch;
|
||
|
|
|
||
|
|
while (ch = **tp, ch >= '0' && ch <= '9') {
|
||
|
|
val = val * 10 + ch - '0';
|
||
|
|
(*tp)++;
|
||
|
|
}
|
||
|
|
return val;
|
||
|
|
}
|