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.

300 lines
10 KiB

3 years ago
/* 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.
*/
%option prefix="pirate_yy"
%option outfile="lex.yy.c"
%option noyywrap
%option nowarn
%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
[Tt]o./{NW} gtf_echo();
[Mm]y/{NW} gtf_puts_case("me");
([Bb]oss|[Mm]anager)/{NW} gtf_puts_case("admiral");
[Cc]aptain/{NW} gtf_puts_case("cap'n");
[Ff]riends|[Bb]uddies/{NW} gtf_puts_case("crew");
([Dd]elete|[Ee]rase|[Tt]hrow{WB}away)/{NW} gtf_puts_case("scuttle");
([Dd]eleted|[Ee]rased|[Tt]hr(ew|own){WB}away)/{NW} gtf_puts_case("scuttled");
[Mm]yself/{NW} gtf_puts_case("meself");
[Yy]our/{NW} gtf_puts_case("yer");
[Yy]ou/{NW} gtf_puts_case("ye");
[Ff]riend/{NW} gtf_puts_case("matey");
[Ff]riends/{NW} gtf_puts_case("maties");
[Cc]o(-)?worker/{NW} gtf_puts_case("shipmate");
[Cc]o(-)?workers/{NW} gtf_puts_case("shipmates");
[Pp]erson gtf_puts_case("landlubber");
[Pp]eople gtf_puts_case("landlubbers");
[Gg]uys/{NW} gtf_puts_case("scurvey dogs");
([Bb]efore|[Ee]arlier)/{NW} gtf_puts_case("afore");
[Oo]ld/{NW} gtf_puts_case("auld");
[Tt]he/{NW} gtf_puts_case("th'");
[Oo]f/{NW} gtf_puts_case("o'");
[Dd]o(n'|{WB}no)t/{NW} gtf_puts_case("dern't");
[Nn]ever gtf_puts_case("ne'er"); BEGIN(INW);
[Ee]ver/{NW} gtf_puts_case("e'er");
[Oo]ver gtf_puts_case("o'er"); BEGIN(INW);
[Yy](es|eah|up)/{NW} gtf_puts_case("aye");
[Nn](o|ah|ope)/{NW} gtf_puts_case("nay");
[Dd]on't{WB}know/{NW} gtf_puts_case("dinna");
[Hh]a(d|ve)n't/{NW} gtf_puts_case("ha'nae");
[Dd]idn't/{NW} gtf_puts_case("di'nae");
[Ww]asn't/{NW} gtf_puts_case("weren't");
[Ff]or gtf_puts_case("fer"); BEGIN(INW);
[Bb]etween/{NW} gtf_puts_case("betwixt");
[Aa]round/{NW} gtf_puts_case("aroun'");
[Tt]o gtf_puts_case("t'"); BEGIN(INW);
It's/{NW} gtf_puts("'Tis");
it's/{NW} gtf_puts("'tis");
([Ww]oman|[Ll]ady)/{NW} gtf_puts_case("wench");
[Ww]ife/{NW} gtf_puts_case("lady");
[Gg]irl/{NW} gtf_puts_case("lass");
[Gg]irls/{NW} gtf_puts_case("lassies");
[Gg]uy/{NW} |
[Mm]an/{NW} |
[Ff]ellow/{NW} |
[Dd]ude/{NW} gtf_puts_case("lubber");
[Bb]oy/{NW} gtf_puts_case("lad");
[Bb]oys/{NW} gtf_puts_case("laddies");
[Aa]m/{NW} gtf_puts_case("be");
[Aa]re/{NW} gtf_puts_case("be");
[Cc]hildren/{NW} gtf_puts_case("little sandcrabs");
[Kk]ids/{NW} gtf_puts_case("minnows");
[Hh]im/{NW} gtf_puts_case("that scurvey dog");
[Hh]er/{NW} gtf_puts_case("that comely wench");
[Hh]im\. gtf_puts_case("that drunken sailor.");
[Hh]er\. gtf_puts_case("that comely lass.");
[Hh]e/{NW} gtf_puts_case("that ornery cuss");
[Ss]he/{NW} gtf_puts_case("that winsome lass");
[Hh]e's/{NW} gtf_puts_case("he be");
[Ss]he's/{NW} gtf_puts_case("she be");
[Tt]hey're/{NW} gtf_puts_case("they be");
was/{NW} gtf_puts_case("were bein'");
[Hh](ey|i|ello)/{NW} gtf_puts_case("avast");
[Oo]cean/{NW} gtf_puts_case("high seas");
[Ff]ood/{NW} gtf_puts_case("chow");
[Rr]oad/{NW} gtf_puts_case("sea");
[Ff]reeway/{NW} gtf_puts_case("high seas");
[Rr]oads/{NW} gtf_puts_case("seas");
[Ss]treet/{NW} gtf_puts_case("river");
[Ss]treets/{NW} gtf_puts_case("rivers");
[Hh]ighway/{NW} gtf_puts_case("ocean");
[Hh]ighways/{NW} gtf_puts_case("oceans");
[Cc]ar/{NW} gtf_puts_case("boat");
[Cc]ars/{NW} gtf_puts_case("boats");
[Tt]ruck/{NW} gtf_puts_case("schooner");
[Tt]rucks/{NW} gtf_puts_case("schooners");
SUV/{NW} gtf_puts_case("ship");
([Aa]irplane|[Jj]et)/{NW} gtf_puts_case("flying machine");
[Mm]achine/{NW} gtf_puts_case("contraption");
[Dd]riving|[Tt]ravel(l)ing/{NW} gtf_puts_case("sailing");
[Ss]hit! |
[Dd]amn! gtf_puts_case("Arrrr!"); BEGIN(NIW);
[Aa]ss|[Bb]utt/{NW} gtf_puts_case("dungbie");
([Cc]heat|[Ff]raud)/{NW} gtf_puts_case("hornswaggle");
([Cc]heated|[Dd]efrauded)/{NW} gtf_puts_case("hornswaggled");
[Pp]irate/{NW} gtf_puts_case("buccaneer");
([Bb]eer|[Ww]ine|[Bb]ooze)/{NW} gtf_puts_case("grog");
[Bb]asement/{NW} gtf_puts_case("bilge");
[Pp]unish/{NW} gtf_puts_case("keel-haul");
[Pp]unished/{NW} gtf_puts_case("keel-hauled");
[Dd]ollar/{NW} gtf_puts_case("doubloon");
[Dd]ollars/{NW} gtf_puts_case("doubloons");
[Mm]oney/{NW} { switch(gtf_random(2))
{
case 0:
gtf_puts_case("gold");
break;
case 1:
gtf_puts_case("treasure");
break;
}
}
[Dd]rive|[Tt]ravel/{NW} gtf_puts_case("sail");
[Dd]rove|[Tt]ravel(l)ed/{NW} gtf_puts_case("sailed");
{WC} { BEGIN(INW); gtf_echo(); }
}
<INW>{
"!" { switch(gtf_random(10))
{
case 0:
gtf_puts("! Walk the plank!");
break;
case 1:
gtf_puts(", Arrrr!");
break;
case 2:
gtf_puts(", Yaaarrrr!");
break;
case 3:
gtf_puts(", and dinna spare the whip!");
break;
case 4:
gtf_puts("! Shiver me timbers!");
break;
case 5:
gtf_puts("! Fire the cannons!");
break;
case 6:
gtf_puts("! We'll keel-haul ye!");
break;
default:
gtf_echo();
}
BEGIN(NIW);
}
"," { switch(gtf_random(10))
{
case 0:
gtf_puts(", aye,");
break;
case 1:
gtf_puts(", I'll warrant ye,");
break;
case 2:
gtf_puts(", to be sure,");
break;
case 3:
gtf_puts(", arrrr,");
break;
case 4:
gtf_puts(", by Blackbeard's sword,");
break;
default:
gtf_echo();
}
BEGIN(NIW);
}
"." { switch(gtf_random(20))
{
case 0:
gtf_puts(", and a bottle of rum!");
break;
case 1:
gtf_puts(". And swab the deck!");
break;
case 2:
gtf_puts(", by Davy Jones's locker.");
break;
case 3:
gtf_puts(", ye scurvey dog.");
break;
case 4:
gtf_puts(", I'll warrant ye.");
break;
case 5:
gtf_puts(", arrrr.");
break;
case 6:
gtf_puts(", with a chest full a' booty.");
break;
case 7:
gtf_puts(". Pass the grog!");
break;
case 8:
gtf_puts(". Hoist the mainsail!");
break;
default:
gtf_echo();
}
BEGIN(NIW);
}
{NW} BEGIN(NIW); unput(yytext[0]);
}
{EOT} /* ignore trailing EOT character */
. gtf_echo();
%%
/*
*/
#ifdef LIBRARY_MODE
int gtf_filter_pirate(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_pirate(const char *input, char *buf, size_t bufsz)
{
return(gtf_filter_pirate(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 */