Lines Matching refs:tok
72 token tok;
75 get_token(&tok);
76 switch (tok.kind) {
101 scan(TOK_SEMICOLON, &tok);
115 token tok;
122 scan(TOK_IDENT, &tok);
123 defp->def_name = tok.str;
124 scan(TOK_LBRACE, &tok);
132 scan(TOK_SEMICOLON, &tok);
133 peek(&tok);
134 } while (tok.kind != TOK_RBRACE);
135 get_token(&tok);
142 token tok;
153 scan(TOK_IDENT, &tok);
154 defp->def_name = tok.str;
155 scan(TOK_LBRACE, &tok);
158 scan(TOK_VERSION, &tok);
160 scan(TOK_IDENT, &tok);
162 vlist->vers_name = tok.str;
163 scan(TOK_LBRACE, &tok);
173 scan(TOK_IDENT, &tok);
174 plist->proc_name = tok.str;
175 scan(TOK_LPAREN, &tok);
192 while (peekscan(TOK_COMMA, &tok)) {
211 scan(TOK_RPAREN, &tok);
212 scan(TOK_EQUAL, &tok);
213 scan_num(&tok);
214 scan(TOK_SEMICOLON, &tok);
215 plist->proc_num = tok.str;
219 peek(&tok);
220 } while (tok.kind != TOK_RBRACE);
224 scan(TOK_RBRACE, &tok);
225 scan(TOK_EQUAL, &tok);
226 scan_num(&tok);
227 vlist->vers_num = tok.str;
235 scan(TOK_SEMICOLON, &tok);
236 scan2(TOK_VERSION, TOK_RBRACE, &tok);
237 } while (tok.kind == TOK_VERSION);
238 scan(TOK_EQUAL, &tok);
239 scan_num(&tok);
240 defp->def.pr.prog_num = tok.str;
248 token tok;
253 scan(TOK_IDENT, &tok);
254 defp->def_name = tok.str;
255 scan(TOK_LBRACE, &tok);
258 scan(TOK_IDENT, &tok);
260 elist->name = tok.str;
262 scan3(TOK_COMMA, TOK_RBRACE, TOK_EQUAL, &tok);
263 if (tok.kind == TOK_EQUAL) {
264 scan_num(&tok);
265 elist->assignment = tok.str;
266 scan2(TOK_COMMA, TOK_RBRACE, &tok);
270 } while (tok.kind != TOK_RBRACE);
277 token tok;
280 scan(TOK_IDENT, &tok);
281 defp->def_name = tok.str;
282 scan(TOK_EQUAL, &tok);
283 scan2(TOK_IDENT, TOK_STRCONST, &tok);
284 defp->def.co = tok.str;
290 token tok;
296 scan(TOK_IDENT, &tok);
297 defp->def_name = tok.str;
298 scan(TOK_SWITCH, &tok);
299 scan(TOK_LPAREN, &tok);
303 scan(TOK_RPAREN, &tok);
304 scan(TOK_LBRACE, &tok);
305 scan(TOK_CASE, &tok);
306 while (tok.kind == TOK_CASE) {
307 scan2(TOK_IDENT, TOK_CHARCONST, &tok);
309 cases->case_name = tok.str;
310 scan(TOK_COLON, &tok);
312 if (peekscan(TOK_CASE, &tok)){
314 scan2(TOK_IDENT, TOK_CHARCONST, &tok);
320 cases->case_name = tok.str;
321 scan(TOK_COLON, &tok);
322 } while (peekscan(TOK_CASE, &tok));
330 scan(TOK_SEMICOLON, &tok);
332 scan3(TOK_CASE, TOK_DEFAULT, TOK_RBRACE, &tok);
335 if (tok.kind == TOK_DEFAULT) {
336 scan(TOK_COLON, &tok);
340 scan(TOK_SEMICOLON, &tok);
341 scan(TOK_RBRACE, &tok);
421 token tok;
430 scan2(TOK_STAR, TOK_IDENT, &tok);
431 if (tok.kind == TOK_STAR) {
433 scan(TOK_IDENT, &tok);
435 dec->name = tok.str;
436 if (peekscan(TOK_LBRACKET, &tok)) {
441 scan_num(&tok);
442 dec->array_max = tok.str;
443 scan(TOK_RBRACKET, &tok);
444 } else if (peekscan(TOK_LANGLE, &tok)) {
449 if (peekscan(TOK_RANGLE, &tok)) {
452 scan_num(&tok);
453 dec->array_max = tok.str;
454 scan(TOK_RANGLE, &tok);
472 token tok;
476 peek(&tok);
477 if (tok.kind == TOK_RPAREN) { /* no arguments */
487 if (peekscan(TOK_IDENT, &tok)) /* optional name of argument */
488 strcpy(name, tok.str);
501 if (peekscan(TOK_STAR, &tok)) {
506 if (peekscan(TOK_IDENT, &tok)) {
508 dec->name = xstrdup(tok.str);
511 if (peekscan(TOK_LANGLE, &tok)) {
516 if (peekscan(TOK_RANGLE, &tok)) {
520 scan_num(&tok);
521 dec->array_max = tok.str;
522 scan(TOK_RANGLE, &tok);
543 token tok;
546 get_token(&tok);
547 switch (tok.kind) {
549 *typep = tok.str;
554 *prefixp = tok.str;
555 scan(TOK_IDENT, &tok);
556 *typep = tok.str;
563 (void) peekscan(TOK_INT, &tok);
567 (void) peekscan(TOK_INT, &tok);
571 (void) peekscan(TOK_INT, &tok);
578 *typep = tok.str;
588 *typep = tok.str;
598 token tok;
600 peek(&tok);
601 switch (tok.kind) {
603 get_token(&tok);
607 get_token(&tok);
609 (void) peekscan(TOK_INT, &tok);
612 get_token(&tok);
614 (void) peekscan(TOK_INT, &tok);
617 get_token(&tok);
620 (void) peekscan(TOK_INT, &tok);
623 get_token(&tok);