[unix-history] / .ref-BSD-1 / pxp / yyprint.c

#
/*
 * pi - Pascal interpreter code translator
 *
 * Charles Haley, Bill Joy UCB
 * Version 1.0 August 1977
 *
 *
 * pxp - Pascal execution profiler
 *
 * Bill Joy UCB
 * Version 1.0 August 1977
 */

#include "whoami"
#include "0.h"
#include "yy.h"

long	tokname();

STATIC	char bounce;

/*
 * Printing representation of a
 * "character" - a lexical token
 * not in a yytok structure.
 */
long
charname(ch)
	int ch;
{
	struct yytok Ych;

	Ych.Yychar = ch;
	Ych.Yylval = nullsem(ch);
	return (tokname(&Ych));
}

/*
 * Printing representation of a token
 */
long
tokname(tp)
	register struct yytok *tp;
{
	register char *cp;
	register struct kwtab *kp;
	long l;

	(&l)->pint2 = "";
	switch (tp->Yychar) {
		case YCASELAB:
			cp = "case-label";
			break;
		case YEOF:
			cp = "end-of-file";
			break;
		case YILLCH:
			cp = "illegal character";
			break;
		case 256:
			/* error token */
			cp = "error";
			break;
		case YID:
			cp = "identifier";
			break;
		case YNUMB:
			cp = "real number";
			break;
		case YINT:
		case YBINT:
			cp = "number";
			break;
		case YSTRING:
			cp = tp->Yylval;
			cp = cp == NIL || cp[1] == 0 ? "character" : "string";
			break;
		case YDOTDOT:
			cp = "'..'";
			break;
		default:
			if (tp->Yychar < 256) {
				cp = "'x'\0'x'";
				if (bounce = ((bounce + 1) & 1))
					cp =+ 4;
				cp[1] = tp->Yychar;
				break;
			}
			for (kp = yykey; kp->kw_str != NIL && kp->kw_val != tp->Yychar; kp++)
				continue;
			cp = "keyword ";
			(&l)->pint2 = kp->kw_str;
	}
	(&l)->pint = cp;
	return (l);
}
Commit	Line	Data
b7fd9112 CH	1	#
	2	/*
	3	* pi - Pascal interpreter code translator
	4	*
	5	* Charles Haley, Bill Joy UCB
	6	* Version 1.0 August 1977
	7	*
	8	*
	9	* pxp - Pascal execution profiler
	10	*
	11	* Bill Joy UCB
	12	* Version 1.0 August 1977
	13	*/
	14
	15	#include "whoami"
	16	#include "0.h"
	17	#include "yy.h"
	18
	19	long tokname();
	20
	21	STATIC char bounce;
	22
	23	/*
	24	* Printing representation of a
	25	* "character" - a lexical token
	26	* not in a yytok structure.
	27	*/
	28	long
	29	charname(ch)
	30	int ch;
	31	{
	32	struct yytok Ych;
	33
	34	Ych.Yychar = ch;
	35	Ych.Yylval = nullsem(ch);
	36	return (tokname(&Ych));
	37	}
	38
	39	/*
	40	* Printing representation of a token
	41	*/
	42	long
	43	tokname(tp)
	44	register struct yytok *tp;
	45	{
	46	register char *cp;
	47	register struct kwtab *kp;
	48	long l;
	49
	50	(&l)->pint2 = "";
	51	switch (tp->Yychar) {
	52	case YCASELAB:
	53	cp = "case-label";
	54	break;
	55	case YEOF:
	56	cp = "end-of-file";
	57	break;
	58	case YILLCH:
	59	cp = "illegal character";
	60	break;
	61	case 256:
	62	/* error token */
	63	cp = "error";
	64	break;
65	case YID:
66	cp = "identifier";
67	break;
68	case YNUMB:
69	cp = "real number";
70	break;
71	case YINT:
72	case YBINT:
73	cp = "number";
74	break;
75	case YSTRING:
76	cp = tp->Yylval;
77	cp = cp == NIL \|\| cp[1] == 0 ? "character" : "string";
78	break;
79	case YDOTDOT:
80	cp = "'..'";
81	break;
82	default:
83	if (tp->Yychar < 256) {
84	cp = "'x'\0'x'";
85	if (bounce = ((bounce + 1) & 1))
86	cp =+ 4;
87	cp[1] = tp->Yychar;
88	break;
89	}
90	for (kp = yykey; kp->kw_str != NIL && kp->kw_val != tp->Yychar; kp++)
91	continue;
92	cp = "keyword ";
93	(&l)->pint2 = kp->kw_str;
94	}
95	(&l)->pint = cp;
96	return (l);
97	}