--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/agcl/contrib/good/plm.h	Sat Dec 22 17:52:45 2007 -0500
@@ -0,0 +1,136 @@
+#ifndef PLM_H
+#define PLM_H
+
+typedef enum {
+  plm_compilation_token = 57, plm_white_space_token,
+  plm_actual_parameters_token = 68, plm_expression_list_token = 70,
+  plm_adding_operator_token = 72, plm_MINUS_SIGN_token,
+  plm_and_operator_token = 75, plm_arithmetic_expression_token,
+  plm_term_token, plm_array_specifier_token, plm_explicit_dimension_token,
+  plm_implicit_dimension_token, plm_assignment_statement_token,
+  plm_left_part_token, plm_expression_token = 84,
+  plm_base_specifier_token = 86, plm_basic_statement_token = 88,
+  plm_call_statement_token, plm_goto_statement_token,
+  plm_microprocessor_dependent_statement_token, plm_null_statement_token,
+  plm_return_statement_token, plm_basic_type_token,
+  plm_bound_expression_token, plm_by_part_token, plm_step_expression_token,
+  plm_simple_variable_token, plm_cast_type_token,
+  plm_cause_interrupt_statement_token, plm_module_token = 102,
+  plm_eof_token, plm_conditional_clause_token, plm_if_condition_token,
+  plm_true_unit_token, plm_true_element_token, plm_false_element_token,
+  plm_constant_token, plm_constant_attribute_token, plm_constant_list_token,
+  plm_declaration_token = 113, plm_declare_statement_token,
+  plm_procedure_definition_token, plm_declaration_sequence_token,
+  plm_declare_element_token, plm_factored_element_token,
+  plm_unfactored_element_token, plm_declare_element_list_token,
+  plm_disable_statement_token, plm_do_block_token, plm_do_case_block_token,
+  plm_do_while_block_token, plm_iterative_do_block_token,
+  plm_simple_do_block_token, plm_do_case_statement_token, plm_ending_token,
+  plm_unit_sequence_token, plm_do_while_statement_token,
+  plm_embedded_assignment_token, plm_variable_reference_token,
+  plm_logical_expression_token, plm_enable_statement_token,
+  plm_end_statement_token, plm_opt_identifier_token,
+  plm_label_definition_sequence_token, plm_factored_label_element_token,
+  plm_factored_variable_element_token,
+  plm_variable_name_specifier_list_token, plm_opt_public_or_external_token,
+  plm_factored_member_token, plm_member_name_list_token,
+  plm_opt_explicit_dimension_token, plm_variable_type_token,
+  plm_opt_variable_attributes_token, plm_unit_token,
+  plm_formal_parameter_token, plm_formal_parameter_list_token,
+  plm_formal_parameter_specifier_token, plm_go_to_token,
+  plm_halt_statement_token, plm_id_colon_token, plm_index_part_token = 156,
+  plm_index_variable_token, plm_start_expression_token,
+  plm_initial_value_token, plm_initial_value_list_token,
+  plm_initialization_token, plm_binary_number_token,
+  plm_decimal_number_token, plm_hex_number_token, plm_octal_number_token,
+  plm_interrupt_token, plm_opt_interrupt_number_token,
+  plm_interrupt_number_token, plm_iterative_do_statement_token,
+  plm_to_part_token, plm_opt_by_part_token, plm_label_definition_token,
+  plm_label_element_token, plm_variable_reference_list_token,
+  plm_literal_element_token, plm_location_reference_token,
+  plm_locator_token = 178, plm_locator_initialization_token,
+  plm_logical_factor_token, plm_or_operator_token,
+  plm_logical_secondary_token, plm_logical_primary_token,
+  plm_relation_operator_token, plm_member_element_token,
+  plm_structure_type_token, plm_unfactored_member_token,
+  plm_member_element_list_token, plm_member_name_token,
+  plm_member_specifier_token, plm_subscript_token,
+  plm_member_specifier_sequence_token, plm_module_name_token,
+  plm_multiplying_operator_token, plm_floating_point_number_token = 196,
+  plm_opt_array_specifier_token, plm_opt_formal_parameter_specifier_token,
+  plm_opt_procedure_attribute_sequence_token,
+  plm_procedure_attribute_sequence_token, plm_opt_procedure_type_token,
+  plm_procedure_type_token, plm_variable_attributes_token,
+  plm_primary_token, plm_subexpression_token, plm_procedure_attribute_token,
+  plm_procedure_statement_token, plm_typed_return_token = 210,
+  plm_untyped_return_token, plm_secondary_token, plm_unary_sign_token,
+  plm_simple_do_statement_token, plm_subscript_or_actual_parameters_token,
+  plm_true_statement_token, plm_unary_minus_token, plm_unary_plus_token,
+  plm_variable_element_token, plm_unit_element_token,
+  plm_variable_name_specifier_token, plm_decimal_number_tail_token,
+  plm_binary_number_tail_token = 226, plm_octal_number_tail_token = 229,
+  plm_hex_number_tail_token = 232,
+  plm_floating_point_number_tail_token = 235, plm_fraction_part_token,
+  plm_exponent_token, plm_RPAREN_token = 258, plm_LPAREN_token,
+  plm_MINUS_token, plm_PLUS_token, plm_PLUS_SIGN_token, plm_AND_token,
+  plm_SEMI_token, plm_EQ_token, plm_IDENTIFIER_token, plm_DOT_token,
+  plm_ADDRESS_token, plm_BYTE_token, plm_CHARINT_token, plm_DWORD_token,
+  plm_HWORD_token, plm_INTEGER_token, plm_LONGINT_token, plm_OFFSET_token,
+  plm_POINTER_token, plm_QWORD_token, plm_REAL_token, plm_SELECTOR_token,
+  plm_SHORTINT_token, plm_WORD_token, plm_BY_token, plm_CALL_token,
+  plm_CAUSE_INTERRUPT_token, plm_EOF_KW_token, plm_ELSE_token,
+  plm_STRING_token, plm_numeric_constant_token, plm_DATA_token,
+  plm_COMMA_token, plm_DECLARE_token, plm_DISABLE_token, plm_CASE_token,
+  plm_DO_token, plm_WHILE_token, plm_ASSIGN_OP_token, plm_ENABLE_token,
+  plm_END_token, plm_LABEL_token, plm_GOTO_token, plm_TO_token,
+  plm_GO_token, plm_HALT_token, plm_COLON_token, plm_THEN_token,
+  plm_IF_token, plm_STAR_token, plm_INITIAL_KW_token, plm_INTERRUPT_token,
+  plm_LITERALLY_token, plm_AT_SIGN_token, plm_AT_token, plm_NOT_token,
+  plm_MOD_token, plm_SLASH_token, plm_EXTERNAL_token, plm_PUBLIC_token,
+  plm_OR_token, plm_XOR_token, plm_REENTRANT_token, plm_PROCEDURE_token,
+  plm_GE_token, plm_GT_token, plm_LE_token, plm_LT_token, plm_NE_token,
+  plm_STRUCTURE_token, plm_RETURN_token, plm_BASED_token,
+  plm_integer_constant_token = 331
+} plm_token_type;
+
+typedef struct plm_pcb_struct{
+  plm_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];
+  int vs[128];
+  int ag_ap;
+  const char *error_message;
+  char read_flag;
+  char exit_flag;
+  int bts[128], btsx;
+  int lab[15], rx, fx;
+  const unsigned char *key_sp;
+  int save_index, key_state;
+  char ag_msg[82];
+} plm_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 plm_pcb_type plm_pcb;
+void init_plm(void);
+void plm(void);
+#endif
+