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); 6 pea[ ][._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 12 void 13 munchit(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