1*14505Ssam /* r.h 1.2 83/08/11 */ 2*14505Ssam 39724Sclemc #include <stdio.h> 49724Sclemc #include "y.tab.h" 59724Sclemc 69724Sclemc # 79724Sclemc #define putbak(c) *ip++ = c 89724Sclemc /* #define getchr() (ip>ibuf?*--ip: getc(infile[infptr])) */ 99724Sclemc 109724Sclemc #define LET 1 119724Sclemc #define DIG 2 129724Sclemc #define CRAP 3 139724Sclemc #define COMMENT '#' 149724Sclemc #define QUOTE '"' 159724Sclemc 169724Sclemc extern int transfer; 179724Sclemc 189724Sclemc #define INDENT 3 /* indent delta */ 199724Sclemc #ifdef gcos 209724Sclemc #define CONTFLD 6 219724Sclemc #endif 229724Sclemc #ifdef unix 239724Sclemc #define CONTFLD 1 249724Sclemc #endif 259724Sclemc extern int contfld; /* column for continuation char */ 269724Sclemc extern int contchar; 279724Sclemc extern int dbg; 289724Sclemc extern int yyval; 299724Sclemc extern int *yypv; 309724Sclemc extern int yylval; 319724Sclemc extern int errorflag; 329724Sclemc 339724Sclemc extern char comment[]; /* save input comments here */ 349724Sclemc extern int comptr; /* next free slot in comment */ 359724Sclemc extern int printcom; /* print comments, etc., if on */ 369724Sclemc extern int indent; /* level of nesting for indenting */ 379724Sclemc 389724Sclemc extern char ibuf[]; 399724Sclemc extern char *ip; 409724Sclemc 419724Sclemc extern FILE *outfil; /* output file id */ 429724Sclemc extern FILE *infile[]; 439724Sclemc extern char *curfile[]; 449724Sclemc extern int infptr; 459724Sclemc extern int linect[]; 469724Sclemc 479724Sclemc extern char fcname[]; 489724Sclemc 499724Sclemc extern int svargc; 509724Sclemc extern char **svargv; 519724Sclemc 529724Sclemc #define EOS 0 539724Sclemc #define HSHSIZ 101 549724Sclemc struct nlist { 559724Sclemc char *name; 569724Sclemc char *def; 579724Sclemc int ydef; 589724Sclemc struct nlist *next; 599724Sclemc }; 609724Sclemc 619724Sclemc struct nlist *lookup(); 629724Sclemc char *install(); 639724Sclemc char *malloc(); 649724Sclemc extern char *fcnloc; 659724Sclemc 669724Sclemc extern char type[]; 67