blob: 2421481d501addf13ca897b783a07e50f5ba6873 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
|
/* */
/*----------------------------------------------------------------------+
| |
| This file contains the structures and defines that are needed to use |
| the parser from a C program. |
| |
| |
| Date: 5-21-87 |
| |
+----------------------------------------------------------------------*/
#define BYTE unsigned char /*;AN000;*/
#define WORD unsigned short /*;AN000;*/
#define DWORD unsigned long /*;AN000;*/
#define p_len_parms 4 /* length of p_parms */ /*;AN000;*/
#define p_i_use_default 0 /* no extra stuff specified */ /*;AN000;*/
#define p_i_have_delim 1 /* extra delimiter specified */ /*;AN000;*/
#define p_i_have_eol 2 /* extra EOL specified */ /*;AN000;*/
struct p_parms /*;AN000;*/
{ /*;AN000;*/
struct p_parmsx *p_parmsx_address; /* address of p_parmsx */ /*;AN000;*/
BYTE p_num_extra; /* number of extra stuff */ /*;AN000;*/
BYTE p_len_extra_delim; /* length of extra delimiter */ /*;AN000;*/
char p_extra_delim[30]; /* extra delimiters */ /*;AN000;*/
}; /*;AN000;*/
struct p_parmsx /*;AN000;*/
{ /*;AN000;*/
BYTE p_minp; /* Minimum positional number */ /*;AN000;*/
BYTE p_maxp; /* Maximum positional number */ /*;AN000;*/
struct p_control_blk *p_control1; /* Address of the 1st CONTROL block */ /*;AN000;*/
struct p_control_blk *p_control2; /* Address of the 2nd CONTROL block */ /*;AN000;*/
struct p_control_blk *p_control3; /* Address of the 3nd CONTROL block */ /*;AN000;*/
struct p_control_blk *p_control4; /* Address of the 4th CONTROL block */ /*;AN000;*/
struct p_control_blk *p_control5; /* Address of the 3nd CONTROL block */ /*;AN000;*/
struct p_control_blk *p_control6; /* Address of the 4th CONTROL block */ /*;AN000;*/
BYTE p_maxs; /*;AN000;*/
struct p_control_blk *p_switch; /*;AN000;*/
BYTE p_maxk; /*;AN000;*/
struct p_control_blk *p_keyword1; /*;AN000;*/
struct p_control_blk *p_keyword2; /*;AN000;*/
struct p_control_blk *p_keyword3; /*;AN000;*/
}; /*;AN000;*/
struct p_control_blk /*;AN000;*/
{ /*;AN000;*/
WORD p_match_flag; /* Controls type matched */ /*;AN000;*/
WORD p_function_flag; /* Function should be taken */ /*;AN000;*/
WORD p_result_buf; /* Result buffer address */ /*;AN000;*/
WORD p_value_list; /* Value list address */ /*;AN000;*/
BYTE p_nid; /* # of keyword/SW synonyms */ /*;AN000;*/
char p_keyorsw[20]; /* keyword or sw */ /*;AN000;*/
}; /*;AN000;*/
/* Match_Flags */ /*;AN000;*/
#define p_num_val 0x8000 /* Numeric Value */ /*;AN000;*/
#define p_snum_val 0x4000 /* Signed numeric value */ /*;AN000;*/
#define p_simple_s 0x2000 /* Simple string */ /*;AN000;*/
#define p_date_s 0x1000 /* Date string */ /*;AN000;*/
#define p_time_s 0x0800 /* Time string */ /*;AN000;*/
#define p_cmpx_s 0x0400 /* Complex string */ /*;AN000;*/
#define p_file_spc 0x0200 /* File Spec */ /*;AN000;*/
#define p_drv_only 0x0100 /* Drive Only */ /*;AN000;*/
#define p_qu_string 0x0080 /* Quoted string */ /*;AN000;*/
#define p_ig_colon 0x0010 /* Ignore colon at end in match */ /*;AN000;*/
#define p_repeat 0x0002 /* Repeat allowed */ /*;AN000;*/
#define p_optional 0x0001 /* Optional */ /*;AN000;*/
/*----------------------------------------------------------------------+
| |
| Function flags |
| |
+----------------------------------------------------------------------*/
#define p_cap_file 0x0001 /* CAP result by file table */ /*;AN000;*/
#define p_cap_char 0x0002 /* CAP result by character table */ /*;AN000;*/
#define p_rm_colon 0x0010 /* Remove ":" at the end */ /*;AN000;*/
#define p_nval_none 0 /* no value list ID */ /*;AN000;*/
#define p_nval_range 1 /* range list ID */ /*;AN000;*/
#define p_nval_value 2 /* value list ID */ /*;AN000;*/
#define p_nval_string 3 /* string list ID */ /*;AN000;*/
#define p_len_range 9 /* Length of a range choice(two DD plus one DB) */ /*;AN000;*/
#define p_len_value 5 /* Length of a value choice(one DD plus one DB) */ /*;AN000;*/
#define p_len_string 3 /* Length of a string choice(one DW plus one DB) */ /*;AN000;*/
/*----------------------------------------------------------------------+
| |
| Result block structure |
| |
+----------------------------------------------------------------------*/
struct p_result_blk /*;AN000;*/
{ /*;AN000;*/
BYTE p_type; /* Type returned */ /*;AN000;*/
BYTE p_item_tag; /* Matched item tag */ /*;AN000;*/
WORD p_synonym_ptr; /* pointer to Synonym list returned */ /*;AN000;*/
WORD p_result_buff[2]; /* result value */ /*;AN000;*/
}; /*;AN000;*/
/*----------------------------------------------------------------------+
| |
| type |
| |
+----------------------------------------------------------------------*/
#define p_eol 0 /* End of line */ /*;AN000;*/
#define p_number 1 /* Number */ /*;AN000;*/
#define p_list_idx 2 /* List Index */ /*;AN000;*/
#define p_string 3 /* String */ /*;AN000;*/
#define p_complex 4 /* Complex */ /*;AN000;*/
#define p_file_spec 5 /* File Spec */ /*;AN000;*/
#define p_drive 6 /* Drive */ /*;AN000;*/
#define p_date_f 7 /* Date */ /*;AN000;*/
#define p_time_f 8 /* Time */ /*;AN000;*/
#define p_quoted_string 9 /* Quoted String */ /*;AN000;*/
#define p_no_tag 0x0FF /* No ITEM_TAG found */ /*;AN000;*/
/*----------------------------------------------------------------------+
| |
| following return code will be returned in the AX register. |
| |
+----------------------------------------------------------------------*/
#define p_no_error 0 /* No error */ /*;AN000;*/
#define p_too_many 1 /* Too many operands */ /*;AN000;*/
#define p_op_missing 2 /* Required operand missing */ /*;AN000;*/
#define p_not_in_sw 3 /* Not in switch list provided */ /*;AN000;*/
#define p_not_in_key 4 /* Not in keyword list provided */ /*;AN000;*/
#define p_out_of_range 6 /* Out of range specified */ /*;AN000;*/
#define p_not_in_val 7 /* Not in value list provided */ /*;AN000;*/
#define p_not_in_str 8 /* Not in string list provided */ /*;AN000;*/
#define p_syntax 9 /* Syntax error */ /*;AN000;*/
#define p_rc_eol 0x0ffff /* End of command line */ /*;AN000;*/
/*----------------------------------------------------------------------+
| |
| String Value List Block Structure |
| |
+----------------------------------------------------------------------*/
struct ps_valist_blk /*;AN000;*/
{ /*;AN000;*/
BYTE ps_val; /* Value type */ /*;AN000;*/
BYTE ps_nrng; /* Number of ranges */ /*;AN000;*/
BYTE ps_nnval; /* Number of numbers */ /*;AN000;*/
BYTE ps_nstrval; /* Number of strings */ /*;AN000;*/
BYTE ps_item_tag1; /* Matched item tag */ /*;AN000;*/
WORD ps_strings1; /* Address of strings */ /*;AN000;*/
BYTE ps_item_tag2; /* Matched item tag */ /*;AN000;*/
WORD ps_strings2; /* Address of strings */ /*;AN000;*/
BYTE ps_item_tag3; /* Matched item tag */ /*;AN000;*/
WORD ps_strings3; /* Address of strings */ /*;AN000;*/
BYTE ps_item_tag4; /* Matched item tag */ /*;AN000;*/
WORD ps_strings4; /* Address of strings */ /*;AN000;*/
BYTE ps_item_tag5; /* Matched item tag */ /*;AN000;*/
WORD ps_strings5; /* Address of strings */ /*;AN000;*/
BYTE ps_item_tag6; /* Matched item tag */ /*;AN000;*/
WORD ps_strings6; /* Address of strings */ /*;AN000;*/
BYTE ps_item_tag7; /* Matched item tag */ /*;AN000;*/
WORD ps_strings7; /* Address of strings */ /*;AN000;*/
BYTE ps_item_tag8; /* Matched item tag */ /*;AN000;*/
WORD ps_strings8; /* Address of strings */ /*;AN000;*/
BYTE ps_item_tag9; /* Matched item tag */ /*;AN000;*/
WORD ps_strings9; /* Address of strings */ /*;AN000;*/
BYTE ps_item_tag10; /* Matched item tag */ /*;AN000;*/
WORD ps_strings10; /* Address of strings */ /*;AN000;*/
BYTE ps_item_tag11; /* Matched item tag */ /*;AN000;*/
WORD ps_strings11; /* Address of strings */ /*;AN000;*/
BYTE ps_item_tag12; /* Matched item tag */ /*;AN000;*/
WORD ps_strings12; /* Address of strings */ /*;AN000;*/
BYTE ps_item_tag13; /* Matched item tag */ /*;AN000;*/
WORD ps_strings13; /* Address of strings */ /*;AN000;*/
BYTE ps_item_tag14; /* Matched item tag */ /*;AN000;*/
WORD ps_strings14; /* Address of strings */ /*;AN000;*/
BYTE ps_item_tag15; /* Matched item tag */ /*;AN000;*/
WORD ps_strings15; /* Address of strings */ /*;AN000;*/
BYTE ps_item_tag16; /* Matched item tag */ /*;AN000;*/
WORD ps_strings16; /* Address of strings */ /*;AN000;*/
BYTE ps_item_tag17; /* Matched item tag */ /*;AN000;*/
WORD ps_strings17; /* Address of strings */ /*;AN000;*/
}; /*;AN000;*/
|
