view tests/agcl/examples/good/krc.h @ 21:1c9dac05d040

Add lint-style FALLTHROUGH annotations to fallthrough cases. (in the parse engine and thus the output code) Document this, because the old output causes warnings with gcc10.
author David A. Holland
date Mon, 13 Jun 2022 00:04:38 -0400
parents 13d2b8934445
children
line wrap: on
line source

#ifndef KRC_H
#define KRC_H

typedef union {
  long alignment;
  char ag_vt_2[sizeof(int)];
  char ag_vt_4[sizeof(token)];
} cc_vs_type;

typedef enum {
  cc_program_token = 1, cc_statement_token, cc_translation_unit_token,
  cc_eof_token, cc_external_declaration_token, cc_function_definition_token,
  cc_declaration_token, cc_declarator_token, cc_compound_statement_token,
  cc_declaration_list_token, cc_declaration_specifiers_token,
  cc_init_declarator_list_token, cc_storage_class_specifier_token = 15,
  cc_type_specifier_token, cc_type_qualifier_token, cc_AUTO_token,
  cc_REGISTER_token, cc_STATIC_token, cc_EXTERN_token, cc_TYPEDEF_token,
  cc_VOIDkey_token, cc_CHAR_token, cc_SHORT_token, cc_INT_token,
  cc_LONG_token, cc_FLOAT_token, cc_DOUBLE_token, cc_SIGNED_token,
  cc_UNSIGNED_token, cc_struct_or_union_specifier_token,
  cc_enum_specifier_token, cc_typedef_name_token, cc_CONSTANT_token,
  cc_VOLATILE_token, cc_struct_or_union_token, cc_identifier_token,
  cc_struct_declaration_list_token = 42, cc_STRUCT_token = 44,
  cc_UNION_token, cc_struct_declaration_token, cc_init_declarator_token,
  cc_initializer_token = 50, cc_specifier_qualifier_list_token,
  cc_struct_declarator_list_token, cc_struct_declarator_token,
  cc_constant_expression_token = 56, cc_ENUM_token,
  cc_enumerator_list_token, cc_enumerator_token, cc_direct_declarator_token,
  cc_pointer_token, cc_parameter_type_list_token = 67,
  cc_identifier_list_token, cc_type_qualifier_list_token = 71,
  cc_parameter_list_token = 73, cc_ELLIPSIS_token,
  cc_parameter_declaration_token, cc_abstract_declarator_token,
  cc_assignment_expression_token = 78, cc_initializer_list_token,
  cc_type_name_token, cc_direct_abstract_declarator_token,
  cc_NAME_token = 83, cc_labeled_statement_token,
  cc_expression_statement_token, cc_selection_statement_token,
  cc_iteration_statement_token, cc_jump_statement_token, cc_CASE_token,
  cc_DEFAULT_token, cc_expression_token, cc_statement_list_token = 93,
  cc_IF_token = 95, cc_ELSE_token, cc_SWITCH_token, cc_WHILE_token,
  cc_DO_token, cc_FOR_token, cc_GOTO_token, cc_CONTINUE_token,
  cc_BREAK_token, cc_RETURN_token, cc_conditional_expression_token,
  cc_unary_expression_token, cc_assignment_operator_token,
  cc_MULTassign_token, cc_DIVassign_token, cc_MODassign_token,
  cc_PLUSassign_token, cc_MINUSassign_token, cc_LSassign_token,
  cc_RSassign_token, cc_ANDassign_token, cc_ORassign_token,
  cc_ERassign_token, cc_logical_or_expression_token,
  cc_logical_and_expression_token = 120, cc_OROR_token,
  cc_inclusive_or_expression_token, cc_ANDAND_token,
  cc_exclusive_or_expression_token, cc_and_expression_token = 126,
  cc_equality_expression_token = 128, cc_relational_expression_token = 130,
  cc_EQ_token, cc_NE_token, cc_shift_expression_token, cc_LE_token = 136,
  cc_GE_token, cc_additive_expression_token, cc_LS_token, cc_RS_token,
  cc_multiplicative_expression_token, cc_cast_expression_token = 144,
  cc_postfix_expression_token = 147, cc_ICR_token, cc_DECR_token,
  cc_unary_operator_token, cc_SIZEOF_token,
  cc_primary_expression_token = 154, cc_argument_expression_list_token,
  cc_ARROW_token = 158, cc_constant_token, cc_STRINGliteral_token,
  cc_HEXconstant_token, cc_OCTconstant_token, cc_DECconstant_token,
  cc_FLOATconstant_token, cc_CHARACTERconstant_token
} cc_token_type;

typedef struct cc_pcb_struct{
  cc_token_type token_number, reduction_token, error_frame_token;
  int input_code;
  token input_value;
  int line, column;
  int ssx, sn, error_frame_ssx;
  int drt, dssx, dsn;
  int ss[128];
  cc_vs_type vs[128];
  int ag_ap;
  const char *error_message;
  char read_flag;
  char exit_flag;
  int bts[128], btsx;
  char ag_msg[82];
  const  int *ag_dtl;
  int ag_dsn;
} cc_pcb_type;

#ifndef PRULE_CONTEXT
#define PRULE_CONTEXT(pcb)  (&((pcb).cs[(pcb).ssx]))
#define PERROR_CONTEXT(pcb) ((pcb).cs[(pcb).error_frame_ssx])
#define PCONTEXT(pcb)       ((pcb).cs[(pcb).ssx])
#endif

#ifndef AG_RUNNING_CODE
/* PCB.exit_flag values */
#define AG_RUNNING_CODE         0
#define AG_SUCCESS_CODE         1
#define AG_SYNTAX_ERROR_CODE    2
#define AG_REDUCTION_ERROR_CODE 3
#define AG_STACK_ERROR_CODE     4
#define AG_SEMANTIC_ERROR_CODE  5
#endif

extern cc_pcb_type cc_pcb;
void init_cc(void);
void cc(void);
#endif