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