Lines Matching defs:tok
79 token tok;
82 get_token(&tok);
83 switch (tok.kind) {
108 scan(TOK_SEMICOLON, &tok);
122 token tok;
129 scan(TOK_IDENT, &tok);
130 defp->def_name = tok.str;
131 scan(TOK_LBRACE, &tok);
139 scan(TOK_SEMICOLON, &tok);
140 peek(&tok);
141 } while (tok.kind != TOK_RBRACE);
142 get_token(&tok);
149 token tok;
160 scan(TOK_IDENT, &tok);
161 defp->def_name = tok.str;
162 scan(TOK_LBRACE, &tok);
165 scan(TOK_VERSION, &tok);
167 scan(TOK_IDENT, &tok);
169 vlist->vers_name = tok.str;
170 scan(TOK_LBRACE, &tok);
180 scan(TOK_IDENT, &tok);
181 plist->proc_name = tok.str;
182 scan(TOK_LPAREN, &tok);
197 while (peekscan(TOK_COMMA, &tok)) {
216 scan(TOK_RPAREN, &tok);
217 scan(TOK_EQUAL, &tok);
218 scan_num(&tok);
219 scan(TOK_SEMICOLON, &tok);
220 plist->proc_num = tok.str;
224 peek(&tok);
225 } while (tok.kind != TOK_RBRACE);
229 scan(TOK_RBRACE, &tok);
230 scan(TOK_EQUAL, &tok);
231 scan_num(&tok);
232 vlist->vers_num = tok.str;
240 scan(TOK_SEMICOLON, &tok);
241 scan2(TOK_VERSION, TOK_RBRACE, &tok);
242 } while (tok.kind == TOK_VERSION);
243 scan(TOK_EQUAL, &tok);
244 scan_num(&tok);
245 defp->def.pr.prog_num = tok.str;
253 token tok;
258 scan(TOK_IDENT, &tok);
259 defp->def_name = tok.str;
260 scan(TOK_LBRACE, &tok);
263 scan(TOK_IDENT, &tok);
265 elist->name = tok.str;
267 scan3(TOK_COMMA, TOK_RBRACE, TOK_EQUAL, &tok);
268 if (tok.kind == TOK_EQUAL) {
269 scan_num(&tok);
270 elist->assignment = tok.str;
271 scan2(TOK_COMMA, TOK_RBRACE, &tok);
275 } while (tok.kind != TOK_RBRACE);
282 token tok;
285 scan(TOK_IDENT, &tok);
286 defp->def_name = tok.str;
287 scan(TOK_EQUAL, &tok);
288 scan2(TOK_IDENT, TOK_STRCONST, &tok);
289 defp->def.co = tok.str;
295 token tok;
301 scan(TOK_IDENT, &tok);
302 defp->def_name = tok.str;
303 scan(TOK_SWITCH, &tok);
304 scan(TOK_LPAREN, &tok);
308 scan(TOK_RPAREN, &tok);
309 scan(TOK_LBRACE, &tok);
310 scan(TOK_CASE, &tok);
311 while (tok.kind == TOK_CASE) {
312 scan2(TOK_IDENT, TOK_CHARCONST, &tok);
314 cases->case_name = tok.str;
315 scan(TOK_COLON, &tok);
317 if (peekscan(TOK_CASE, &tok)) {
320 scan2(TOK_IDENT, TOK_CHARCONST, &tok);
326 cases->case_name = tok.str;
327 scan(TOK_COLON, &tok);
329 } while (peekscan(TOK_CASE, &tok));
336 scan(TOK_SEMICOLON, &tok);
338 scan3(TOK_CASE, TOK_DEFAULT, TOK_RBRACE, &tok);
341 if (tok.kind == TOK_DEFAULT) {
342 scan(TOK_COLON, &tok);
346 scan(TOK_SEMICOLON, &tok);
347 scan(TOK_RBRACE, &tok);
413 token tok;
422 scan2(TOK_STAR, TOK_IDENT, &tok);
423 if (tok.kind == TOK_STAR) {
425 scan(TOK_IDENT, &tok);
427 dec->name = tok.str;
428 if (peekscan(TOK_LBRACKET, &tok)) {
433 scan_num(&tok);
434 dec->array_max = tok.str;
435 scan(TOK_RBRACKET, &tok);
437 if (peekscan(TOK_LANGLE, &tok)) {
442 if (peekscan(TOK_RANGLE, &tok)) {
446 scan_num(&tok);
447 dec->array_max = tok.str;
448 scan(TOK_RANGLE, &tok);
466 token tok;
470 peek(&tok);
471 if (tok.kind == TOK_RPAREN) { /* no arguments */
481 if (peekscan(TOK_IDENT, &tok)) /* optional name of argument */
482 strcpy(name, tok.str);
495 if (peekscan(TOK_STAR, &tok)) {
500 if (peekscan(TOK_IDENT, &tok)) /* optional name of argument */
501 dec->name = strdup(tok.str);
503 if (peekscan(TOK_LANGLE, &tok)) {
508 if (peekscan(TOK_RANGLE, &tok)) {
512 scan_num(&tok);
513 dec->array_max = tok.str;
514 scan(TOK_RANGLE, &tok);
533 token tok;
536 get_token(&tok);
537 switch (tok.kind) {
539 *typep = tok.str;
544 *prefixp = tok.str;
545 scan(TOK_IDENT, &tok);
546 *typep = tok.str;
553 (void) peekscan(TOK_INT, &tok);
557 (void) peekscan(TOK_INT, &tok);
561 (void) peekscan(TOK_INT, &tok);
567 *typep = tok.str;
577 *typep = tok.str;
587 token tok;
589 peek(&tok);
590 switch (tok.kind) {
592 get_token(&tok);
596 get_token(&tok);
598 (void) peekscan(TOK_INT, &tok);
601 get_token(&tok);
603 (void) peekscan(TOK_INT, &tok);
606 get_token(&tok);
608 (void) peekscan(TOK_INT, &tok);
611 get_token(&tok);
Indexes created Thu Sep 25 16:09:42 GMT 2025