Lines Matching defs:tok
72 token tok;
75 get_token(&tok);
76 switch (tok.kind) {
100 scan(TOK_SEMICOLON, &tok);
247 token tok;
254 scan(TOK_IDENT, &tok);
255 defp->def_name = tok.str;
256 scan(TOK_LBRACE, &tok);
269 scan(TOK_SEMICOLON, &tok);
270 peek(&tok);
271 } while (tok.kind != TOK_RBRACE);
279 get_token(&tok);
286 token tok;
297 scan(TOK_IDENT, &tok);
298 defp->def_name = tok.str;
299 scan(TOK_LBRACE, &tok);
302 scan(TOK_VERSION, &tok);
304 scan(TOK_IDENT, &tok);
306 vlist->vers_name = tok.str;
307 scan(TOK_LBRACE, &tok);
317 scan(TOK_IDENT, &tok);
318 plist->proc_name = tok.str;
319 scan(TOK_LPAREN, &tok);
336 while (peekscan(TOK_COMMA, &tok)) {
356 scan(TOK_RPAREN, &tok);
357 scan(TOK_EQUAL, &tok);
358 scan_num(&tok);
359 scan(TOK_SEMICOLON, &tok);
360 plist->proc_num = tok.str;
364 peek(&tok);
365 } while (tok.kind != TOK_RBRACE);
369 scan(TOK_RBRACE, &tok);
370 scan(TOK_EQUAL, &tok);
371 scan_num(&tok);
372 vlist->vers_num = tok.str;
379 scan(TOK_SEMICOLON, &tok);
380 scan2(TOK_VERSION, TOK_RBRACE, &tok);
381 } while (tok.kind == TOK_VERSION);
382 scan(TOK_EQUAL, &tok);
383 scan_num(&tok);
384 defp->def.pr.prog_num = tok.str;
391 token tok;
396 scan(TOK_IDENT, &tok);
397 defp->def_name = tok.str;
398 scan(TOK_LBRACE, &tok);
401 scan(TOK_IDENT, &tok);
403 elist->name = tok.str;
405 scan3(TOK_COMMA, TOK_RBRACE, TOK_EQUAL, &tok);
406 if (tok.kind == TOK_EQUAL) {
407 scan_num(&tok);
408 elist->assignment = tok.str;
409 scan2(TOK_COMMA, TOK_RBRACE, &tok);
413 } while (tok.kind != TOK_RBRACE);
420 token tok;
423 scan(TOK_IDENT, &tok);
424 defp->def_name = tok.str;
425 scan(TOK_EQUAL, &tok);
426 scan2(TOK_IDENT, TOK_STRCONST, &tok);
427 defp->def.co = tok.str;
433 token tok;
440 scan(TOK_IDENT, &tok);
441 defp->def_name = tok.str;
442 scan(TOK_SWITCH, &tok);
443 scan(TOK_LPAREN, &tok);
447 scan(TOK_RPAREN, &tok);
448 scan(TOK_LBRACE, &tok);
449 scan(TOK_CASE, &tok);
450 while (tok.kind == TOK_CASE) {
451 scan2(TOK_IDENT, TOK_CHARCONST, &tok);
453 cases->case_name = tok.str;
454 scan(TOK_COLON, &tok);
457 if (peekscan(TOK_CASE, &tok)) {
459 scan2(TOK_IDENT, TOK_CHARCONST, &tok);
465 cases->case_name = tok.str;
466 scan(TOK_COLON, &tok);
467 } while (peekscan(TOK_CASE, &tok));
479 scan(TOK_SEMICOLON, &tok);
481 scan3(TOK_CASE, TOK_DEFAULT, TOK_RBRACE, &tok);
484 if (tok.kind == TOK_DEFAULT) {
485 scan(TOK_COLON, &tok);
489 scan(TOK_SEMICOLON, &tok);
490 scan(TOK_RBRACE, &tok);
568 token tok;
576 scan2(TOK_STAR, TOK_IDENT, &tok);
577 if (tok.kind == TOK_STAR) {
579 scan(TOK_IDENT, &tok);
581 dec->name = tok.str;
582 if (peekscan(TOK_LBRACKET, &tok)) {
587 scan_num(&tok);
588 dec->array_max = tok.str;
589 scan(TOK_RBRACKET, &tok);
590 } else if (peekscan(TOK_LANGLE, &tok)) {
595 if (peekscan(TOK_RANGLE, &tok)) {
598 scan_num(&tok);
599 dec->array_max = tok.str;
600 scan(TOK_RANGLE, &tok);
617 token tok;
621 peek(&tok);
622 if (tok.kind == TOK_RPAREN) { /* no arguments */
632 if (peekscan(TOK_IDENT, &tok)) /* optional name of argument */
633 dec->name = strdup(tok.str);
647 if (peekscan(TOK_STAR, &tok)) {
653 if (peekscan(TOK_IDENT, &tok))
655 dec->name = strdup(tok.str);
657 if (peekscan(TOK_LANGLE, &tok)) {
663 if (peekscan(TOK_RANGLE, &tok)) {
667 scan_num(&tok);
668 dec->array_max = tok.str;
669 scan(TOK_RANGLE, &tok);
688 token tok;
691 get_token(&tok);
692 switch (tok.kind) {
694 *typep = tok.str;
699 *prefixp = tok.str;
700 scan(TOK_IDENT, &tok);
701 *typep = tok.str;
708 (void) peekscan(TOK_INT, &tok);
712 (void) peekscan(TOK_INT, &tok);
716 (void) peekscan(TOK_INT, &tok);
725 *typep = tok.str;
731 *typep = tok.str;
741 *typep = tok.str;
751 token tok;
753 peek(&tok);
754 switch (tok.kind) {
756 get_token(&tok);
760 get_token(&tok);
762 (void) peekscan(TOK_INT, &tok);
765 get_token(&tok);
767 (void) peekscan(TOK_INT, &tok);
770 get_token(&tok);
772 (void) peekscan(TOK_INT, &tok);
775 get_token(&tok);