txlt.l revision 1.4 
1	void munchit(char *);
2%%
3.\.l\ [._A-Za-z][A-Za-z0-9_.]*/\,	{printf("%c.l",yytext[0]);munchit(yytext+3);}
4.\.w\ [._A-Za-z][A-Za-z0-9_.]*/\,	{printf("%c.w",yytext[0]);munchit(yytext+3);}
5\..*\n					printf("%s", yytext);
6pea[ 	][._A-Za-z][A-Za-z0-9_.]*$	{printf("pea");munchit(yytext+3);}
7\ [._A-Za-z][A-Za-z0-9_.]*/\,		munchit(yytext);
8.					putchar(*yytext);
9%%
10/*	$NetBSD: txlt.l,v 1.4 2001/12/17 05:45:08 mhitch Exp $	*/
11
12void
13munchit(s)
14	char *s;
15{
16	putchar(*s++);
17	if ((!strncmp(s, "fp", 2) ||
18	    !strncmp(s, "sp", 2) ||
19	    ((*s == 'a')  || (*s == 'd')) && ((s[1]-'0')<=7)) &&
20	    (s[2] == 0 || s[2] == ','))
21		printf("%s", s);
22	else
23		printf("%%pc@(%s)",s);
24}
25