Commit | Line | Data |
---|---|---|
b0c08430 | 1 | #ifndef lint |
a7b2e18a | 2 | static char *sccsid = "@(#)parser1.c 3.11 84/01/12"; |
b0c08430 EW |
3 | #endif |
4 | ||
a7b2e18a | 5 | #include "parser.h" |
b0c08430 EW |
6 | |
7 | p_start() | |
8 | { | |
9 | char flag = 1; | |
10 | ||
11 | (void) s_gettok(); | |
12 | for (;;) { | |
13 | p_statementlist(flag); | |
14 | if (token == T_EOF || p_abort()) | |
15 | break; | |
16 | flag = 0; | |
17 | p_synerror(); | |
18 | while (token != T_EOL && token != T_EOF) { | |
19 | if (token == T_STR) | |
20 | str_free(token_str); | |
21 | (void) s_gettok(); | |
22 | } | |
23 | if (token == T_EOL) | |
24 | (void) s_gettok(); | |
25 | p_clearerr(); | |
26 | } | |
27 | } | |
28 | ||
29 | p_statementlist(flag) | |
30 | char flag; | |
31 | { | |
63f7da95 EW |
32 | for (; p_statement(flag) >= 0; p_clearerr()) |
33 | ; | |
b0c08430 EW |
34 | } |
35 | ||
36 | p_statement(flag) | |
37 | char flag; | |
38 | { | |
39 | #ifdef DEBUG | |
40 | error("statement: %d.", flag); | |
41 | #endif | |
42 | switch (token) { | |
43 | case T_EOL: | |
44 | #ifdef DEBUG | |
45 | error("statement: EOL.", flag); | |
46 | #endif | |
47 | (void) s_gettok(); | |
48 | return 0; | |
49 | case T_IF: | |
50 | #ifdef DEBUG | |
51 | error("statement: IF.", flag); | |
52 | #endif | |
53 | return p_if(flag); | |
54 | default: | |
55 | #ifdef DEBUG | |
56 | error("statement: command.", flag); | |
57 | #endif | |
58 | return p_command(flag); | |
59 | } | |
60 | } | |
61 | ||
62 | p_if(flag) | |
63 | char flag; | |
64 | { | |
65 | struct value t; | |
66 | char true = 0; | |
67 | ||
68 | top: | |
69 | (void) s_gettok(); | |
70 | ||
71 | if (p_expr(&t, flag) < 0) { | |
72 | p_synerror(); | |
73 | return -1; | |
74 | } | |
75 | switch (t.v_type) { | |
76 | case V_NUM: | |
77 | true = !true && t.v_num != 0; | |
78 | break; | |
79 | case V_STR: | |
80 | p_error("Numeric value required for if."); | |
81 | str_free(t.v_str); | |
82 | case V_ERR: | |
83 | flag = 0; | |
84 | break; | |
85 | } | |
86 | ||
87 | if (token != T_THEN) { | |
88 | p_synerror(); | |
89 | return -1; | |
90 | } | |
91 | ||
92 | (void) s_gettok(); | |
93 | p_statementlist(flag && true); | |
94 | if (p_erred()) | |
95 | return -1; | |
96 | ||
97 | if (token == T_ELSIF) | |
98 | goto top; | |
99 | ||
100 | if (token == T_ELSE) { | |
101 | (void) s_gettok(); | |
102 | p_statementlist(flag && !true); | |
103 | if (p_erred()) | |
104 | return -1; | |
105 | } | |
106 | ||
107 | if (token == T_ENDIF) { | |
108 | (void) s_gettok(); | |
109 | return 0; | |
110 | } | |
111 | ||
112 | p_synerror(); | |
113 | return -1; | |
114 | } | |
115 | ||
116 | p_command(flag) | |
117 | char flag; | |
118 | { | |
119 | struct value t; | |
120 | char *cmd; | |
121 | ||
122 | #ifdef DEBUG | |
123 | error("command: %d.", flag); | |
124 | #endif | |
125 | switch (token) { | |
126 | case T_MOD: | |
127 | t.v_type = V_STR; | |
803a666e | 128 | t.v_str = str_cpy("%"); |
b0c08430 EW |
129 | (void) s_gettok(); |
130 | break; | |
131 | case T_NUM: | |
132 | t.v_type = V_NUM; | |
133 | t.v_num = token_num; | |
134 | (void) s_gettok(); | |
135 | break; | |
136 | case T_STR: | |
137 | t.v_type = V_STR; | |
138 | t.v_str = token_str; | |
139 | (void) s_gettok(); | |
140 | break; | |
141 | default: | |
142 | if (p_expr(&t, flag) < 0) | |
143 | return -1; | |
144 | if (token == T_EOF) { | |
145 | #ifdef DEBUG | |
146 | error("command: expression."); | |
147 | #endif | |
474b372d | 148 | val_free(t); |
b0c08430 EW |
149 | return 0; |
150 | } | |
151 | } | |
152 | switch (t.v_type) { | |
153 | case V_ERR: | |
154 | cmd = 0; | |
155 | break; | |
156 | case V_STR: | |
157 | cmd = t.v_str; | |
158 | break; | |
159 | case V_NUM: | |
160 | if ((cmd = str_itoa(t.v_num)) == 0) { | |
161 | p_memerror(); | |
162 | return -1; | |
163 | } | |
164 | } | |
165 | if (token == T_ASSIGN) { | |
166 | #ifdef DEBUG | |
167 | error("command: assignment %s.", cmd == 0 ? "ERR" : cmd); | |
168 | #endif | |
169 | if (p_assign(cmd, &t, flag) < 0) { | |
170 | str_free(cmd); | |
171 | return -1; | |
172 | } | |
173 | } else { | |
174 | #ifdef DEBUG | |
175 | error("command: function %s.", cmd == 0 ? "ERR" : cmd); | |
176 | #endif | |
177 | if (p_function(cmd, &t, flag) < 0) { | |
178 | str_free(cmd); | |
179 | return -1; | |
180 | } | |
181 | } | |
182 | str_free(cmd); | |
474b372d | 183 | val_free(t); |
b0c08430 EW |
184 | if (token == T_EOL) |
185 | (void) s_gettok(); | |
186 | else if (token != T_EOF) { | |
187 | p_synerror(); | |
188 | return -1; | |
189 | } | |
190 | return 0; | |
191 | } | |
192 | ||
b0c08430 EW |
193 | p_synerror() |
194 | { | |
195 | if (!cx.x_synerred) { | |
196 | cx.x_synerred = cx.x_erred = 1; | |
197 | error("Syntax error."); | |
198 | } | |
199 | } | |
200 | ||
201 | /*VARARGS1*/ | |
202 | p_error(msg, a, b, c) | |
203 | char *msg; | |
204 | { | |
205 | if (!cx.x_erred) { | |
206 | cx.x_erred = 1; | |
207 | error(msg, a, b, c); | |
208 | } | |
209 | } | |
210 | ||
211 | p_memerror() | |
212 | { | |
213 | cx.x_erred = cx.x_abort = 1; | |
214 | error("Out of memory."); | |
215 | } |