Parsifal Software - Home | AnaGram trial copy | Example download
#ifndef EVALKERN_H #define EVALKERN_H typedef union { long alignment; char ag_vt_2[sizeof(int)]; char ag_vt_4[sizeof(double)]; } evalKernel_vs_type; typedef enum { evalKernel_white_space_token = 1, evalKernel_input_string_token = 4, evalKernel_expressions_token, evalKernel_eof_token, evalKernel_expression_token, evalKernel_conditional_expression_token = 10, evalKernel_logical_or_expression_token = 16, evalKernel_logical_and_expression_token = 19, evalKernel_equality_expression_token = 21, evalKernel_relational_expression_token = 23, evalKernel_additive_expression_token = 26, evalKernel_multiplicative_expression_token = 31, evalKernel_unary_expression_token = 34, evalKernel_factor_token = 37, evalKernel_primary_token, evalKernel_arguments_token = 43, evalKernel_argument_list_token, evalKernel_simple_real_token = 57, evalKernel_exponent_token = 60, evalKernel_integer_part_token, evalKernel_fraction_part_token = 63, evalKernel_digit_token = 65, evalKernel_letter_token, evalKernel_name_token = 75, evalKernel_real_token = 95 } evalKernel_token_type; typedef struct { evalKernel_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]; evalKernel_vs_type vs[128]; int ag_ap; char *error_message; char read_flag; char exit_flag; int bts[128], btsx; unsigned char * pointer; unsigned char * la_ptr; const unsigned char *key_sp; int save_index, key_state; char ag_msg[82]; } evalKernel_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_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 evalKernel_pcb_type evalKernel_pcb; void init_evalKernel(void); void evalKernel(void); #endif
Comments or questions? support@parsifalsoft.com