kraut.dir/kraut.l

   1 %e 2000
   2 %p 5000
   3 %n 1000
   4 %k 500
   5 %a 4000
   6 %o 2000
   7 BW [      ]
   8 EW [      .,;!?]
   9
  10 %{
  11      char buf[128];
  12
  13 %}
  14
  15 %%
  16 ing                  return("ingkt");
  17 " the "             return(" ze ");
  18 "The "              return("Ze ");
  19 " with "            return(" mitt ");
  20 "With "             return("Mitt ");
  21 wr                  return("w-r-r");
  22 Wr                  return("W-r-r");
  23 R                   return("R-r-r");
  24 "Yes "              return("Jawohl ");
  25 " r"                return(" r-r-r");
  26 "Yes."              return("Jawohl.");
  27 "Yes!"              return("Jawohl!");
  28 "YES!"              return("JAWOHL!");
  29 " yes "             return(" ja ");
  30 " yes."             return(" ja.");
  31 " yes!"             return(" yes!");
  32 "No "               return("Nein ");
  33 "No!"               return("Nein!");
  34 "No?"               return("Nein?");
  35 " no "              return(" nein ");
  36 " no."              return(" nein.");
  37 " no!"              return(" nein!");
  38 " no?"              return(" nein?");
  39 [Mm]"r."            return("Herr");
  40 [Mm]"rs."           return("Frau");
  41 Miss                return("Fraulein");
  42 " of "              return(" uff ");
  43 "Of "               return("Uff ");
  44 my                  return("mein");
  45 My                  return("Mein");
  46 " and "             return(" undt ");
  47 "And "              return("Undt ");
  48 "One "              return("Ein ");
  49 " one"              return(" ein");
  50 "Is "               return("Ist ");
  51 " is "              return(" ist ");
  52 "ow "               return("ow ");
  53 "w "                return("w ");
  54 sh                  return("sch");
  55 Sh                  return("Sch");
  56 ch                  return("ch");
  57 Ch                  return("Ch");
  58 " c"                return(" k");
  59 " C"                return(" K");
  60
  61 v                   return("f");
  62 V                   return("F");
  63 " w"                return(" v");
  64 W                   return("V");
  65 th                  return("d");
  66 Th                  return("D");
  67 [Jj]ohn             return("Johann");
  68 [Ww]illiam          return("Wilhelm");
  69 [Bb]rad             return("Wilhelm");
  70 [Gg]ary             return("Gerhardt");
  71 [Jj]on              return("Hansel");
  72
  73 [a-f]"!"       {sprintf(buf,"%s Naturlich!",yytext);return(buf);}
  74 [p-z]"!"       {sprintf(buf,"%s Sieg Heil!",yytext);return(buf);}
  75 .              return(yytext);
  76 \n             return("\n");
  77
  78 %%
  79
  80