/* -*- LPC -*- */
/*
* $Locker: $
* $Id: chef_mangle.c,v 1.1 1998/01/06 04:02:57 ceres Exp $
* $Log: chef_mangle.c,v $
* Revision 1.1 1998/01/06 04:02:57 ceres
* Initial revision
*
*/
/* chef.x - convert English on stdin to Mock Swedish on stdout
*
* The WC definition matches any word character, and the NW definition matches
* any non-word character. Two start conditions are maintained: INW (in word)
* and NIW (not in word). The first rule passes TeX commands without change.
*
* HISTORY
*
* Apr 15, 1992; John Hagerman: Created.
*/
/*
* Taken from the above and converted into lpc by Pinkfish.
*/
string *replace_matrix;
void create() {
replace_matrix = ({
"the", "zee",
"The", "Zee",
"ir", "ur",
"ow", "oo",
"th", "t",
"au", "oo",
"Au", "Oo",
"u", "oo",
"U", "Oo",
"tion", "shun",
"an", "un",
"An", "Un",
"en ", "ee ",
"ew", "oo",
"a", "e*",
"A", "E*",
"e* ", "e ",
"E* ", "E ",
"e*", "e",
"E*", "E",
"e ", "e-a ",
"f", "ff",
" o", " oo",
" O", " Oo",
"v", "f",
"V", "F",
"w", "v",
"W", "V", });
} /* create() */
string do_transmute(string str) {
return replace(" "+str, replace_matrix)[1..10000];
} /* do_transmute() */
