usr.bin/indent/indent.c

94     int         type_code;	/* the type of token, returned by lexi */
301 	type_code = lexi();	/* lexi reads one token.  The actual
302 				 * characters read are stored in "token". lexi
303 				 * returns a code indicating the type of token */
381 		if ((type_code == sp_paren && *token == 'i'
383 			|| (type_code == sp_nparen && *token == 'e'
404 		for (t_ptr = token; *t_ptr; ++t_ptr)
405 		    *sc_end++ = *t_ptr;	/* copy token into temp buffer */
423 		type_code = lexi();	/* read another token */
487 	|	   do switch on type of token scanned		|
490 	switch (type_code) {	/* now, decide what to do with the token */
509 	    if (ps.want_blank && *token != '[' &&
516 		    sprintf(e_code, "\n.Du %dp+\200p \"%s\"\n", dec_ind * 7, token);
524 		    *e_code++ = token[0];
527 		*e_code++ = token[0];
533 	    if (ps.in_or_st && *token == '(' && ps.tos <= 2) {
558 		diag3(0, "Extra %c", *token);
563 	    *e_code++ = token[0];
587 		sprintf(e_code, "\n.Du %dp+\200p \"%s\"\n", dec_ind * 7, token);
592 		const char *res = token;
597 							 * token */
598 		    for (i = 0; token[i]; ++i);	/* find length of token */
604 		if (troff && token[0] == '-' && token[1] == '>')
618 		const char *res = token;
621 		    switch (token[0]) {
623 			if (token[1] == '=')
627 			if (token[1] == '=')
631 			if (token[1] == '=')
635 			if (token[1] == '|')
637 			else if (token[1] == 0)
650 	    *e_code++ = token[0];
651 	    *e_code++ = token[1];
856 	    goto copy_id;	/* go move the token into buffer */
858 	case sp_paren:		/* token is if, while, for */
861 	    hd_type = (*token == 'i' ? ifstmt :
862 		       (*token == 'w' ? whilestmt : forstmt));
867 	    goto copy_id;	/* copy the token into line */
871 	    if (*token == 'e') {
893 	    goto copy_id;	/* move the token into line */
915 	    for (i = 0; token[i++];);	/* get length of token */
999 		for (t_ptr = token; *t_ptr; ++t_ptr) {
1007 		for (t_ptr = token; *t_ptr; ++t_ptr) {