Commit | Line | Data |
---|---|---|
6fc53266 TL |
1 | #include <stdio.h> |
2 | #include "y.tab.h" | |
3 | ||
4 | # | |
5 | #define putbak(c) *ip++ = c | |
6 | /* #define getchr() (ip>ibuf?*--ip: getc(infile[infptr])) */ | |
7 | ||
8 | #define LET 1 | |
9 | #define DIG 2 | |
10 | #define CRAP 3 | |
11 | #define COMMENT '#' | |
12 | #define QUOTE '"' | |
13 | ||
14 | extern int transfer; | |
15 | ||
16 | #define INDENT 3 /* indent delta */ | |
17 | #ifdef gcos | |
18 | #define CONTFLD 6 | |
19 | #endif | |
20 | #ifdef unix | |
21 | #define CONTFLD 1 | |
22 | #endif | |
23 | extern int contfld; /* column for continuation char */ | |
24 | extern int contchar; | |
25 | extern int dbg; | |
26 | extern int yyval; | |
27 | extern int *yypv; | |
28 | extern int yylval; | |
29 | extern int errorflag; | |
30 | ||
31 | extern char comment[]; /* save input comments here */ | |
32 | extern int comptr; /* next free slot in comment */ | |
33 | extern int printcom; /* print comments, etc., if on */ | |
34 | extern int indent; /* level of nesting for indenting */ | |
35 | ||
36 | extern char ibuf[]; | |
37 | extern char *ip; | |
38 | ||
39 | extern FILE *outfil; /* output file id */ | |
40 | extern FILE *infile[]; | |
41 | extern char *curfile[]; | |
42 | extern int infptr; | |
43 | extern int linect[]; | |
44 | ||
45 | extern char fcname[]; | |
46 | ||
47 | extern int svargc; | |
48 | extern char **svargv; | |
49 | ||
50 | #define EOS 0 | |
51 | #define HSHSIZ 101 | |
52 | struct nlist { | |
53 | char *name; | |
54 | char *def; | |
55 | int ydef; | |
56 | struct nlist *next; | |
57 | }; | |
58 | ||
59 | struct nlist *lookup(); | |
60 | char *install(); | |
61 | char *malloc(); | |
62 | extern char *fcnloc; | |
63 | ||
64 | extern char type[]; |