71 scan(tok_kind expect, token *tokp)  in scan()  argument
73 	get_token(tokp);  in scan()
74 	if (tokp->kind != expect)  in scan()
82 scan2(tok_kind expect1, tok_kind expect2, token *tokp)  in scan2()  argument
84 	get_token(tokp);  in scan2()
85 	if (tokp->kind != expect1 && tokp->kind != expect2)  in scan2()
93 scan3(tok_kind expect1, tok_kind expect2, tok_kind expect3, token *tokp)  in scan3()  argument
95 	get_token(tokp);  in scan3()
96 	if (tokp->kind != expect1 && tokp->kind != expect2 &&  in scan3()
97 	    tokp->kind != expect3)  in scan3()
105 scan_num(token *tokp)  in scan_num()  argument
107 	get_token(tokp);  in scan_num()
108 	switch (tokp->kind) {  in scan_num()
120 peek(token *tokp)  in peek()  argument
122 	get_token(tokp);  in peek()
123 	unget_token(tokp);  in peek()
130 peekscan(tok_kind expect, token *tokp)  in peekscan()  argument
132 	peek(tokp);  in peekscan()
133 	if (tokp->kind == expect) {  in peekscan()
134 		get_token(tokp);  in peekscan()
144 get_token(token *tokp)  in get_token()  argument
151 		*tokp = lasttok;  in get_token()
159 					tokp->kind = TOK_EOF;  in get_token()
211 		tokp->kind = TOK_COLON;  in get_token()
215 		tokp->kind = TOK_SEMICOLON;  in get_token()
219 		tokp->kind = TOK_COMMA;  in get_token()
223 		tokp->kind = TOK_EQUAL;  in get_token()
227 		tokp->kind = TOK_STAR;  in get_token()
231 		tokp->kind = TOK_LBRACKET;  in get_token()
235 		tokp->kind = TOK_RBRACKET;  in get_token()
239 		tokp->kind = TOK_LBRACE;  in get_token()
243 		tokp->kind = TOK_RBRACE;  in get_token()
247 		tokp->kind = TOK_LPAREN;  in get_token()
251 		tokp->kind = TOK_RPAREN;  in get_token()
255 		tokp->kind = TOK_LANGLE;  in get_token()
259 		tokp->kind = TOK_RANGLE;  in get_token()
264 		tokp->kind = TOK_STRCONST;  in get_token()
265 		findstrconst(&where, &tokp->str);  in get_token()
268 		tokp->kind = TOK_CHARCONST;  in get_token()
269 		findchrconst(&where, &tokp->str);  in get_token()
283 		tokp->kind = TOK_IDENT;  in get_token()
284 		findconst(&where, &tokp->str);  in get_token()
306 		findkind(&where, tokp);  in get_token()
312 unget_token(token *tokp)  in unget_token()  argument
314 	lasttok = *tokp;  in unget_token()
414 findkind(char **mark, token *tokp)  in findkind()  argument
425 				tokp->kind = s->kind;  in findkind()
426 				tokp->str = s->str;  in findkind()
432 	tokp->kind = TOK_IDENT;  in findkind()
435 	tokp->str = malloc(len + 1);  in findkind()
436 	(void) strncpy(tokp->str, str, len);  in findkind()
437 	tokp->str[len] = 0;  in findkind()