[filters.git] / nyc.l

%{
/*
 *	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;
			}
		}
}
Commit	Line	Data
dc17484a	1	%{
	2	/*
	3	* Lex filter to transform plain English into Brooklyn English.
	4	* No racial or societal slurs are intended. For amusement only.
	5	*
	6	* Copyright 1986 by Daniel Klein.
	7	*
	8	* Reproduction permitted so long as this notice is retained.
	9	*/
	10	%}
	11	BW [ \t]
	12	SP [ \t]
	13	EW [ \t.,;!\?$]
	14	%%
	15	".so ".*$ printf("%s", yytext);
	16	[ao]ther printf("%cdder", yytext[0]=='a'?'a':'u');
	17	[Nn]othing printf("%cuttin'", yytext[0]);
	18	[Tt]hin printf("%cin", yytext[0]);
	19	[Tt]hir printf("%coi", yytext[0]);
	20	[Tt]h[ei] printf("%c%c", caseify('d'), yytext[yyleng-1]);
	21	[Tt]hat printf("%cat", caseify('d'));
	22	I'm{SP}going{SP}to printf("I'manna");
	23	going{SP}to printf("gonna");
	24	want{SP}to printf("wanna");
	25	t{SP}you printf("tcha");
	26	[Dd]id{SP}you{SP}[eaiou] printf("%c'j%c", yytext[0], yytext[yyleng-1]);
	27	[Dd]id{SP}you printf("%c'ja", yytext[0]);
	28	[Yy]ou printf("%cuh", yytext[0]);
	29	[Hh]ow{SP}are{SP}you printf("%cowahrya", yytext[0]);
	30	[Ww]ith printf("%cit'", yytext[0]);
	31	[Dd]on't printf("%coan", yytext[0]);
	32	ldn't \|
	33	dn't printf("n't");
	34	isn't printf("ain't");
	35	er{EW} { printf("uh"); plastc(); }
	36	ing{EW} { printf("in'"); plastc(); }
	37	[Ww]ord \|
	38	[Hh]eard \|
	39	[BbGgLlPpSs]urg \|
	40	[CcHh][eu]r[ntv] printf("%coi%c", yytext[0], yytext[yyleng-1]);
	41	[^Mm]mer[^aeiouhrs] printf("%cmoi%c", yytext[0], yytext[yyleng-1]);
	42	[Oo]re{EW} { printf("%cwh", caseify('a')); plastc(); }
	43	[Oo]r printf("%cwh", caseify('a'));
	44	[Oo]f printf("%chv", caseify('u'));
	45	tion printf("shun");
	46	alk \|
	47	our[st] \|
	48	or[st] printf("awh%c", yytext[yyleng-1]);
	49	ause printf("awze");
	50	[Oo]ff printf("%cwhf", caseify('a'));
	51	[Ss]tupid printf("%ctoopid", yytext[0]);
	52	{BW}under printf(" unner");
	53	{BW}to{EW} { printf(" tuh"); plastc(); }
	54	[Aa]ctual printf("%cckshul", yytext[0]);
	55	negro printf("spade");
	56	[Pp]uerto{SP}[Rr]ican printf("%cpic", caseify('s'));
	57	[Ii]talian printf("%creaser", caseify('g'));
	58	[Jj]ewish printf("%cew boy", yytext[0]);
	59	[Jj]ew printf("%cebe", caseify('h'));
	60	[a-z]":" { *(yytext+1) = ',';
	61	printf("%s like, uhh:",yytext);
	62	}
	63	[a-z]"?" { *(yytext+1) = ',';
	64	printf("%s or what?",yytext);
65	}
66	! printf("! Okay?");
67	[a-z]"." { printf("%s", yytext);expletive();}
68	%%
69	plastc()
70	{
71	unput(yytext[yyleng-1]);
72	}
73
74	caseify(c)
75	char c;
76	{
77	if (yytext[0] <= 'Z')
78	return (c - ' ');
79	else
80	return (c);
81	}
82
83	short count = 0;
84	short which = 0;
85
86	expletive()
87	{
88	if (count++ % 4 == 0) {
89	switch (which++ % 5) {
90	case 0: printf(" Okay?"); break;
91	case 1: printf(" Right?"); break;
92	case 2: printf(" Yuh got me so fahr?"); break;
93	case 3: printf(" Ya' dig?"); break;
94	case 4: printf(" Yuh with me?"); break;
95	}
96	}
97	}