Mercurial > ~dholland > hg > ag > index.cgi

comparison tests/agcl/examples/good/ex.h @ 0:13d2b8934445

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import AnaGram (near-)release tree into Mercurial.
author David A. Holland
date Sat, 22 Dec 2007 17:52:45 -0500
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:13d2b8934445
1 #ifndef EX_H
2 #define EX_H
3
4 typedef union {
5 long alignment;
6 char ag_vt_3[sizeof(long)];
7 char ag_vt_4[sizeof(token)];
8 } ex_vs_type;
9
10 typedef enum {
11 ex_expression_evaluator_token = 1, ex_exp_token, ex_eof_token,
12 ex_conditional_exp_token, ex_logical_or_exp_token,
13 ex_logical_and_exp_token = 8, ex_OROR_token, ex_inclusive_or_exp_token,
14 ex_ANDAND_token, ex_exclusive_or_exp_token, ex_and_exp_token = 14,
15 ex_equality_exp_token = 16, ex_relational_exp_token = 18, ex_EQ_token,
16 ex_NE_token, ex_shift_exp_token, ex_LE_token = 24, ex_GE_token,
17 ex_additive_exp_token, ex_LS_token, ex_RS_token,
18 ex_multiplicative_exp_token, ex_unary_exp_token = 32,
19 ex_nonzero_token = 35, ex_primary_exp_token = 37,
20 ex_HEXconstant_token = 40, ex_OCTconstant_token, ex_DECconstant_token,
21 ex_CHARACTERconstant_token, ex_NAME_token
22 } ex_token_type;
23
24 typedef struct ex_pcb_struct{
25 ex_token_type token_number, reduction_token, error_frame_token;
26 int input_code;
27 token input_value;
28 int line, column;
29 int ssx, sn, error_frame_ssx;
30 int drt, dssx, dsn;
31 int ss[128];
32 ex_vs_type vs[128];
33 int ag_ap;
34 const char *error_message;
35 char read_flag;
36 char exit_flag;
37 int bts[128], btsx;
38 } ex_pcb_type;
39
40 #ifndef PRULE_CONTEXT
41 #define PRULE_CONTEXT(pcb) (&((pcb).cs[(pcb).ssx]))
42 #define PERROR_CONTEXT(pcb) ((pcb).cs[(pcb).error_frame_ssx])
43 #define PCONTEXT(pcb) ((pcb).cs[(pcb).ssx])
44 #endif
45
46 #ifndef AG_RUNNING_CODE
47 /* PCB.exit_flag values */
48 #define AG_RUNNING_CODE 0
49 #define AG_SUCCESS_CODE 1
50 #define AG_SYNTAX_ERROR_CODE 2
51 #define AG_REDUCTION_ERROR_CODE 3
52 #define AG_STACK_ERROR_CODE 4
53 #define AG_SEMANTIC_ERROR_CODE 5
54 #endif
55 void init_ex(void);
56 void ex(void);
57
58 long ex_value(void);
59 #endif
60