version 1.36, 2001/09/19 13:14:18 |
version 1.37, 2001/09/27 11:40:33 |
|
|
static void dodefn __P((const char *)); |
static void dodefn __P((const char *)); |
static void dopushdef __P((const char *, const char *)); |
static void dopushdef __P((const char *, const char *)); |
static void dodump __P((const char *[], int)); |
static void dodump __P((const char *[], int)); |
|
static void dotrace __P((const char *[], int, int)); |
static void doifelse __P((const char *[], int)); |
static void doifelse __P((const char *[], int)); |
static int doincl __P((const char *)); |
static int doincl __P((const char *)); |
static int dopaste __P((const char *)); |
static int dopaste __P((const char *)); |
|
|
dodump(argv, argc); |
dodump(argv, argc); |
break; |
break; |
|
|
|
case TRACEONTYPE: |
|
dotrace(argv, argc, 1); |
|
break; |
|
|
|
case TRACEOFFTYPE: |
|
dotrace(argv, argc, 0); |
|
break; |
|
|
case EXPRTYPE: |
case EXPRTYPE: |
/* |
/* |
* doexpr - evaluate arithmetic |
* doexpr - evaluate arithmetic |
|
|
for (p = hashtab[n]; p != nil; p = p->nxtptr) |
for (p = hashtab[n]; p != nil; p = p->nxtptr) |
dump_one_def(p); |
dump_one_def(p); |
} |
} |
|
} |
|
|
|
/* |
|
* dotrace - mark some macros as traced/untraced depending upon on. |
|
*/ |
|
static void |
|
dotrace(argv, argc, on) |
|
const char *argv[]; |
|
int argc; |
|
int on; |
|
{ |
|
int n; |
|
|
|
if (argc > 2) { |
|
for (n = 2; n < argc; n++) |
|
mark_traced(argv[n], on); |
|
} else |
|
mark_traced(NULL, on); |
} |
} |
|
|
/* |
/* |