Changeset 1085 for trunk/plugins/en/output_demon.tcl

Timestamp:

09/02/10 16:53:40 (21 months ago)

Author:

james

Message:

updates to demon output plugin
fix some plurals

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([^aeiuo])} $word {\1y\2} word
                 regsub -all {c?k\M} $word {q} word
+
                 regsub -all {o([b-df-hj-np-tv-xz])e(s|ing)?\M} $word {oa\1\2} word
 
@@ -36 +38 @@
 
                 #other special cases to fix
-                set word [string map -nocase { soam some } $word]
+                set word [string map -nocase { soam some someoan someone } $word]
+
+                regsub -all {le(s)?\M} $word {al\1} word
 
                 # moving on...