talkfilters/redneck.l

421 lines
16 KiB
Plaintext
Executable File

/* 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.
*/
/* Written by Brand Hilton */
%option prefix="redneck_yy"
%option outfile="lex.yy.c"
%option noyywrap
%option nowarn
%e 10000
%p 25000
%n 4000
%k 1000
%a 8000
%o 4000
%{
#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
[Gg]et{WB}your/{NW} gtf_puts_case("gitcher");
[Gg]et{WB}you/{NW} gtf_puts_case("gitcha");
[Ff]inger gtf_puts_case("finger"); BEGIN(INW);
[Ss]omething/{NW} gtf_puts_case("sump'm");
[Kk]issing/{NW} gtf_puts_case("swappin' slobber");
[Kk]iss/{NW} gtf_puts_case("swap slobber with");
[Kk]issed/{NW} gtf_puts_case("Swapped slobber with");
[Hh]appily/{NW} gtf_puts_case("happy");
[Rr]emember gtf_puts_case("'member"); BEGIN(INW);
[Rr]emind gtf_puts_case("'mind"); BEGIN(INW);
[Gg]raduat gtf_puts_case("gradjeeat"); BEGIN(INW);
[Oo]ther gtf_puts_case("uther"); BEGIN(INW);
[Ll]imousine gtf_puts_case("Chevy 4x4"); BEGIN(INW);
[Nn]ight gtf_puts_case("nite"); BEGIN(INW);
[Rr]ecognize gtf_puts_case("recunize"); BEGIN(INW);
[Bb]efore gtf_puts_case("afore"); BEGIN(INW);
[Ee]very gtf_puts_case("ever"); BEGIN(INW);
[Ii]nto/{NW} gtf_puts_case("inta");
[Ff]orget gtf_puts_case("fergit"); BEGIN(INW);
[Cc]ollege/{NW} gtf_puts_case("weldin' skool");
[Mm]arried/{NW} gtf_puts_case("hitched");
[Tt]hing gtf_puts_case("thang"); BEGIN(INW);
[Hh]uge/{NW} gtf_puts_case("big-ass");
[Aa]bout/{NW} gtf_puts_case("'bout");
[Cc]hildren/{NW} gtf_puts_case("young uns");
[Cc]hild/{NW} gtf_puts_case("young un");
[Ss]ip/{NW} gtf_puts_case("swaller");
[Ss]ips/{NW} gtf_puts_case("swallers");
[Dd]rink{WB}of/{NW} gtf_puts_case("swig uh");
[Dd]rinks{WB}of/{NW} gtf_puts_case("swigs uh");
[Dd]rink/{NW} gtf_puts_case("drank");
[Gg]lass/{NW} gtf_puts_case("can");
[Gg]lasses/{NW} gtf_puts_case("cans");
[Cc]hampaigne/{NW} gtf_puts_case("Budweiser");
[Ww]ine/{NW} gtf_puts_case("Coors");
[Tt]his/{NW} gtf_puts_case("this here");
[Tt]hose/{NW} gtf_puts_case("them");
[Tt]ook/{NW} gtf_puts_case("done took");
[Ww]ent/{NW} gtf_puts_case("done went");
[Ss]aw/{NW} gtf_puts_case("seen");
[Ee]nter gtf_puts_case("inner"); BEGIN(INW);
[Ii]nter gtf_puts_case("inner"); BEGIN(INW);
Inter gtf_puts_case("Inner");
them/{NW} gtf_puts_case("'em");
[Ss]hit/{NW} gtf_puts_case("sheeeiit");
[Ll]ovely/{NW} |
[Pp]retty/{NW} |
[Bb]eautiful/{NW} |
[Hh]andsome/{NW} gtf_puts_case("purty");
most{WB}beautiful/{NW} gtf_puts_case("purtiest");
[Tt]oo{WB}forward/{NW} gtf_puts_case("too horny");
[Hh]ello/{NW} gtf_puts_case("hey there");
[Hh]ouse/{NW} gtf_puts_case("trailer");
[Nn]eighborhood gtf_puts_case("trailer park"); BEGIN(INW);
[Pp]arty/{NW} gtf_puts_case("hoe-down");
[Pp]arties/{NW} gtf_puts_case("hoe-downs");
[Tt]ime gtf_puts_case("tahm"); BEGIN(INW);
[Mm]exican gtf_puts_case("Mescun"); BEGIN(INW);
[Ii]talian gtf_puts_case("Eye-talian"); BEGIN(INW);
[Bb]lack{WB}(man|guy)/{NW} |
[Nn]egro/{NW} gtf_puts_case("nigger");
[Bb]lack{WB}(men|guys)/{NW} |
[Bb]lacks/{NW} |
[Nn]egroes/{NW} |
[Aa]frican{WB}Americans gtf_puts_case("niggers");
[Aa]sian/{NW} gtf_puts_case("Slant-eye");
so{WB}that/{NW} gtf_puts_case("so'sn");
[Nn]o{WB}one{WB}ever/{NW} gtf_puts_case("Ain't nobody never");
No{WB}one/{NW} gtf_puts_case("Ain't nobody");
Nobody{WB}ever/{NW} gtf_puts_case("Ain't nobody never");
[Ss]ome/{NW} gtf_puts_case("sum");
[Tt]hink gtf_puts_case("thank"); BEGIN(INW);
met{WB}you/{NW} gtf_puts_case("laid eyes own yuh"); BEGIN(INW);
[Bb]roken/{NW} gtf_puts_case("busted");
[Mm]odem gtf_puts_case("modem doodad"); BEGIN(INW);
[Tt]he/{NW} gtf_puts_case("thuh");
[Aa]nd/{NW} gtf_puts_case("An'");
[Ee]lse/{NW} gtf_echo();
([Bb]oy|[Mm]an)/{NW} gtf_puts_case("feller");
[Mm]en/{NW} gtf_puts_case("fellers");
([Ww]oman|[Gg]irl)/{NW} gtf_puts_case("girlie");
[Ll]ie{WB}down/{NW} gtf_puts_case("lay down");
[Ss]ure/{NW} gtf_puts_case("shure");
[Gg]et gtf_puts_case("git"); BEGIN(INW);
[Ww]ile/{NW} gtf_puts_case("whahl");
[Gg]oing/{NW} gtf_puts_case("goin'");
[Gg]ot{WB}to/{NW} gtf_puts_case("gotta");
[Ss]hoe/{NW} gtf_puts_case("boot");
[Ss]hout gtf_puts_case("holler"); BEGIN(INW);
[Cc]uple{WB}of/{NW} gtf_puts_case("coupl'a");
[Ff]ond{WB}of/{NW} gtf_puts_case("sweet on");
[Cc]ome{WB}on/{NW} gtf_puts_case("c'moan ");
[Cc]ome{WB}over/{NW} gtf_puts_case("c'moan over");
[Cc]ome{WB}here/{NW} gtf_puts_case("c'mere");
[Cc]ar/{NW} gtf_puts_case("pickem-up truck");
[Cc]ars/{NW} gtf_puts_case("pickem-up trucks");
[Dd]riven/{NW} gtf_puts_case("done drove");
[Rr]idden/{NW} gtf_puts_case("done rode");
[Ee]at/{NW} gtf_puts_case("chow down on");
[Cc]omputer gtf_puts_case("'pyooter doomajigger"); BEGIN(INW);
[Dd]atabase gtf_puts_case("database doohickey"); BEGIN(INW);
[Kk]n(ew|own)/{NW} gtf_puts_case("knowed");
[Bb]ecause/{NW} gtf_puts_case("'cuz");
[Mm]ore{WB}than/{NW} gtf_puts_case("more'n");
[Yy]oung gtf_puts_case("young"); BEGIN(INW);
[Yy]our/{NW} gtf_puts_case("yer");
[Yy]ours gtf_puts_case("yores"); BEGIN(INW);
[Yy]ou/{NW} gtf_puts_case("yew");
[Pp]olice/{NW} gtf_puts_case("sher'ff");
[Kk]ind{WB}of/{NW} gtf_puts_case("kinda");
[Dd]ead/{NW} gtf_puts_case("deader'n a door nail");
[Vv]ery/{NW} gtf_puts_case("real");
[Qq]uite{WB}a{WB}(bit|few)/{NW} gtf_puts_case("a helluva lot");
[Qq]uite{WB}a/{NW} gtf_puts_case("one helluva");
[Qq]uite/{NW} gtf_puts_case("real");
[Nn]ice/{NW} gtf_puts_case("right nice");
[Mm]o(ther|m) gtf_puts_case("momma"); BEGIN(INW);
[Ff]ather|[Dd]ad gtf_puts_case("daddy"); BEGIN(INW);
[Ee]xclaim gtf_puts_case("yelp"); BEGIN(INW);
[Oo]h(,)?{WB}yes! gtf_puts_case("You betcha!");
[Pp]umpkin gtf_puts_case("punkin"); BEGIN(INW);
[Ff]orgotten/{NW} gtf_puts_case("fergot");
[Ff]amily/{NW} gtf_puts_case("fambly");
[Pp]articular gtf_puts_case("puhticlur"); BEGIN(INW);
[Pp]robably/{NW} gtf_puts_case("prob'ly");
[Aa]round/{NW} gtf_puts_case("aroun'");
[Ss]urprised/{NW} gtf_puts_case("s'prized");
[Cc]ontinue gtf_puts_case("continya"); BEGIN(INW);
[Aa]gain/{NW} gtf_puts_case("agin");
[Ll]ogically/{NW} gtf_puts_case("logik'ly");
[Ll]ogical/{NW} gtf_puts_case("logik'l");
[Mm]yself/{NW} gtf_puts_case("muhsef");
[Dd]istributed/{NW} gtf_puts_case("duhstribuhted");
[Dd]istributor/{NW} gtf_puts_case("duhstribuhter");
[Dd]istribute/{NW} gtf_puts_case("duhstribbit");
[Ss]econd gtf_puts_case("secint"); BEGIN(INW);
[Pp]erfect/{NW} gtf_puts_case("Purfik");
[Tt]entative gtf_puts_case("tennative"); BEGIN(INW);
[Mm]aintenance/{NW} gtf_puts_case("maint'nance");
[Ee]nough/{NW} gtf_puts_case("enuff");
[Bb]etween/{NW} gtf_puts_case("'atween");
[Tt]omorrow/{NW} gtf_puts_case("tomorry");
[Ss]unday/{NW} gtf_puts_case("Sundy");
[Mm]onday/{NW} gtf_puts_case("Mondy");
[Tt]uesday/{NW} gtf_puts_case("Tuesdy");
[Ww]ednesday/{NW} gtf_puts_case("Winsdy");
[Tt]hursday/{NW} gtf_puts_case("Thursdy");
[Ff]riday/{NW} gtf_puts_case("Fridy");
[Ss]aturday/{NW} gtf_puts_case("Saturdy");
[Aa]ny/{NW} gtf_puts_case("inny");
[Ff]act gtf_puts_case("fac'"); BEGIN(INW);
[Aa]sk gtf_puts_case("ass"); BEGIN(INW);
[Ll]et{WB}me/{NW} gtf_puts_case("lemme");
[Jj]ust/{NW} gtf_puts_case("jus'");
[Pp]eople|[Gg]uys/{NW} gtf_puts_case("folks");
[Bb]elieve/{NW} gtf_puts_case("reckon");
[Pp]erhaps/{NW} gtf_puts_case("maybe");
[Ww]ife/{NW} gtf_puts_case("ol' lady");
[Oo]f/{NW} gtf_puts_case("uh");
[Oo]f{WB}a/{NW} gtf_puts_case("uv a");
[Ww]hat{WB}you/{NW} gtf_puts_case("whutcha");
[Ww]hat/{NW} gtf_puts_case("whut");
[Dd]istraught/{NW} gtf_puts_case("confused as hayll");
[Ii]n{WB}love{WB}with/{NW} gtf_puts_case("real sweet on");
[Ll]ove gtf_puts_case("luv"); BEGIN(INW);
[Ww]ant{WB}to/{NW} gtf_puts_case("wonna");
[Bb]ig/{NW} gtf_puts_case("big-ass");
[Bb]ad/{NW} gtf_puts_case("bad-ass");
[Ss]mall/{NW} gtf_puts_case("li'l bitty");
[Ss]ort{WB}of/{NW} gtf_puts_case("sorta");
[Tt]o/{NW} gtf_puts_case("tuh");
[Hh]imself/{NW} gtf_puts_case("hisself");
[Bb]eat|[Ww]hip gtf_puts_case("whup"); BEGIN(INW);
[Ff]rom/{NW} gtf_puts_case("frum");
[Yy]ears/{NW} gtf_puts_case("yeers");
Jack/{NW} gtf_puts_case("Billy Jack"); BEGIN(INW);
Robert/{NW} |
Bob(by)?/{NW} gtf_puts_case("Jethro");
Mar[ck]/{NW} gtf_puts_case("Billy Bob");
Jim(my)?/{NW} |
James/{NW} gtf_puts_case("Jim Bob");
Jo(h)?n(ny)?/{NW} gtf_puts_case("Joe Bob");
Paul/{NW} gtf_puts_case("Billy Joe");
Bill(ly)?/{NW} |
Will(ie|iam|y)?/{NW} gtf_puts_case("Bubba");
Dav(e|id)/{NW} gtf_puts_case("Bobby Joe");
Jo(e|seph)/{NW} gtf_puts_case("Billy Joe");
Mi(ke|chael)/{NW} gtf_puts_case("Dwayne");
Br[iy]an/{NW} gtf_puts_case("Jimmy Dean");
Brad/{NW} gtf_puts_case("Jimmy Joe");
Stev[a-z]*/{NW} gtf_puts_case("Billy Wayne");
Ron[a-z]*/{NW} gtf_puts_case("Jimmy Jack");
Kris[a-z]*/{NW} gtf_puts_case("Minnie Mae");
Mary/{NW} gtf_puts_case("Mary Lou");
Jane/{NW} gtf_puts_case("Peggy Sue");
L[iy]nda/{NW} gtf_puts_case("Ellie Mae");
Su(s|z)an[a-z]*/{NW} gtf_puts_case("Mary Jo");
Jenn(y|i[a-z]*)/{NW} gtf_puts_case("Jenny Mae");
Kim[a-z]*/{NW} gtf_puts_case("Thelma Lou");
[CK]ath[a-z]*/{NW} gtf_puts_case("Reba Jewel");
Deb[a-z]*/{NW} gtf_puts_case("Betty Jo");
C[iy]n(d|th)[a-z]* gtf_puts_case("Velma Sue");
[Tt]alk{WB}to/{NW} gtf_puts_case("tawk at");
[Tt]alk gtf_puts_case("tawk"); BEGIN(INW);
[Ff]riend gtf_puts_case("frien'"); BEGIN(INW);
[Rr]ushed/{NW} gtf_puts_case("hightailed it");
[Ww]and/{NW} gtf_puts_case("banjo");
[Cc]an({WB}no|')t/{NW} gtf_puts_case("cain't");
[Uu]nder gtf_puts_case("unner"); BEGIN(INW);
[Mm]y/{NW} gtf_puts_case("muh");
I/{NW} gtf_puts_case("Ah");
[Ff]or/{NW} gtf_puts_case("fer");
[Cc]ould{WB}have/{NW} gtf_puts_case("could'a");
[Cc]ould({WB}no|n')t{WB}have/{NW} gtf_puts_case("couldn'a");
[Cc]ould({WB}no|n')t/{NW} gtf_puts_case("couldn'");
[Ss]hould({WB}ha|')ve/{NW} gtf_puts_case("should'a");
[Ss]hould({WB}no|n')t/{NW} gtf_puts_case("shouldn'");
[Ss]hould({WB}no|n')t{WB}have/{NW} gtf_puts_case("shouldn'a");
[Ss]hould({WB}no|n')t{WB}have{WB}to/{NW} gtf_puts_case("shouldn' hafta");
[Mm]ight{WB}have/{NW} gtf_puts_case("might'a");
[Mm]ight({WB}no|n')t{WB}have/{NW} gtf_puts_case("might not'a");
[Mm]ight({WB}no|n')t{WB}have{WB}to/{NW} gtf_puts_case("mightn' hafta");
[Ww]ould{WB}have/{NW} gtf_puts_case("would'a");
[Ww]ould({WB}no|n')t/{NW} gtf_puts_case("wouldn'");
[Ww]ould({WB}no|n')t{WB}have/{NW} gtf_puts_case("wouldn'a");
[Dd]id({WB}no|n')t/{NW} gtf_puts_case("didn'");
[Ww](ill{WB}no|on')t gtf_puts_case("ain't gunna");
[Ii]t{WB}will/{NW} gtf_puts_case("it'll");
[Hh]ave{WB}to/{NW} gtf_puts_case("hafta");
[Ii]t{WB}(would|had)/{NW} gtf_puts_case("it'd");
[Ii]t{WB}would{WB}have/{NW} gtf_puts_case("it'da");
[Ii]t{WB}would({WB}no|n')t/{NW} gtf_puts_case("it wouldn'");
[Ii]t{WB}was({WB}no|n')t/{NW} gtf_puts_case("'tweren't");
[Ww]e{WB}will/{NW} gtf_puts_case("we'll");
[Ww]e{WB}would/{NW} gtf_puts_case("we'd");
[Ww]e{WB}would{WB}have/{NW} gtf_puts_case("we'da");
[Ww]e{WB}wouldn't/{NW} gtf_puts_case("we wouldn'");
[Ww]e{WB}(had|would)/{NW} gtf_puts_case("we'd");
[Ww]e{WB}are/{NW} gtf_puts_case("we're");
[Tt]hat{WB}will/{NW} gtf_puts_case("that'll");
[Hh]aven't/{NW} gtf_puts_case("ain't");
[Tt]hat{WB}would({WB}|no|n')t/{NW} gtf_puts_case("that wouldn'");
[Tt]hat{WB}would{WB}have/{NW} gtf_puts_case("that'da");
[Tt]hat{WB}would{WB}have{WB}to/{NW} gtf_puts_case("that'd hafta");
[Tt]hat{WB}(had|would)/{NW} gtf_puts_case("that'd");
[Tt]hat{WB}are/{NW} gtf_puts_case("that're");
[Tt]hey{WB}(would|had)/{NW} gtf_puts_case("they'd");
[Tt]hey{WB}are/{NW} gtf_puts_case("they're");
[Tt]hey{WB}will/{NW} gtf_puts_case("they'll");
[Tt]hey{WB}would{WB}have/{NW} gtf_puts_case("they'da");
[Tt]hey{WB}would{WB}have{WB}to/{NW} gtf_puts_case("they'd hafta");
[Tt]hey{WB}wouldn't/{NW} gtf_puts_case("they wouldn'");
[Hh]e{WB}will/{NW} gtf_puts_case("he'll");
[Hh]e{WB}would/{NW} gtf_puts_case("he'd");
[Hh]e{WB}wouldn't/{NW} gtf_puts_case("he wouldn'");
[Hh]e{WB}would{WB}have/{NW} gtf_puts_case("he'da");
[Hh]e{WB}would{WB}have{WB}to/{NW} gtf_puts_case("he'd hafta");
[Hh]e{WB}(has|is)/{NW} gtf_puts_case("he's");
[Ii]{WB}will/{NW} gtf_puts_case("Ah'll");
[Ii]{WB}would/{NW} |
[Ii]{WB}had/{NW} gtf_puts_case("Ah'd");
[Ii]{WB}wouldn't/{NW} gtf_puts_case("Ah wouldn'");
[Ii]{WB}would{WB}have/{NW} gtf_puts_case("Ah'da");
[Ii]{WB}would{WB}have{WB}to/{NW} gtf_puts_case("Ah'd hafta");
[Tt]here{WB}are/{NW} gtf_puts_case("there's");
[Aa]m{WB}not/{NW} |
([Ii]s|[Aa]re)({WB}no|n')t/{NW} gtf_puts_case("ain't");
(is|are){WB}no/{NW} gtf_puts_case("ain't no");
I({WB}a|')m/{NW} gtf_puts_case("Ah'm");
I({WB}a|')m{WB}not/{NW} gtf_puts_case("Ah ain't");
[Ww]ho{WB}are/{NW} gtf_puts_case("who're");
[Ww]ho{WB}are({WB}no|n')t/{NW} gtf_puts_case("who ain't");
[Dd]oes({WB}no|n')t/{NW} gtf_puts_case("don't");
[Yy]ou{WB}will/{NW} gtf_puts_case("yew'll");
[Yy]ou{WB}would/{NW} gtf_puts_case("yew'd");
[Yy]ou({WB}a|')re/{NW} gtf_puts_case("yer");
[Hh]ave{WB}to/{NW} gtf_puts_case("gotta");
[Hh]ave{WB}been/{NW} gtf_puts_case("been");
[Yy]ou{WB}have/{NW} gtf_puts_case("yew've");
[Cc]an/{NW} gtf_puts_case("Kin");
[Dd]anc gtf_puts_case("dainc"); BEGIN(INW);
[Dd]oes/{NW} gtf_puts_case("duz"); BEGIN(INW);
[Ww]as({WB}no|n')t/{NW} gtf_puts_case("wad'n");
[Ww](as|ere)/{NW} gtf_puts_case("wuz");
[Ss]he{WB}and{WB}I/{NW} gtf_puts_case("me an' her");
[Hh]e{WB}and{WB}I/{NW} gtf_puts_case("me an' him");
and{WB}I/{NW} gtf_puts("an' me");
[Ii]f/{NW} gtf_puts_case("if'n");
[Ii]/{NW} gtf_puts_case("Ah");
E[sx]p gtf_puts_case("'Sp"); BEGIN(INW);
e[sx]p gtf_puts_case("'sp"); BEGIN(INW);
Ex[cs]? gtf_puts_case("'S"); BEGIN(INW);
ex[cs]? gtf_puts_case("'s"); BEGIN(INW);
{WC} { BEGIN(INW); gtf_echo(); }
}
<INW>{
stion/{NW} gtf_puts("schun"); BEGIN(NIW);
tion/{NW} gtf_puts("shun"); BEGIN(NIW);
ctual/{NW} gtf_puts("ckshul"); BEGIN(NIW);
ntual/{NW} gtf_puts("nchul"); BEGIN(NIW);
cious/{NW} gtf_puts("shus"); BEGIN(NIW);
ring/{NW} gtf_puts("rang"); BEGIN(NIW);
ing/{NW} gtf_puts("in'"); BEGIN(NIW);
nm gtf_puts("m");
[f]"." gtf_printf("%s *scratch, scratch*", yytext); BEGIN(NIW);
[i-j]"." gtf_printf("%s *snort*", yytext); BEGIN(NIW);
[m]"." gtf_printf("%s *burp*", yytext); BEGIN(NIW);
[q-r]"." gtf_printf("%s KnowwhutImean?", yytext); BEGIN(NIW);
[y-z]"." gtf_printf("%s *spit*", yytext); BEGIN(NIW);
'(s|re){WB}not/{NW} gtf_puts(" ain't"); BEGIN(NIW);
og/{NW} gtf_puts_case("awg"); BEGIN(NIW);
e[sx]p gtf_puts_case("'sp");
ex[cs]? gtf_puts_case("'s");
{NW} BEGIN(NIW); unput(yytext[0]);
}
{EOT} /* ignore trailing EOT character */
. gtf_echo();
%%
#ifdef LIBRARY_MODE
int gtf_filter_redneck(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_redneck(const char *input, char *buf, size_t bufsz)
{
return(gtf_filter_redneck(input, buf, bufsz));
}
#else /* LIBRARY_MODE */
int main(int argc, char **argv)
{
gtf_parse_args();
yylex(NULL);
return(EXIT_SUCCESS);
}
#endif /* LIBRARY_MODE */
/* end of source file */