This group of filters serves no utilitarian purpose but is nonetheless quite amusing and hence should be maintained for posterity.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
talkfilters/funetak.l

280 lines
7.9 KiB

/* GNU Talkfilters
Copyright (C) 1998-2003 Free Software Foundation, Inc.
This file is part of GNU Talkfilters
GNU Talkfilters is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
published by the Free Software Foundation; either version 2, or (at
your option) any later version.
This software is distributed in the hope that it will be amusing, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this software; see the file COPYING. If not, write to the
Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
*/
/* static char version[] = "funetak. v1.2. Eclipse Enterprises"; */
%option prefix="funetak_yy"
%option outfile="lex.yy.c"
%option noyywrap
%e 2000
%p 6000
%n 1000
%k 500
%a 4000
%o 2000
%{
#include "common.h"
#include "talkfilters.h"
#define YY_DECL int yylex(gtf_databuf_t *buf)
%}
WB [\n\t ]
WC [A-Za-z'0-9]
NW [^A-Za-z'0-9]
EOT \4
%s NIW INW
%%
<NIW,INITIAL>{
\<(\/)?[A-Za-z][^\>]*\> gtf_echo(); // don't damage HTML tags
[Aa]nybody/{NW} gtf_puts_case("uni boodi");
[Aa]re/{NW} gtf_puts_case("ure");
[Aa]sshole/{NW} gtf_puts_case("uss hool");
[Aa]t/{NW} gtf_puts_case("et");
[Bb]y/{NW} gtf_puts_case("bi");
[Cc]ould/{NW} gtf_puts_case("cud");
[Ee]mpty/{NW} gtf_puts_case("umpti");
[Ee]yes/{NW} gtf_puts_case("i's");
[Ff]actory/{NW} gtf_puts_case("fuctawri");
[Ff]ile gtf_puts_case("fuel"); BEGIN(INW);
[Ff]rom/{NW} gtf_puts_case("frum");
[Ff]uck gtf_puts_case("fak"); BEGIN(INW);
[Gg]oing/{NW} gtf_puts_case("go en");
[Gg]uess/{NW} gtf_puts_case("gus");
[Hh]eap/{NW} gtf_puts_case("hup");
[Hh]ere/{NW} gtf_puts_case("hear");
[Hh]ope/{NW} gtf_puts_case("hup");
[Ii]'m/{NW} gtf_puts_case("eye em");
[Ii]f/{NW} gtf_puts_case("uf");
[Jj]unk/{NW} gtf_puts_case("joonk");
[Jj]ust/{NW} gtf_puts_case("juzst");
[Nn]ut/{NW} gtf_puts_case("noot");
[Oo]ut gtf_puts_case("ut"); BEGIN(INW);
[Pp]ocket/{NW} gtf_puts_case("puket");
[Rr]ide/{NW} gtf_puts_case("wide");
[Rr]un gtf_puts_case("wun"); BEGIN(INW);
[Ss]aw/{NW} gtf_puts_case("sor");
[Ss]ay gtf_puts_case("sa"); BEGIN(INW);
[Ss]elling/{NW} gtf_puts_case("sulen");
[Ss]hit/{NW} gtf_puts_case("shiet");
[Ss]hould { if(gtf_random(4))
gtf_puts_case("sud");
else
gtf_puts_case("shud");
BEGIN(INW);
}
[Ss]traight gtf_puts_case("stwait"); BEGIN(INW);
[Ss]unset/{NW} gtf_puts_case("soon sut");
[Tt]hough/{NW} gtf_puts_case("tho");
[Tt]rans gtf_puts_case("twains"); BEGIN(INW);
[Tt]wo/{NW} gtf_puts_case("to");
[Uu]p gtf_puts_case("oop"); BEGIN(INW);
[Wh]ich gtf_puts_case("wutch"); BEGIN(INW);
[Ww]ould gtf_puts_case("wud"); BEGIN(INW);
[Yy]our gtf_puts_case("ur"); BEGIN(INW);
[Ii]/{NW} gtf_puts_case("em");
[Aa]/{NW} gtf_puts_case("ar");
[Aa]bout/{NW} gtf_puts_case("abut");
[Aa]ll/{NW} gtf_puts_case("awl");
[Aa]l(l)?right/{NW} gtf_puts_case("awl wight");
[Aa]m/{NW} gtf_puts_case("um");
[Aa]nd/{NW} gtf_puts_case("en");
[Aa]ren't/{NW} gtf_puts_case("r ent");
[Aa]void/{NW} gtf_puts_case("av void");
[Bb]e/{NW} gtf_puts_case("b");
[Bb]oy gtf_puts_case("boi"); BEGIN(INW);
[Bb]rackets/{NW} gtf_puts_case("bruketz");
[Bb]ut gtf_puts_case("bot"); BEGIN(INW);
[Cc]an/{NW} gtf_puts_case("kun");
[Cc]an't{NW} { if(gtf_random(4))
gtf_puts_case("car ent");
else
gtf_puts_case("kunt");
}
[Cc]onver gtf_puts_case("cunvur"); BEGIN(INW);
[Cc]ool/{NW} gtf_puts_case("kewl");
[Cc]os gtf_puts_case("cuz"); BEGIN(INW);
[Dd]ay gtf_puts_case("di"); BEGIN(INW);
[Dd]id gtf_puts_case("ded"); BEGIN(INW);
[Dd]o gtf_puts_case("dew"); BEGIN(INW);
[Dd]oes { if (gtf_random(3)) gtf_puts_case("dus");
else gtf_puts_case("duz");
BEGIN(INW); }
[Dd]ude/{NW} gtf_puts_case("do ed");
[Ee]nglish/{NW} gtf_puts_case("unglush");
[Ff]ilter/{NW} gtf_puts_case("felt her");
[Ff]irst/{NW} gtf_puts_case("fuzt");
[Ff]ixed/{NW} gtf_puts_case("fuckzed");
[Ff]ools/{NW} gtf_puts_case("fulz");
[Ff]or |
[Ff]our gtf_puts_case("vor"); BEGIN(INW);
[Gg]etting/{NW} gtf_puts_case("gut en");
[Gg]et gtf_puts_case("gut"); BEGIN(INW);
[Gg]onna/{NW} { if(gtf_random(2))
gtf_puts_case("gun nar");
else
gtf_puts_case("gunna");
}
[Gg]ood gtf_puts_case("gud"); BEGIN(INW);
[Hh]as gtf_puts_case("huz"); BEGIN(INW);
[Hh]mm/{NW} gtf_puts_case("humm");
[Hh]ow gtf_puts_case("huw"); BEGIN(INW);
[Hh]undred/{NW} gtf_puts_case("hundrud");
[Ii]n gtf_puts_case("un"); BEGIN(INW);
[Ii]s { if(gtf_random(5))
gtf_puts_case("ez");
else
gtf_puts_case("uz");
BEGIN(INW);
}
[Ii]t/{NW} { if(gtf_random(5))
gtf_puts_case("et");
else
gtf_puts_case("ut");
}
[Ii]ts/{NW} gtf_puts_case("etz");
[Ll]ame/{NW} { if(gtf_random(7))
gtf_puts_case("lye em");
else
gtf_puts_case("lyem");
}
[Ll]ibrary/{NW} gtf_puts_case("wibwari");
[Ll]ots/{NW} gtf_puts_case("wuntz");
[Mm]ake gtf_puts_case("muk"); BEGIN(INW);
[Mm]e/{NW} gtf_puts_case("mi");
[Mm]ore/{NW} gtf_puts_case("mur");
[Mm]uch/{NW} gtf_puts_case("mutch");
[Mm]y/{NW} gtf_puts_case("mi");
[Nn]eed gtf_puts_case("nud"); BEGIN(INW);
[Nn]one gtf_puts_case("noon"); BEGIN(INW);
[Nn]ot gtf_puts_case("nut"); BEGIN(INW);
[Nn]umerics gtf_puts_case("numerekz");
[Oo]f gtf_puts_case("uf"); BEGIN(INW);
[Oo]ne/{NW} gtf_puts_case("wun");
[Oo]nly/{NW} gtf_puts_case("own we");
[Oo]ther gtf_puts_case("udder"); BEGIN(INW);
[Pp]eople/{NW} gtf_puts_case("poopel");
[Pp]eoples/{NW} gtf_puts_case("poopelz");
[Pp]roblem gtf_puts_case("prublim"); BEGIN(INW);
[Rr]ead gtf_puts_case("wed"); BEGIN(INW);
[Rr]ule/{NW} gtf_puts_case("wul");
[Ss]o/{NW} gtf_puts_case("zo");
[Ss]ort/{NW} gtf_puts_case("surt");
[Ss]orting/{NW} gtf_puts_case("surten");
[Tt]alk gtf_puts_case("tak"); BEGIN(INW);
[Tt]hat/{NW} { if(gtf_random(4))
gtf_puts_case("dat");
else
gtf_puts_case("dut");
}
[Tt]he/{NW} gtf_puts_case("da");
[Tt]here gtf_puts_case("der"); BEGIN(INW);
[Tt]hink gtf_puts_case("tunk"); BEGIN(INW);
[Tt]his/{NW} { if(gtf_random(2) == 0)
gtf_puts_case("des");
else if(gtf_random(3) == 0)
gtf_puts_case("dis");
else if(gtf_random(3) == 0)
gtf_puts_case("dus");
else gtf_puts_case("duz");
}
[Tt]ime gtf_puts_case("tym"); BEGIN(INW);
[Tt]o gtf_puts_case("two"); BEGIN(INW);
[Tt]oday/{NW} gtf_puts_case("tow di");
[Tt]otally/{NW} gtf_puts_case("toate awli");
[Tt]raffic/{NW} gtf_puts_case("twufak");
[Tt]ranslator/{NW} gtf_puts_case("twunz waiter");
[Tt]wenty/{NW} gtf_puts_case("twunti");
[Tt]imes/{NW} gtf_puts_case("tymz");
[Ww]asn't/{NW} gtf_puts_case("wuz ent");
[Ww]hat gtf_puts_case("wut"); BEGIN(INW);
[Ww]ill gtf_puts_case("wul"); BEGIN(INW);
[Ww]ith gtf_puts_case("wif"); BEGIN(INW);
[Ww]ord/{NW} gtf_puts_case("wud");
[Ww]ords/{NW} gtf_puts_case("wudz");
[Ww]rite/{NW} gtf_puts_case("wyt");
[Yy]ou/{NW} gtf_puts_case("ewe");
[Zz]appy/{NW} gtf_puts_case("zipi");
{WC} { BEGIN(INW); gtf_echo(); }
}
<INW>{
i/{NW} gtf_puts_case("eye"); BEGIN(NIW);
[Pp]hone/{NW} gtf_puts_case("fune"); BEGIN(NIW);
}
{EOT} /* ignore trailing EOT character */
. gtf_echo();
\n gtf_echo();
%%
/*
*/
#ifdef LIBRARY_MODE
int gtf_filter_funetak(const char *input, char *buf, size_t bufsz)
{
gtf_databuf_t buffer;
YY_BUFFER_STATE _yybuf;
gtf_strbuf_init(&buffer, buf, bufsz);
_yybuf = yy_scan_string(input);
yylex(&buffer);
yy_delete_buffer(_yybuf);
gtf_reset();
return(buffer.overflow);
}
int __gtf_filter_funetak(const char *input, char *buf, size_t bufsz)
{
return(gtf_filter_funetak(input, buf, bufsz));
}
#else /* LIBRARY_MODE */
int main(int argc, char **argv)
{
gtf_parse_args();
gtf_random_seed();
yylex(NULL);
return(EXIT_SUCCESS);
}
#endif /* LIBRARY_MODE */
/* end of source file */