Changeset 1068

Timestamp:

02/01/10 17:35:17 (2 years ago)

Author:

james

Message:

improve welsh plugin a bit

File:

• trunk/plugins/en/output_welsh.tcl (modified) (1 diff)

trunk/plugins/en/output_welsh.tcl

@@ -41 +41 @@
                 }
 
+                if {![regexp -nocase {^[a-z0-9']+$} $word]} {
+                        append newline "$word "
+                        continue
+                }
+
                 #delete the vowels
                 regsub -nocase -all {[aeiou]} $word "" word
 
                 #randomise letters
-                set letters [split $word {}]
-                set newword ""
-                while {[llength $letters] > 0} {
-                        set index [rand [llength $letters]]
-                        append newword [lindex $letters $index]
-                        set letters [lreplace $letters $index $index]
+                if [regexp -nocase {^[a-z]+$} $word] {
+                        set letters [split $word {}]
+                        set newword ""
+                        while {[llength $letters] > 0} {
+                                set index [rand [llength $letters]]
+                                append newword [lindex $letters $index]
+                                set letters [lreplace $letters $index $index]
+                        }
+                } else {
+                        set newword $word
                 }