txlt.l revision 1.5 
11.1Sis	void munchit(char *);
21.1Sis%%
31.4Smhitch.\.l\ [._A-Za-z][A-Za-z0-9_.]*/\,	{printf("%c.l",yytext[0]);munchit(yytext+3);}
41.4Smhitch.\.w\ [._A-Za-z][A-Za-z0-9_.]*/\,	{printf("%c.w",yytext[0]);munchit(yytext+3);}
51.1Sis\..*\n					printf("%s", yytext);
61.4Smhitchpea[ 	][._A-Za-z][A-Za-z0-9_.]*$	{printf("pea");munchit(yytext+3);}
71.4Smhitch\ [._A-Za-z][A-Za-z0-9_.]*/\,		munchit(yytext);
81.1Sis.					putchar(*yytext);
91.1Sis%%
101.5She/*	$NetBSD: txlt.l,v 1.5 2011/06/20 20:25:47 he Exp $	*/
111.5She
121.5She#include <string.h>
131.2Sperry
141.1Sisvoid
151.1Sismunchit(s)
161.1Sis	char *s;
171.1Sis{
181.1Sis	putchar(*s++);
191.4Smhitch	if ((!strncmp(s, "fp", 2) ||
201.1Sis	    !strncmp(s, "sp", 2) ||
211.4Smhitch	    ((*s == 'a')  || (*s == 'd')) && ((s[1]-'0')<=7)) &&
221.4Smhitch	    (s[2] == 0 || s[2] == ','))
231.1Sis		printf("%s", s);
241.1Sis	else
251.3Smhitch		printf("%%pc@(%s)",s);
261.1Sis}
27