Initial revision
[filters.git] / drawl.l
1 %{
2 /* Title: English to Texan translator
3 * Author: Adam Hudd (adam@dadhb1.ti.com)
4 * Date: 5 March 1991
5 * Version: 1.0
6 *
7 * Input: stdin
8 * Output: stdout
9 * compile: flex -iL drawl.l ; cc -O lex.yy.c -o drawl
10 */
11
12 #include <stdio.h>
13 #include <ctype.h>
14
15 void changeCase();
16 %}
17 %%
18 (^|" ")"American" changeCase(" Amerkin");
19 (^|" ")"California" changeCase(" Caleyfornyuh");
20 (^|" ")"Dallas" changeCase(" Big D.");
21 (^|" ")"Fort Worth" changeCase(" Fowert Wurth");
22 (^|" ")"Houston" changeCase(" Useton");
23 (^|" ")"I don't know" changeCase(" I-O-no");
24 (^|" ")"I will"|" I'll" changeCase(" Ahl");
25 (^|" ")"I would" changeCase(" Ahd");
26 (^|" ")"I " changeCase(" Ah ");
27 (^|" ")"I'm "|" I am " changeCase(" Ahm ");
28 (^|" ")"I've "|" I have " changeCase(" Ahv ");
29 (^|" ")"Mexico" changeCase(" Messyco");
30 (^|" ")"San Antonio" changeCase(" Santone");
31 (^|" ")"TV"|" television"|" telly" changeCase(" tayvay");
32 (^|" ")"Texan" changeCase(" Texun");
33 (^|" ")"Texas" changeCase(" Teksus");
34 (^|" ")"a while " changeCase(" uhwahl ");
35 (^|" ")"a " changeCase(" uh ");
36 (^|" ")"about" changeCase(" bout");
37 (^|" ")"adult" changeCase(" a-dult");
38 (^|" ")"afraid" changeCase(" frayed");
39 (^|" ")"and " changeCase(" an ");
40 (^|" ")"anniversary" changeCase(" anavarsry");
41 (^|" ")"any " changeCase(" no ");
42 (^|" ")"anywhere" changeCase(" anywhare");
43 (^|" ")"appreciate" changeCase(" preshate");
44 (^|" ")"april" changeCase(" abrul");
45 (^|" ")"are going to" changeCase(" sargunna");
46 (^|" ")"are known" changeCase(" iz node");
47 (^|" ")"are " changeCase(" is ");
48 (^|" ")"aren't you" changeCase(" arncha");
49 (^|" ")"at them" changeCase(" attum");
50 (^|" ")"august" changeCase(" awg-ghust");
51 (^|" ")"away" changeCase(" awf");
52 (^|" ")"awkward" changeCase(" aukerd");
53 (^|" ")"bad" changeCase(" bayud");
54 (^|" ")"ball" changeCase(" bawl");
55 (^|" ")"baptists" changeCase(" babtusses");
56 (^|" ")"barbed" changeCase(" bob");
57 (^|" ")"be " changeCase(" bay ");
58 (^|" ")"bear" changeCase(" bayur");
59 (^|" ")"beautiful" changeCase(" butiful");
60 (^|" ")"because" changeCase(" cuz");
61 (^|" ")"believe" changeCase(" bleeve");
62 (^|" ")"bitty" changeCase(" biddy");
63 (^|" ")"black" changeCase(" blaak");
64 (^|" ")"blue" changeCase(" bulloo");
65 (^|" ")"born" changeCase(" bornd");
66 (^|" ")"brake" changeCase(" brayke");
67 (^|" ")"break" changeCase(" brayke");
68 (^|" ")"brick" changeCase(" breck");
69 (^|" ")"brighter" changeCase(" brotter");
70 (^|" ")"bringing" changeCase(" brangin");
71 (^|" ")"brown" changeCase(" braoyone");
72 (^|" ")"building" changeCase(" bildun");
73 (^|" ")"bulb" changeCase(" bub");
74 (^|" ")"call you " changeCase(" cawya ");
75 (^|" ")"called you " changeCase(" cawdja ");
76 (^|" ")"camera" changeCase(" Instuhmatik");
77 (^|" ")"can't" changeCase(" kaynt");
78 (^|" ")"can't"|" can not"|" cannot" changeCase(" kaynt");
79 (^|" ")"capital" changeCase(" captul");
80 (^|" ")"car " changeCase(" cawer ");
81 (^|" ")"catch" changeCase(" ketch");
82 (^|" ")"chair" changeCase(" chayer");
83 (^|" ")"cheer" changeCase(" chair");
84 (^|" ")"chicken" changeCase(" chikun");
85 (^|" ")"child" changeCase(" kid");
86 (^|" ")"children" changeCase(" kids");
87 (^|" ")"clean" changeCase(" klane");
88 (^|" ")"climate" changeCase(" kliment");
89 (^|" ")"cold" changeCase(" code");
90 (^|" ")"darker" changeCase(" dawerker");
91 (^|" ")"deaf" changeCase(" dayuf");
92 (^|" ")"death" changeCase(" dayuth");
93 (^|" ")"december" changeCase(" deceyumbur");
94 (^|" ")"definite" changeCase(" defnut");
95 (^|" ")"did not"|" didn't" changeCase(" didunt");
96 (^|" ")"did you" changeCase(" dja");
97 (^|" ")"didn't it" changeCase(" diduhnit");
98 (^|" ")"different" changeCase(" difernt");
99 (^|" ")"difficult" changeCase(" difahkult");
100 (^|" ")"divide" changeCase(" duhvide");
101 (^|" ")"does" changeCase(" duz");
102 (^|" ")"doesn't" changeCase(" don't");
103 (^|" ")"dog " changeCase(" dawg ");
104 (^|" ")"I don't care" changeCase(" don't make no nevur mind to may ");
105 (^|" ")"door" changeCase(" dower");
106 (^|" ")"dreaming" changeCase(" draimun");
107 (^|" ")"drink" changeCase(" drank");
108 (^|" ")"drinking" changeCase(" drankin");
109 (^|" ")"drive" changeCase(" drahv");
110 (^|" ")"eight" changeCase(" ate");
111 (^|" ")"eighteen" changeCase(" a-tane");
112 (^|" ")"eighth" changeCase(" athd");
113 (^|" ")"eighty" changeCase(" ady");
114 (^|" ")"eleven" changeCase(" lebum");
115 (^|" ")"entire" changeCase(" entahr");
116 (^|" ")"especially" changeCase(" speshuly");
117 (^|" ")"even" changeCase(" evun");
118 (^|" ")"evening" changeCase(" eevnun");
119 (^|" ")"eventually" changeCase(" eventchly");
120 (^|" ")"ever" changeCase(" evur");
121 (^|" ")"every once in a while" changeCase(" evurwonsinawhahl");
122 (^|" ")"every" changeCase(" evur");
123 (^|" ")"exactly" changeCase(" zakly");
124 (^|" ")"executive" changeCase(" zekatuv");
125 (^|" ")"eye " changeCase(" ah ");
126 (^|" ")"father" changeCase(" papa");
127 (^|" ")"february" changeCase(" febberyawary");
128 (^|" ")"fell " changeCase(" fayul ");
129 (^|" ")"fifteen" changeCase(" fiftane");
130 (^|" ")"fifth" changeCase(" fifd");
131 (^|" ")"fifty" changeCase(" fifdy");
132 (^|" ")"fight" changeCase(" fite");
133 (^|" ")"figure" changeCase(" figger");
134 (^|" ")"filling" changeCase(" fillin");
135 (^|" ")"fine" changeCase(" fahn");
136 (^|" ")"fire" changeCase(" far");
137 (^|" ")"first" changeCase(" fursd");
138 (^|" ")"five" changeCase(" fav");
139 (^|" ")"fixing" changeCase(" fixin");
140 (^|" ")"flower" changeCase(" flare");
141 (^|" ")"follow" changeCase(" faller");
142 (^|" ")"for " changeCase(" fahwar ");
143 (^|" ")"forget" changeCase(" fergit");
144 (^|" ")"fork" changeCase(" fowerk");
145 (^|" ")"forty" changeCase(" fardy");
146 (^|" ")"four" changeCase(" fower");
147 (^|" ")"fourteen" changeCase(" fortane");
148 (^|" ")"fourth" changeCase(" fowerth");
149 (^|" ")"freeze" changeCase(" fraze");
150 (^|" ")"friday" changeCase(" frydy");
151 (^|" ")"from" changeCase(" frum");
152 (^|" ")"front" changeCase(" frunt");
153 (^|" ")"gas" changeCase(" gayus");
154 (^|" ")"geography" changeCase(" joggerfee");
155 (^|" ")"get a hold of you" changeCase(" gittaholdayew");
156 (^|" ")"get" changeCase(" git");
157 (^|" ")"going to" changeCase(" gunna");
158 (^|" ")"going to" changeCase(" mona");
159 (^|" ")"gold" changeCase(" gode");
160 (^|" ")"got to " changeCase(" gotta ");
161 (^|" ")"green" changeCase(" grane");
162 (^|" ")"grey"|" gray" changeCase(" graey");
163 (^|" ")"guests" changeCase(" guesss");
164 (^|" ")"guitar" changeCase(" gitahwer");
165 (^|" ")"gulf" changeCase(" guf");
166 (^|" ")"hard" changeCase(" hayud");
167 (^|" ")"have a " changeCase(" havuh ");
168 (^|" ")"have not"|" haven't" changeCase(" habumt");
169 (^|" ")"have " changeCase(" hav ");
170 (^|" ")"he " changeCase(" hay ");
171 (^|" ")"headed" changeCase(" hardud");
172 (^|" ")"here" changeCase(" hare");
173 (^|" ")"high" changeCase(" ha");
174 (^|" ")"hour" changeCase(" air");
175 (^|" ")"how are you" changeCase(" hyeru");
176 (^|" ")"how do you do " changeCase(" howdee ");
177 (^|" ")"huh!" changeCase(" hawh!");
178 (^|" ")"huh?" changeCase(" hawh?");
179 (^|" ")"hundred" changeCase(" hunnerd");
180 (^|" ")"if I " changeCase(" fah ");
181 (^|" ")"if it " changeCase(" hifit ");
182 (^|" ")"if you" changeCase(" few");
183 (^|" ")"if " changeCase(" hif ");
184 "ing " changeCase("in' ");
185 (^|" ")"ignorance" changeCase(" ignernt");
186 (^|" ")"indian" changeCase(" hinyun");
187 (^|" ")"inside" changeCase(" n-sod");
188 (^|" ")"instead of" changeCase(" instudda");
189 (^|" ")"institute" changeCase(" instatoot");
190 (^|" ")"intersection" changeCase(" innersekshun");
191 (^|" ")"is a " changeCase(" izza ");
192 (^|" ")"is it " changeCase(" izit ");
193 (^|" ")"is that " changeCase(" izzat ");
194 (^|" ")"is that right " changeCase(" zatrot ");
195 (^|" ")"is " changeCase(" iz ");
196 (^|" ")"isn't it " changeCase(" hiduhnit ");
197 (^|" ")"it appears" changeCase(" pears");
198 (^|" ")"it would" changeCase(" hid");
199 (^|" ")"it " changeCase(" hit ");
200 (^|" ")"it'd " changeCase(" hid ");
201 (^|" ")"it's"|" it is" changeCase(" hit's");
202 (^|" ")"jail" changeCase(" jayul");
203 (^|" ")"january" changeCase(" janyawary");
204 (^|" ")"jeans" changeCase(" janes");
205 (^|" ")"jet" changeCase(" jeyut");
206 (^|" ")"jewelry" changeCase(" julry");
207 (^|" ")"july" changeCase(" djoolie");
208 (^|" ")"june" changeCase(" djoon");
209 (^|" ")"just" changeCase(" gist");
210 (^|" ")"kind of" changeCase(" kinduh");
211 (^|" ")"king" changeCase(" kang");
212 (^|" ")"library" changeCase(" liberry");
213 (^|" ")"lie" changeCase(" lah");
214 (^|" ")"life" changeCase(" lahf");
215 (^|" ")"light" changeCase(" lot");
216 (^|" ")"lighter" changeCase(" lahter");
217 (^|" ")"like" changeCase(" lahk");
218 (^|" ")"little" changeCase(" liddel");
219 (^|" ")"log" changeCase(" lawg");
220 (^|" ")"lot of" changeCase(" lottuh");
221 (^|" ")"lots of" changeCase(" lotsa");
222 (^|" ")"love" changeCase(" luv");
223 (^|" ")"mall" changeCase(" mawl");
224 (^|" ")"march" changeCase(" martch");
225 (^|" ")"material" changeCase(" mahtearyul");
226 (^|" ")"may" changeCase(" maey");
227 (^|" ")"me " changeCase(" may ");
228 (^|" ")"mile" changeCase(" mahl");
229 (^|" ")"minute" changeCase(" minent");
230 (^|" ")"monday" changeCase(" mundy");
231 (^|" ")"mosquito" changeCase(" skeeter");
232 (^|" ")"moss" changeCase(" mawce");
233 (^|" ")"mother" changeCase(" ma");
234 (^|" ")"mroone" changeCase(" maroon");
235 (^|" ")"my " changeCase(" mah ");
236 (^|" ")"myself" changeCase(" mahsef");
237 (^|" ")"never" changeCase(" nevur");
238 (^|" ")"nine" changeCase(" nahn");
239 (^|" ")"nineteen" changeCase(" nontane");
240 (^|" ")"nineth" changeCase(" nonth");
241 (^|" ")"ninety" changeCase(" nondy");
242 (^|" ")"no " changeCase(" naw ");
243 (^|" ")"nothing" changeCase(" nuthun");
244 (^|" ")"november" changeCase(" noveyumbur");
245 (^|" ")"ocean" changeCase(" oshun");
246 (^|" ")"october" changeCase(" oktobur");
247 (^|" ")"of " changeCase(" uh ");
248 (^|" ")"off" changeCase(" awf");
249 (^|" ")"oil" changeCase(" all");
250 (^|" ")"old " changeCase(" ode ");
251 (^|" ")"one of " changeCase(" wunna ");
252 (^|" ")"one " changeCase(" wun ");
253 (^|" ")"only" changeCase(" monly");
254 (^|" ")"opposite" changeCase(" opsit");
255 (^|" ")"orange" changeCase(" arnjuh");
256 (^|" ")"over there" changeCase(" ovare");
257 (^|" ")"over" changeCase(" ovur");
258 (^|" ")"parking" changeCase(" parkin");
259 (^|" ")"people" changeCase(" paypul");
260 (^|" ")"picture" changeCase(" pitchur");
261 (^|" ")"pillow" changeCase(" pillar");
262 (^|" ")"pine" changeCase(" pahn");
263 (^|" ")"pink" changeCase(" pank");
264 (^|" ")"please" changeCase(" playze");
265 (^|" ")"pretty" changeCase(" purdy");
266 (^|" ")"probably" changeCase(" probly");
267 (^|" ")"purple" changeCase(" burpel");
268 (^|" ")"queen" changeCase(" kwane");
269 (^|" ")"quit" changeCase(" kewyut");
270 (^|" ")"rather" changeCase(" ruthur");
271 (^|" ")"ready" changeCase(" reddy");
272 (^|" ")"real" changeCase(" reeyul");
273 (^|" ")"really" changeCase(" rilly");
274 (^|" ")"red" changeCase(" rayud");
275 (^|" ")"right" changeCase(" rot");
276 (^|" ")"ring" changeCase(" rang");
277 (^|" ")"said" changeCase(" sayud");
278 (^|" ")"sale" changeCase(" sayul");
279 (^|" ")"sale"|" sail"|" sell" changeCase(" sayul");
280 (^|" ")"saturday" changeCase(" sadderdy");
281 (^|" ")"school" changeCase(" skoo");
282 (^|" ")"screen" changeCase(" skrane");
283 (^|" ")"second" changeCase(" sekunt");
284 (^|" ")"see" changeCase(" say");
285 (^|" ")"september" changeCase(" ceptimbur");
286 (^|" ")"seven" changeCase(" sebum");
287 (^|" ")"seventeen" changeCase(" sebumtane");
288 (^|" ")"seventh" changeCase(" sebumthd");
289 (^|" ")"seventy" changeCase(" sebumdy");
290 (^|" ")"she" changeCase(" shay");
291 (^|" ")"shirt" changeCase(" churt");
292 (^|" ")"sign" changeCase(" sahn");
293 (^|" ")"silver" changeCase(" seeyulvur");
294 (^|" ")"sit" changeCase(" set");
295 (^|" ")"sixteen" changeCase(" sickstane");
296 (^|" ")"sixth" changeCase(" sicksed");
297 (^|" ")"sixty" changeCase(" sicksdy");
298 (^|" ")"siz" changeCase(" sicks");
299 (^|" ")"smell" changeCase(" smayul");
300 (^|" ")"smile" changeCase(" smahl");
301 (^|" ")"softer" changeCase(" sowftur");
302 (^|" ")"some of those" changeCase(" sumoze");
303 (^|" ")"some" changeCase(" sum");
304 (^|" ")"something" changeCase(" sumpn");
305 (^|" ")"sometime" changeCase(" sumtom");
306 (^|" ")"south" changeCase(" saowth");
307 (^|" ")"speak" changeCase(" spake");
308 (^|" ")"spring" changeCase(" sprang");
309 (^|" ")"sprinkle" changeCase(" sprankul");
310 (^|" ")"stadium" changeCase(" stadyum");
311 (^|" ")"station" changeCase(" stayshun");
312 (^|" ")"string" changeCase(" strang");
313 (^|" ")"sunday" changeCase(" sundy");
314 (^|" ")"sure" changeCase(" shore");
315 (^|" ")"tale"|" tail" changeCase(" tayul");
316 (^|" ")"talk" changeCase(" tawk");
317 (^|" ")"talking" changeCase(" tawkin");
318 (^|" ")"tall" changeCase(" tahl");
319 (^|" ")"tan" changeCase(" tayun");
320 (^|" ")"ten" changeCase(" teyun");
321 (^|" ")"tenth" changeCase(" teyunth");
322 (^|" ")"terible" changeCase(" tarbul");
323 (^|" ")"terrible" changeCase(" tarbul");
324 (^|" ")"that is"|" that's" changeCase(" thets");
325 (^|" ")"that" changeCase(" thet");
326 (^|" ")"the only" changeCase(" thonly");
327 (^|" ")"the other" changeCase(" thuther");
328 (^|" ")"the" changeCase(" thuh");
329 (^|" ")"their" changeCase(" thur");
330 (^|" ")"there" changeCase(" thare");
331 (^|" ")"there" changeCase(" thayure");
332 (^|" ")"they" changeCase(" thay");
333 (^|" ")"thing" changeCase(" thang");
334 (^|" ")"think" changeCase(" thank");
335 (^|" ")"third" changeCase(" thurd");
336 (^|" ")"thirteen" changeCase(" thurtane");
337 (^|" ")"thirty" changeCase(" thurdy");
338 (^|" ")"this" changeCase(" thus");
339 (^|" ")"those" changeCase(" them");
340 (^|" ")"thousand" changeCase(" thousun");
341 (^|" ")"three" changeCase(" thray");
342 (^|" ")"through" changeCase(" thoo");
343 (^|" ")"throw" changeCase(" thow");
344 (^|" ")"throw" changeCase(" throw");
345 (^|" ")"thrown" changeCase(" thowed");
346 (^|" ")"thursday" changeCase(" thursdy");
347 (^|" ")"tie" changeCase(" tah");
348 (^|" ")"tied" changeCase(" tahd");
349 (^|" ")"tight" changeCase(" tot");
350 (^|" ")"time" changeCase(" tom");
351 (^|" ")"to " changeCase(" tuh ");
352 (^|" ")"today" changeCase(" tuhday");
353 (^|" ")"toilet" changeCase(" outhouse");
354 (^|" ")"told" changeCase(" tode");
355 (^|" ")"tommorrow" changeCase(" tuhmorrow");
356 (^|" ")"tree" changeCase(" tray");
357 (^|" ")"truck" changeCase(" truk");
358 (^|" ")"tuesday" changeCase(" chewsdy");
359 (^|" ")"twelve" changeCase(" twayulv");
360 (^|" ")"twenty" changeCase(" twindy");
361 (^|" ")"two " changeCase(" tew ");
362 (^|" ")"understand" changeCase(" understaynd");
363 (^|" ")"used to" changeCase(" ustuh");
364 (^|" ")"vehicle" changeCase(" vee-hicul");
365 (^|" ")"victory" changeCase(" viktray");
366 (^|" ")"violation" changeCase(" vahlayshun");
367 (^|" ")"virtual" changeCase(" vurchul");
368 (^|" ")"want to " changeCase(" wonna ");
369 (^|" ")"was that" changeCase(" wuzzat");
370 (^|" ")"was" changeCase(" wuz");
371 (^|" ")"wash" changeCase(" wartch");
372 (^|" ")"water" changeCase(" warder");
373 (^|" ")"we " changeCase(" way ");
374 (^|" ")"wedding" changeCase(" wedden");
375 (^|" ")"wednesday" changeCase(" winsdy");
376 (^|" ")"well" changeCase(" wayul");
377 (^|" ")"were " changeCase(" wuz ");
378 (^|" ")"west " changeCase(" wayust ");
379 (^|" ")"what did you" changeCase(" whudja");
380 (^|" ")"what did" changeCase(" whuddle");
381 (^|" ")"what do you" changeCase(" wadja");
382 (^|" ")"what is the matter" changeCase(" smatter");
383 (^|" ")"what is"|" what's" changeCase(" whut");
384 (^|" ")"what" changeCase(" whut");
385 (^|" ")"wheel" changeCase(" whale");
386 (^|" ")"when" changeCase(" wheyun");
387 (^|" ")"where did you" changeCase(" whardja");
388 (^|" ")"where" changeCase(" whar");
389 (^|" ")"where" changeCase(" whayer");
390 (^|" ")"white" changeCase(" wot");
391 (^|" ")"why don't you" changeCase(" y-oncha");
392 (^|" ")"why" changeCase(" wha");
393 (^|" ")"wife" changeCase(" waf");
394 (^|" ")"window" changeCase(" wender");
395 (^|" ")"winter" changeCase(" winner");
396 (^|" ")"wire" changeCase(" war");
397 (^|" ")"with you" changeCase(" witchew");
398 (^|" ")"woman" changeCase(" whoamun");
399 (^|" ")"women" changeCase(" wimmen");
400 (^|" ")"world" changeCase(" warld");
401 (^|" ")"worse than" changeCase(" worsun");
402 (^|" ")"yard" changeCase(" chard");
403 (^|" ")"yellow" changeCase(" yuller");
404 (^|" ")"yes" changeCase(" u-betcha");
405 (^|" ")"yes" changeCase(" yayus");
406 (^|" ")"you " changeCase(" yawl ");
407 (^|" ")"your are"|" you're" changeCase(" yore");
408 (^|" ")"your" changeCase(" chur");
409 .|'\n' ECHO;
410 %%
411 main()
412 {
413 yylex();
414 }
415
416 void changeCase(word)
417 char *word;
418 {
419 extern char *yytext;
420
421 /* change o/p to upper/lower based on original text */
422 if (isupper(*(yytext+1)) && islower(*(word+1)))
423 *(word+1) = toupper(*(word+1));
424
425 printf(word);
426 }
This page took 0.037902 seconds and 4 git commands to generate.