Mercurial > ~dholland > hg > ag > index.cgi
comparison tests/agcl/parsifal/good/iaptest.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 |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:13d2b8934445 |
---|---|
1 #ifndef IAPTEST_H | |
2 #define IAPTEST_H | |
3 | |
4 typedef enum { | |
5 iaptest_grammar_token = 1 | |
6 } iaptest_token_type; | |
7 | |
8 typedef struct iaptest_pcb_struct{ | |
9 iaptest_token_type token_number, reduction_token, error_frame_token; | |
10 int input_code; | |
11 int input_value; | |
12 int line, column; | |
13 int ssx, sn, error_frame_ssx; | |
14 int drt, dssx, dsn; | |
15 int ss[128]; | |
16 int vs[128]; | |
17 int ag_ap; | |
18 const char *error_message; | |
19 char read_flag; | |
20 char exit_flag; | |
21 int bts[128], btsx; | |
22 char ag_msg[82]; | |
23 } iaptest_pcb_type; | |
24 | |
25 #ifndef PRULE_CONTEXT | |
26 #define PRULE_CONTEXT(pcb) (&((pcb).cs[(pcb).ssx])) | |
27 #define PERROR_CONTEXT(pcb) ((pcb).cs[(pcb).error_frame_ssx]) | |
28 #define PCONTEXT(pcb) ((pcb).cs[(pcb).ssx]) | |
29 #endif | |
30 | |
31 #ifndef AG_RUNNING_CODE | |
32 /* PCB.exit_flag values */ | |
33 #define AG_RUNNING_CODE 0 | |
34 #define AG_SUCCESS_CODE 1 | |
35 #define AG_SYNTAX_ERROR_CODE 2 | |
36 #define AG_REDUCTION_ERROR_CODE 3 | |
37 #define AG_STACK_ERROR_CODE 4 | |
38 #define AG_SEMANTIC_ERROR_CODE 5 | |
39 #endif | |
40 | |
41 extern iaptest_pcb_type iaptest_pcb; | |
42 void init_iaptest(void); | |
43 void iaptest(void); | |
44 #endif | |
45 |