*
* Reproduction permitted so long as this notice is retained.
*/
+
%}
%e 1700
%p 4000
BW [ \t\(]
EW [ \t.,;!\?$\)]
%%
+%{
+ void plastc()
+ {
+ unput(yytext[yyleng-1]);
+ }
+%}
@[Bb]egin(.*) |
".so ".*$ printf("%s", yytext);
{BW}send printf("%ct'row",yytext[0]);
meta printf("meta-fuckin'");
cally printf("c'l");
%%
-plastc()
-{
- unput(yytext[yyleng-1]);
-}
caseify(c)
char c;