#ifndef SYMTAB_H_
# define SYMTAB_H_
-#define TABSIZE 1009
-
-/* Associativity values for tokens and rules. */
-typedef enum
-{
- right_assoc,
- left_assoc,
- non_assoc
-} associativity;
+# include "location.h"
+# include "assoc.h"
+/*----------.
+| Symbols. |
+`----------*/
/* Symbol classes. */
typedef enum
nterm_sym /* non-terminal */
} symbol_class;
-/* Internal token numbers. */
-typedef short token_number_t;
-#define SUNDEF -1 /* For undefined user number. */
-#define SALIAS -9991 /* for symbol generated with an alias */
+/* Internal token numbers. */
+typedef short symbol_number_t;
+#define SYMBOL_NUMBER_MAX ((symbol_number_t) SHRT_MAX)
-#define NUMBER_UNDEFINED ((token_number_t) -1)
+typedef struct symbol_s symbol_t;
struct symbol_s
{
- /* The key, name of the symbol. */
+ /* The key, name of the symbol. */
char *tag;
- /* Its type. */
+ /* The location of its first occurence. */
+ location_t location;
+
+ /* Its %type and associated printer and destructor. */
char *type_name;
+ char *destructor;
+ location_t destructor_location;
+ char *printer;
+ location_t printer_location;
- token_number_t number;
+ symbol_number_t number;
short prec;
- associativity assoc;
+ assoc_t assoc;
int user_token_number;
- /* Points to the other in the identifier-symbol pair for an
- alias. Special value SALIAS in the identifier half of the
+ /* Points to the other in the identifier-symbol pair for an alias.
+ Special value USER_NUMBER_ALIAS in the identifier half of the
identifier-symbol pair for an alias. */
- struct symbol_s *alias;
+ symbol_t *alias;
symbol_class class;
};
-typedef struct symbol_s symbol_t;
+/* Undefined user number. */
+#define USER_NUMBER_UNDEFINED -1
+
+/* `symbol->user_token_number == USER_NUMBER_ALIAS' means this symbol
+ *has* (not is) a string literal alias. For instance, `%token foo
+ "foo"' has `"foo"' numbered regularly, and `foo' numbered as
+ USER_NUMBER_ALIAS. */
+#define USER_NUMBER_ALIAS -9991
+
+/* Undefined internal token number. */
+#define NUMBER_UNDEFINED ((symbol_number_t) -1)
+
+
+/* Fetch (or create) the symbol associated to KEY. */
+symbol_t *symbol_get (const char *key, location_t location);
+
+/* Generate a dummy nonterminal, whose name cannot conflict with the
+ user's names. */
+symbol_t *dummy_symbol_get (location_t location);
+
+/* Declare the new SYMBOL. Make it an alias of SYMVAL. */
+void symbol_make_alias (symbol_t *symbol, symbol_t *symval,
+ location_t location);
+
+/* Set the TYPE_NAME associated to SYMBOL. Does nothing if passed 0 as
+ TYPE_NAME. */
+void symbol_type_set (symbol_t *symbol,
+ char *type_name, location_t location);
+
+/* Set the DESTRUCTOR associated to SYMBOL. */
+void symbol_destructor_set (symbol_t *symbol,
+ char *destructor, location_t location);
+
+/* Set the PRINTER associated to SYMBOL. */
+void symbol_printer_set (symbol_t *symbol,
+ char *printer, location_t location);
+
+/* Set the PRECEDENCE associated to SYMBOL. Ensures that SYMBOL is a
+ terminal. Does nothing if invoked with UNDEF_ASSOC as ASSOC. */
+void symbol_precedence_set (symbol_t *symbol,
+ int prec, assoc_t assoc, location_t location);
+
+/* Set the CLASS associated to SYMBOL. */
+void symbol_class_set (symbol_t *symbol,
+ symbol_class class, location_t location);
+
+/* Set the USER_TOKEN_NUMBER associated to SYMBOL. */
+void symbol_user_token_number_set (symbol_t *symbol,
+ int user_number, location_t location);
+
+
+/* Distinguished symbols. AXIOM is the real start symbol, that used
+ by the automaton. STARTSYMBOL is the one specified by the user.
+ */
+extern symbol_t *errtoken;
+extern symbol_t *undeftoken;
+extern symbol_t *endtoken;
+extern symbol_t *accept;
+extern symbol_t *startsymbol;
+extern location_t startsymbol_location;
+
+
+/*---------------.
+| Symbol table. |
+`---------------*/
+
+
+/* Create the symbol table. */
+void symbols_new (void);
/* A function to apply to each symbol. */
-typedef bool (*symbol_processor) PARAMS ((symbol_t *));
+typedef bool (*symbol_processor) (symbol_t *);
+
+/* Apply PROCESSOR to all the symbols. PROCESSOR must return true: on
+ false, the processing stops. */
+void symbols_do (symbol_processor processor, void *processor_data);
+
+/* Free all the memory allocated for symbols. */
+void symbols_free (void);
-symbol_t *getsym PARAMS ((const char *));
+/* Check that all the symbols are defined. Report any undefined
+ symbols and consider them nonterminals. */
+void symbols_check_defined (void);
-void symbols_new PARAMS ((void));
-void symbols_do PARAMS ((symbol_processor processor, void *processor_data));
-void symbols_free PARAMS ((void));
+/* Perform various sanity checks, assign symbol numbers, and set up
+ TOKEN_TRANSLATIONS. */
+void symbols_pack (void);
#endif /* !SYMTAB_H_ */