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

comparison tests/agcl/parsifal/good/sort.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 SORT_H
2 #define SORT_H
3
4 typedef union {
5 long alignment;
6 char ag_vt_2[sizeof(int)];
7 char ag_vt_4[sizeof(unsigned char *)];
8 char ag_vt_5[sizeof(String)];
9 } sort_vs_type;
10
11 typedef enum {
12 sort_words_token = 1, sort_word_token, sort_blank_token,
13 sort_char_token = 5, sort_text_token = 7, sort_address_token = 9,
14 sort_line_token = 12, sort_grammar_token, sort_eof_token = 16
15 } sort_token_type;
16
17 typedef struct sort_pcb_struct{
18 sort_token_type token_number, reduction_token, error_frame_token;
19 int input_code;
20 int input_value;
21 int line, column;
22 int ssx, sn, error_frame_ssx;
23 int drt, dssx, dsn;
24 int ss[128];
25 sort_vs_type vs[128];
26 int ag_ap;
27 const char *error_message;
28 char read_flag;
29 char exit_flag;
30 unsigned char * input_context;
31 unsigned char * cs[128];
32 int bts[128], btsx;
33 char ag_msg[82];
34 } sort_pcb_type;
35
36 #ifndef PRULE_CONTEXT
37 #define PRULE_CONTEXT(pcb) (&((pcb).cs[(pcb).ssx]))
38 #define PERROR_CONTEXT(pcb) ((pcb).cs[(pcb).error_frame_ssx])
39 #define PCONTEXT(pcb) ((pcb).cs[(pcb).ssx])
40 #endif
41
42 #ifndef AG_RUNNING_CODE
43 /* PCB.exit_flag values */
44 #define AG_RUNNING_CODE 0
45 #define AG_SUCCESS_CODE 1
46 #define AG_SYNTAX_ERROR_CODE 2
47 #define AG_REDUCTION_ERROR_CODE 3
48 #define AG_STACK_ERROR_CODE 4
49 #define AG_SEMANTIC_ERROR_CODE 5
50 #endif
51
52 extern sort_pcb_type sort_pcb;
53 void init_sort(void);
54 void sort(void);
55 #endif
56