Changeset 1089

Timestamp:

09/08/10 17:32:17 (21 months ago)

Author:

james

Message:

fix enid

File:

• trunk/plugins/en/output_demon.tcl (modified) (2 diffs)

trunk/plugins/en/output_demon.tcl

@@ -27 +27 @@
         foreach word $words {
 
-                regsub -all {([^aeiou])i([^aeinuoy])} $word {\1y\2} word
                 regsub -all {c?k\M} $word {q} word
 
@@ -39 +38 @@
                 #other special cases to fix
                 set word [string map -nocase { soam some someoan someone } $word]
+
+                # [@     enid] i can not be represented by mere regexps.
+                set word [string map -nocase { chick chyq } $word]
 
                 regsub -all {le(s)?\M} $word {al\1} word