contrib/byacc/defs.h

   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