txlt.l revision 1.2 
11.1Sis	void munchit(char *);
21.1Sis%%
31.1Sis\..*\n					printf("%s", yytext);
41.1Sispea[ 	][_A-Za-z][A-Za-z0-9_]*$	{printf("pea");munchit(yytext+3);}
51.1Sis\ [_A-Za-z][A-Za-z0-9_]*/\,		munchit(yytext);
61.1Sis.					putchar(*yytext);
71.1Sis%%
81.2Sperry/*	$NetBSD: txlt.l,v 1.2 1998/01/05 21:34:56 perry Exp $	*/
91.2Sperry
101.1Sisvoid
111.1Sismunchit(s)
121.1Sis	char *s;
131.1Sis{
141.1Sis	putchar(*s++);
151.1Sis	if (!strncmp(s, "fp", 2) ||
161.1Sis	    !strncmp(s, "sp", 2) ||
171.1Sis	    ((*s == 'a')  || (*s == 'd')) && ((s[1]-'0')<=7))
181.1Sis		printf("%s", s);
191.1Sis	else
201.1Sis		printf("pc@(%s)",s);
211.1Sis}
22