From: joey Date: Sat, 11 Sep 1999 04:28:29 +0000 (+0000) Subject: Removed cruft X-Git-Tag: 2.39~51 X-Git-Url: http://git.ieval.ro/?p=filters.git;a=commitdiff_plain;h=2ad76bd43ca4c4bd1ca7dfc5f5e984b7341df7ad Removed cruft --- diff --git a/aust.l b/aust.l deleted file mode 100644 index 39313ae..0000000 --- a/aust.l +++ /dev/null @@ -1,171 +0,0 @@ -%e 3000 -%p 8000 -%n 2000 -%k 2000 -%a 3000 -%o 2000 -BW [ ] -EW [ .,:;!?_] -ES [.:;!?] -VO [aeiouy] -CO [bcdfghjklmnpqrstvwxz] -CC [cdfgjklmnprtz] -SC [cg] -HC [bdfhjklmnpqrstvwxz] -ST [pbtdkg] -LE [a-zA-Z] - -%{ - - /* English to australian translator */ - - /* to build with standard at&t lex - * lex aust.l - * cc lex.yy.c -ll -o aust - * - * to build with flex - * flex -I aust.l - * cc lex.yy.c -o aust - * - * (flex is a pd version of lex that runs under Unix, VMS and MSDOS.) - */ - - /* 16Jan90 - wb - first version, based on biffa.l by - * Stephen K Mulrine */ - /* 30Jan90 - wb - added more words */ - /* 16Feb90 - wb - converted from jive to aust */ - /* 12Mar90 - wb - added some randomness */ - - - /* BW = begin word */ - /* EW = end word */ - /* ES = end sentence */ - /* VO = vowel */ - /* CO = consonant */ - /* CC = end of consonant cluster */ - /* SC = soft consonant (need an 'e') */ - /* HC = hard consonant (does not need an 'e') */ - /* ST = stop */ - /* LE = any letter */ - -bloody(n) -int n; -{ - if (n == 0 || rand() < n) - printf((rand() < 20000)? "bloody ": "bleedin' "); -} - -say(msg, n) -char *msg; -int n; -{ - if (rand() < n) - printf("%s", msg); -} - -oi(n) -int n; -{ - say(" Blimey!", n); - while (rand() < n) - printf(" OI!"); -} - - -%} - -%% -"That is" | -"That's" printf("Thaz"); -"that is" | -"that's" printf("thaz"); -bathroom | -toilet printf("loo"); -{BW}john{EW} printf("%cloo%c", yytext[0], yytext[5]); -[Aa]lright printf("%clrighty", yytext[0]); -{BW}mad{EW} printf("%cpissed%c", yytext[0], yytext[4]); -angry | -annoyed printf("pissed"); -drunk printf("loaded"); -drank printf("swilled"); -drink printf("swill"); -{BW}beer printf("%cFoster's", yytext[0]); /* Australian for beer, mate */ -"ught to" printf("ughta"); -{BW}train printf("%cland train", yytext[0]); -ough{EW} printf("o%c", yytext[4]); -Hello{EW} | -"Good day"{EW} printf("G'day!"); -hello{EW} | -"good day"{EW} printf("g'day!"); -"in Austrailia" | -"to Austrailia" printf("down under"); -{BW}bit{EW} printf("%ctad%c", yytext[0], yytext[4]); - -{CO}{CC}{EW} printf("%c'%c", yytext[0], yytext[2]); -{CO}{CC}ed{EW} printf("%c%s", yytext[0], yytext+2); -of{EW} printf("o'%c", yytext[2]); - -Some{BW}one | -Someone | -Guy printf("Dude"); -some{BW}one | -someone | -guy printf("dude"); - -[Ww]ha printf("%co", yytext[0]); -{BW}esp printf("'sp"); -{BW}Esp printf("'Sp"); - -{BW}h{LE} printf("%c'%c", yytext[0], yytext[2]); -off{BW}of printf("offa"); - -[Yy]our printf("%cer", yytext[0]); -you{EW} printf("ya%c", yytext[3]); -my printf("me"); - -{CO}[ai]{SC}e printf("%coi%ce", yytext[0], yytext[2]); -{CO}[ai]{HC}e printf("%coi%c", yytext[0], yytext[2]); -{CO}[ai]{CO}[aiouy] printf("%coi%c%c", yytext[0], yytext[2], yytext[3]); -r[ai]{CO}{CO} printf("%coi%c%c", yytext[0], yytext[2], yytext[3]); -{CO}igh{LE} printf("%coi%c", yytext[0], yytext[4]); -extremely | -really | -very printf("roit"); -Extremely | -Really | -Very printf("Roit"); -that printf("wot"); -Well printf("Welp"); -baseball | -football | -hockey printf("cricket"); -{VO}th({EW}|{VO}) printf("%ct%c", yytext[0], yytext[3]); -Who printf("Oo"); -{BW}who printf("%c'oo", yytext[0]); -{LE}{CO}er{EW} printf("%c%ca%c", yytext[0], yytext[1], yytext[4]); -{VO}{CO}e{BW}to printf("%c%ceda", yytext[0], yytext[1]); -{VO}{CO}{BW}to printf("%c%c%ca", yytext[0], yytext[1], yytext[1]); -{BW}[Bb]e{CO}{LE} printf("%c'%s", yytext[0], yytext+3); -{BW}[Aa]{CO}{LE} printf("%c'%s", yytext[0], yytext+2); -{BW}[Oo]ne? printf("%c'un", yytext[0]); - -{LE}\, {ECHO; say(" moit,", 10000);} -{BW}an?{EW} {if(rand()<12000){printf(" a ");bloody(0);}else printf("%s",yytext);} -An?{EW} {if(rand()<12000){printf("A ");bloody(0);}else printf("%s",yytext);} -(T|({BW}t))he{EW} | -(T|({BW}t))hose{EW} {ECHO; bloody(12000);} - -\!|\? {say(", moit", 6000); ECHO; oi(12000);} -\. {say(", moit", 2000); ECHO; oi(6000);} - -{BW}-*[0-9]+" "*("degrees"|([Ff]{LE}*)){EW} {printf("%c%dc%c",*yytext,((atoi(yytext+1)-24)/9)*5,yytext[strlen(yytext)-1]);} - -. printf("%s", yytext); -\n printf("\n"); - -%% -main() -{ - yylex(); -} - diff --git a/b1ff.l b/b1ff.l deleted file mode 100644 index 40637b6..0000000 --- a/b1ff.l +++ /dev/null @@ -1,302 +0,0 @@ - -%e 2000 -%p 5000 -%n 1000 -%k 500 -%a 4000 -%o 2000 -BW [ ] -EW [ .,;!?] - -%{ - -/* - * The B1FF filter. - * - * Modification History - * - * - Created Sat Feb 26 04:02:01 EST 1994 by Dave Baggett , - * who obviously had too much time on his hands. Based on the earlier - * "jive" filter of unknown origin. - * - * ------------------------------------------------------------------------- - * To build the B1FF filter, do the following: - * - * lex biff.l - * cc -o biff lex.yy.c -ll - * rm lex.yy.c - * - * Optionally replace lex and cc above with flex and gcc. - * - * To use the executable, pipe stuff to it; e.g., - * - * cat foo | biff - * - */ - -char buf[128]; -int count = 0; -char WhAt[]="@(#)DAVE BAGGETT-S B1FF!!1 FlLTER + A CHANGE OR 2 BYE BGRIFFIN\n@(#)$Header: b1ff.l,v 1.4 94/05/07 20:42:53 bgriffin Final $"; - -%} - -%% - -" and " printf(" + "); -" plus " printf(" + "); -"you're" printf("YOUR"); -your printf("UR"); -"it's" printf("1TZ"); -its printf("1T'Z"); -here printf("HEAR"); -hear printf("HERE"); -"they're" printf("THE1R"); -their printf("THERE"); -there printf("THEY'RE"); -was printf("WUZ"); -etc printf("U GET THE 1DEA"); -e[.]g[.] printf("LAIK THIS"); -i[.]e[.] printf("U NOE LAIK"); -" are " printf(" R "); -"be " printf("B "); -before printf("B4"); -" to " printf(" 2 "); -this printf("TH1S"); -like printf("LA1K"); -total printf("TODAL"); -"and I" printf("+ ME"); - -good printf("K00L"); -okay printf("C00L"); -ok printf("K00L"); -interesting printf("C00L"); -neat printf("Q00L"); -nifty printf("Q00L"); -useful printf("K00L"); -great printf("RAD"); -functional printf("RAD"); -excellent printf("X-L-ENT"); -very printf("TOTALLY"); -quite printf("REAL"); -really printf("REAL"); -new printf("NU"); -recent printf("RAD NU"); - -result printf("TH1NG"); -ramification printf("TH1NG"); -reason printf("TH1NG"); -conclusion printf("TH1NG"); -results printf("STUFF"); -ramifications printf("STUFF"); -reasons printf("STUFF"); -conclusions printf("STUFF"); - -files printf("WAREZ"); -program printf("GAME"); -programs printf("WAREZ"); -game printf("KRACKED GAME"); -games printf("GAMEZ"); -[Uu][Nn][Ii][Xx] printf("THE MANEFRA1M O/S"); -[Dd][Oo][Ss] printf("THE VIC-20 TAPE DRIVE SCR1PTER"); -disk printf("TAPE"); -computer printf("VIC-20"); -workstation printf("MANEFRA1M"); -supercomputer printf("MANEFRAM"); -[Cc]ray printf("K1CKASS MANEFRA1M"); -"Connection Machine" printf("TODALY RAD KOMPUTUR BRANE"); -machine printf("VIC-20"); -[Aa][Tt][Aa][Rr][Ii] printf("PEACE UV SH1T ATAR1"); -[Aa][Pp][Pp][Ll][Ee] printf("PEACE UV SH1T APPEL"); -[Aa][Mm][Ii][Gg][Aa] printf("WORKSTASHUN"); -[Mm]acintosh printf("MACK1NTRASH"); -upload printf("U/L"); -download printf("D/L"); -load printf("U/L"); -save printf("D/L"); -send printf("U/L"); -receive printf("D/L"); -ftp printf("XMODEM"); -buy printf("D-L"); - -[Pp]ascal printf("THAT WUSSY LANGUAGE"); -[Mm]odula.[23] printf("THAT WUSSY SH1T LANGUAGE"); -[Ll]isp printf("THAT KOMPUTUR BRANE LANGUAGE"); -[Ss]cheme printf("THAT TODAL NURD LANGUAGE"); -[Aa]da printf("THAT K00L NU ARMY LANGUAGE"); -[Pp]ost[Ss]cript printf("PRINTUR KODEZ"); -[Aa]ssembly printf("CPU KODE"); -[Aa]ssembler printf("CPU KODE"); - -newsgroup printf("MESSAGE BASE"); -news printf("MESSAGES"); -thread printf("BOARD"); -[Uu]senet printf("THE MANEFRAIM BOARDZ"); -[Nn]et[Nn]ews printf("THE BOARDZ"); - -fool printf("LUZER"); -moron printf("LAMER"); -idiot printf("LAMER"); -jerk printf("HOZER"); -dweeb printf("LUZER"); -geek printf("HOZER"); -nerd printf("LUZER"); - -" man " printf(" D00D "); -" men " printf(" D00DZ "); -woman printf("BABE"); -women printf("BABEZ"); -wife printf("BABE"); -husband printf("LOVERD00D"); -girlfriend printf("PEACE"); -boyfriend printf("STUD"); -girl printf("TODAL BABE"); -person printf("D00D"); -people printf("D00DZ"); -friend printf("FRE1ND"); - -sure printf("SHUR"); -"got to" printf("GOTTA"); -"want to" printf("WANNA"); -"have to" printf("HAFTA"); -have printf("GOT"); - -"using" printf("UZE1NG"); - -" car " printf(" WHEELS "); -" eat " printf(" NARF "); - -police printf("P1GZ"); -from printf("FRUM"); - -human printf("D00D"); -occasionally printf("SUMTIMZ"); -whom printf("WHO"); -whose printf("WHO'S"); -who's printf("WHOSE"); -"who is" printf("WHOSE"); -"ought to" printf("OTTA"); -"need to" printf("GOTTA"); -"should" printf("OTTA"); -"tonight" printf("2NITE"); -together printf("2GETHR"); -tomorrow printf("2MOROW"); -today printf("LAST NITE"); -to-day printf("2DAY"); -" food " printf(" PIZZA "); -coke printf("MOUNTIN DOO"); -pepsi printf("MOUNTIN DOO"); -caffeine printf("COKE"); -coffee printf("SPEED"); -[Nn]yquil printf("SMACK"); -night printf("NITE"); - -" believe" printf(" TH1NK"); -phone printf("FONE"); -freak printf("PHREAK"); -[Kk][Ii*-][Bb][Oo*-] printf("THE FONT GUY"); -[nN]et[htw][ar][cer][ke] { /* nethack nettrek netware */ - printf("PACMAN"); } -chess printf("PONG"); -[Ss]"treet "[Ff]ighter printf("POLL POSIT1ON"); - -amateur printf("LAMER"); -" of " printf(" UV "); -what printf("WUT"); -"meta " printf("ALT/CAPSLOCK "); - -"talk" printf("1NTERFACE"); -"sort of" printf("SORTA"); -"kind of" printf("K1NDA"); -magazine printf("ZINE"); - -":^)" ; -":-)" printf("HAHAHAHA!!1!1!1!!!1!!!"); -"8-)" printf("ITZA JOKE YA NOE"); - -[dgmnr]"." { *(yytext+1) = 0; - upcase(yytext); - sprintf(buf, "%s!",yytext); - printf(buf); - } - -[efhkpst]"." { *(yytext+1) = 0; - upcase(yytext); - sprintf(buf, "%s,",yytext); - printf(buf); - } - -[bclw]"." { *(yytext+1) = 0; - upcase(yytext); - sprintf(buf, "%s...",yytext); - printf(buf); - } - -[a-e]"?" { upcase(yytext); printf(yytext); printf("?"); } -[f-j]"?" { upcase(yytext); printf(yytext); printf("??"); } -[k-o]"?" { upcase(yytext); printf(yytext); printf("!?1?"); } -[p-t]"?" { upcase(yytext); printf(yytext); printf("!?1?!?"); } -[u-z]"?" { upcase(yytext); printf(yytext); printf("?1?!?1?!"); } -[a-e]"!" { upcase(yytext); printf(yytext); printf("!"); } -[f-j]"!" { upcase(yytext); printf(yytext); printf("!!"); } -[k-o]"!" { upcase(yytext); printf(yytext); printf("!1!"); } -[p-t]"!" { upcase(yytext); printf(yytext); printf("!!1!"); } -[u-z]"!" { upcase(yytext); printf(yytext); printf("!1!!1"); } -";" printf(","); -"," printf("."); -"'" ; -[a-z]":" { *(yytext+1) = ','; - upcase(yytext); - sprintf(buf, "%s L1KE:",yytext); - printf(buf); - } -[iI] { count++; if (count % 3 == 0) printf("1"); else printf("I"); } -oo printf("00"); -0 printf("o"); -"s " printf("Z "); -"s." printf("Z."); -cr printf("KR"); -wr printf("R"); -ate printf("8"); -ait printf("8"); -ame printf("A1M"); -ain printf("ANE"); -ade printf("AID"); -four printf("4"); -fore printf("4"); -for printf("4"); -see printf("C"); -seeing printf("CN"); -you printf("U"); -ude printf("00D"); -ule printf("OOL"); -ome printf("UM"); -ose printf("UZE"); -tion printf("SHUN"); -mn printf("M"); -kn printf("N"); -er printf("UR"); -em printf("UM"); -ll printf("L"); -ware printf("WEAR"); - -. { upcase(yytext); printf(yytext); } - -\n printf("\n"); - -%% - -upcase(s) - char *s; -{ - while (*s) { - if (islower(*s)) - *s = toupper(*s); - s++; - } -} - -main() -{ - yylex(); -} - diff --git a/biffa.l b/biffa.l deleted file mode 100644 index e7dc80c..0000000 --- a/biffa.l +++ /dev/null @@ -1,265 +0,0 @@ -%e 3000 -%p 6000 -%n 1000 -%k 500 -%a 4000 -%o 2000 -BW [ ] -EW [ .,;!?] - -%{ - char buf[128]; - -%} - -%% -ead printf("eed"); -ote printf("urte"); -oad printf("urd"); -ode printf("urde"); -oke printf("urke"); -olk printf("urk"); -one printf("urn"); -al printf("aal"); -OK printf("aal reyt"); -"O.K." printf("all reyt"); -okay printf("aal reyt"); -Okay printf("Aal reyt"); -mother printf("mutha"); -mummy printf("mutha"); -ma{EW} printf("mutha "); -father printf("fatha"); -dad printf("fatha"); -pa{EW} printf("fatha "); -telephone printf("furn"); -ph printf("f"); -and printf("un'"); -And printf("Un'"); -only printf("urnly"); -over printf("urva"); -will printf("'ll"); -"You are" printf("Y'a fuckin'"); -"you are" printf("y'a fuckin'"); -"I am" printf("A'm fuckin'"); -"I'm" printf("A'm fuckin'"); -Most printf("Murst"); -most printf("murst"); -murder printf("knack"); -shatter printf("knack"); -damage printf("knack"); -Murder printf("Knack"); -Shatter printf("Knack"); -Damage printf("Knack"); -"Oh yes?" printf("Did yee spill wor pint?"); -[Cc]hinese printf("Chinky"); -"no it isn't" printf("Is it shite"); -"No it is not" printf("Is it shite"); -"It is not" printf("Is it fuck"); -"it is not" printf("is it fuck"); -"It isn't" printf("Is it fuck"); -"it isn't" printf("is it fuck"); -idle printf("ardle"); -rubbish printf("gobshite"); -useless printf("shite"); -"no good" printf("shite"); -shit printf("shite"); -muck printf("shite"); -mouth printf("gob"); -Mouth printf("Gob"); -someone printf("some fukka"); -Someone printf("Some fukka"); -anyone printf("any fukka"); -Anyone printf("Any fukka"); -nobody printf("neewun"); -Nobody printf("Neewun"); -noone printf("neewun"); -Noone printf("Neewun"); -"who is" printf("who tha fuck's"); -"Who is" printf("Who tha fuck's"); -"who are" printf("who tha fuck'a'"); -"Who are" printf("Who tha fuck'a'"); -"Why is" printf("Why tha fuck's"); -"Why is" printf("Why tha fuck's"); -"why are" printf("why tha fuck'a'"); -"Why are" printf("Why tha fuck'a'"); -"when is" printf("when tha fuck's"); -"When is" printf("When tha fuck's"); -"when are" printf("when tha fuck'a'"); -"When are" printf("When tha fuck'a'"); -tough printf("fuckin' hard"); -strong printf("fuckin' hard"); -"! " printf(", ya fuckin' puff! "); -nothing printf("bugga aal"); -Nothing printf("Bugga aal"); -food printf("grub"); -Food printf("Grub"); -My printf("Ma fuckin'"); -Your printf("Y' fuckin'"); -Our printf("Wor fuckin'"); -throw printf("hoy"); -Throw printf("Hoy"); -lots printf("lurds"); -Lots printf("Lurds"); -" have" printf("'ve"); -Have printf("Hev"); -"don't" printf("divvn't"); -"Don't" printf("Divvn't"); -"isn't" printf("in't"); -"Isn't" printf("In't"); -."self " printf("ssel "); -girls printf("lasses"); -girl printf("lass"); -boy printf("lad"); -know printf("knaa"); -make printf("maak"); -take printf("tek"); -Take printf("Tek"); -tak printf("tek"); -th[eo]se printf("them"); -broken printf("brerken"); -Broken printf("Brerken"); -broke printf("brerk"); -" tired" printf(" fuckin' knackered"); -gives printf("giz"); -give printf("giz"); -Give printf("Giz"); -giv printf("gizz"); -gave printf("gav"); -TV printf("telly"); -[Ww]ill printf("'ll"); -[Ss]hall printf("'ll"); -more printf("more fuckin'"); -than printf("than fuckin'"); -"can " printf("kin "); -"Can " printf("Kin "); -bad printf("bastaad"); -Bad printf("Bastaad"); -nasty printf("bastaad"); -good printf("magic"); -Good printf("Magic"); -great printf("magic"); -Great printf("Magic"); -human printf("yooman"); -woman printf("wumman"); -women printf("wummen"); -" man " printf(" bastaad "); -football printf("futbaal"); -all printf("aal"); -All printf("Aal"); -"the " printf("the fuckin' "); -"what is" printf("what the fuck is"); -"What is" printf("What the fuck is"); -"what are" printf("what the fuck are"); -"What are" printf("What the fuck are"); -"The " printf("The fuckin' "); -"That " printf("That fuckin' "); -" any" printf(" onny fuckin'"); -poof printf("puff"); -homosexual printf("puff"); -gay printf("puff"); -bisexual printf("semi-puff"); -[Mm]iddlesbrough printf("Boro"); -[Mm]iddlesborough printf("Boro"); -[Gg]ateshead printf("Gaatsed"); -[Nn]ewcastle printf("Neecassl"); -"South Shields" printf("Saath Sheels"); -[Ss]cotland printf("Jock"); -[Ss]cotsman printf("Jocko bastaad"); -[Ss]cottish printf("Jock"); -[Ss]paniard printf("Wop"); -[Ss]panish printf("Wop"); -[Ii]talian printf("Wop"); -[Ss]pain printf("Wopland"); -[Ii]taly printf("Wopland"); -them printf("'em"); -home printf("yem"); -" go " printf(" gaan "); -going printf("gannin'"); -" gone " printf(" went "); -trousers printf("kex"); -burnt printf("bornt"); -because printf("cos"); -Because printf("Cos"); -both printf("burth"); -Both printf("Burth"); -" yes " printf(" aye "); -"Yes " printf("Aye "); -" no " printf(" ney "); -"No " printf("Ney "); -"with " printf("wi' "); -wrong printf("wrang"); -told printf("telt"); -"bit of a " printf("birruva "); -"bit of " printf("birra "); -"You're a" printf("Yorra"); -"You are a" printf("Yorra"); -"you're a" printf("yorra"); -"you are a" printf("yorra"); -"We are" printf("Wur"); -" we are" printf(" wur"); -"What a" printf("Worra"); -"what a" printf("worra"); -your printf("y'"); -"you're" printf("yer"); -you printf("ya"); -" him" printf("'m"); -Your printf("Y'"); -"You're" printf("Yer"); -You printf("Ya"); -" our" printf(" wur"); -"Our" printf("Wur"); -"I won't" printf("Will Ah fuck"); -"I refuse to" printf("Will Ah fuck"); -"I will not" printf("Will Ah fuck"); -"I don't" printf("Do Ah fuck"); -"I do not " printf("Do Ah fuck "); -"I didn't" printf("Did Ah fuck"); -"I did not " printf("Did Ah fuck "); -"No." printf("Ney chance."); -"No!" printf("Ney chance!"); -"I'" printf("Ah'"); -"I " printf("Ah "); -" my" printf(" ma"); -" me " printf("'us "); -"We " printf("Wu "); -" we " printf(" wu "); -"were " printf("wus "); -"Were " printf("Wus "); -bastard printf("bastaad"); -into printf("inter"); -" on " printf("'an "); -" for " printf(" f' "); -beer printf("brown"); -" of " printf(" a'"); -[Gg]erman printf("Jorman"); -[Ss]wiss printf("Jorman"); -[Au]strian printf("Jorman"); -right printf("reyt"); -Right printf("Reyt"); -" to " printf(" ter "); -" hit by " printf(" chinned off "); -" kill" printf(" fuck"); -" hitt" printf(" fuck"); -" hit " printf(" fucked "); -" hit" printf(" fuck"); -breast printf("tit"); -bosom printf("tit"); -screwing printf("shaggin'"); -Screwing printf("Shaggin'"); -screw printf("shag"); -kick printf("fuck"); -Kick printf("Fuck"); -"ing " printf("in' "); -ou printf("er"); -"? " printf(", ya bastaad? "); -", sir" printf(", pal"); -", dear" printf(", pet"); -[a-m]", " {ECHO;printf("fuck, ");} -[n-z]", " {ECHO;printf("like, ");} -. printf(yytext); -\n printf("\n"); -%% -main() -{ - yylex(); -} diff --git a/buck.l b/buck.l deleted file mode 100644 index 2568f2b..0000000 --- a/buck.l +++ /dev/null @@ -1,85 +0,0 @@ -%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 | | buck | > 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(); -} - diff --git a/censor.l b/censor.l deleted file mode 100644 index 840528a..0000000 --- a/censor.l +++ /dev/null @@ -1,103 +0,0 @@ -%{ -#define yywrap() 1 -%} - -T [" .!?,"]* - -%% - -"ass" printf("[BUTTOCKS]"); -"ASS" printf("[BUTTOCKS]"); -"Ass" printf("[BUTTOCKS]"); -"Damn" printf("[CURSE]"); -"damn" printf("[CURSE]"); -"DAMN" printf("[CURSE]"); -"fuck" printf("[FORNICATE]"); -"Fuck" printf("[FORNICATE]"); -"FUCK" printf("[FORNICATE]"); -"shit" printf("[EXCREMENT]"); -"Shit" printf("[EXCREMENT]"); -"SHIT" printf("[EXCREMENT]"); -"bitch" printf("[FEMALE DOG]"); -"Bitch" printf("[FEMALE DOG]"); -"BITCH" printf("[FEMALE DOG]"); -"pecker" printf("[PHALLUS]"); -"Pecker" printf("[PHALLUS]"); -"PECKER" printf("[PHALLUS]"); -"nipple" printf("[MAMMARY OUTLET]"); -"Nipple" printf("[MAMMARY OUTLET]"); -"NIPPLE" printf("[MAMMARY OUTLET]"); -"breast" printf("[BUSOM]"); -"Breash" printf("[BUSOM]"); -"BREAST" printf("[BUSOM]"); -"fucking" printf("[FORNICATING]"); -"Fucking" printf("[FORNICATING]"); -"FUCKING" printf("[FORNICATING]"); -"fucked" printf("[FORNICATED]"); -"Fucked" printf("[FORNICATED]"); -"FUCKED" printf("[FORNICATED]"); -"damned" printf("[CURSED]"); -"Damned" printf("[CURSED]"); -"DAMNED" printf("[CURSED]"); -"damning" printf("[CURSING]"); -"Damning" printf("[CURSING]"); -"DAMNING" printf("[CURSING]"); -"piss" printf("[URINATE]"); -"Piss" printf("[URINATE]"); -"PISS" printf("[URINATE]"); -"asshole" printf("[DONKEY BUTTOCKS]"); -"Asshole" printf("[DONKEY BUTTOCKS]"); -"ASSHOLE" printf("[DONKEY BUTTOCKS]"); -"prick" printf("[PHALLUS]"); -"Prick" printf("[PHALLUS]"); -"PRICK" printf("[PHALLUS]"); -"cock" printf("[PHALLUS]"); -"Cock" printf("[PHALLUS]"); -"COCK" printf("[PHALLUS]"); -"pussy" printf("[VAGINA]"); -"Pussy" printf("[VAGINA]"); -"PUSSY" printf("[VAGINA]"); -"twat" printf("[VAGINA]"); -"Twat" printf("[VAGINA]"); -"TWAT" printf("[VAGINA]"); -"cunt" printf("[VAGINA]"); -"Cunt" printf("[VAGINA]"); -"CUNT" printf("[VAGINA]"); -"dick" printf("[RICHARD]"); -"Dick" printf("[RICHARD]"); -"DICK" printf("[RICHARD]"); -"cum" printf("[EJACULATE]"); -"Cum" printf("[EJACULATE]"); -"CUM" printf("[EJACULATE]"); -"jack off" printf("[MASTERBATE]"); -"Jack Off" printf("[MASTERBATE]"); -"JACK OFF" printf("[MASTERBATE]"); -"wet dream" printf("[NOCTURNAL EMISSION]"); -"Wet Dream" printf("[NOCTURNAL EMISSION]"); -"WET DREAM" printf("[NOCTURNAL EMISSION]"); -"jerk off" printf("[MASTERBATE]"); -"Jerk Off" printf("[MASTERBATE]"); -"JERK OFF" printf("[MASTERBATE]"); -"bastard" printf("[ILLEGITIMATE CHILD]"); -"Bastard" printf("[ILLEGITIMATE CHILD]"); -"BASTARD" printf("[ILLEGITIMATE CHILD]"); -"slut" printf("[WANTON WOMAN]"); -"Slut" printf("[WANTON WOMAN]"); -"SLUT" printf("[WANTON WOMAN]"); -"whore" printf("[PROSTITUTE]"); -"Whore" printf("[PROSTITUTE]"); -"WHORE" printf("[PROSTITUTE]"); -"suck" printf("[INHALE]"); -"Suck" printf("[INHALE]"); -"SUCK" printf("[INHALE]"); -"blow" printf("[EXHALE]"); -"Blow" printf("[EXHALE]"); -"BLOW" printf("[EXHALE]"); -. ECHO; -%% - -main() -{ - srand(getpid()); - yylex(); -} diff --git a/chef.l b/chef.l deleted file mode 100644 index 7e8ea13..0000000 --- a/chef.l +++ /dev/null @@ -1,63 +0,0 @@ -%{ -/* chef.x - convert English on stdin to Mock Swedish on stdout - * - * The WC definition matches any word character, and the NW definition matches - * any non-word character. Two start conditions are maintained: INW (in word) - * and NIW (not in word). The first rule passes TeX commands without change. - * - * HISTORY - * - * Apr 26, 1993; John Hagerman: Added ! and ? to the Bork Bork Bork rule. - * - * Apr 15, 1992; John Hagerman: Created. - */ - -static int i_seen = 0; -%} - -WC [A-Za-z'] -NW [^A-Za-z'] - -%start INW NIW - -%% - -\\[^ \n]+ ECHO; - -{NW} { BEGIN NIW; i_seen = 0; ECHO; } -[.!?]$ { BEGIN NIW; i_seen = 0; - printf("%c\nBork Bork Bork!",yytext[0]); } - -"bork"/{NW} ECHO; -"Bork"/{NW} ECHO; - -"an" { BEGIN INW; printf("un"); } -"An" { BEGIN INW; printf("Un"); } -"au" { BEGIN INW; printf("oo"); } -"Au" { BEGIN INW; printf("Oo"); } -"a"/{WC} { BEGIN INW; printf("e"); } -"A"/{WC} { BEGIN INW; printf("E"); } -"en"/{NW} { BEGIN INW; printf("ee"); } -"ew" { BEGIN INW; printf("oo"); } -"e"/{NW} { BEGIN INW; printf("e-a"); } -"e" { BEGIN INW; printf("i"); } -"E" { BEGIN INW; printf("I"); } -"f" { BEGIN INW; printf("ff"); } -"ir" { BEGIN INW; printf("ur"); } -"i" { BEGIN INW; printf(i_seen++ ? "i" : "ee"); } -"ow" { BEGIN INW; printf("oo"); } -"o" { BEGIN INW; printf("oo"); } -"O" { BEGIN INW; printf("Oo"); } -"o" { BEGIN INW; printf("u"); } -"the" { BEGIN INW; printf("zee"); } -"The" { BEGIN INW; printf("Zee"); } -"th"/{NW} { BEGIN INW; printf("t"); } -"tion" { BEGIN INW; printf("shun"); } -"u" { BEGIN INW; printf("oo"); } -"U" { BEGIN INW; printf("Oo"); } -"v" { BEGIN INW; printf("f"); } -"V" { BEGIN INW; printf("F"); } -"w" { BEGIN INW; printf("v"); } -"W" { BEGIN INW; printf("V"); } - -. { BEGIN INW; ECHO; } diff --git a/cockney.l b/cockney.l deleted file mode 100644 index e6c0bda..0000000 --- a/cockney.l +++ /dev/null @@ -1,190 +0,0 @@ -%{ -/* - * Lex filter to transform plain English into Cockney English. - * No racial or societal slurs are intended. For amusement only. - * - * Copyright 1986 by Daniel Klein. - * - * Reproduction permitted so long as this notice is retained. - */ -%} - -BW [ \t\n] -SP [ \t]+ -EW [ \t.,;!\?$] - -%Start junk - -%% -. { srandom(time(0L)); unput(yytext[0]); BEGIN 0; } -{BW}[Tt]he{EW} { ECHO; bloody(); } -{BW}[Ss]teal{EW} { printf("%c%cick",yytext[0],yytext[1]-5); - eos(); - } -{BW}[Ss]tole{EW} { printf("%c%cicked",yytext[0],yytext[1]-5); - eos(); - } -{BW}tired pooped(); -{BW}were{EW} | -{BW}was{EW} { printf("%cwuz",yytext[0]); eos(); } -[Hh]ello printf("'%cllo", caseify('u')); -{BW}[Hh] printf("%c'",yytext[0]); -{BW}[Yy]our{EW} { printf("%.2ser",yytext); eos(); } -{BW}it{EW} { printf("%.2s'",yytext); eos(); } -{BW}go{EW} { printf("%.2sow",yytext); eos(); } -{BW}and{EW} { printf("%c'n'",yytext[0]); eos(); } -{BW}my{EW} { printf("%.2se",yytext); eos(); } -{BW}th(is|at){EW} { printf("%.5s", yytext); eos(); } -{BW}[Ww]e{SP}went{EW} | -{BW}[Ww]e{SP}had{EW} | -{BW}[Ww]e{SP}did{EW} { printf("%.*s",yyleng-1,yytext); - set_did(2); - eos(); - } -{BW}I{SP}went{EW} | -{BW}I{SP}had{EW} | -{BW}I{SP}did{EW} { I(); - printf(" did"); - set_did(1); - eos(); - } -{BW}I{EW} { I(); eos(); } - -[Yy]ou{SP}[^aeiouy] { printf("%c'", yytext[0]); plastc(); } -[Ww]hat{SP}are{EW} { printf("%cotta", yytext[0]); eos(); } - -{BW}other | -[MmNnRr]other printf("%cuvver",yytext[0]); -[MmSs]outh printf("%cowf", yytext[0]); -[cYy]outh printf("%coof", yytext[0]); -[^o]uth printf("%.2sf",yytext); -{BW}th[^e] | -[AaEeIiOo]th[^em] { printf("%cf",yytext[0]); plastc(); } -oothe | -e[ei]the { printf("%c%cve", yytext[0], yytext[0]); } -ooth | -eeth { printf("%c%cf", yytext[0], yytext[0]); } -[aei]the { printf("%cvv",yytext[0]); plastc(); } -th putchar('v'); -a[km]e{EW} { printf("i%ce",yytext[1]); eos(); } -[^r][Oo]ld printf("%.2swld",yytext); -[^AaEeIiOoUu][uo]nd[a-z] printf("%cunn%c",yytext[0],yytext[yyleng-1]); -ing{EW} { printf("in'"); eos(); } -[^dg]get+[^h] printf("%cge'%c",yytext[0],yytext[yyleng-1]); -ail printf("aiw"); -any printf("enny"); -[rSs]ay{EW} { printf("%cigh",yytext[0]); eos(); } -way printf("why"); -[BbHh]it{EW} { printf("%ci'",yytext[0]); eos(); } -ait{EW} { printf("ite"); eos(); } -ime{EW} { printf("oime"); eos(); } -[^e]ize[^n] printf("%coize%c",yytext[0],yytext[yyleng-1]); -[^e]ight printf("%coit",*yytext); -[a-z]"?" { *(yytext+1) = ','; - printf("%s roit?",yytext); - clear_did(); - } -[a-z]"." { printf("%c", yytext[0]); dintI(); } -\n printf("\n"); - -%% - -eos() -{ - if (yytext[yyleng-1] == '.') - dintI(); - else - unput(yytext[yyleng-1]); -} - -plastc() -{ - unput(yytext[yyleng-1]); -} - -caseify(c) -char c; -{ - if (yytext[0] <= 'Z') - return (c - ' '); - else - return (c); -} - - -I() -{ -/* extern long random(); */ - - if (random() % 100 < 20) - printf("%cOy",yytext[0]); - else - printf("%cI",yytext[0]); -} - -static short b_count = 0; -static short b_which = 0; - -bloody() -{ - if (b_count++ % 2 == 0) { - switch (b_which++ % 4) { - case 0: printf("bloody "); break; - case 1: printf("flinkin' "); break; - case 2: printf("bleedin' "); break; - case 3: printf("soddin' "); break; - } - } -} - -static short did = 0; - -set_did(val) -{ - did = val; -} - -clear_did() -{ - did = 0; -} - -dintI() -{ -/* extern long random(); */ - - if ((did == 1) && (random() % 100 < 50)) - printf(", didn'I?"); - else if ((did == 2) && (random() % 100 < 50)) - printf(", din't we?"); - else - printf("."); - clear_did(); -} - -pooped() -{ -/* extern long random(); */ - - switch (random() % 3) { - case 0: - printf("%cknackered", yytext[0]); - break; - case 1: - printf("%cshagged out", yytext[0]); - break; - case 2: - printf("%cdone in", yytext[0]); - break; - } -} - -expletive() -{ -/* -Blimey -Stright a light -'Strewth -Cor blimey -*/ -} diff --git a/debian/changelog b/debian/changelog index 520b0b6..10a237d 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,84 @@ +filters (2.6) unstable; urgency=low + + * + + -- Joey Hess Fri, 10 Sep 1999 21:25:47 -0700 + +filters (2.5) unstable; urgency=low + + * eleet: w -> \/\/ + * Spelling correction patch from Edward Betts + (closes: #38850) + + -- Joey Hess Thu, 3 Jun 1999 13:03:02 -0700 + +filters (2.4) unstable; urgency=low + + * chef: say "knooeeng" for "knowing", and in general say "oo" for "ow". + + -- Joey Hess Wed, 19 May 1999 17:20:07 -0700 + +filters (2.3) unstable; urgency=low + + * Added kraut filter (free version found). + + -- Joey Hess Wed, 17 Mar 1999 15:52:05 -0800 + +filters (2.2) unstable; urgency=low + + * fixed Makefile to add . to PATH before running makesample.sh, because it + called jibberish, which looks only in /usr/games for the filters, and if + you're building filters w/o the package installed, they won't be there + and the build will fail. Whew! (closes: #33758) + + -- Joey Hess Fri, 26 Feb 1999 00:17:24 -0800 + +filters (2.1) unstable; urgency=low + + * Added upside down filter, which well, turns text upside down. + + -- Joey Hess Sat, 20 Feb 1999 18:22:43 -0800 + +filters (2.0) unstable; urgency=low + + * Re-wrote the eleet, chef, b1ff filters in perl, dropped all the rest + (except jethro); they will be in filters-nonfree now. This was done + due to copyright problems in the original filters. + * Fixes important bug #32333 + + -- Joey Hess Sun, 24 Jan 1999 13:13:17 -0800 + +filters (1.8) unstable; urgency=low + + * Added jibberish meta-filter by Raul Miller . + (#24677) + + -- Joey Hess Fri, 4 Dec 1998 15:18:09 -0800 + +filters (1.7) unstable; urgency=low + + * Renamed mb to marc-barrett to eliminate namespace pollution. + + -- Joey Hess Wed, 15 Apr 1998 00:23:38 -0700 + +filters (1.6) unstable; urgency=low + + * Added eleet filter, thanks to Jeremy Worrells . + + -- Joey Hess Fri, 6 Mar 1998 11:41:29 -0800 + +filters (1.5) unstable; urgency=low + + * Updated standards-version. + + -- Joey Hess Mon, 9 Feb 1998 13:38:55 -0800 + +filters (1.4) unstable; urgency=low + + * Use debhelper. + + -- Joey Hess Sat, 7 Feb 1998 19:38:35 -0800 + filters (1.3) unstable; urgency=low * Libc6. diff --git a/debian/config b/debian/config deleted file mode 100644 index db4d289..0000000 --- a/debian/config +++ /dev/null @@ -1,65 +0,0 @@ -# Edit this file to configure debian/rules to build a package. -# No modification of debian/rules should be neccessary. (Famous last words!) -# -# File by Joey Hess - -# What is the name of this package? -package=filters - -# Files that go in directories under /doc. -docs=README ky00te.dir/README.ky00te SAMPLES -copyright=debian/copyright - -# What file must exist in the current directory if the package is -# properly unpacked here? -test_file=makesample.sh - -# Does this package build from an Imakefile? -# If so, uncomment the line below. -#use_imakefile=y - -# Does this package build from a Configure script? -# If so, uncomment the line below and enter the command to run to run the -# Configure script (ie: "./Configure") -#use_configure=./Configure - -# What commands to run to build the package? -define build_command - $(MAKE) - $(MAKE) samples -endef - -# What commands to run to clean up after a build? -define clean_command - -$(MAKE) -i clean -endef - -# List here any files that must be removed during "debian/rules clean" -# that clean_command doesn't take care of. -clean_files= - -# List here any files that should be preserved during a build, and restored -# to their original state during a clean. For example, if the package comes -# with both an Imakefile and a Makefile, and xmkmf is run, list the original -# Makefile here so it will be backed up before it is overwritten my xmkmf. -preserve_files= - -# What command to run to install the package into debian/tmp? -# You might want to edit the package's Makefile and add $(PREFIX) -# to all the paths it installs files to. or, you can just write -# your own install commands here instead. -# -# Note that debian/* and the files in /usr/doc will be installed -# properly for you, you don't need to do that here. -# -define install_command - $(MAKE) PREFIX=debian/tmp install -endef - -# After being installed in debian/tmp, everything is chowned to root.root, -# and chmod g-ws is run on everyything. Enter below any chmod commands you -# need to run to set files to the proper permissions. This is where you -# can make programs be suid, etc. -# (Note that these commands will be run as root.) -define ch_commands -endef diff --git a/drawl.l b/drawl.l deleted file mode 100644 index ae73df1..0000000 --- a/drawl.l +++ /dev/null @@ -1,426 +0,0 @@ -%{ -/* Title: English to Texan translator - * Author: Adam Hudd (adam@dadhb1.ti.com) - * Date: 5 March 1991 - * Version: 1.0 - * - * Input: stdin - * Output: stdout - * compile: flex -iL drawl.l ; cc -O lex.yy.c -o drawl - */ - -#include -#include - -void changeCase(); -%} -%% -(^|" ")"American" changeCase(" Amerkin"); -(^|" ")"California" changeCase(" Caleyfornyuh"); -(^|" ")"Dallas" changeCase(" Big D."); -(^|" ")"Fort Worth" changeCase(" Fowert Wurth"); -(^|" ")"Houston" changeCase(" Useton"); -(^|" ")"I don't know" changeCase(" I-O-no"); -(^|" ")"I will"|" I'll" changeCase(" Ahl"); -(^|" ")"I would" changeCase(" Ahd"); -(^|" ")"I " changeCase(" Ah "); -(^|" ")"I'm "|" I am " changeCase(" Ahm "); -(^|" ")"I've "|" I have " changeCase(" Ahv "); -(^|" ")"Mexico" changeCase(" Messyco"); -(^|" ")"San Antonio" changeCase(" Santone"); -(^|" ")"TV"|" television"|" telly" changeCase(" tayvay"); -(^|" ")"Texan" changeCase(" Texun"); -(^|" ")"Texas" changeCase(" Teksus"); -(^|" ")"a while " changeCase(" uhwahl "); -(^|" ")"a " changeCase(" uh "); -(^|" ")"about" changeCase(" bout"); -(^|" ")"adult" changeCase(" a-dult"); -(^|" ")"afraid" changeCase(" frayed"); -(^|" ")"and " changeCase(" an "); -(^|" ")"anniversary" changeCase(" anavarsry"); -(^|" ")"any " changeCase(" no "); -(^|" ")"anywhere" changeCase(" anywhare"); -(^|" ")"appreciate" changeCase(" preshate"); -(^|" ")"april" changeCase(" abrul"); -(^|" ")"are going to" changeCase(" sargunna"); -(^|" ")"are known" changeCase(" iz node"); -(^|" ")"are " changeCase(" is "); -(^|" ")"aren't you" changeCase(" arncha"); -(^|" ")"at them" changeCase(" attum"); -(^|" ")"august" changeCase(" awg-ghust"); -(^|" ")"away" changeCase(" awf"); -(^|" ")"awkward" changeCase(" aukerd"); -(^|" ")"bad" changeCase(" bayud"); -(^|" ")"ball" changeCase(" bawl"); -(^|" ")"baptists" changeCase(" babtusses"); -(^|" ")"barbed" changeCase(" bob"); -(^|" ")"be " changeCase(" bay "); -(^|" ")"bear" changeCase(" bayur"); -(^|" ")"beautiful" changeCase(" butiful"); -(^|" ")"because" changeCase(" cuz"); -(^|" ")"believe" changeCase(" bleeve"); -(^|" ")"bitty" changeCase(" biddy"); -(^|" ")"black" changeCase(" blaak"); -(^|" ")"blue" changeCase(" bulloo"); -(^|" ")"born" changeCase(" bornd"); -(^|" ")"brake" changeCase(" brayke"); -(^|" ")"break" changeCase(" brayke"); -(^|" ")"brick" changeCase(" breck"); -(^|" ")"brighter" changeCase(" brotter"); -(^|" ")"bringing" changeCase(" brangin"); -(^|" ")"brown" changeCase(" braoyone"); -(^|" ")"building" changeCase(" bildun"); -(^|" ")"bulb" changeCase(" bub"); -(^|" ")"call you " changeCase(" cawya "); -(^|" ")"called you " changeCase(" cawdja "); -(^|" ")"camera" changeCase(" Instuhmatik"); -(^|" ")"can't" changeCase(" kaynt"); -(^|" ")"can't"|" can not"|" cannot" changeCase(" kaynt"); -(^|" ")"capital" changeCase(" captul"); -(^|" ")"car " changeCase(" cawer "); -(^|" ")"catch" changeCase(" ketch"); -(^|" ")"chair" changeCase(" chayer"); -(^|" ")"cheer" changeCase(" chair"); -(^|" ")"chicken" changeCase(" chikun"); -(^|" ")"child" changeCase(" kid"); -(^|" ")"children" changeCase(" kids"); -(^|" ")"clean" changeCase(" klane"); -(^|" ")"climate" changeCase(" kliment"); -(^|" ")"cold" changeCase(" code"); -(^|" ")"darker" changeCase(" dawerker"); -(^|" ")"deaf" changeCase(" dayuf"); -(^|" ")"death" changeCase(" dayuth"); -(^|" ")"december" changeCase(" deceyumbur"); -(^|" ")"definite" changeCase(" defnut"); -(^|" ")"did not"|" didn't" changeCase(" didunt"); -(^|" ")"did you" changeCase(" dja"); -(^|" ")"didn't it" changeCase(" diduhnit"); -(^|" ")"different" changeCase(" difernt"); -(^|" ")"difficult" changeCase(" difahkult"); -(^|" ")"divide" changeCase(" duhvide"); -(^|" ")"does" changeCase(" duz"); -(^|" ")"doesn't" changeCase(" don't"); -(^|" ")"dog " changeCase(" dawg "); -(^|" ")"I don't care" changeCase(" don't make no nevur mind to may "); -(^|" ")"door" changeCase(" dower"); -(^|" ")"dreaming" changeCase(" draimun"); -(^|" ")"drink" changeCase(" drank"); -(^|" ")"drinking" changeCase(" drankin"); -(^|" ")"drive" changeCase(" drahv"); -(^|" ")"eight" changeCase(" ate"); -(^|" ")"eighteen" changeCase(" a-tane"); -(^|" ")"eighth" changeCase(" athd"); -(^|" ")"eighty" changeCase(" ady"); -(^|" ")"eleven" changeCase(" lebum"); -(^|" ")"entire" changeCase(" entahr"); -(^|" ")"especially" changeCase(" speshuly"); -(^|" ")"even" changeCase(" evun"); -(^|" ")"evening" changeCase(" eevnun"); -(^|" ")"eventually" changeCase(" eventchly"); -(^|" ")"ever" changeCase(" evur"); -(^|" ")"every once in a while" changeCase(" evurwonsinawhahl"); -(^|" ")"every" changeCase(" evur"); -(^|" ")"exactly" changeCase(" zakly"); -(^|" ")"executive" changeCase(" zekatuv"); -(^|" ")"eye " changeCase(" ah "); -(^|" ")"father" changeCase(" papa"); -(^|" ")"february" changeCase(" febberyawary"); -(^|" ")"fell " changeCase(" fayul "); -(^|" ")"fifteen" changeCase(" fiftane"); -(^|" ")"fifth" changeCase(" fifd"); -(^|" ")"fifty" changeCase(" fifdy"); -(^|" ")"fight" changeCase(" fite"); -(^|" ")"figure" changeCase(" figger"); -(^|" ")"filling" changeCase(" fillin"); -(^|" ")"fine" changeCase(" fahn"); -(^|" ")"fire" changeCase(" far"); -(^|" ")"first" changeCase(" fursd"); -(^|" ")"five" changeCase(" fav"); -(^|" ")"fixing" changeCase(" fixin"); -(^|" ")"flower" changeCase(" flare"); -(^|" ")"follow" changeCase(" faller"); -(^|" ")"for " changeCase(" fahwar "); -(^|" ")"forget" changeCase(" fergit"); -(^|" ")"fork" changeCase(" fowerk"); -(^|" ")"forty" changeCase(" fardy"); -(^|" ")"four" changeCase(" fower"); -(^|" ")"fourteen" changeCase(" fortane"); -(^|" ")"fourth" changeCase(" fowerth"); -(^|" ")"freeze" changeCase(" fraze"); -(^|" ")"friday" changeCase(" frydy"); -(^|" ")"from" changeCase(" frum"); -(^|" ")"front" changeCase(" frunt"); -(^|" ")"gas" changeCase(" gayus"); -(^|" ")"geography" changeCase(" joggerfee"); -(^|" ")"get a hold of you" changeCase(" gittaholdayew"); -(^|" ")"get" changeCase(" git"); -(^|" ")"going to" changeCase(" gunna"); -(^|" ")"going to" changeCase(" mona"); -(^|" ")"gold" changeCase(" gode"); -(^|" ")"got to " changeCase(" gotta "); -(^|" ")"green" changeCase(" grane"); -(^|" ")"grey"|" gray" changeCase(" graey"); -(^|" ")"guests" changeCase(" guesss"); -(^|" ")"guitar" changeCase(" gitahwer"); -(^|" ")"gulf" changeCase(" guf"); -(^|" ")"hard" changeCase(" hayud"); -(^|" ")"have a " changeCase(" havuh "); -(^|" ")"have not"|" haven't" changeCase(" habumt"); -(^|" ")"have " changeCase(" hav "); -(^|" ")"he " changeCase(" hay "); -(^|" ")"headed" changeCase(" hardud"); -(^|" ")"here" changeCase(" hare"); -(^|" ")"high" changeCase(" ha"); -(^|" ")"hour" changeCase(" air"); -(^|" ")"how are you" changeCase(" hyeru"); -(^|" ")"how do you do " changeCase(" howdee "); -(^|" ")"huh!" changeCase(" hawh!"); -(^|" ")"huh?" changeCase(" hawh?"); -(^|" ")"hundred" changeCase(" hunnerd"); -(^|" ")"if I " changeCase(" fah "); -(^|" ")"if it " changeCase(" hifit "); -(^|" ")"if you" changeCase(" few"); -(^|" ")"if " changeCase(" hif "); -"ing " changeCase("in' "); -(^|" ")"ignorance" changeCase(" ignernt"); -(^|" ")"indian" changeCase(" hinyun"); -(^|" ")"inside" changeCase(" n-sod"); -(^|" ")"instead of" changeCase(" instudda"); -(^|" ")"institute" changeCase(" instatoot"); -(^|" ")"intersection" changeCase(" innersekshun"); -(^|" ")"is a " changeCase(" izza "); -(^|" ")"is it " changeCase(" izit "); -(^|" ")"is that " changeCase(" izzat "); -(^|" ")"is that right " changeCase(" zatrot "); -(^|" ")"is " changeCase(" iz "); -(^|" ")"isn't it " changeCase(" hiduhnit "); -(^|" ")"it appears" changeCase(" pears"); -(^|" ")"it would" changeCase(" hid"); -(^|" ")"it " changeCase(" hit "); -(^|" ")"it'd " changeCase(" hid "); -(^|" ")"it's"|" it is" changeCase(" hit's"); -(^|" ")"jail" changeCase(" jayul"); -(^|" ")"january" changeCase(" janyawary"); -(^|" ")"jeans" changeCase(" janes"); -(^|" ")"jet" changeCase(" jeyut"); -(^|" ")"jewelry" changeCase(" julry"); -(^|" ")"july" changeCase(" djoolie"); -(^|" ")"june" changeCase(" djoon"); -(^|" ")"just" changeCase(" gist"); -(^|" ")"kind of" changeCase(" kinduh"); -(^|" ")"king" changeCase(" kang"); -(^|" ")"library" changeCase(" liberry"); -(^|" ")"lie" changeCase(" lah"); -(^|" ")"life" changeCase(" lahf"); -(^|" ")"light" changeCase(" lot"); -(^|" ")"lighter" changeCase(" lahter"); -(^|" ")"like" changeCase(" lahk"); -(^|" ")"little" changeCase(" liddel"); -(^|" ")"log" changeCase(" lawg"); -(^|" ")"lot of" changeCase(" lottuh"); -(^|" ")"lots of" changeCase(" lotsa"); -(^|" ")"love" changeCase(" luv"); -(^|" ")"mall" changeCase(" mawl"); -(^|" ")"march" changeCase(" martch"); -(^|" ")"material" changeCase(" mahtearyul"); -(^|" ")"may" changeCase(" maey"); -(^|" ")"me " changeCase(" may "); -(^|" ")"mile" changeCase(" mahl"); -(^|" ")"minute" changeCase(" minent"); -(^|" ")"monday" changeCase(" mundy"); -(^|" ")"mosquito" changeCase(" skeeter"); -(^|" ")"moss" changeCase(" mawce"); -(^|" ")"mother" changeCase(" ma"); -(^|" ")"mroone" changeCase(" maroon"); -(^|" ")"my " changeCase(" mah "); -(^|" ")"myself" changeCase(" mahsef"); -(^|" ")"never" changeCase(" nevur"); -(^|" ")"nine" changeCase(" nahn"); -(^|" ")"nineteen" changeCase(" nontane"); -(^|" ")"nineth" changeCase(" nonth"); -(^|" ")"ninety" changeCase(" nondy"); -(^|" ")"no " changeCase(" naw "); -(^|" ")"nothing" changeCase(" nuthun"); -(^|" ")"november" changeCase(" noveyumbur"); -(^|" ")"ocean" changeCase(" oshun"); -(^|" ")"october" changeCase(" oktobur"); -(^|" ")"of " changeCase(" uh "); -(^|" ")"off" changeCase(" awf"); -(^|" ")"oil" changeCase(" all"); -(^|" ")"old " changeCase(" ode "); -(^|" ")"one of " changeCase(" wunna "); -(^|" ")"one " changeCase(" wun "); -(^|" ")"only" changeCase(" monly"); -(^|" ")"opposite" changeCase(" opsit"); -(^|" ")"orange" changeCase(" arnjuh"); -(^|" ")"over there" changeCase(" ovare"); -(^|" ")"over" changeCase(" ovur"); -(^|" ")"parking" changeCase(" parkin"); -(^|" ")"people" changeCase(" paypul"); -(^|" ")"picture" changeCase(" pitchur"); -(^|" ")"pillow" changeCase(" pillar"); -(^|" ")"pine" changeCase(" pahn"); -(^|" ")"pink" changeCase(" pank"); -(^|" ")"please" changeCase(" playze"); -(^|" ")"pretty" changeCase(" purdy"); -(^|" ")"probably" changeCase(" probly"); -(^|" ")"purple" changeCase(" burpel"); -(^|" ")"queen" changeCase(" kwane"); -(^|" ")"quit" changeCase(" kewyut"); -(^|" ")"rather" changeCase(" ruthur"); -(^|" ")"ready" changeCase(" reddy"); -(^|" ")"real" changeCase(" reeyul"); -(^|" ")"really" changeCase(" rilly"); -(^|" ")"red" changeCase(" rayud"); -(^|" ")"right" changeCase(" rot"); -(^|" ")"ring" changeCase(" rang"); -(^|" ")"said" changeCase(" sayud"); -(^|" ")"sale" changeCase(" sayul"); -(^|" ")"sale"|" sail"|" sell" changeCase(" sayul"); -(^|" ")"saturday" changeCase(" sadderdy"); -(^|" ")"school" changeCase(" skoo"); -(^|" ")"screen" changeCase(" skrane"); -(^|" ")"second" changeCase(" sekunt"); -(^|" ")"see" changeCase(" say"); -(^|" ")"september" changeCase(" ceptimbur"); -(^|" ")"seven" changeCase(" sebum"); -(^|" ")"seventeen" changeCase(" sebumtane"); -(^|" ")"seventh" changeCase(" sebumthd"); -(^|" ")"seventy" changeCase(" sebumdy"); -(^|" ")"she" changeCase(" shay"); -(^|" ")"shirt" changeCase(" churt"); -(^|" ")"sign" changeCase(" sahn"); -(^|" ")"silver" changeCase(" seeyulvur"); -(^|" ")"sit" changeCase(" set"); -(^|" ")"sixteen" changeCase(" sickstane"); -(^|" ")"sixth" changeCase(" sicksed"); -(^|" ")"sixty" changeCase(" sicksdy"); -(^|" ")"siz" changeCase(" sicks"); -(^|" ")"smell" changeCase(" smayul"); -(^|" ")"smile" changeCase(" smahl"); -(^|" ")"softer" changeCase(" sowftur"); -(^|" ")"some of those" changeCase(" sumoze"); -(^|" ")"some" changeCase(" sum"); -(^|" ")"something" changeCase(" sumpn"); -(^|" ")"sometime" changeCase(" sumtom"); -(^|" ")"south" changeCase(" saowth"); -(^|" ")"speak" changeCase(" spake"); -(^|" ")"spring" changeCase(" sprang"); -(^|" ")"sprinkle" changeCase(" sprankul"); -(^|" ")"stadium" changeCase(" stadyum"); -(^|" ")"station" changeCase(" stayshun"); -(^|" ")"string" changeCase(" strang"); -(^|" ")"sunday" changeCase(" sundy"); -(^|" ")"sure" changeCase(" shore"); -(^|" ")"tale"|" tail" changeCase(" tayul"); -(^|" ")"talk" changeCase(" tawk"); -(^|" ")"talking" changeCase(" tawkin"); -(^|" ")"tall" changeCase(" tahl"); -(^|" ")"tan" changeCase(" tayun"); -(^|" ")"ten" changeCase(" teyun"); -(^|" ")"tenth" changeCase(" teyunth"); -(^|" ")"terible" changeCase(" tarbul"); -(^|" ")"terrible" changeCase(" tarbul"); -(^|" ")"that is"|" that's" changeCase(" thets"); -(^|" ")"that" changeCase(" thet"); -(^|" ")"the only" changeCase(" thonly"); -(^|" ")"the other" changeCase(" thuther"); -(^|" ")"the" changeCase(" thuh"); -(^|" ")"their" changeCase(" thur"); -(^|" ")"there" changeCase(" thare"); -(^|" ")"there" changeCase(" thayure"); -(^|" ")"they" changeCase(" thay"); -(^|" ")"thing" changeCase(" thang"); -(^|" ")"think" changeCase(" thank"); -(^|" ")"third" changeCase(" thurd"); -(^|" ")"thirteen" changeCase(" thurtane"); -(^|" ")"thirty" changeCase(" thurdy"); -(^|" ")"this" changeCase(" thus"); -(^|" ")"those" changeCase(" them"); -(^|" ")"thousand" changeCase(" thousun"); -(^|" ")"three" changeCase(" thray"); -(^|" ")"through" changeCase(" thoo"); -(^|" ")"throw" changeCase(" thow"); -(^|" ")"throw" changeCase(" throw"); -(^|" ")"thrown" changeCase(" thowed"); -(^|" ")"thursday" changeCase(" thursdy"); -(^|" ")"tie" changeCase(" tah"); -(^|" ")"tied" changeCase(" tahd"); -(^|" ")"tight" changeCase(" tot"); -(^|" ")"time" changeCase(" tom"); -(^|" ")"to " changeCase(" tuh "); -(^|" ")"today" changeCase(" tuhday"); -(^|" ")"toilet" changeCase(" outhouse"); -(^|" ")"told" changeCase(" tode"); -(^|" ")"tommorrow" changeCase(" tuhmorrow"); -(^|" ")"tree" changeCase(" tray"); -(^|" ")"truck" changeCase(" truk"); -(^|" ")"tuesday" changeCase(" chewsdy"); -(^|" ")"twelve" changeCase(" twayulv"); -(^|" ")"twenty" changeCase(" twindy"); -(^|" ")"two " changeCase(" tew "); -(^|" ")"understand" changeCase(" understaynd"); -(^|" ")"used to" changeCase(" ustuh"); -(^|" ")"vehicle" changeCase(" vee-hicul"); -(^|" ")"victory" changeCase(" viktray"); -(^|" ")"violation" changeCase(" vahlayshun"); -(^|" ")"virtual" changeCase(" vurchul"); -(^|" ")"want to " changeCase(" wonna "); -(^|" ")"was that" changeCase(" wuzzat"); -(^|" ")"was" changeCase(" wuz"); -(^|" ")"wash" changeCase(" wartch"); -(^|" ")"water" changeCase(" warder"); -(^|" ")"we " changeCase(" way "); -(^|" ")"wedding" changeCase(" wedden"); -(^|" ")"wednesday" changeCase(" winsdy"); -(^|" ")"well" changeCase(" wayul"); -(^|" ")"were " changeCase(" wuz "); -(^|" ")"west " changeCase(" wayust "); -(^|" ")"what did you" changeCase(" whudja"); -(^|" ")"what did" changeCase(" whuddle"); -(^|" ")"what do you" changeCase(" wadja"); -(^|" ")"what is the matter" changeCase(" smatter"); -(^|" ")"what is"|" what's" changeCase(" whut"); -(^|" ")"what" changeCase(" whut"); -(^|" ")"wheel" changeCase(" whale"); -(^|" ")"when" changeCase(" wheyun"); -(^|" ")"where did you" changeCase(" whardja"); -(^|" ")"where" changeCase(" whar"); -(^|" ")"where" changeCase(" whayer"); -(^|" ")"white" changeCase(" wot"); -(^|" ")"why don't you" changeCase(" y-oncha"); -(^|" ")"why" changeCase(" wha"); -(^|" ")"wife" changeCase(" waf"); -(^|" ")"window" changeCase(" wender"); -(^|" ")"winter" changeCase(" winner"); -(^|" ")"wire" changeCase(" war"); -(^|" ")"with you" changeCase(" witchew"); -(^|" ")"woman" changeCase(" whoamun"); -(^|" ")"women" changeCase(" wimmen"); -(^|" ")"world" changeCase(" warld"); -(^|" ")"worse than" changeCase(" worsun"); -(^|" ")"yard" changeCase(" chard"); -(^|" ")"yellow" changeCase(" yuller"); -(^|" ")"yes" changeCase(" u-betcha"); -(^|" ")"yes" changeCase(" yayus"); -(^|" ")"you " changeCase(" yawl "); -(^|" ")"your are"|" you're" changeCase(" yore"); -(^|" ")"your" changeCase(" chur"); -.|'\n' ECHO; -%% -main() -{ - yylex(); -} - -void changeCase(word) -char *word; -{ -extern char *yytext; - -/* change o/p to upper/lower based on original text */ - if (isupper(*(yytext+1)) && islower(*(word+1))) - *(word+1) = toupper(*(word+1)); - - printf(word); -} diff --git a/eleet.l b/eleet.l deleted file mode 100644 index 3cd77f1..0000000 --- a/eleet.l +++ /dev/null @@ -1,48 +0,0 @@ -%e 2000 -%p 5000 -%n 1000 -%k 500 -%a 4000 -%o 2000 -BW [ ] -EW [ .,;!?] - -%{ -#include - -char buf[128]; -%} - -%% - -a printf("4"); -A printf("4"); -e printf("3"); -E printf("3"); -i printf("1"); -I printf("1"); -o printf("0"); -O printf("0"); -n printf("/\\/"); -N printf("/\\/"); -m printf("/\\/\\"); -M printf("/\\/\\"); -v printf("\\/"); -V printf("\\/"); -t printf("+"); -T printf("+"); -s printf("5"); -S printf("5"); -l printf("|_"); -L printf("|_"); -x printf("><"); -X printf("><"); -h printf("|-|"); -H printf("|-|"); - -%% -main() -{ - yylex(); - return(0); -} diff --git a/fin.l b/fin.l deleted file mode 100644 index 68f266e..0000000 --- a/fin.l +++ /dev/null @@ -1,63 +0,0 @@ - -T [" .!?,"]* -%% - -look printf("watch"); -watch printf("look"); -hear printf("listen"); -listen printf("hear"); -good printf("well"); -well printf("good"); -say printf("speaks"); -said printf("speaked"); -being printf("be"); -ck printf("kk"); -nn printf("n"); -mm printf("m"); -tt printf("t"); -ss printf("s"); -dd printf("d"); -" had " printf(" have "); -" than " printf(" to "); -" was " printf(" were "); -" can " printf(" be able to "); -" do " printf(" doing "); -" does " printf(" doings "); -" see " printf(" be seeing "); -" be " printf(" being "); -" am " printf(" do be "); -" as " printf(" so "); -" so " printf(" as "); -" is " printf(" does be "); -" my " printf(" the of me "); -"My " printf("The of me "); -" his " printf(" the of him "); -"His " printf("The of him "); -[Yy]our printf("the of you"); -" a " printf(" "); -" the " printf(" "); -"A " printf("One "); -"ts " printf("t's "); -"t's " printf("ts "); -[Tt]hat printf("this"); -[Tt]his printf("that"); -into printf("in"); -" in " printf(" into "); -onto printf("on"); -" on " printf(" onto "); -never printf("not once"); -[Oo]nce printf("one time"); -[Tt]wice printf("two times"); -about printf("by"); -[Ww]hy printf("how"); -" by " printf(" from "); -" to " printf(" for "); -" for " printf(" to "); -"ing " printf("ed "); -%% - -main() -{ - srand(getpid()); - yylex(); -} diff --git a/fudd.l b/fudd.l deleted file mode 100644 index 463c214..0000000 --- a/fudd.l +++ /dev/null @@ -1,37 +0,0 @@ -%e 2000 -%p 5000 -%n 1000 -%k 500 -%a 4000 -%o 2000 -BW [ ] -EW [ .,;!?] - -%{ -#include - -char buf[128]; -%} - -%% -"r" printf("w"); -"l" printf("w"); -"qu" printf("qw"); -"th " printf("f "); -"th" printf("d"); -"n." printf("n, uh-hah-hah-hah\. "); -"R" printf("W"); -"L" printf("W"); -"Qu" printf("Qw"); -"QU" printf("QW"); -"TH " printf("F "); -"TH" printf("D"); -"Th" printf("D"); -"N." printf("N, uh-hah-hah-hah\. "); - -%% -main() -{ - yylex(); - return(0); -} diff --git a/jive.l b/jive.l deleted file mode 100644 index dcb9924..0000000 --- a/jive.l +++ /dev/null @@ -1,250 +0,0 @@ -%{ -/* - * Lex filter to transform plain English into Jive English. - * No racial or societal slurs are intended. For amusement only. - * - * Copyright 1986 by Daniel Klein and Clement Cole. - * - * Reproduction permitted so long as this notice is retained. - */ -%} -%e 1700 -%p 4000 -%n 700 -%k 450 -%a 1700 -%o 1500 -BW [ \t\(] -EW [ \t.,;!\?$\)] -%% -@[Bb]egin(.*) | -".so ".*$ printf("%s", yytext); -{BW}send printf("%ct'row",yytext[0]); -program+ printf("honky code"); -[Uu]nix printf("slow mo-fo"); -UNIX printf("dat slow mo-fo"); -actual printf("ak'shul"); -{BW}take printf("%csnatch",yytext[0]); -{BW}took | -{BW}take[ns] printf("%csnatch'd",yytext[0]); -[Mm]exican printf("%cet-back", caseify('w')); -[Ii]talian printf("%creaser", caseify('g')); -{BW}big{EW} { printf("%cbig ass",yytext[0]);plastc();} -fool printf("honkyfool"); -modem printf("doodad"); -{BW}he{EW} { printf("%cmah' man he",yytext[0]);plastc();} -"e the"{EW} | -"a the"{EW} | -"t the"{EW} | -"d the"{EW} { printf("%c da damn", yytext[0]);plastc();} -wife | -woman printf("mama"); -girl printf("goat"); -something printf("sump'n"); -{BW}lie printf("%chonky jive",yytext[0]); --o- printf("-on rebound-"); -[a-z]"." { printf("%s", yytext);expletive();} -! printf(". Right On!"); -[Ss]ure printf("%cho'", yytext[0]); -get printf("git"); -"will have"{EW} | -"will"{EW} | -"got to"{EW} { printf("gots'ta");plastc();} -"I am" printf("I's gots'ta be"); -"aren't" | -"am not" | -"have not" | -"is not" | -"are not" printf("ain't"); -{BW}see{EW} { printf("%csee's",yytext[0]);plastc();} -{BW}are{EW} { printf("%cis",yytext[0]);plastc();} -{BW}hat{EW} { printf("%cfedora",yytext[0]);plastc();} -{BW}shoe printf("%ckicker",yytext[0]); -{BW}"have to"{EW} | -{BW}has{EW} { printf("%cgots'ta",yytext[0]);plastc();} -have printf("gots'"); -{BW}go{EW} | -{BW}"come over"{EW} | -{BW}come{EW} { printf("%cmosey on down",yytext[0]);plastc();} -buy printf("steal"); -{BW}car{EW} { printf("%cwheels",yytext[0]);plastc();} -drive printf("roll"); -{BW}food printf("%ccatfish an' colluhd greens",yytext[0]); -{BW}eat{EW} { printf("%cfeed da bud",yytext[0]);plastc();} -drink printf("guzzle"); -black | -negro printf("brother"); -white printf("honky"); -nigger printf("gentleman"); -nice printf("supa' fine"); -{BW}person printf("%csucka'",yytext[0]); -[Pp]eople printf("%cucka's", caseify('s')); -{BW}thing thing(yytext[0]); -house{EW} { printf("crib");plastc();} -home printf("plantation"); -name printf("dojigger"); -{BW}path printf("%calley",yytext[0]); -[Cc]omputer printf("%clunker", yytext[0]); -or printf("o'"); -president printf("super-dude"); -"prime minister" printf("prahm mistah"); -government printf("guv'ment"); -knew printf("knowed"); -[Bb]ecause printf("'%cuz", caseify('c')); -[Yy]our printf("%co'", yytext[0]); -[Ff]our printf("%coe", yytext[0]); -got printf("gots"); -young printf("yung"); -you printf("ya'"); -You printf("You's"); -first printf("fust"); -police printf("honky pigs"); -{BW}string printf("%cchittlin'",yytext[0]); -{BW}read printf("%ceyeball",yytext[0]); -write printf("scribble"); -think{EW} { printf("thin'");plastc();} -with printf("wif"); -other printf("uthu'"); -[Tt]hr printf("%c'r", yytext[0]); -[Tt]h printf("%c", caseify('d')); -ing printf("in'"); -{BW}a{EW} { printf("%csome",yytext[0]);plastc();} -{BW}to{EW} { printf("%ct'",yytext[0]); - if(yytext[yyleng-1]!=' ') - plastc(); - } -tion printf("shun"); -[Aa]lmost printf("%cos'", caseify('m')); -from printf("fum"); -[Yy]"ou're" printf("%couse", yytext[0]); -alright | -okay printf("coo'"); -[Aa]nd printf("%cn'", yytext[0]); -known printf("knode"); -want printf("wants'"); -beat printf("whup'ed"); -ile printf("ah'l"); -er{EW} { printf("uh");plastc();} -[a-z]sti printf("%cs'i", yytext[0]); -tute printf("toot"); -exp printf("'sp"); -exs | -exc printf("'s"); -{BW}ex printf("%c'es",yytext[0]); -[ae]ct{EW} { printf("%cc'", yytext[0]); plastc(); } -like printf("likes"); -done | -did printf("dun did"); -"kind of" printf("kind'a"); -women printf("honky chicks"); -{BW}man{EW} { printf("%cdude",yytext[0]);plastc();} -{BW}men{EW} | -{BW}mens{EW} { printf("%cdudes",yytext[0]);plastc();} -injured printf("hosed"); -killed | -dead printf("wasted"); -good printf("baaaad"); -open{EW} { printf("jimmey");plastc();} -opened{EW} { printf("jimmey'd");plastc();} -{BW}very printf("%creal",yytext[0]); -per printf("puh'"); -oar printf("o'"); -{BW}can printf("%ckin",yytext[0]); -{BW}just{EW} { printf("%cplum",yytext[0]);plastc();} -[Dd]etroit printf("Mo-town"); -[Ww]"estern "[Ee]"lectric" printf("da' cave"); -{BW}believe printf("%crecon'",yytext[0]); -[Ii]"ndianapolis" printf("Nap-town"); -Daniel | -Dan printf("Liva' Lips"); -Reagan printf("Kingfish"); -Ronald{EW} | -Ron{EW} { printf("Rolo");plastc();} -John printf("Rastus"); -Jim printf("Bo-Jangles"); -pontiff | -pope printf("wiz'"); -[Pp]ravda printf("dat commie rag"); -broken printf("bugger'd"); -strange{EW} { printf("funky");plastc();} -dance{EW} { printf("boogy");plastc();} -ask printf("ax'"); -{BW}so{EW} { printf("%cso's",yytext[0]);plastc();} -heard printf("'hoid"); -head printf("'haid"); -boss printf("main man"); -money printf("bre'd"); -[a-z]":" { *(yytext+1) = ','; - printf("%s dig dis:",yytext); - } -amateur printf("begina'"); -radio printf("transista'"); -{BW}of{EW} { printf("%cuh",yytext[0]);plastc();} -which | -what printf("whut"); -"don't" printf("doan'"); -does printf("duz"); -{BW}was{EW} | -{BW}were{EW} { printf("%cwuz",yytext[0]);plastc();} -{BW}understand printf("%cdig",yytext[0]); -{BW}my printf("%cmah'",yytext[0]); -again | -against printf("agin'"); -{BW}[Ii]{EW} { printf("%cah'",yytext[0]);plastc();} -meta printf("meta-fuckin'"); -cally printf("c'l"); -%% -plastc() -{ - unput(yytext[yyleng-1]); -} - -caseify(c) -char c; -{ - if (yytext[0] <= 'Z') - return (c - ' '); - else - return (c); -} - -thing(c) -char c; -{ - static short count = 0; - - putchar(c); - switch (count++ % 4) { - case 0: case 2: - printf("thang"); - break; - case 1: - printf("doohickey"); - break; - case 3: - printf("wahtahmellun"); - break; - } -} -expletive() -{ - static short count = 0; - static short which = 0; - - if (count++ % 4 == 0) { - switch (which++ % 5) { - case 0: printf(" What it is, Mama!"); break; - case 1: printf(" Ya' know?"); break; - case 2: printf(" Sheeeiit."); break; - case 3: printf(" Ya' dig?"); break; - case 4: printf(" Git down!"); break; - } - } -} - -/* - * Bugs: - * - * If a sentence starts with a keyword it doan' get converted, or: - * it do, but gets a leading space - */ diff --git a/ken.l b/ken.l deleted file mode 100644 index 6e03181..0000000 --- a/ken.l +++ /dev/null @@ -1,283 +0,0 @@ -%{ -/* - * ken: - * will turn English into Cockney, featuring (dubious) rhyming slang for a lot - * of computer terminology. - * - * Written by Stephen K Mulrine - * Make copies if you want etc.etc. - * - * ken is named after Ken the Chirpy Cockney Character from the Viz Comic (tm), - * who speaks somewhat like that. - */ -%} -%e 3000 -%p 6000 -%n 1000 -%k 500 -%a 4000 -%o 2000 -BW [ ] -EW [ .,;!?] -%{ - char buf[128]; -%} - -%% - -stairs printf("apples and pears"); -Downstairs printf("Down the apples and pears"); -downstairs printf("down the apples and pears"); -Upstairs printf("Up the apples and pears"); -upstairs printf("up the apples and pears"); -[Mm]outh printf("North and South"); -[Ff]ace printf("Boat Race"); -[Tt]rouble printf("Barney Rubble"); -wife { switch(rand()%2) - { - case 0: printf("trouble and strife"); break; - case 1: printf("ole lady"); break; - } - } -Road printf("Frog and Toad"); -" road" printf(" frog and toad"); -"pub " printf("rub-a-dub "); -" bar " printf(" boozer "); -" husband" printf(" ole man"); -Party printf("Knees-up"); -party printf("knees-up"); -Parties printf("Knees-ups"); -parties printf("knees-ups"); -My printf("Me"); -" my" printf(" me"); -Your printf("Yer"); -your printf("yer"); -"You are " printf("Yer "); -"you are " printf("yer "); -You printf("Yer"); -you printf("yer"); -Those printf("Them"); -those printf("them"); -" those" printf(" them"); -"(those" printf("(them"); -"The " { switch(rand()%5) - { - case 0: printf("The bleedin' "); break; - default: ECHO; break; - } - } -"The" ECHO; -" the " { switch(rand()%5) - { - case 0: printf(" the bleedin' "); break; - default: ECHO; break; - } - } -[" "(]the ECHO; -"the " { switch(rand()%5) - { - case 0: printf(" the bleedin' "); break; - default: ECHO; break; - } - } -[Tt]his ECHO; -[" "(]this ECHO; -[Tt]hat ECHO; -[" "(]that ECHO; -Thus printf("So"); -" thus" printf(" so"); -"(thus" printf("(so"); -"thus" printf("so"); -[Tt]han ECHO; -[" "(]than ECHO; -Who ECHO; -who ECHO; -" old " printf(" ole "); -" to " printf(" ter "); -"Aren't you " printf("Aintcha "); -"aren't you " printf("aintcha "); -"Aren't" printf("Ain't"); -"aren't" printf("ain't"); -"Isn't" printf("Ain't"); -"isn't" printf("ain't"); -"Are not " printf("Ain't"); -"are not " printf("ain't "); -"Is not " printf("Ain't "); -" is not " printf(" ain't "); -"What is th" printf("Woss"); -"what is th" printf("woss"); -"What are you " printf("Wotcher "); -"what are you " printf("wotcher "); -"What you are" printf("Wotcher"); -"what you are" printf("wotcher"); -"What you're" printf("Wotcher"); -"what you're" printf("wotcher"); -"What are your" printf("Wotcher"); -"what are your" printf("wotcher"); -"What do you " printf("Wotcher "); -"what do you " printf("wotcher "); -"What do your" printf("Wotcher"); -"what do your" printf("wotcher"); -" "H[aeu]llo printf(" Wotcher"); -" "h[aeu]llo printf(" wotcher"); -What printf("Wot"); -what printf("wot"); -Were printf("Was"); -were printf("was"); -Bother printf("Ars"); -bother printf("ars"); -Mother printf("Muvver"); -Other printf("Uvver"); -other printf("uvver"); -Father printf("Favver"); -father printf("favver"); -Rather printf("Ravver"); -rather printf("ravver"); -Weather printf("Wevver"); -weather printf("wevver"); -Leather printf("Levver"); -leather printf("levver"); -Wither printf("Wivver"); -wither printf("wivver"); -Either printf("Eever"); -either printf("eever"); -With printf("Wiv"); -with printf("wiv"); -Anything printf("Anyfink"); -anything printf("anyfink"); -Something printf("Sumfink"); -something printf("sumfink"); -Nothing printf("Nuffink"); -nothing printf("nuffink"); -guitars printf("spoons"); -guitar printf("spoons"); -drums printf("spoons"); -drum printf("spoons"); -trumpets printf("spoons"); -trumpet printf("spoons"); -violins printf("spoons"); -violin printf("spoons"); -clarinets printf("spoons"); -clarinet printf("spoons"); -trombones printf("spoons"); -trombone printf("spoons"); -oboes printf("spoons"); -oboe printf("spoons"); -flutes printf("spoons"); -flute printf("spoons"); -tubas printf("spoons"); -tuba printf("spoons"); -Data printf("Info"); -data printf("info"); -Directory printf("Lockup"); -directory printf("lockup"); -Directories printf("Lockups"); -directories printf("lockups"); -[Pp]rocess { switch(rand()%2) - { - case 0: printf("Queen Bess"); break; - case 1: printf("Rudolf 'Ess"); break; - } - } -[Cc]omputer printf("French Tutor"); -[Bb]yte printf("Jimmy White"); -[Ff]iles printf("Nobby Stiles"); -[Ff]ile printf("Royal Mile"); -[Ll]anguage printf("'Am Sandwich"); -[Zz]ero printf("Emperor Nero"); -[Jj]ob printf("Uncle Bob"); -[Ss]hell printf("Bow Bell"); -[Ss]ave printf("Chas'n'Dave"); -[Ll]oad printf("Old Kent Road"); -[Mm]ouse printf("Doll's 'Ouse"); -[Bb]uffer printf("Sausage Stuffer"); -[Kk]eyboard printf("Henry Ford"); -[Mm]anual printf("Cocker Spaniel"); -[Ss]creen printf("James Dean"); -[Pp]rinter printf("'Arold Pinter"); -[Pp]lotter printf("Pansy Potter"); -[Cc]ompiler printf("Martin Tyler"); -[Ss]tring printf("Emperor Ming"); -[Bb]rain printf("Michael Caine"); -[Pp][Aa][Ss][Cc][Aa][Ll] { switch(rand()%2) - { - case 0: printf("Pall Mall"); break; - case 1: printf("Roald Dahl"); break; - } - } -[Aa][Ll][Gg][Oo][Ll] printf("Johnny Ball"); -[Ff][Oo][Rr][Tt][Rr][Aa][Nn] printf("Manfred Mann"); -[Cc][Oo][Bb][Oo][Ll] printf("Albert Hall"); -Stopped printf("'Ad the mockers put on"); -stopped printf("'ad the mockers put on"); -Stopping printf("Putting the mockers on"); -stopping printf("putting the mockers on"); -stops printf("puts the mockers on"); -stop printf("put the mockers on"); -STOP printf("Put The Mockers On"); -[Ll]ondoner printf("Cockney"); -friend { switch(rand()%3) - { - case 0: printf("mucker"); break; - case 1: printf("mate"); break; - case 2: printf("china"); break; - } - } -"a h" printf("an '"); -"A h" printf("An '"); -" h" printf(" '"); -" H" printf(" '"); -" C-" printf(" Bruce Lee-"); -" C " { switch(rand()%4) - { - case 0: printf(" Bruce Lee "); break; - case 1: printf(" Circus Flea "); break; - case 2: printf(" Bumble Bee "); break; - case 3: printf(" Door Key "); break; - } - } -" C." printf(" Circus Flea."); -Th printf("F"); -Wh printf("W"); -wh printf("w"); -aw printf("or"); -" sing" ECHO; -" ring" ECHO; -"ing " printf("in' "); -" th" printf(" f"); -"th" printf("ff"); -". " { switch(rand()%32) - { - case 0: printf(". I'll get out me spoons. "); break; - case 1: printf(". Yer can't 'ave a knees-up wivout a joanna. "); break; - case 2: printf(". Cor blimey guv, would I lie to you. "); break; - case 3: printf(". I'll make us all a nice cup of tea. "); break; - default: ECHO; break; - } - } -"? " { switch(rand()%3) - { - case 0: printf(", mate? "); break; - case 1: printf(", guv? "); break; - case 2: printf(", squire? "); break; - } - } -"! " { switch(rand()%6) - { - case 0: printf(", cor blimey! "); break; - case 1: printf("! Struth! "); break; - case 2: printf(", guv! "); break; - case 3: printf("! Honest guv! "); break; - case 4: printf(", mate! "); break; - case 5: ECHO; break; - } - } -. printf(yytext); -\n printf("\n"); -%% - -main() -{ - srand(getpid()); - yylex(); -} diff --git a/kraut.l b/kraut.l deleted file mode 100644 index 8435e51..0000000 --- a/kraut.l +++ /dev/null @@ -1,82 +0,0 @@ -%e 2000 -%p 5000 -%n 1000 -%k 500 -%a 4000 -%o 2000 -BW [ ] -EW [ .,;!?] - -%{ -#include - -char buf[128]; -%} - -%% -ing printf("ingkt"); -" the " printf(" ze "); -"The " printf("Ze "); -" with " printf(" mitt "); -"With " printf("Mitt "); -wr printf("w-r-r"); -Wr printf("W-r-r"); -R printf("R-r-r"); -"Yes " printf("Jawohl "); -" r" printf(" r-r-r"); -"Yes." printf("Jawohl."); -"Yes!" printf("Jawohl!"); -"YES!" printf("JAWOHL!"); -" yes " printf(" ja "); -" yes." printf(" ja."); -" yes!" printf(" yes!"); -"No " printf("Nein "); -"No!" printf("Nein!"); -"No?" printf("Nein?"); -" no " printf(" nein "); -" no." printf(" nein."); -" no!" printf(" nein!"); -" no?" printf(" nein?"); -[Mm]"r." printf("Herr"); -[Mm]"rs." printf("Frau"); -Miss printf("Fraulein"); -" of " printf(" uff "); -"Of " printf("Uff "); -my printf("mein"); -My printf("Mein"); -" and " printf(" undt "); -"And " printf("Undt "); -"One " printf("Ein "); -" one" printf(" ein"); -"Is " printf("Ist "); -" is " printf(" ist "); -"ow " printf("ow "); -"w " printf("w "); -sh printf("sch"); -Sh printf("Sch"); -ch printf("ch"); -Ch printf("Ch"); -" c" printf(" k"); -" C" printf(" K"); - -v printf("f"); -V printf("F"); -" w" printf(" v"); -W printf("V"); -th printf("d"); -Th printf("D"); -[Jj]ohn printf("Johann"); -[Ww]illiam printf("Wilhelm"); -[Bb]rad printf("Wilhelm"); -[Gg]ary printf("Gerhardt"); -[Jj]on printf("Hansel"); - -[a-f]"!" {sprintf(buf,"%s Naturlich!",yytext);printf(buf);} -[p-z]"!" {sprintf(buf,"%s Seig Heil!",yytext);printf(buf);} -.|'\n' ECHO; - -%% -main() -{ - yylex(); -} diff --git a/marc-barrett.l b/marc-barrett.l deleted file mode 100644 index 23cd413..0000000 --- a/marc-barrett.l +++ /dev/null @@ -1,137 +0,0 @@ -From: dankmyer@hilbert.math.grin.edu (Kirt A Dankmyer) -Newsgroups: alt.sources -Subject: mb.l -Date: 4 Dec 1992 15:08:40 -0600 -Message-ID: <9212042108.AA10484@hilbert> - -%{ - - /* Marc Barrett posting translator; - amaze your friends - To compile: lex mb.l - cc -o mb lex.yy.c -ll - To use: - mb < Your_MB_posting - */ - - char buf[128]; -%} -%a 3000 -%e 3000 -%p 5000 -%n 3000 -%% -"lots and lots" printf("few"); -"HyperCard" printf("crap"); -"real," printf("phony,"); -"real." printf("phony."); -"real " printf("phony "); -"People" printf("I"); -"numerous" printf("1 or 2 (I think)"); -" other" printf(" lamer"); -"nightmare" printf("paradise"); -"bad" printf("excellent"); -"may" printf("will"); -"UNUSABLE" printf("FAST AS HELL"); -"pokish" printf("slower than a snail"); -"junior" printf("intelligent"); -"potentially" printf("probably"); -"I know" printf("I think"); -"looks a thousand times better" printf("looks worse"); -"years ago" printf("years ago (before I bought an Amiga) "); -"no improvements" printf("many improvements"); -"As far as I know" printf("I don't really know"); -"as far as I know" printf("but what do I know"); -"totally official" printf("a wild rumor"); -"kludged" printf("designed"); -"be any" printf("be some"); -"also likely never" printf("also probably"); -"likely never" printf("probably"); -"everyone" printf("some people"); -"being unreasonable" printf("being an idiot"); -"I don't understand" printf("I dont' understand. "); -"it is unreasonable" printf("it is stupid. "); -"everybody" printf("some people"); -"have never" printf("will have"); -"must have" printf("could have"); -"will never" printf("will"); -"never will" printf("will again soon"); -"would not" printf("may"); -"the need" printf("some silly things"); -"The problem" printf("My problem"); -"the problem" printf("my problem"); -"the simple fact" printf("my opinion"); -"simply" printf("(with great difficulty)"); -"it's kind of embarassing" printf("I'm kind of embarassing"); -"I often see" printf("I never see"); -"I questioned" printf("I flamed"); -"development costs" printf("development costs (which, I'd like to remind you, I know nothing about)"); -"IMO" printf("(belch)"); -"to explain" printf("to give my wacky ideas about"); -"practically zero" printf("astronomical"); -"I think" printf("I think. "); -"don't think" printf("don't think. "); -"do not think." printf("do not think. "); -"I am trying" printf("I am flaming"); -"I've" printf("Commodore has"); -"Beware the ides of September" printf("I'm gonna flame any new stuff shown in September"); -"Sad" printf("Weird"); -"sad" printf("weird"); -"I WAS RIGHT" printf("I DON'T KNOW WHAT I'M TALKING ABOUT"); -"aren't" printf("are"); -"anymore" printf("still"); -" are " printf(" aren't "); -"lost" printf("gained"); -" low " printf(" high "); -" high " printf(" low "); -"isn't" printf("is"); -"all of" printf("none of"); -"is not" printf("is"); -"stagnates" printf("flourishes"); -"never" printf("always"); -"short-sightedness" printf("genius"); -"inferior" printf("superior"); -"superior" printf("inferior"); -"few " printf("many "); -"many" printf("few"); -"no improvements" printf("many improvements"); -"different" printf("similar"); -"the only substantial" printf("one of the many"); -"best" printf("worst"); -"worst" printf("best"); -"except for" printf("including"); -"worse" printf("better"); -"better" printf("worse"); -"nothing" printf("something"); -"something" printf("nothing"); -"no longer" printf("still"); -"biggest" printf("smallest"); -"high" printf("low"); -" low" printf(" high"); -"does not" printf("does"); -"doesn't" printf("does"); -"brilliantly" printf("inferiorly"); -"Avoid" printf("Search out"); -"lots of" printf("a few"); -"beautifully" printf("horribly"); -"wrong" printf("right"); -"right" printf("wrong"); -"tight" printf("loose"); -"loose" printf("tight"); -"same" printf("different"); -"disappointing" printf("impressive"); -"pieces of shit" printf("accomplishments"); -" NO!" printf(" YES!"); -"retrogrades" printf("leaps forward"); -"garbaged" printf("incredible"); -"reduced to garbage" printf("incredible"); -"all games" printf("no games"); -"slow" printf("fast"); -"fast" printf("slow"); -"can't" printf("can"); -"won't" printf("will"); -"will" printf("won't"); -" more" printf(" less"); -"has not" printf("has"); -%% - diff --git a/mb.l b/mb.l deleted file mode 100644 index 23cd413..0000000 --- a/mb.l +++ /dev/null @@ -1,137 +0,0 @@ -From: dankmyer@hilbert.math.grin.edu (Kirt A Dankmyer) -Newsgroups: alt.sources -Subject: mb.l -Date: 4 Dec 1992 15:08:40 -0600 -Message-ID: <9212042108.AA10484@hilbert> - -%{ - - /* Marc Barrett posting translator; - amaze your friends - To compile: lex mb.l - cc -o mb lex.yy.c -ll - To use: - mb < Your_MB_posting - */ - - char buf[128]; -%} -%a 3000 -%e 3000 -%p 5000 -%n 3000 -%% -"lots and lots" printf("few"); -"HyperCard" printf("crap"); -"real," printf("phony,"); -"real." printf("phony."); -"real " printf("phony "); -"People" printf("I"); -"numerous" printf("1 or 2 (I think)"); -" other" printf(" lamer"); -"nightmare" printf("paradise"); -"bad" printf("excellent"); -"may" printf("will"); -"UNUSABLE" printf("FAST AS HELL"); -"pokish" printf("slower than a snail"); -"junior" printf("intelligent"); -"potentially" printf("probably"); -"I know" printf("I think"); -"looks a thousand times better" printf("looks worse"); -"years ago" printf("years ago (before I bought an Amiga) "); -"no improvements" printf("many improvements"); -"As far as I know" printf("I don't really know"); -"as far as I know" printf("but what do I know"); -"totally official" printf("a wild rumor"); -"kludged" printf("designed"); -"be any" printf("be some"); -"also likely never" printf("also probably"); -"likely never" printf("probably"); -"everyone" printf("some people"); -"being unreasonable" printf("being an idiot"); -"I don't understand" printf("I dont' understand. "); -"it is unreasonable" printf("it is stupid. "); -"everybody" printf("some people"); -"have never" printf("will have"); -"must have" printf("could have"); -"will never" printf("will"); -"never will" printf("will again soon"); -"would not" printf("may"); -"the need" printf("some silly things"); -"The problem" printf("My problem"); -"the problem" printf("my problem"); -"the simple fact" printf("my opinion"); -"simply" printf("(with great difficulty)"); -"it's kind of embarassing" printf("I'm kind of embarassing"); -"I often see" printf("I never see"); -"I questioned" printf("I flamed"); -"development costs" printf("development costs (which, I'd like to remind you, I know nothing about)"); -"IMO" printf("(belch)"); -"to explain" printf("to give my wacky ideas about"); -"practically zero" printf("astronomical"); -"I think" printf("I think. "); -"don't think" printf("don't think. "); -"do not think." printf("do not think. "); -"I am trying" printf("I am flaming"); -"I've" printf("Commodore has"); -"Beware the ides of September" printf("I'm gonna flame any new stuff shown in September"); -"Sad" printf("Weird"); -"sad" printf("weird"); -"I WAS RIGHT" printf("I DON'T KNOW WHAT I'M TALKING ABOUT"); -"aren't" printf("are"); -"anymore" printf("still"); -" are " printf(" aren't "); -"lost" printf("gained"); -" low " printf(" high "); -" high " printf(" low "); -"isn't" printf("is"); -"all of" printf("none of"); -"is not" printf("is"); -"stagnates" printf("flourishes"); -"never" printf("always"); -"short-sightedness" printf("genius"); -"inferior" printf("superior"); -"superior" printf("inferior"); -"few " printf("many "); -"many" printf("few"); -"no improvements" printf("many improvements"); -"different" printf("similar"); -"the only substantial" printf("one of the many"); -"best" printf("worst"); -"worst" printf("best"); -"except for" printf("including"); -"worse" printf("better"); -"better" printf("worse"); -"nothing" printf("something"); -"something" printf("nothing"); -"no longer" printf("still"); -"biggest" printf("smallest"); -"high" printf("low"); -" low" printf(" high"); -"does not" printf("does"); -"doesn't" printf("does"); -"brilliantly" printf("inferiorly"); -"Avoid" printf("Search out"); -"lots of" printf("a few"); -"beautifully" printf("horribly"); -"wrong" printf("right"); -"right" printf("wrong"); -"tight" printf("loose"); -"loose" printf("tight"); -"same" printf("different"); -"disappointing" printf("impressive"); -"pieces of shit" printf("accomplishments"); -" NO!" printf(" YES!"); -"retrogrades" printf("leaps forward"); -"garbaged" printf("incredible"); -"reduced to garbage" printf("incredible"); -"all games" printf("no games"); -"slow" printf("fast"); -"fast" printf("slow"); -"can't" printf("can"); -"won't" printf("will"); -"will" printf("won't"); -" more" printf(" less"); -"has not" printf("has"); -%% - diff --git a/moo.l b/moo.l deleted file mode 100644 index 9da3091..0000000 --- a/moo.l +++ /dev/null @@ -1,122 +0,0 @@ -%e 2000 -%p 5000 -%n 1000 -%k 500 -%a 4000 -%o 2000 -BW [ ] -EW [ .,;!?] - -%{ -/* -** The cow filter -** by Benjamin Elijah Griffin 8 May 1994 -** -** An experiment in lex written instead of a paper on Nietzsche. -** -** compile like this: -** lex moo.l -** cc -o moo lex.yy.c -ll -** rm lex.yy.c -** -** use like this: -** moo < infile > outfile -** or -** cat infile | | moo | > outfile -** -*/ - -char WhAt[]="@(#)Benjamin Elijah Griffin's moo filter for cowtalk (c) 1994\n@(#)$Header: moo.l,v 1.1 94/05/08 23:37:53 bgriffin Final $" -; - -%} - -%% - -" and " printf(" moond "); -[Uu][Nn][Ii][Xx] printf("Moonix"); -[Mm][Ss].[Dd][Oo][Ss] printf("Moo Dos"); -news printf("moos"); -[Uu]senet printf("Moosnet"); -" man " printf(" mooster "); -" men " printf(" moosters "); -woman printf("moostress"); -women printf("moostresses"); -pig printf("cop"); -[Dd]airy.[Ff]armer printf("Pimp"); -[Dd]airy.[Ff]arm printf("Farm of Ill Repute"); -[Bb]eef.[Ff]armer printf("Slave Driver"); -[Bb]eef.[Ff]arm printf("Prison"); -yogurt printf("bacteria culture"); -cheese printf("smega"); -curds printf("moist smega"); -whey printf("bile"); -buttermilk printf("foul fluid"); -butter { printf("sphinter lubrication"); - /* A _Last Tango in Paris_ joke */ } -cream printf("honey"); -beef printf("murdered meat"); -grass printf("gourmet greenry"); -hay printf("subsistance rations"); -cereal printf("fomood"); -milkmaid printf("rapist"); -[Mm]aid.a.milkin | -[Mm]aid.a.milking printf("Christmas Rapist"); -[Mm]aids.a.milkin | -[Mm]aids.a.milking printf("Christmas Rapists"); -milking printf("rape"); -rape printf("milking"); -rapist printf("milkmaid"); -veal printf("the devil's food"); -"bull fighter" printf("Grim Reaper"); -"bull fight" printf("Game of Sorrows"); -milk printf("mead"); -Milk printf("Mead"); -"cafe con latte" | -capuccino printf("piss water"); -" "[In]"ndia " printf("Heaven"); -" "[In]"ndian " printf("heavenly"); -"sacred cow" printf("God"); -silo printf("calfeteria"); -divin printf("bovin"); -[Gg][Oo-][Dd] printf("Bovinity"); -sheep printf("dog(s)"); -relaxing printf("chewing the cud"); -relax printf("chew the cud"); -utter printf("udder"); -" udder" printf(" teat"); -" teat" printf(" udder"); -other printf("udder"); -":^)" printf("Mooooooooo!"); -":-)" printf("Moomoomoomoo!"); -"8-)" printf("Mooo! Mooo!"); - -[aeiou]"." { *(yytext+1) = 0; - printf("%s. Moo.",yytext); - } -[rtpwy]"." { *(yytext+1) = 0; - printf("%s. Moo! Moo.",yytext); - } -"?" printf("? Moo."); -"!" printf("! MOO!"); -oo printf("MOO"); -o printf("oo"); -O printf("Moo"); -you printf("moo"); -" u" printf("moo"); -" U" printf("Moo"); -"uu" printf("MOOO"); -u printf("oo"); -U printf("Oo"); - -"."\n printf(".\nMooooo. "); - -. printf("%s",yytext); - -%% - -main() -{ - yylex(); -} - diff --git a/newspeak.l b/newspeak.l deleted file mode 100644 index e291f6d..0000000 --- a/newspeak.l +++ /dev/null @@ -1,677 +0,0 @@ -%{ -*- Mode:Fundamental -*- -/* - * newspeak.l, version 1.1. - * Lex filter to transform plain English into NewSpeak. - * Copyright (c) 1991 Jamie Zawinski . - * Permission granted for noncommercial use and redistribution. - * - * To compile: - * - * flex newspeak.l - * cc -O -o newspeak lex.yy.c - * rm lex.yy.c - * - * This must be compiled with "flex", not normal "lex". Lex has - * some builtin, unchangable limits which this program exceeds. - * This has been verified to work with flex version 2.3.7, and - * may not work with flex version 2.3.6. - * - * You can get 'flex' by anonymous FTP to prep.ai.mit.edu, or - * anywhere else you get GNU software. - * - * Run this like so: "newspeak < some-text-file | more" - * - * There are some design notes near the end. Suggestions and - * improvements to this code are more than welcome. - * Hail Big Brother! - *--------------------------------------------------------------------------- - */ -#include - -unsigned int fcounter = 0; - -#define Y0 yytext[0] -#define Y1 yytext[1] -#define Y2 yytext[2] -#define Y3 yytext[3] -#define C caseify -#define C1 caseify1 - -#define CAP(string) capstring(0, (string),0) -#define WCAP(string) capstring(Y0,(string),1) - -#define COMP(string1,string2) compstring(0, (string1),(string2),0) -#define WCOMP(string1,string2) compstring(Y0,(string1),(string2),1) - -#define DUMP() printf("%s",yytext) -%} - -%e 8000 -%p 9000 -%n 2000 -%k 3000 -%a 5000 -%o 4000 - -W (([ ]?\n[ ]*)|[ ]|[\"'`]) -ES [.,;:!?/] -EW ({W}|{ES}|"'") - -YOUNG (([Yy]oung|[Ss]mall|[Ll]ittle){W}) -DEAD (([Dd]ead|[Dd]eceased){W}) -THE ([Tt]he{W}?) -ANDOR ({W}(([Aa]nd)|([Oo]r)){W}?) -COLOR (red|green|blue|yellow|cyan|magenta|purple|orange|mauve|pink|turquoise|brown|gr[ae]y) - -%% - -%{ - /****************************** - * PLUSwords * - ******************************/ -%} - -[Qq]uite{EW}/[A-Za-z][A-Za-z] CAP("plus"); -[Rr]ather{EW}/[A-Za-z][A-Za-z][A-Za-z] CAP("plus"); -[Kk]ind{EW}of{EW}/[A-Za-z][A-Za-z][A-Za-z] CAP("plus"); -[Kk]inda{EW}/[A-Za-z][A-Za-z][A-Za-z] CAP("plus"); -[Mm]ore{W}than{W}a{W}(little|bit){W} CAP("plus"); -[Pp]ro- CAP("plus"); - -[Hh]undreds{W}of{W}[Tt]housands | -[Hh]undreds{ANDOR}[Tt]housands | -[Hh]undreds{W}if{W}not{W}[Tt]housands | -[Tt]housands | -[Mm]illions CAP("doubleplusmany"); - -[Dd]ozens CAP("many"); -[Hh]undreds CAP("plusmany"); - -([Bb]right|[Ll]ight|[Ii]ntense){W}/{COLOR} CAP("plus"); -([Dd]im|[Ff]aded|[Dd]ark|[Pp]ale){W}/{COLOR} CAP("plusun"); -([Dd]im|[Ff]aded|[Dd]ark|[Pp]ale) CAP("unlight"); - -[Ee]very DUMP(); -[Vv]ery{W} | -[Rr]eally{W} | -[Tt]erribly{W} | -[Aa]wesome({W})? | -[Aa]wfully{W} CAP("doubleplus"); - -[Ww]hopping{EW} CAP("plusbig"); - -"O.K." | -[Aa]ll({W})?[Rr]ight | -[Oo][Kk][Aa][Yy] CAP("plusgood"); -{W}OK/{W} WCAP("plusgood"); - -([Tt]oo|[Oo]verly|[Tt]hat){W}[Mm]uch CAP("plusmuch"); - -{W}[Bb]ad/{EW} WCAP("ungood"); -{W}[Pp]oor/{EW} WCAP("ungood"); -{W}[Ll]ame/{EW} WCAP("ungood"); -{W}[Pp]itiful/{EW} WCAP("ungood"); -{W}[Nn]asty/{EW} WCAP("plusungood"); -{W}[Hh]orrid/{EW} WCAP("doubleplus ungood"); -{W}[Hh]orrible/{EW} WCAP("doubleplus ungood"); -{W}[Aa]wful/{W} WCAP("doubleplus ungood"); -{W}[Ee]vil/{W} WCAP("doubleplus ungood"); - -%{ - /****************************** - * Titles * - ******************************/ -%} - -{W}[Ss]ir/{EW} WCAP("citizen"); -{W}[Mm]r"."/{EW} WCAP("brother"); -[Mm]ister/{EW} CAP("brother"); -[Mm]adame? CAP("sister"); -{W}[Mm]iss/{EW} WCAP("sister"); -[Mm]a"'"?am/{EW} CAP("sister"); -{W}[Mm]r?s"."/{EW} WCAP("sister"); -Mrs/{EW} CAP("sister"); - -{YOUNG}?[Cc]hildren CAP("young citizens"); -{YOUNG}?[Bb]oys{ANDOR}[Gg]irl/s CAP("young citizens"); -{YOUNG}?([Kk]id|[Gg]irl|[Bb]oy|[Cc]hild)/{EW} CAP("young citizen"); - -[Ff]ellow CAP("citizen"); - -[Nn]on{W}?"-"?citizen CAP("unperson"); -[Nn]on{W}?"-"?member CAP("unperson"); -[Cc]riminal/s? CAP("unperson"); -{DEAD}(man|woman) CAP("unperson"); -{DEAD}(men|women) CAP("unpersons"); - -[Ii]n{W}[Pp]erson DUMP(); - -{W}[Uu]ser WCOMP("party ","worker"); -[Ss]tudent COMP("party ","worker"); -[Cc]itizen/s?{EW} COMP("party ","worker"); -[Pp]erson/s?{EW} COMP("party ","worker"); -[Pp]eople COMP("party ","workers"); - -[Ss]enator | -[Cc]ongressman | -[Ss]upervisor | -[Pp]rofessor printf("Inner Party Member"); -[Pp]rof"."/{EW} printf("Inner Party Member"); -[Pp]rof/{EW} printf("Inner Party Member"); - -Representative/s? printf("Inner Party Member"); -representatives printf("Inner Party Members"); - -[Ww]hite{W}[Cc]ollar | -[Uu]pper{W}[Cc]lass COMP("inner ","party"); -[Mm]iddle{W}[Cc]lass CAP("party"); -[Bb]lue{W}[Cc]ollar | -[Ww]orking{W}[Cc]lass | -[Ll]ower{W}[Cc]lass CAP("prole"); -([Ff]ool|[Ii]diot)/s?{EW} CAP("prole"); -[Ss]tupidity CAP("proleness"); - -%{ - /****************************** - * Organizations * - ******************************/ -%} - -[Aa]?{W}([Ww]hite{W}[Hh]ouse|[Gg]ovt\.?|[Gg]overnment){W}([Ss]ource|[Oo]fficial|[Ss]pokes(man|woman|person)) CAP("an Inner Party Member"); -{THE}?[Rr]epublican{W}[Pp]arty COMP("mini","luv"); -{THE}?[Dd]emocratic{W}[Pp]arty COMP("mini","plenty"); - -{THE}?Congress printf("MiniPax"); -{THE}?[Ss]enate printf("MiniPax"); -{THE}?[Hh]ouse{W}[Oo]f{W}[Rr]epresentatives printf("MiniPax"); -{THE}?[Ss]tate{W}[Dd]epartment printf("MiniPax"); -{THE}?[Ss]tate{W}[Dd]ept"."? printf("MiniPax"); -{THE}?[Dd]efen[cs]e{W}[Dd]epartment | -{THE}?[Dd]efen[cs]e{W}[Dd]ept"."? | -{THE}?[Ww]ar{W}[Dd]epartment | -{THE}?[Ww]ar{W}[Dd]ept"."? | -{THE}?[Hh]ouse{W}of{W}[Cc]ommons | -{THE}?Pentagon | -{THE}?[Ff]eds | -{THE}?FCC | -{THE}?D[Oo]D | -{THE}"D."[Oo]".D." | -{THE}?[Ss]ecret{W}[Ss]ervice COMP("mini","luv"); -{THE}?White{W}House | -{THE}?Kremlin printf("MiniTrue"); -{THE}?(CIA|NSA|FBI|MI"-"?5)/{EW} printf("MiniTrue"); -{THE}?("C.I.A."|"N.S.A."|"F.B.I.")/{EW} printf("MiniTrue"); -{THE}?[Aa]rchive/s? COMP("mini","rec"); -{THE}?[Ll]ibrary COMP("mini","rec"); -{THE}?[Ll]ibraries COMP("mini","recs"); - -[Tt]hought{W}[Pp]olice|[Nn]azis? COMP("think","pol"); -[Vv]ice{W}[Ss]quad COMP("sex","pol"); -PMRC|"P.M.R.C." COMP("sex","pol"); - -[Oo]fficer CAP("minister"); - -{THE}?[Dd]epartment{EW}of{EW}. | -{THE}?[Dd]ept"."?{EW}of{EW}. | -{THE}?[Uu]niversity{EW}of{EW}. | -{THE}?[Uu]niv"."?{EW}of{EW}. | -{THE}?[Dd]ept"."?{EW}of{EW}. | -{THE}?([Ss]ub"-"?)?[Cc]omm?itt?ee{EW}(of|on){EW}. | -{THE}?[Ss]chool{EW}of{EW}. { - if ((yytext[yyleng-1] >= 'A') && (yytext[yyleng-1] <= 'Z')) - /* "the school of Law" --> "MiniLaw" */ - printf("Mini%c",yytext[yyleng-1]); - else if ((yytext[yyleng-1] >= 'a') && (yytext[yyleng-1] <= 'z')) - /* "the school of law" --> "MiniLaw" (not "Minilaw") */ - printf("Mini%c",yytext[yyleng-1] - ('a' - 'A')); - /* "the school of 5 things" --> "Ministry of 5 things" */ - else printf("Ministry of %c",yytext[yyleng-1]); - } - -[Dd]epartment | -[Uu]niversity CAP("ministry"); -[Uu]niv"."?/{W} CAP("ministry"); -[Dd]ept"."?/{W} CAP("ministry"); -([Ss]ub"-"?)?[Cc]omm?itt?ee CAP("ministry"); - -{THE}[Pp]roject/{EW} CAP("the Three Year Plan"); -[Oo]ur{W}[Pp]roject/{EW} CAP("our Three Year Plan"); -[Bb]udget printf("Three Year Plan"); -[Pp]roject/{ES} printf("Three Year Plan"); - -{W}({THE}|([aa]{W}))[Pp]roject printf("%cthe Three Year Plan",Y0); - -[A-Za-z]+"'"[Ss]/{W}(law|Law|LAW|book|Book|BOOK|rule|Rule|RULE){EW} printf("Goldstein's"); - -%{ - /****************************** - * Actions * - ******************************/ -%} - -[Ii]n{W}love{EW} CAP("SexCriming"); -[Ll]ove{W}you/{EW} CAP("love Big Brother"); -[Ll]ove{W}me/{EW} CAP("love Big Brother"); - -[Cc]loning | -[Rr]eproduction | -[Cc]elibacy | -[Pp]rocreation COMP("good","sex"); - -[Cc]elibate | -[Pp]rocreate COMP("good","sexwise"); - -[Tt]elevisions? | -TVs? | -[Tt]"."[Vv]"."s? | -[Rr]adios? | -[Nn]ews{W}?[Pp]apers? | -[Jj]ournalism | -[Mm]ovies? | -[Rr]ock{EW}?"-"?(and|"&"|"'"?n"'"?){EW}?"-"?[Rr]oll({W}[Mm]usic)? | -(([Rr]ock|[Cc]lassical|[Ii]ndustrial|[Pp]op|[Dd]ance|[Rr]ap){W})?[Mm]usic | -[Tt]unes | -[Mm]oney | -[Cc]ash | -[Cc]omic{W}[Bb]ooks? | -([Ss]tar{W}?)?[Tt]rek COMP("prole","feed"); - -[Pp]eace{W}[Mm]ovement | -[Pp]eace{W}[Pp]rotest | -[Aa]nti{EW}[Ww]ar | -([Pp]assive{W})?[Rr]esistance | -[Cc]reativity | -[Tt]reason | -[Rr]esearch COMP("crime","think"); -%{ - /****************************** - * Religion * - ******************************/ -%} - -[Jj]esus{W}[Cc]hrist | -[Jj]esus | -{THE}?[Bb]uddh?a | -[Mm]ohamm?ed | -[Mm]artin{W}[Ll]uther{W}[Kk]ing | -J\.?\ ?R\.?\ \"?Bob\"?\ Dobbs printf("doubleplus crimethinker"); - -([Jj]esse{W})?[Hh]elms | -([RrDd]on(ald)?{W})?[Rr]ea?gan | -[Gg]eorge{W}[Gg]uscoria printf("doubleplus goodthinker"); - -[Jj]ewish COMP("crime","thinkwise"); -[Jj]ew | -[Cc]hristian | -[Mm]oslem | -[Bb]uddhist | -[Aa]thiest | -[Aa]gnostic COMP("crime","thinker"); - -[Ff]aith COMP("belly","feel"); - -%{ - /****************************** - * Places * - ******************************/ -%} - -[Ee]ngland|{THE}?[Uu]nited{W}[Kk]ingdom | -({THE}?[Uu]nited{W}[Ss]tates{W}[Oo]f{W})?[Aa]merica | -{THE}?[Uu]nited{W}[Ss]tates|USA|"U.S.A."|[Cc]anada | -[Gg]ermany|[Ii]srael|[Ee]urope printf("Oceana"); - -Iranian|Iraqu?i|Libyan|Russian|African|Egyptian printf("Eurasian"); -Iran|Iraq|Libya|Russia|Africa|Egypt | -([Ss]audi{W})?Arabia|{THE}?Soviet{W}Union printf("Eurasia"); -[Ss]oviet printf("Eurasian"); - -[Cc]hinese|[Jj]apanese|[Tt]aiwanese | -[Pp]hillipino|[Ii]ndian|[Aa]ustralian|[Mm]exican | -[Nn]icaraguan|[Ss]alvadori?an printf("Eastasian"); -China|[Jj]apan|[Tt]aiwan|{THE}?[Pp]hillipines|[Ii]ndia | -[Aa]ustralia|[Mm]exico|[Nn]icaragua|[Ee]l{W}[Ss]alvador printf("Eastasia"); - -[Kk]uwaiti printf("Eurasian"); -[Kk]uwait printf("The Malabar Front"); - -%{ - /****************************** - * Miscelaneous Translations * - ******************************/ -%} - -{W}[Ff]aster WCAP("plus speedful"); -{W}[Ss]lower WCAP("plus unspeedful"); -{W}[Ff]ast WCAP("speedful"); -{W}[Ss]low WCAP("unspeedful"); - -[Mm]odern CAP("plusnew"); -[Aa]ncient CAP("plusunnew"); -{W}old/{W} WCAP("plusunnew"); - -[Hh]appiness CAP("joyfulness"); -[Hh]appy CAP("joyful"); -[Qq]uick CAP("speedful"); -{W}[Ss]peedy WCAP("speedful"); -[Hh]eavy CAP("weightful"); -[Hh]eavill?y CAP("weightfully"); -[Ss]ick(ly)? CAP("unhealthful"); - -[Gg]ross | -[Ss]ickening | -[Ff]oul | -[Pp]utrid | -[Dd]isgusting COMP("crime","thinkful"); - -[Ss]mash | -[Cc]rush | -[Oo]bliterate | -[Aa]nnihilate | -[Nn]eutralize | -[Dd]emolish | -[Dd]estroy CAP("unbuild"); - -[Ii]nanimate CAP("unlifeful"); -[Ss]ociety|[Cc]ulture printf("IngSoc"); -[A-Za-z]+isi?m/{EW} printf("Goldsteinism"); -[A-Za-z]+ist/{EW} printf("Goldsteinist"); - -{W}[Dd]ead WCAP("unlifeful"); -{W}[Dd]eath WCAP("unlife"); -{W}[Ll]ie WCAP("untruth"); -{W}[Ff]alsehood WCAP("untruth"); -{W}[Mm]istake/{EW} WCAP("untruth"); -{W}[Ww]hisper WCAP("unshout"); -{W}[Pp]roud WCAP("prideful"); - -[Ff]alse CAP("untrue"); -[Dd]ark CAP("unlight"); -[Bb]lack CAP("unwhite"); -[Ff]orbidden CAP("unallowed"); -[Ff]orbid CAP("unallow"); -[Ff]ailure CAP("unsuccess"); -[Ff]ail/{EW} CAP("unwin"); - -[Ss]tatistics?/{EW} CAP("propaganda"); -{W}[Aa]n{W}[Aa]nn?ouncement WCAP("a NewsFlash"); -[Aa]nn?ouncement printf("NewsFlash"); -[Ii]nstructions? printf("B. B. DayOrder"); - -[Aa]lmost|[Nn]early CAP("within measurable distance of"); -[Ff]unny CAP("humorful"); - -[Dd]oom CAP("unsave"); -[Cc]haos CAP("unorder"); -[Cc]haotic CAP("unorderful"); -[Ee]nslaved CAP("protected"); -[Ee]nslave CAP("protect"); -[Dd]angerous CAP("unsafewise"); -[Dd]anger CAP("unsafe"); -([Bb]lind{W})?[Oo]bedience COMP("ing","soc"); -\"?[Nn]ew{W}[Ww]orld{W}[Oo]rder\"? printf("IngSoc"); - -[Pp]rivacy | -[Ii]ndividuality COMP("own","life"); - -IMHO printf("for the love of Big Brother"); - -[Ee]motion(al|s)? | -[Cc]onviction | -[Bb]elie(f|ve) | -[Aa]ccept(ance)? COMP("belly","feel"); - -[Dd]emocracy | -[Ll]iberty | -[Ff]reedom | -[Jj]ustice | -{THE}?[Aa]merican{W}[Ww]ay | -[Ss]ubversion | -[Pp]assion COMP("crime","think"); - -[Oo]bscenity | -[Pp]ornography | -[Oo]rgasm | -[Ee]rotica COMP("sex","crime"); -[Ss]exy | -[Oo]bscene | -[Pp]ornographic | -[Ee]rotic COMP("sex","crimeful"); - -[Cc]ritic/s?{W} COMP("crime","thinker"); - -[Ii]nfant{W}[Mm]ortality COMP("inf","mort"); - -[Ff]amilies | -[Pp]arents COMP("family ","units"); -[Mm]other{ANDOR}[Ff]ather | -[Bb]rother{ANDOR}[Ss]ister COMP("family ","unit"); -{W}[Pp]arent/s?{EW} WCOMP("family ","unit"); -[Ff]amily COMP("family ","unit"); - -God/{EW} printf("Big Brother"); -[Pp]res(ident|".")({W}([Bb]ush|[Rr]eagan))? printf("Big Brother"); -[Pp]rime{W}[Mm]inister printf("Big Brother"); - -([Gg][Nn][Uu]{W}([Ee]macs|EMACS){W})?[Gg]eneral{W}[Pp]ublic{W}[Ll]icense printf("NewSpeak Dictionary"); - -(questioning|murder|ass?ass?ination)/{ES} printf("interrogation"); - -[Ss]keptic/{EW} CAP("unperson"); -[Ss]illy CAP("foolhardy"); -{W}[A-Za-z][A-Za-z]?illy DUMP(); -[Ss]outhern|[Ss]outherly CAP("southwise"); -[Nn]orthern|[Nn]ortherly CAP("northwise"); -[Ee]astern|[Ee]easterly CAP("eastwise"); -[Ww]estern|[Ww]esterly CAP("westwise"); -[Pl]leasant CAP("goodwise"); -[Vv]iolent CAP("unpeacewise"); -[Vv]iolence CAP("unpeaceness"); -[Ii]ndifference CAP("uncarefulness"); -[Ii]ndifferent CAP("uncareful"); -[Bb]elly CAP("abdomen"); -[Cc]omic CAP("humorwise"); -{W}[Uu]nless WCAP("lest"); -usually printf("usualwise"); - -[Gg]uerillas COMP("party ","workers"); - -[Ww]ar/{EW} CAP("engagement"); -[Dd]efen[cs]e/{EW} CAP("peace"); -[Ii]nvasion CAP("liberation"); - -%{ - /****************************** - * Syllable Rewriting * - ****************************** - isn't ___ is un___ - not the ___ the un___ - not my ___ my un___ - anti___ un___ (etc...) - ___cally ___wise - ___ally ___wise - ___lly ___wise - ___ly ___wise - ___aic ___wise - ___lic ___wise - ___nnic ___wise - tric ___wise - ___ic ___wise - ous ___ful - ous ___eful - ___less un___ful - - */ -%} - -[Ii]sn"'"t{W}my{W} CAP("is my un"); -[Ii]s{W}not{W}my{W} CAP("is my un"); -[Ii]sn"'"t{W}[Tt]he{W} CAP("is the un"); -[Ii]s{W}not{W}[Tt]he{W} CAP("is the un"); -[Ii]sn"'"t{W}[Ii]n{W}[Tt]he{W} CAP("is in the un"); -[Ii]s{W}not{W}[Ii]n{W}[Tt]he{W} CAP("is in the un"); -[Ii]t"'"?s{W}not{W}[Tt]he{W} CAP("it's the un"); -[Ii]sn"'"t{W} CAP("is un"); -[Ii]s{W}not{W} CAP("is un"); -[Nn]ot{W}[Tt]he{W} CAP("the un"); -[Nn]ot{W}[Mm]y{W} CAP("my un"); -[Nn]ot{W}[Aa]{W} CAP("an un"); -[Nn]ot{W}have{W} CAP("has un"); -[Nn]ot{W}be{W} CAP("be un"); -[Nn]ot{W}[Oo]nly/{W} CAP("unonly"); /* avoid "unonwise" */ - -[Aa]{W}[Nn]ot{W} | -[Aa]{W}[Nn]on"-"? printf("%cn%cun",Y0,Y1); /* "a non_" -> "an un_" */ - -%{ -/* {W}[Nn]ot{W} | */ -%} -{W}[Ii]l"-"?/[a-z][a-z] WCAP("un"); -{W}[Aa]nti"-"? | -{W}[Nn]on"-"? WCAP("un"); - -robably|ventually|[Oo]bvious|[Bb]asic|{W}[Oo]nly|otally | -[Aa]rctic|holic|{EW}ally|{EW}[Aa]pply|{W}[Tt]opic DUMP(); - -{W}([Tt]raf|[Pp]aci|[Ss]peci)fi/c{W} DUMP(); -{W}(ma|tra)gi/c{W} DUMP(); -{W}(pub|cyc|re|fro|gar)li/c{W} DUMP(); -{W}(eth|cli|to)ni/c{W} DUMP(); -{W}(E|cle|met|cit)ri/c{W} DUMP(); -{W}(ch|ep|tr?op|t|mus|stat|att)i/c{W} DUMP(); -{W}only/{W} DUMP(); -{W}[Aa]tlantic DUMP(); - -[ \t\n][drstwDRSTW]ally printf("%c%cally", Y0, Y1); - -[a-z]ically/{W} printf("%cwise", Y0); -[a-z]ally/{W} printf("%cwise", Y0); -[a-z][a-z]lly/{W} printf("%c%cwise", Y0,Y1); -[a-z][a-z][a-z]ly/{W} printf("%c%c%cwise", Y0,Y1,Y2); -[a-z]ical/{W} printf("%cwise", Y0); - -[a-km-qs-z]aic/{EW} printf("%cwise", Y0); /* not laic, raic */ -[a-z]lic/{EW} printf("%clwise", Y0); -[a-z]nnic/{EW} printf("%cnwise", Y0); -[a-z][aeiou]tric/{EW} printf("%c%ctwise", Y0, Y1); -[a-z]tric/{EW} printf("%cwise", Y0); -[a-z]ic/{EW} printf("%cwise", Y0); -[a-z]lly/{EW} printf("%cwise", Y0); -[a-z]ly/{EW} printf("%cwise", Y0); - -[aeiouy][^aeiouy]ous/{EW} printf("%c%cful",Y0,Y1); -[^aeiouy]ous/{EW} printf("%ceful",Y0); -[^e]ous/{EW} printf("%cful",Y0); - -[A-Za-z]+less/{EW} { yytext[yyleng-4] = '\0'; - if (((yytext[1] < 'A') || (yytext[1] > 'Z')) && - (yytext[0] >= 'A') && (yytext[0] <= 'Z')) - yytext[0] = yytext[0] - ('a' - 'A'); - printf("%cn%sful",C('u'), yytext); - } - -". " { printf("%s",yytext); - fcounter &= 15; - if (14 == fcounter++) printf("(fnord) "); - } - -[.,!?]\"([^\n\".!]+[.!])?\n/[\n\t ] printf("%c Hail Big Brother!\"%s",Y0,yytext+1); -\"([.,!?][^\n\".!]+[.!])?\n/[\n\t ] printf("%c Hail Big Brother!\"%s",Y1,yytext+2); - -. printf(yytext); -\n printf("\n"); - -%{ -/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * - * Brief description of Orwell's NewSpeak: - * --------------------------------------- - * Each word was made to serve as noun, verb, adjective and adverb. In - * particular, nouns and verbs were made exactly the same -- hence "think" - * replaced "thought" as a noun (viz. "crimethink" = thought crime, "thinkpol" - * = thought police). Adjectives were formed by adding "-ful" to a noun/verb; - * adverbs were formed by adding "-wise." Hence "speedful" = fast, - * "speedwise" = quickly, "unspeedwise" = slowly. - * - * The decision on which word should be negated was made fairly randomly; - * "dark" could be "unlight," or "light" could be "undark". But in all cases - * the most important objective (aside from ideological restriction) was - * euphony; the words had to be easily pronounceable. - * - * Most verb inflections were made regular; "he thinked," "he goed," "he - * eated"; only the auxiliaries and modals (to be, to have, may, shall, will, - * etc.) were allowed to inflect irregularly. Plurals were also regularized: - * "mans," "oxes," "childs." [This isn't implemented here.] - * - * There were three sets of words. The A vocabulary was for everyday use: - * car, man, red, good, etc. It was restricted to fairly simple words. - * - * The B vocabulary consisted of political/ideological words with very - * complicated connotations. All of the B words were compound words -- - * bellyfeel (blind emotional acceptance of the ideology), oldthink (the way - * of thought before the Revolution), crimethink, Ingsoc, goodsex (intercourse - * solely for the purpose of making babies and with no physical enjoyment on - * the part of the female), sexcrime (any kind of sex but goodsex, including - * sex for its own sake), goodthink (thinking in accordance with Ingsoc), and - * so on. These words were also subject to the modifications mentioned - * above--hence "goodthinker," "goodthinkful," "goodthinkwise." - * - * The C vocabulary consisted of scientific and technical words (though there - * was no longer any word for "science," any connotation it might have being - * subsumed into "Ingsoc"). - * - * Implementing a translator for all of this would be really complicated -- - * I'd need rather extensive lists of the "irregular" words (so they could be - * regularized), as well as lists of politically meaningful words (so they - * could be excised or translated into either "goodthink" or "crimethink," as - * appropriate). Any kind of sexual topic should become "sexcrime" (it being - * unlikely that any talk of sex these days would fit into "goodsex"). - * - * Basically, the reason it's hard is that NewSpeak was intended to *decrease* - * the vocabulary, and subsume complicated ideas into politically correct - * words so that you wouldn't have to understand the ideas anymore; you'd just - * have to emit the right words. So to properly "translate" anything into - * NewSpeak, you have to cut the vocabulary way down. - * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * - */ -%} - -%% -main() -{ - yylex(); - printf("\nHail Big Brother!\n"); -} - - -capstring(firstchar,string,i) - char firstchar, *string; - int i; -{ - if (firstchar != 0) putchar(firstchar); - putchar( (yytext[i] <= 'Z') ? (string[0] - ' ') : string[0]); - printf("%s",string+1); -} - -compstring(firstchar,string1,string2,i) - char firstchar, *string1, *string2; - int i; -{ - capstring(firstchar,string1,i); - capstring(0,string2,i); -} - -_caseify(c,i) - char c; - int i; -{ - if (yytext[i] <= 'Z') return (c - ' '); - else return (c); -} - -caseify(c) - char c; -{ _caseify(c,0); } - -caseify1(c) - char c; -{ _caseify(c,1); } diff --git a/nyc.l b/nyc.l deleted file mode 100644 index 8505c16..0000000 --- a/nyc.l +++ /dev/null @@ -1,97 +0,0 @@ -%{ -/* - * Lex filter to transform plain English into Brooklyn English. - * No racial or societal slurs are intended. For amusement only. - * - * Copyright 1986 by Daniel Klein. - * - * Reproduction permitted so long as this notice is retained. - */ -%} -BW [ \t] -SP [ \t] -EW [ \t.,;!\?$] -%% -".so ".*$ printf("%s", yytext); -[ao]ther printf("%cdder", yytext[0]=='a'?'a':'u'); -[Nn]othing printf("%cuttin'", yytext[0]); -[Tt]hin printf("%cin", yytext[0]); -[Tt]hir printf("%coi", yytext[0]); -[Tt]h[ei] printf("%c%c", caseify('d'), yytext[yyleng-1]); -[Tt]hat printf("%cat", caseify('d')); -I'm{SP}going{SP}to printf("I'manna"); -going{SP}to printf("gonna"); -want{SP}to printf("wanna"); -t{SP}you printf("tcha"); -[Dd]id{SP}you{SP}[eaiou] printf("%c'j%c", yytext[0], yytext[yyleng-1]); -[Dd]id{SP}you printf("%c'ja", yytext[0]); -[Yy]ou printf("%cuh", yytext[0]); -[Hh]ow{SP}are{SP}you printf("%cowahrya", yytext[0]); -[Ww]ith printf("%cit'", yytext[0]); -[Dd]on't printf("%coan", yytext[0]); -ldn't | -dn't printf("n't"); -isn't printf("ain't"); -er{EW} { printf("uh"); plastc(); } -ing{EW} { printf("in'"); plastc(); } -[Ww]ord | -[Hh]eard | -[BbGgLlPpSs]urg | -[CcHh][eu]r[ntv] printf("%coi%c", yytext[0], yytext[yyleng-1]); -[^Mm]mer[^aeiouhrs] printf("%cmoi%c", yytext[0], yytext[yyleng-1]); -[Oo]re{EW} { printf("%cwh", caseify('a')); plastc(); } -[Oo]r printf("%cwh", caseify('a')); -[Oo]f printf("%chv", caseify('u')); -tion printf("shun"); -alk | -our[st] | -or[st] printf("awh%c", yytext[yyleng-1]); -ause printf("awze"); -[Oo]ff printf("%cwhf", caseify('a')); -[Ss]tupid printf("%ctoopid", yytext[0]); -{BW}under printf(" unner"); -{BW}to{EW} { printf(" tuh"); plastc(); } -[Aa]ctual printf("%cckshul", yytext[0]); -negro printf("spade"); -[Pp]uerto{SP}[Rr]ican printf("%cpic", caseify('s')); -[Ii]talian printf("%creaser", caseify('g')); -[Jj]ewish printf("%cew boy", yytext[0]); -[Jj]ew printf("%cebe", caseify('h')); -[a-z]":" { *(yytext+1) = ','; - printf("%s like, uhh:",yytext); - } -[a-z]"?" { *(yytext+1) = ','; - printf("%s or what?",yytext); - } -! printf("! Okay?"); -[a-z]"." { printf("%s", yytext);expletive();} -%% -plastc() -{ - unput(yytext[yyleng-1]); -} - -caseify(c) -char c; -{ - if (yytext[0] <= 'Z') - return (c - ' '); - else - return (c); -} - -short count = 0; -short which = 0; - -expletive() -{ - if (count++ % 4 == 0) { - switch (which++ % 5) { - case 0: printf(" Okay?"); break; - case 1: printf(" Right?"); break; - case 2: printf(" Yuh got me so fahr?"); break; - case 3: printf(" Ya' dig?"); break; - case 4: printf(" Yuh with me?"); break; - } - } -} diff --git a/valspeak.l b/valspeak.l deleted file mode 100644 index d177d78..0000000 --- a/valspeak.l +++ /dev/null @@ -1,134 +0,0 @@ - -T [" .!?,"]* - -%% - -" bad" printf(" mean"); -" big" printf(" bitchin'est"); -" body" printf(" bod"); -" bore" printf(" drag"); -" car " printf(" rod "); -" dirty" printf(" grodie"); -" filthy" printf(" grodie to thuh max"); -" food" printf(" munchies"); -" girl" printf(" chick"); -" good" printf(" bitchin'"); -" great" printf(" awesum"); -" gross" printf(" grodie"); -" guy" printf(" dude"); -" her " printf(" that chick "); -" her." printf(" that chick."); -" him " printf(" that dude "); -" him." printf(" that dude."); -" can be " | -" can't be " | -" should have been " | -" shouldn't have been " | -" should be " | -" shouldn't be " | -" was " | -" wasn't " | -" will be " | -" won't be " | -" is " { - ECHO; - switch(rand() % 6) - { - case 0: - printf("like, ya know, "); break; - case 1: - printf(""); break; - case 2: - printf("like wow! "); break; - case 3: - printf("ya know, like, "); break; - case 4: - printf(""); break; - case 5: - printf(""); break; - } - } -" house" printf(" pad"); -" interesting" printf(" cool"); -" large" printf(" awesum"); -" leave" printf(" blow"); -" man " printf(" nerd "); -" maybe " { - switch(rand() % 6) - { - case 0: - printf(" if you're a Pisces "); break; - case 1: - printf(" if the moon is full "); break; - case 2: - printf(" if the vibes are right "); break; - case 3: - printf(" when you get the feeling "); break; - case 4: - printf(" maybe "); break; - case 5: - printf(" maybe "); break; - } - } -" meeting" printf(" party"); -" movie" printf(" flick"); -" music " printf(" tunes "); -" neat" printf(" keen"); -" nice" printf(" class"); -" no way" printf(" just no way"); -" people" printf(" guys"); -" really" printf(" totally"); -" strange" printf(" freaky"); -" the " printf(" thuh "); -" very" printf(" super"); -" want" printf(" want"); -" weird" printf(" far out"); -" yes" printf(" fer shure"); -"But " printf("Man, "); -"He " printf("That dude "); -"I like" printf("I can dig"); -"No," printf("Like, no way,"); -Sir printf("Man"); -"She " printf("That fox "); -This printf("Like, ya know, this"); -There printf("Like, there"); -"We " printf("Us guys "); -"Yes," printf("Like,"); -", " { - switch(rand() % 6) - { - case 0: - printf(", like, "); break; - case 1: - printf(", fer shure, "); break; - case 2: - printf(", like, wow, "); break; - case 3: - printf(", oh, baby, "); break; - case 4: - printf(", man, "); break; - case 5: - printf(", mostly, "); break; - } - } -! { - switch(rand() % 3) - { - case 0: - printf("! Gag me with a SPOOOOON!"); break; - case 1: - printf("! Gag me with a pitchfork!"); break; - case 2: - printf("! Oh, wow!"); - } - } - -ing printf("in'"); -. ECHO; -%% - -main() -{ - srand(getpid()); - yylex(); -}