#ifndef SS-FP_H
#define SS-FP_H

typedef union {
  double alignment;
  char ag_vt_2[sizeof(int)];
  char ag_vt_4[sizeof(number)];
  char ag_vt_5[sizeof(format_code)];
  char ag_vt_6[sizeof(pair<int>)];
  char ag_vt_7[sizeof(char *)];
  char ag_vt_8[sizeof(function_name)];
  char ag_vt_9[sizeof(double)];
} ss-fp_vs_type;

typedef enum {
  ss-fp_space_token = 1, ss-fp_grammar_token, ss-fp_cell_name_token = 4,
  ss-fp_eof_token, ss-fp_input_line_token = 7,
  ss-fp_conditional_expression_token, ss-fp_to_token = 14,
  ss-fp_format_token = 18, ss-fp_alignment_token = 23,
  ss-fp_conversion_token = 26, ss-fp_integer_token = 28,
  ss-fp_column_id_token = 34, ss-fp_letter_token, ss-fp_digit_token = 37,
  ss-fp_x_expression_token, ss-fp_expression_token, ss-fp_disjunction_token,
  ss-fp_conjunction_token = 42, ss-fp_logical_value_token = 44,
  ss-fp_comparison_token = 46, ss-fp_partial_comparison_token = 50,
  ss-fp_summation_token = 57, ss-fp_term_token = 60, ss-fp_xxfactor_token,
  ss-fp_xfactor_token = 63, ss-fp_function_token, ss-fp_factor_token,
  ss-fp_yfactor_token, ss-fp_base_token, ss-fp_simple_factor_token = 69,
  ss-fp_r_value_token, ss-fp_l_value_token, ss-fp_c_value_token,
  ss-fp_number_token, ss-fp_parens_token, ss-fp_sigma_token = 76,
  ss-fp_bound_variable_token, ss-fp_x_expression_string_token,
  ss-fp_integer_part_token = 99, ss-fp_decimal_point_token,
  ss-fp_fraction_part_token = 102, ss-fp_cell_name_request_token = 109,
  ss-fp_input_line_request_token, ss-fp_block_request_token = 112,
  ss-fp_nonzero_digit_token = 125, ss-fp_pi_token = 142
} ss-fp_token_type;

typedef struct ss-fp_pcb_struct{
  ss-fp_token_type token_number, reduction_token, error_frame_token;
  int input_code;
  int input_value;
  int line, column;
  int ssx, sn, error_frame_ssx;
  int drt, dssx, dsn;
  int ss[128];
  ss-fp_vs_type vs[128];
  int ag_ap;
  const char *error_message;
  char read_flag;
  char exit_flag;
  unsigned char * pointer;
  unsigned char * la_ptr;
  const unsigned char *key_sp;
  int save_index, key_state;
} ss-fp_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
void init_ss-fp(void);
void ss-fp(void);
#endif