1 /* $Id: defs.h,v 1.59 2017/07/09 18:12:46 tom Exp $ */ 2 3 #ifdef HAVE_CONFIG_H 4 #include <config.h> 5 #endif 6 7 #include <limits.h> 8 #include <stdlib.h> 9 #include <string.h> 10 #include <errno.h> 11 #include <assert.h> 12 #include <ctype.h> 13 #include <stdio.h> 14 15 #if defined(__cplusplus) /* __cplusplus, etc. */ 16 #define class myClass 17 #endif 18 19 #define YYMAJOR 1 20 #define YYMINOR 9 21 22 #define CONCAT(first,second) first #second 23 #define CONCAT1(string,number) CONCAT(string, number) 24 #define CONCAT2(first,second) #first "." #second 25 26 #ifdef YYPATCH 27 #define VSTRING(a,b) CONCAT2(a,b) CONCAT1(" ",YYPATCH) 28 #else 29 #define VSTRING(a,b) CONCAT2(a,b) 30 #endif 31 32 #define VERSION VSTRING(YYMAJOR, YYMINOR) 33 34 /* machine-dependent definitions: */ 35 36 /* MAXCHAR is the largest unsigned character value */ 37 /* MAXTABLE is the maximum table size */ 38 /* YYINT is the smallest C integer type that can be */ 39 /* used to address a table of size MAXTABLE */ 40 /* MAXYYINT is the largest value of a YYINT */ 41 /* MINYYINT is the most negative value of a YYINT */ 42 /* BITS_PER_WORD is the number of bits in a C unsigned */ 43 /* WORDSIZE computes the number of words needed to */ 44 /* store n bits */ 45 /* BIT returns the value of the n-th bit starting */ 46 /* from r (0-indexed) */ 47 /* SETBIT sets the n-th bit starting from r */ 48 49 #define MAXCHAR UCHAR_MAX 50 #ifndef MAXTABLE 51 #define MAXTABLE 32500 52 #endif 53 #if MAXTABLE <= SHRT_MAX 54 #define YYINT short 55 #define MAXYYINT SHRT_MAX 56 #define MINYYINT SHRT_MIN 57 #elif MAXTABLE <= INT_MAX 58 #define YYINT int 59 #define MAXYYINT INT_MAX 60 #define MINYYINT INT_MIN 61 #else 62 #error "MAXTABLE is too large for this machine architecture!" 63 #endif 64 65 #define BITS_PER_WORD ((int) sizeof (unsigned) * CHAR_BIT) 66 #define WORDSIZE(n) (((n)+(BITS_PER_WORD-1))/BITS_PER_WORD) 67 #define BIT(r, n) ((((r)[(n)/BITS_PER_WORD])>>((n)&(BITS_PER_WORD-1)))&1) 68 #define SETBIT(r, n) ((r)[(n)/BITS_PER_WORD]|=((unsigned)1<<((n)&(BITS_PER_WORD-1)))) 69 70 /* character names */ 71 72 #define NUL '\0' /* the null character */ 73 #define NEWLINE '\n' /* line feed */ 74 #define SP ' ' /* space */ 75 #define BS '\b' /* backspace */ 76 #define HT '\t' /* horizontal tab */ 77 #define VT '\013' /* vertical tab */ 78 #define CR '\r' /* carriage return */ 79 #define FF '\f' /* form feed */ 80 #define QUOTE '\'' /* single quote */ 81 #define DOUBLE_QUOTE '\"' /* double quote */ 82 #define BACKSLASH '\\' /* backslash */ 83 84 #define UCH(c) (unsigned char)(c) 85 86 /* defines for constructing filenames */ 87 88 #if defined(VMS) 89 #define CODE_SUFFIX "_code.c" 90 #define DEFINES_SUFFIX "_tab.h" 91 #define EXTERNS_SUFFIX "_tab.i" 92 #define OUTPUT_SUFFIX "_tab.c" 93 #else 94 #define CODE_SUFFIX ".code.c" 95 #define DEFINES_SUFFIX ".tab.h" 96 #define EXTERNS_SUFFIX ".tab.i" 97 #define OUTPUT_SUFFIX ".tab.c" 98 #endif 99 #define VERBOSE_SUFFIX ".output" 100 #define GRAPH_SUFFIX ".dot" 101 102 /* keyword codes */ 103 104 #define TOKEN 0 105 #define LEFT 1 106 #define RIGHT 2 107 #define NONASSOC 3 108 #define MARK 4 109 #define TEXT 5 110 #define TYPE 6 111 #define START 7 112 #define UNION 8 113 #define IDENT 9 114 #define EXPECT 10 115 #define EXPECT_RR 11 116 #define PURE_PARSER 12 117 #define PARSE_PARAM 13 118 #define LEX_PARAM 14 119 #define POSIX_YACC 15 120 #define TOKEN_TABLE 16 121 #define ERROR_VERBOSE 17 122 #define XXXDEBUG 18 123 124 #if defined(YYBTYACC) 125 #define LOCATIONS 19 126 #define DESTRUCTOR 20 127 #define INITIAL_ACTION 21 128 #endif 129 130 /* symbol classes */ 131 132 #define UNKNOWN 0 133 #define TERM 1 134 #define NONTERM 2 135 #define ACTION 3 136 #define ARGUMENT 4 137 138 /* the undefined value */ 139 140 #define UNDEFINED (-1) 141 142 /* action codes */ 143 144 #define SHIFT 1 145 #define REDUCE 2 146 147 /* character macros */ 148 149 #define IS_NAME1(c) (isalpha(UCH(c)) || (c) == '_' || (c) == '$') 150 #define IS_NAME2(c) (isalnum(UCH(c)) || (c) == '_' || (c) == '$') 151 #define IS_IDENT(c) (isalnum(UCH(c)) || (c) == '_' || (c) == '.' || (c) == '$') 152 #define IS_OCTAL(c) ((c) >= '0' && (c) <= '7') 153 #define NUMERIC_VALUE(c) ((c) - '0') 154 155 /* symbol macros */ 156 157 #define ISTOKEN(s) ((s) < start_symbol) 158 #define ISVAR(s) ((s) >= start_symbol) 159 160 /* storage allocation macros */ 161 162 #define CALLOC(k,n) (calloc((size_t)(k),(size_t)(n))) 163 #define FREE(x) (free((char*)(x))) 164 #define MALLOC(n) (malloc((size_t)(n))) 165 #define TCMALLOC(t,n) ((t*) calloc((size_t)(n), sizeof(t))) 166 #define TMALLOC(t,n) ((t*) malloc((size_t)(n) * sizeof(t))) 167 #define NEW(t) ((t*)allocate(sizeof(t))) 168 #define NEW2(n,t) ((t*)allocate(((size_t)(n)*sizeof(t)))) 169 #define REALLOC(p,n) (realloc((char*)(p),(size_t)(n))) 170 #define TREALLOC(t,p,n) ((t*)realloc((char*)(p), (size_t)(n) * sizeof(t))) 171 172 #define DO_FREE(x) if (x) { FREE(x); x = 0; } 173 174 #define NO_SPACE(p) if (p == 0) no_space(); assert(p != 0) 175 176 /* messages */ 177 #define PLURAL(n) ((n) > 1 ? "s" : "") 178 179 /* 180 * Features which depend indirectly on the btyacc configuration, but are not 181 * essential. 182 */ 183 #if defined(YYBTYACC) 184 #define USE_HEADER_GUARDS 1 185 #else 186 #define USE_HEADER_GUARDS 0 187 #endif 188 189 typedef char Assoc_t; 190 typedef char Class_t; 191 typedef YYINT Index_t; 192 typedef YYINT Value_t; 193 194 /* the structure of a symbol table entry */ 195 196 typedef struct bucket bucket; 197 struct bucket 198 { 199 struct bucket *link; 200 struct bucket *next; 201 char *name; 202 char *tag; 203 #if defined(YYBTYACC) 204 char **argnames; 205 char **argtags; 206 int args; 207 char *destructor; 208 #endif 209 Value_t value; 210 Index_t index; 211 Value_t prec; 212 Class_t class; 213 Assoc_t assoc; 214 }; 215 216 /* the structure of the LR(0) state machine */ 217 218 typedef struct core core; 219 struct core 220 { 221 struct core *next; 222 struct core *link; 223 Value_t number; 224 Value_t accessing_symbol; 225 Value_t nitems; 226 Value_t items[1]; 227 }; 228 229 /* the structure used to record shifts */ 230 231 typedef struct shifts shifts; 232 struct shifts 233 { 234 struct shifts *next; 235 Value_t number; 236 Value_t nshifts; 237 Value_t shift[1]; 238 }; 239 240 /* the structure used to store reductions */ 241 242 typedef struct reductions reductions; 243 struct reductions 244 { 245 struct reductions *next; 246 Value_t number; 247 Value_t nreds; 248 Value_t rules[1]; 249 }; 250 251 /* the structure used to represent parser actions */ 252 253 typedef struct action action; 254 struct action 255 { 256 struct action *next; 257 Value_t symbol; 258 Value_t number; 259 Value_t prec; 260 char action_code; 261 Assoc_t assoc; 262 char suppressed; 263 }; 264 265 /* the structure used to store parse/lex parameters */ 266 typedef struct param param; 267 struct param 268 { 269 struct param *next; 270 char *name; /* parameter name */ 271 char *type; /* everything before parameter name */ 272 char *type2; /* everything after parameter name */ 273 }; 274 275 /* global variables */ 276 277 extern char dflag; 278 extern char gflag; 279 extern char iflag; 280 extern char lflag; 281 extern char rflag; 282 extern char sflag; 283 extern char tflag; 284 extern char vflag; 285 extern const char *symbol_prefix; 286 287 extern const char *myname; 288 extern char *cptr; 289 extern char *line; 290 extern int lineno; 291 extern int outline; 292 extern int exit_code; 293 extern int pure_parser; 294 extern int token_table; 295 extern int error_verbose; 296 #if defined(YYBTYACC) 297 extern int locations; 298 extern int backtrack; 299 extern int destructor; 300 extern char *initial_action; 301 #endif 302 303 extern const char *const banner[]; 304 extern const char *const xdecls[]; 305 extern const char *const tables[]; 306 extern const char *const global_vars[]; 307 extern const char *const impure_vars[]; 308 extern const char *const hdr_defs[]; 309 extern const char *const hdr_vars[]; 310 extern const char *const body_1[]; 311 extern const char *const body_vars[]; 312 extern const char *const init_vars[]; 313 extern const char *const body_2[]; 314 extern const char *const body_3[]; 315 extern const char *const trailer[]; 316 317 extern char *code_file_name; 318 extern char *input_file_name; 319 extern size_t input_file_name_len; 320 extern char *defines_file_name; 321 extern char *externs_file_name; 322 323 extern FILE *action_file; 324 extern FILE *code_file; 325 extern FILE *defines_file; 326 extern FILE *externs_file; 327 extern FILE *input_file; 328 extern FILE *output_file; 329 extern FILE *text_file; 330 extern FILE *union_file; 331 extern FILE *verbose_file; 332 extern FILE *graph_file; 333 334 extern Value_t nitems; 335 extern Value_t nrules; 336 extern Value_t nsyms; 337 extern Value_t ntokens; 338 extern Value_t nvars; 339 extern int ntags; 340 341 extern char unionized; 342 extern char line_format[]; 343 344 extern Value_t start_symbol; 345 extern char **symbol_name; 346 extern char **symbol_pname; 347 extern Value_t *symbol_value; 348 extern Value_t *symbol_prec; 349 extern char *symbol_assoc; 350 351 #if defined(YYBTYACC) 352 extern Value_t *symbol_pval; 353 extern char **symbol_destructor; 354 extern char **symbol_type_tag; 355 #endif 356 357 extern Value_t *ritem; 358 extern Value_t *rlhs; 359 extern Value_t *rrhs; 360 extern Value_t *rprec; 361 extern Assoc_t *rassoc; 362 363 extern Value_t **derives; 364 extern char *nullable; 365 366 extern bucket *first_symbol; 367 extern bucket *last_symbol; 368 369 extern int nstates; 370 extern core *first_state; 371 extern shifts *first_shift; 372 extern reductions *first_reduction; 373 extern Value_t *accessing_symbol; 374 extern core **state_table; 375 extern shifts **shift_table; 376 extern reductions **reduction_table; 377 extern unsigned *LA; 378 extern Value_t *LAruleno; 379 extern Value_t *lookaheads; 380 extern Value_t *goto_base; 381 extern Value_t *goto_map; 382 extern Value_t *from_state; 383 extern Value_t *to_state; 384 385 extern action **parser; 386 extern int SRexpect; 387 extern int RRexpect; 388 extern int SRtotal; 389 extern int RRtotal; 390 extern Value_t *SRconflicts; 391 extern Value_t *RRconflicts; 392 extern Value_t *defred; 393 extern Value_t *rules_used; 394 extern Value_t nunused; 395 extern Value_t final_state; 396 397 extern Value_t *itemset; 398 extern Value_t *itemsetend; 399 extern unsigned *ruleset; 400 401 extern param *lex_param; 402 extern param *parse_param; 403 404 /* global functions */ 405 406 #ifndef GCC_NORETURN 407 #if defined(__dead2) 408 #define GCC_NORETURN __dead2 409 #elif defined(__dead) 410 #define GCC_NORETURN __dead 411 #else 412 #define GCC_NORETURN /* nothing */ 413 #endif 414 #endif 415 416 #ifndef GCC_UNUSED 417 #if defined(__unused) 418 #define GCC_UNUSED __unused 419 #else 420 #define GCC_UNUSED /* nothing */ 421 #endif 422 #endif 423 424 #ifndef GCC_PRINTFLIKE 425 #define GCC_PRINTFLIKE(fmt,var) /*nothing */ 426 #endif 427 428 /* closure.c */ 429 extern void closure(Value_t *nucleus, int n); 430 extern void finalize_closure(void); 431 extern void set_first_derives(void); 432 433 /* error.c */ 434 struct ainfo 435 { 436 int a_lineno; 437 char *a_line; 438 char *a_cptr; 439 }; 440 441 extern void arg_number_disagree_warning(int a_lineno, char *a_name); 442 extern void arg_type_disagree_warning(int a_lineno, int i, char *a_name); 443 extern void at_error(int a_lineno, char *a_line, char *a_cptr) GCC_NORETURN; 444 extern void at_warning(int a_lineno, int i); 445 extern void bad_formals(void) GCC_NORETURN; 446 extern void default_action_warning(char *s); 447 extern void destructor_redeclared_warning(const struct ainfo *); 448 extern void dollar_error(int a_lineno, char *a_line, char *a_cptr) GCC_NORETURN; 449 extern void dollar_warning(int a_lineno, int i); 450 extern void fatal(const char *msg) GCC_NORETURN; 451 extern void illegal_character(char *c_cptr) GCC_NORETURN; 452 extern void illegal_tag(int t_lineno, char *t_line, char *t_cptr) GCC_NORETURN; 453 extern void missing_brace(void) GCC_NORETURN; 454 extern void no_grammar(void) GCC_NORETURN; 455 extern void no_space(void) GCC_NORETURN; 456 extern void open_error(const char *filename) GCC_NORETURN; 457 extern void over_unionized(char *u_cptr) GCC_NORETURN; 458 extern void prec_redeclared(void); 459 extern void reprec_warning(char *s); 460 extern void restarted_warning(void); 461 extern void retyped_warning(char *s); 462 extern void revalued_warning(char *s); 463 extern void start_requires_args(char *a_name); 464 extern void syntax_error(int st_lineno, char *st_line, char *st_cptr) GCC_NORETURN; 465 extern void terminal_lhs(int s_lineno) GCC_NORETURN; 466 extern void terminal_start(char *s) GCC_NORETURN; 467 extern void tokenized_start(char *s) GCC_NORETURN; 468 extern void undefined_goal(char *s) GCC_NORETURN; 469 extern void undefined_symbol_warning(char *s); 470 extern void unexpected_EOF(void) GCC_NORETURN; 471 extern void unknown_arg_warning(int d_lineno, const char *dlr_opt, const char *d_arg, const char *d_line, const char *d_cptr); 472 extern void unknown_rhs(int i) GCC_NORETURN; 473 extern void unsupported_flag_warning(const char *flag, const char *details); 474 extern void unterminated_action(const struct ainfo *) GCC_NORETURN; 475 extern void unterminated_comment(const struct ainfo *) GCC_NORETURN; 476 extern void unterminated_string(const struct ainfo *) GCC_NORETURN; 477 extern void unterminated_text(const struct ainfo *) GCC_NORETURN; 478 extern void unterminated_union(const struct ainfo *) GCC_NORETURN; 479 extern void untyped_arg_warning(int a_lineno, const char *dlr_opt, const char *a_name); 480 extern void untyped_lhs(void) GCC_NORETURN; 481 extern void untyped_rhs(int i, char *s) GCC_NORETURN; 482 extern void used_reserved(char *s) GCC_NORETURN; 483 extern void unterminated_arglist(const struct ainfo *) GCC_NORETURN; 484 extern void wrong_number_args_warning(const char *which, const char *a_name); 485 extern void wrong_type_for_arg_warning(int i, char *a_name); 486 487 /* graph.c */ 488 extern void graph(void); 489 490 /* lalr.c */ 491 extern void lalr(void); 492 493 /* lr0.c */ 494 extern void lr0(void); 495 extern void show_cores(void); 496 extern void show_ritems(void); 497 extern void show_rrhs(void); 498 extern void show_shifts(void); 499 500 /* main.c */ 501 extern void *allocate(size_t n); 502 extern void done(int k) GCC_NORETURN; 503 504 /* mkpar.c */ 505 extern void free_parser(void); 506 extern void make_parser(void); 507 508 /* mstring.c */ 509 struct mstring 510 { 511 char *base, *ptr, *end; 512 }; 513 514 extern void msprintf(struct mstring *, const char *, ...) GCC_PRINTFLIKE(2,3); 515 extern int mputchar(struct mstring *, int); 516 extern struct mstring *msnew(void); 517 extern char *msdone(struct mstring *); 518 extern int strnscmp(const char *, const char *); 519 extern unsigned int strnshash(const char *); 520 521 #define mputc(m, ch) (((m)->ptr == (m)->end) \ 522 ? mputchar(m,ch) \ 523 : (*(m)->ptr++ = (char) (ch))) 524 525 /* output.c */ 526 extern void output(void); 527 528 /* reader.c */ 529 extern void reader(void); 530 531 /* skeleton.c (generated by skel2c) */ 532 extern void write_section(FILE * fp, const char *const section[]); 533 534 /* symtab.c */ 535 extern bucket *make_bucket(const char *); 536 extern bucket *lookup(const char *); 537 extern void create_symbol_table(void); 538 extern void free_symbol_table(void); 539 extern void free_symbols(void); 540 541 /* verbose.c */ 542 extern void verbose(void); 543 544 /* warshall.c */ 545 extern void reflexive_transitive_closure(unsigned *R, int n); 546 547 #ifdef DEBUG 548 /* closure.c */ 549 extern void print_closure(int n); 550 extern void print_EFF(void); 551 extern void print_first_derives(void); 552 /* lr0.c */ 553 extern void print_derives(void); 554 #endif 555 556 #ifdef NO_LEAKS 557 extern void lr0_leaks(void); 558 extern void lalr_leaks(void); 559 extern void mkpar_leaks(void); 560 extern void output_leaks(void); 561 extern void mstring_leaks(void); 562 extern void reader_leaks(void); 563 #endif 564