+++ /dev/null
-%e 2000
-%p 5000
-%n 1000
-%k 500
-%a 4000
-%o 2000
-
-%{
-/*
-**
-** The buckwheat filter
-** by Benjamin Elijah Griffin 29 March 1995
-**
-** A lex utility written as a favor for a friend. (He provided the
-** rules, I showed him how to make a lex filter out of them.)
-**
-** compile like this:
-** lex buck.l
-** cc -o buck lex.yy.c -ll
-** rm lex.yy.c
-**
-** use like this:
-** buck < infile > outfile
-** or
-** cat infile | <whatever> | buck | <whatever> > outfile
-**
-*/
-
-char WhAt[]="@(#)Benjamin Elijah Griffin's buck filter for buckwheat (c) 1995\n@(#)$Header:$"
-;
-
-%}
-
-%%
-
-okay printf("otay");
-Okay printf("Otay");
-the printf("da");
-The printf("Da");
-ing[ .,;!?] printf("in'%s",yytext+3);
-" for " printf(" po' ");
-" in " printf(" bin ");
-love printf("nub");
-Love printf("Nub");
-" ll" printf(" d");
-Ll printf("D");
-" l" printf(" w");
-L printf("W");
-ll { printf("ww"); /* hmm, do we really want that? */ }
-l { 1+1; /* cutesy null statement */ }
-" ch" printf(" t");
-Ch printf("T");
-" h" printf(" n");
-H printf("H");
-" r"[aeiou] printf("%s",yytext+2);
-R[aeiou] printf("R%s",toupper(*(yytext+1)));
-r[^ .,;!?] printf("%s",yytext+1);
-" t" printf(" d");
-T printf("D");
-" g" printf(" b");
-G printf("B");
-th printf("d");
-n[a-z][ .,;!?] printf("n%s",yytext+2);
-wi printf("bi");
-Wi printf("Bi");
-" sh" printf(" t");
-Sh printf("T");
-" "s[aeiou] printf(" t%s",yytext+2);
-S[aeiou] printf("T%s",yytext+1);
-" "s[qwrtypsdfghjklzxcvbnm] printf(" %s",yytext+2);
-S[qwrtypsdfghjklzxcvbnm] printf("%s",yytext+1);
-" "c[aou] printf(" %s",yytext+2);
-C[aou] printf("C%c",toupper(*(yytext+1)));
-" "r[aeiou] printf(" %s",yytext+2);
-R[aeiou] printf("R%c",toupper(*(yytext+1)));
-
-. printf("%s",yytext);
-
-%%
-
-main()
-{
- yylex();
-}
-