X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=nyc.l;fp=nyc.l;h=0000000000000000000000000000000000000000;hb=2ad76bd43ca4c4bd1ca7dfc5f5e984b7341df7ad;hp=8505c1652ab79b3e21793130e5aad149db369104;hpb=7e3afbbacdd24f8c3fb87599eeda32b977fe6d6c;p=filters.git

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;
-			}
-		}
-}