Mercurial > ~dholland > hg > ag > index.cgi
diff tests/agcl/oldagsrc/good/cf-old.h @ 0:13d2b8934445
Import AnaGram (near-)release tree into Mercurial.
author | David A. Holland |
---|---|
date | Sat, 22 Dec 2007 17:52:45 -0500 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/agcl/oldagsrc/good/cf-old.h Sat Dec 22 17:52:45 2007 -0500 @@ -0,0 +1,88 @@ +#ifndef CF-OLD_H +#define CF-OLD_H + +typedef union { + long alignment; + char ag_vt_2[sizeof(int)]; + char ag_vt_4[sizeof(unsigned long)]; +} cf-old_vs_type; + +typedef enum { + cf-old_config_file_token = 1, cf-old_equals_token, cf-old_space_token = 4, + cf-old_minus_token = 6, cf-old_plus_token = 8, cf-old_tilde_token = 10, + cf-old_left_parenthesis_token = 12, cf-old_right_parenthesis_token = 14, + cf-old_blank_token = 16, cf-old_global_parameter_token = 19, + cf-old_end_of_line_token, cf-old_eof_token = 24, cf-old_name_token, + cf-old_data_type_token, cf-old_keyword_string_token, cf-old_number_token, + cf-old_trial_copy_code_token = 32, cf-old_abstract_declarator_token = 34, + cf-old_indirect_data_type_token, cf-old_direct_abstract_declarator_token, + cf-old_pointer_token = 38, cf-old_star_token, + cf-old_name_string_token = 41, cf-old_letter_token, + cf-old_blank_char_token = 44, cf-old_c_comment_token, + cf-old_continuation_token, cf-old_comment_token, cf-old_next_line_token, + cf-old_carriage_return_token, cf-old_newline_token = 51, + cf-old_white_token, cf-old_vertical_space_token, + cf-old_decimal_number_token = 58, cf-old_octal_number_token = 60, + cf-old_hex_number_token = 63, cf-old_simple_number_token = 67, + cf-old_sign_token, cf-old_keyword_string_head_token = 70, + cf-old_string_token, cf-old_double_quote_token, cf-old_string_A_token, + cf-old_string_B_token, cf-old_string_C_token, cf-old_string_char_token, + cf-old_simple_string_char_token, cf-old_escape_sequence_token, + cf-old_three_octal_token = 90, cf-old_one_octal_token, + cf-old_backslash_token, cf-old_two_octal_token, cf-old_octal_escape_token, + cf-old_hex_escape_token = 96, cf-old_any_digit_token = 98, + cf-old_nonoctal_digit_token, cf-old_c_comment_text_token +} cf-old_token_type; + +typedef struct cf-old_pcb_struct{ + cf-old_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]; + cf-old_vs_type vs[128]; + int ag_ap; + const char *error_message; + char read_flag; + char exit_flag; + cint input_context; + cint cs[128]; + int bts[128], btsx; + int (near * near const *gt_procs)(void); + int (near * near const *r_procs)(void); + int (near * near const *s_procs)(void); + unsigned char * pointer; + unsigned char * la_ptr; + const unsigned char *key_sp; + int save_index, key_state; + int ag_error_depth, ag_min_depth, ag_tmp_depth; + int ag_rss[2*128], ag_lrss; + char ag_msg[82]; + const int *ag_dtl; + int ag_dsn; + int ag_resynch_active; +} cf-old_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_cf-old(void); +void cf-old(void); + +int cf-old_value(void); +#endif +