Changeset 1098

Timestamp:

12/03/10 12:20:54 (18 months ago)

Author:

james

Message:

fix some errors in english fixing plugin

File:

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

trunk/plugins/en/output_english.tcl

@@ -53 +53 @@
     #captials at start, . at end
     if [regexp {^([a-z])(.+)} $line matches first rest] {
-      set line "[string toupper $first]$rest"
+                        if {!([string range $line 0 1] == "r ")} {
+                                set line "[string toupper $first]$rest"
+                        }
     }
 
@@ -65 +67 @@
         regsub -all "you is " $line "you are " line
 
-        regsub -all "the an?" $line "the" line
+        regsub -all "the an? " $line "the " line
 
         #fix double (or more) spaces