1991-09-19 10:31:00 +00:00
|
|
|
|
/* Parser definitions for GDB.
|
|
|
|
|
Copyright (C) 1986, 1989, 1990, 1991 Free Software Foundation, Inc.
|
|
|
|
|
Modified from expread.y by the Department of Computer Science at the
|
|
|
|
|
State University of New York at Buffalo.
|
|
|
|
|
|
|
|
|
|
This file is part of GDB.
|
|
|
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
|
|
|
(at your option) any later version.
|
|
|
|
|
|
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with this program; if not, write to the Free Software
|
|
|
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
|
|
|
|
|
1992-02-22 01:46:16 +00:00
|
|
|
|
#if !defined (PARSER_DEFS_H)
|
|
|
|
|
#define PARSER_DEFS_H 1
|
|
|
|
|
|
1991-09-19 10:31:00 +00:00
|
|
|
|
struct std_regs {
|
|
|
|
|
char *name;
|
|
|
|
|
int regnum;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
extern struct std_regs std_regs[];
|
|
|
|
|
extern unsigned num_std_regs;
|
|
|
|
|
|
|
|
|
|
struct expression *expout;
|
|
|
|
|
int expout_size;
|
|
|
|
|
int expout_ptr;
|
|
|
|
|
|
|
|
|
|
/* If this is nonzero, this block is used as the lexical context
|
|
|
|
|
for symbol names. */
|
|
|
|
|
|
|
|
|
|
struct block *expression_context_block;
|
|
|
|
|
|
|
|
|
|
/* The innermost context required by the stack and register variables
|
|
|
|
|
we've encountered so far. */
|
|
|
|
|
struct block *innermost_block;
|
|
|
|
|
|
|
|
|
|
/* The block in which the most recently discovered symbol was found. */
|
|
|
|
|
struct block *block_found;
|
|
|
|
|
|
|
|
|
|
/* Number of arguments seen so far in innermost function call. */
|
|
|
|
|
int arglist_len;
|
|
|
|
|
|
* defs.h (HOST_CHAR_BIT): New macro, defaults to either CHAR_BIT
from a configuration file (typically including <limits.h>), or to
TARGET_CHAR_BIT if CHAR_BIT is not defined.
* eval.c (evaluate_subexp): Use new BYTES_TO_EXP_ELEM macro.
* eval.c (evaluate_subexp): Add case for OP_BITSTRING.
* expprint.c (print_subexp): Use new BYTES_TO_EXP_ELEM macro.
* exppritn.c (print_subexp, dump_expression): Add case for
OP_BITSTRING.
* expression.h (OP_BITSTRING): New expression element type for
packed bitstrings.
* expression.h (EXP_ELEM_TO_BYTES, BYTES_TO_EXP_ELEM): New
macros to convert between number of expression elements and bytes
to store that many elements.
* i960-tdep.c (leafproc_return): Use new macros to access
minimal symbol name and address fields.
* m88k-pinsn.c (sprint_address): Use new macros to access
minimal symbol name and address fields.
* nindy-tdep.c (nindy_frame_chain_valid): Use new macro to access
minimal symbol address field.
* parse.c (write_exp_elt, write_exp_string, prefixify_expression,
parse_exp_1): Use new EXP_ELEM_TO_BYTES macro.
* parse.c (write_exp_string, length_of_subexp, prefixify_expression):
Use new BYTES_TO_EXP_ELEM macro.
* parse.c (write_exp_bitstring): New function to write packed
bitstrings into the expression element vector.
* parse.c (length_of_subexp, prefixify_subexp): Add case for
OP_BITSTRING.
* parser-defs.h (struct stoken): Document that it is used for
OP_BITSTRING as well as OP_STRING.
* parser-defs.h (write_exp_bitstring): Add prototype.
**** start-sanitize-chill ****
* ch-exp.y (BIT_STRING_LITERAL): Change token type to sval.
* ch-exp.y (NUM, PRED, SUCC, ABS, CARD, MAX, MIN, SIZE, UPPER,
LOWER, LENGTH): New tokens for keywords.
* ch-exp.y (chill_value_built_in_routine_call, mode_argument,
upper_lower_argument, length_argument, array_mode_name,
string_mode_name, variant_structure_mode_name): New non-terminals
and productions.
* ch-exp.y (literal): Useful production for BIT_STRING_LITERAL.
* ch-exp.y (match_bitstring_literal): New lexer support function
to recognize bitstring literals.
* ch-exp.y (tokentab6): New token table for 6 character keywords.
* ch-exp.y (tokentab5): Add LOWER, UPPER.
* ch-exp.y (tokentab4): Add PRED, SUCC, CARD, SIZE.
* ch-exp.y (tokentab3): Add NUM, ABS, MIN, MAX.
* ch-exp.y (yylex): Check tokentab6.
* ch-exp.y (yylex): Call match_bitstring_literal.
**** end-sanitize-chill ****
1993-01-06 16:52:10 +00:00
|
|
|
|
/* A string token, either a char-string or bit-string. Char-strings are
|
|
|
|
|
used, for example, for the names of symbols. */
|
1991-09-19 10:31:00 +00:00
|
|
|
|
|
|
|
|
|
struct stoken
|
|
|
|
|
{
|
* defs.h (HOST_CHAR_BIT): New macro, defaults to either CHAR_BIT
from a configuration file (typically including <limits.h>), or to
TARGET_CHAR_BIT if CHAR_BIT is not defined.
* eval.c (evaluate_subexp): Use new BYTES_TO_EXP_ELEM macro.
* eval.c (evaluate_subexp): Add case for OP_BITSTRING.
* expprint.c (print_subexp): Use new BYTES_TO_EXP_ELEM macro.
* exppritn.c (print_subexp, dump_expression): Add case for
OP_BITSTRING.
* expression.h (OP_BITSTRING): New expression element type for
packed bitstrings.
* expression.h (EXP_ELEM_TO_BYTES, BYTES_TO_EXP_ELEM): New
macros to convert between number of expression elements and bytes
to store that many elements.
* i960-tdep.c (leafproc_return): Use new macros to access
minimal symbol name and address fields.
* m88k-pinsn.c (sprint_address): Use new macros to access
minimal symbol name and address fields.
* nindy-tdep.c (nindy_frame_chain_valid): Use new macro to access
minimal symbol address field.
* parse.c (write_exp_elt, write_exp_string, prefixify_expression,
parse_exp_1): Use new EXP_ELEM_TO_BYTES macro.
* parse.c (write_exp_string, length_of_subexp, prefixify_expression):
Use new BYTES_TO_EXP_ELEM macro.
* parse.c (write_exp_bitstring): New function to write packed
bitstrings into the expression element vector.
* parse.c (length_of_subexp, prefixify_subexp): Add case for
OP_BITSTRING.
* parser-defs.h (struct stoken): Document that it is used for
OP_BITSTRING as well as OP_STRING.
* parser-defs.h (write_exp_bitstring): Add prototype.
**** start-sanitize-chill ****
* ch-exp.y (BIT_STRING_LITERAL): Change token type to sval.
* ch-exp.y (NUM, PRED, SUCC, ABS, CARD, MAX, MIN, SIZE, UPPER,
LOWER, LENGTH): New tokens for keywords.
* ch-exp.y (chill_value_built_in_routine_call, mode_argument,
upper_lower_argument, length_argument, array_mode_name,
string_mode_name, variant_structure_mode_name): New non-terminals
and productions.
* ch-exp.y (literal): Useful production for BIT_STRING_LITERAL.
* ch-exp.y (match_bitstring_literal): New lexer support function
to recognize bitstring literals.
* ch-exp.y (tokentab6): New token table for 6 character keywords.
* ch-exp.y (tokentab5): Add LOWER, UPPER.
* ch-exp.y (tokentab4): Add PRED, SUCC, CARD, SIZE.
* ch-exp.y (tokentab3): Add NUM, ABS, MIN, MAX.
* ch-exp.y (yylex): Check tokentab6.
* ch-exp.y (yylex): Call match_bitstring_literal.
**** end-sanitize-chill ****
1993-01-06 16:52:10 +00:00
|
|
|
|
/* Pointer to first byte of char-string or first bit of bit-string */
|
1991-09-19 10:31:00 +00:00
|
|
|
|
char *ptr;
|
* defs.h (HOST_CHAR_BIT): New macro, defaults to either CHAR_BIT
from a configuration file (typically including <limits.h>), or to
TARGET_CHAR_BIT if CHAR_BIT is not defined.
* eval.c (evaluate_subexp): Use new BYTES_TO_EXP_ELEM macro.
* eval.c (evaluate_subexp): Add case for OP_BITSTRING.
* expprint.c (print_subexp): Use new BYTES_TO_EXP_ELEM macro.
* exppritn.c (print_subexp, dump_expression): Add case for
OP_BITSTRING.
* expression.h (OP_BITSTRING): New expression element type for
packed bitstrings.
* expression.h (EXP_ELEM_TO_BYTES, BYTES_TO_EXP_ELEM): New
macros to convert between number of expression elements and bytes
to store that many elements.
* i960-tdep.c (leafproc_return): Use new macros to access
minimal symbol name and address fields.
* m88k-pinsn.c (sprint_address): Use new macros to access
minimal symbol name and address fields.
* nindy-tdep.c (nindy_frame_chain_valid): Use new macro to access
minimal symbol address field.
* parse.c (write_exp_elt, write_exp_string, prefixify_expression,
parse_exp_1): Use new EXP_ELEM_TO_BYTES macro.
* parse.c (write_exp_string, length_of_subexp, prefixify_expression):
Use new BYTES_TO_EXP_ELEM macro.
* parse.c (write_exp_bitstring): New function to write packed
bitstrings into the expression element vector.
* parse.c (length_of_subexp, prefixify_subexp): Add case for
OP_BITSTRING.
* parser-defs.h (struct stoken): Document that it is used for
OP_BITSTRING as well as OP_STRING.
* parser-defs.h (write_exp_bitstring): Add prototype.
**** start-sanitize-chill ****
* ch-exp.y (BIT_STRING_LITERAL): Change token type to sval.
* ch-exp.y (NUM, PRED, SUCC, ABS, CARD, MAX, MIN, SIZE, UPPER,
LOWER, LENGTH): New tokens for keywords.
* ch-exp.y (chill_value_built_in_routine_call, mode_argument,
upper_lower_argument, length_argument, array_mode_name,
string_mode_name, variant_structure_mode_name): New non-terminals
and productions.
* ch-exp.y (literal): Useful production for BIT_STRING_LITERAL.
* ch-exp.y (match_bitstring_literal): New lexer support function
to recognize bitstring literals.
* ch-exp.y (tokentab6): New token table for 6 character keywords.
* ch-exp.y (tokentab5): Add LOWER, UPPER.
* ch-exp.y (tokentab4): Add PRED, SUCC, CARD, SIZE.
* ch-exp.y (tokentab3): Add NUM, ABS, MIN, MAX.
* ch-exp.y (yylex): Check tokentab6.
* ch-exp.y (yylex): Call match_bitstring_literal.
**** end-sanitize-chill ****
1993-01-06 16:52:10 +00:00
|
|
|
|
/* Length of string in bytes for char-string or bits for bit-string */
|
1991-09-19 10:31:00 +00:00
|
|
|
|
int length;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
struct ttype
|
|
|
|
|
{
|
|
|
|
|
struct stoken stoken;
|
|
|
|
|
struct type *type;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
struct symtoken
|
|
|
|
|
{
|
|
|
|
|
struct stoken stoken;
|
|
|
|
|
struct symbol *sym;
|
|
|
|
|
int is_a_field_of_this;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* For parsing of complicated types.
|
|
|
|
|
An array should be preceded in the list by the size of the array. */
|
|
|
|
|
enum type_pieces
|
|
|
|
|
{tp_end = -1, tp_pointer, tp_reference, tp_array, tp_function};
|
|
|
|
|
/* The stack can contain either an enum type_pieces or an int. */
|
|
|
|
|
union type_stack_elt {
|
|
|
|
|
enum type_pieces piece;
|
|
|
|
|
int int_val;
|
|
|
|
|
};
|
|
|
|
|
union type_stack_elt *type_stack;
|
|
|
|
|
int type_stack_depth, type_stack_size;
|
|
|
|
|
|
1992-02-22 01:46:16 +00:00
|
|
|
|
extern void
|
|
|
|
|
write_exp_elt PARAMS ((union exp_element));
|
|
|
|
|
|
|
|
|
|
extern void
|
|
|
|
|
write_exp_elt_opcode PARAMS ((enum exp_opcode));
|
|
|
|
|
|
|
|
|
|
extern void
|
|
|
|
|
write_exp_elt_sym PARAMS ((struct symbol *));
|
|
|
|
|
|
|
|
|
|
extern void
|
|
|
|
|
write_exp_elt_longcst PARAMS ((LONGEST));
|
|
|
|
|
|
|
|
|
|
extern void
|
|
|
|
|
write_exp_elt_dblcst PARAMS ((double));
|
|
|
|
|
|
|
|
|
|
extern void
|
|
|
|
|
write_exp_elt_type PARAMS ((struct type *));
|
|
|
|
|
|
|
|
|
|
extern void
|
|
|
|
|
write_exp_elt_intern PARAMS ((struct internalvar *));
|
|
|
|
|
|
|
|
|
|
extern void
|
|
|
|
|
write_exp_string PARAMS ((struct stoken));
|
|
|
|
|
|
* defs.h (HOST_CHAR_BIT): New macro, defaults to either CHAR_BIT
from a configuration file (typically including <limits.h>), or to
TARGET_CHAR_BIT if CHAR_BIT is not defined.
* eval.c (evaluate_subexp): Use new BYTES_TO_EXP_ELEM macro.
* eval.c (evaluate_subexp): Add case for OP_BITSTRING.
* expprint.c (print_subexp): Use new BYTES_TO_EXP_ELEM macro.
* exppritn.c (print_subexp, dump_expression): Add case for
OP_BITSTRING.
* expression.h (OP_BITSTRING): New expression element type for
packed bitstrings.
* expression.h (EXP_ELEM_TO_BYTES, BYTES_TO_EXP_ELEM): New
macros to convert between number of expression elements and bytes
to store that many elements.
* i960-tdep.c (leafproc_return): Use new macros to access
minimal symbol name and address fields.
* m88k-pinsn.c (sprint_address): Use new macros to access
minimal symbol name and address fields.
* nindy-tdep.c (nindy_frame_chain_valid): Use new macro to access
minimal symbol address field.
* parse.c (write_exp_elt, write_exp_string, prefixify_expression,
parse_exp_1): Use new EXP_ELEM_TO_BYTES macro.
* parse.c (write_exp_string, length_of_subexp, prefixify_expression):
Use new BYTES_TO_EXP_ELEM macro.
* parse.c (write_exp_bitstring): New function to write packed
bitstrings into the expression element vector.
* parse.c (length_of_subexp, prefixify_subexp): Add case for
OP_BITSTRING.
* parser-defs.h (struct stoken): Document that it is used for
OP_BITSTRING as well as OP_STRING.
* parser-defs.h (write_exp_bitstring): Add prototype.
**** start-sanitize-chill ****
* ch-exp.y (BIT_STRING_LITERAL): Change token type to sval.
* ch-exp.y (NUM, PRED, SUCC, ABS, CARD, MAX, MIN, SIZE, UPPER,
LOWER, LENGTH): New tokens for keywords.
* ch-exp.y (chill_value_built_in_routine_call, mode_argument,
upper_lower_argument, length_argument, array_mode_name,
string_mode_name, variant_structure_mode_name): New non-terminals
and productions.
* ch-exp.y (literal): Useful production for BIT_STRING_LITERAL.
* ch-exp.y (match_bitstring_literal): New lexer support function
to recognize bitstring literals.
* ch-exp.y (tokentab6): New token table for 6 character keywords.
* ch-exp.y (tokentab5): Add LOWER, UPPER.
* ch-exp.y (tokentab4): Add PRED, SUCC, CARD, SIZE.
* ch-exp.y (tokentab3): Add NUM, ABS, MIN, MAX.
* ch-exp.y (yylex): Check tokentab6.
* ch-exp.y (yylex): Call match_bitstring_literal.
**** end-sanitize-chill ****
1993-01-06 16:52:10 +00:00
|
|
|
|
extern void
|
|
|
|
|
write_exp_bitstring PARAMS ((struct stoken));
|
|
|
|
|
|
1992-02-22 01:46:16 +00:00
|
|
|
|
extern void
|
|
|
|
|
start_arglist PARAMS ((void));
|
|
|
|
|
|
|
|
|
|
extern int
|
|
|
|
|
end_arglist PARAMS ((void));
|
|
|
|
|
|
|
|
|
|
extern char *
|
|
|
|
|
copy_name PARAMS ((struct stoken));
|
|
|
|
|
|
|
|
|
|
extern void
|
|
|
|
|
push_type PARAMS ((enum type_pieces));
|
|
|
|
|
|
|
|
|
|
extern void
|
|
|
|
|
push_type_int PARAMS ((int));
|
|
|
|
|
|
|
|
|
|
extern enum type_pieces
|
|
|
|
|
pop_type PARAMS ((void));
|
|
|
|
|
|
|
|
|
|
extern int
|
|
|
|
|
pop_type_int PARAMS ((void));
|
1991-09-19 10:31:00 +00:00
|
|
|
|
|
|
|
|
|
/* During parsing of a C expression, the pointer to the next character
|
|
|
|
|
is in this variable. */
|
|
|
|
|
|
|
|
|
|
char *lexptr;
|
|
|
|
|
|
|
|
|
|
/* Tokens that refer to names do so with explicit pointer and length,
|
|
|
|
|
so they can share the storage that lexptr is parsing.
|
|
|
|
|
|
|
|
|
|
When it is necessary to pass a name to a function that expects
|
|
|
|
|
a null-terminated string, the substring is copied out
|
|
|
|
|
into a block of storage that namecopy points to.
|
|
|
|
|
|
|
|
|
|
namecopy is allocated once, guaranteed big enough, for each parsing. */
|
|
|
|
|
|
|
|
|
|
char *namecopy;
|
|
|
|
|
|
|
|
|
|
/* Current depth in parentheses within the expression. */
|
|
|
|
|
|
|
|
|
|
int paren_depth;
|
|
|
|
|
|
|
|
|
|
/* Nonzero means stop parsing on first comma (if not within parentheses). */
|
|
|
|
|
|
|
|
|
|
int comma_terminates;
|
|
|
|
|
|
|
|
|
|
/* These codes indicate operator precedences for expression printing,
|
|
|
|
|
least tightly binding first. */
|
|
|
|
|
/* Adding 1 to a precedence value is done for binary operators,
|
|
|
|
|
on the operand which is more tightly bound, so that operators
|
|
|
|
|
of equal precedence within that operand will get parentheses. */
|
|
|
|
|
/* PREC_HYPER and PREC_ABOVE_COMMA are not the precedence of any operator;
|
|
|
|
|
they are used as the "surrounding precedence" to force
|
|
|
|
|
various kinds of things to be parenthesized. */
|
|
|
|
|
enum precedence
|
* Makefile.in (SFILES_MAINDIR): Add ch-exp.y.
* Makefile.in (YYFILES): Add ch-exp.tab.c.
* Makefile.in (YYOBJ): Add ch-exp.tab.o.
* Makefile.in (saber_gdb): Add unload of ch-exp.y and load
of ch-exp.tab.c.
* Makefile.in (distclean): Add target ch-exp.tab.c.
* Makefile.in (realclean): Add rm of ch-exp.tab.c.
* Makefile.in (c-exp.tab.c, m2-exp.tab.c): Add dependency on
Makefile since it contains sed patterns used in generation.
Add sed pattern to also delete #include of any malloc.h.
* Makefile.in (ch-exp.tab.o, ch-exp.tab.c): New targets.
* ch-exp.y: New expression parser, for GNU-Chill.
* c-exp.y, expr.c, expression.h, language.c, m2-exp.y,
parser-defs.h, valarith.c, valops.c, value.h: Remap macros and
function names to conform to K&R terminology with respect to
logical and bitwise operators:
UNOP_ZEROP => UNOP_LOGICAL_NOT
UNOP_LOGNOT => UNOP_COMPLEMENT
BINOP_LOGAND => BINOP_BITWISE_AND
BINOP_LOGXOR => BINOP_BITWISE_XOR
BINOP_LOGIOR => BINOP_BITWISE_IOR
BINOP_AND => BINOP_LOGICAL_AND
BINOP_OR => BINOP_LOGICAL_OR
PREC_OR => PREC_LOGICAL_OR
PREC_AND => PREC_LOGICAL_AND
PREC_LOGIOR => PREC_BITWISE_IOR
PREC_LOGXOR => PREC_BITWISE_XOR
PREC_LOGAND => PREC_BITWISE_AND
value_zerop() => value_logical_not()
value_lognot() => value_complement()
* c-exp.y (c_op_print_tab): Add explicit empty terminator.
* m2-exp.y (m2_op_print_tab): Add explicit empty terminator.
* defs.h (enum language): Add language_chill.
* dwarfread.c (set_cu_language): Add LANG_CHILL case and make
LANG_MODULA2 a recognized language.
* eval.c (evaluate_subexp): Add OP_BOOL case.
* expprint.c (print_subexp): Add OP_BOOL case.
* gdbtypes.h (enum_typecode): Note TYPE_CODE_BOOL used for
Chill as well as Modula-2.
* gdbtypes.y (builtin_type_chill_bool, builtin_type_chill_long,
builtin_type_chill_ulong, builtin_type_chill_real): Add.
* i387-tdep.c (sys/dir.h): Remove, appears to be unnecessary
and is nonexistant in some SVR4 based systems.
* language.c (DEFAULT_ALLOCSIZE): Change from 3 => 4.
* language.c (set_language_command): Add chill.
* language.c (binop_result_type, integral_type, character_type,
boolean_type, structured_type, value_true, binop_type_check):
Add language_chill cases.
* language.h (_LANG_chill): Define.
* m2-exp.y (number_sign, modblock): Make static, #ifdef out
unused modblock.
* m2-exp.y (ANDAND): Rename to LOGICAL_AND.
* source.c (source_info): Fix minor nits, print "1 line" rather
than "1 lines", and "language is <lang>".
* symfile.c (deduce_language_from_filename): Recognize the
filename extensions ".chill", ".c186", and ".c286" for Chill.
* valarith.c (value_binop): Handle TYPE_CODE_BOOL as well
as TYPE_CODE_INT and TYPE_CODE_FLOAT.
* valprint.c (val_print): Print TYPE_CODE_BOOL type values as
"TRUE" or "FALSE".
* valprint.c (typedef_print): Add case for language_chill.
* values.c (value_from_longest): Handle TYPE_CODE_BOOL.
1992-11-15 17:28:02 +00:00
|
|
|
|
{ PREC_NULL, PREC_COMMA, PREC_ABOVE_COMMA, PREC_ASSIGN, PREC_LOGICAL_OR,
|
|
|
|
|
PREC_LOGICAL_AND, PREC_BITWISE_IOR, PREC_BITWISE_AND, PREC_BITWISE_XOR,
|
|
|
|
|
PREC_EQUAL, PREC_ORDER, PREC_SHIFT, PREC_ADD, PREC_MUL, PREC_REPEAT,
|
1991-09-19 10:31:00 +00:00
|
|
|
|
PREC_HYPER, PREC_PREFIX, PREC_SUFFIX };
|
|
|
|
|
|
|
|
|
|
/* Table mapping opcodes into strings for printing operators
|
|
|
|
|
and precedences of the operators. */
|
|
|
|
|
|
|
|
|
|
struct op_print
|
|
|
|
|
{
|
|
|
|
|
char *string;
|
|
|
|
|
enum exp_opcode opcode;
|
|
|
|
|
/* Precedence of operator. These values are used only by comparisons. */
|
|
|
|
|
enum precedence precedence;
|
|
|
|
|
int right_assoc;
|
|
|
|
|
};
|
1992-02-22 01:46:16 +00:00
|
|
|
|
|
|
|
|
|
#endif /* PARSER_DEFS_H */
|