Changeset 1125

Timestamp:

12/15/11 12:18:26 (5 months ago)

Author:

james

Message:

Resurrect typofix stuff

Location:

trunk

Files:

• modules/output.tcl (modified) (1 diff)
• modules/variables.tcl (modified) (1 diff)
• plugins/en/output_typos.tcl (modified) (2 diffs)

trunk/modules/output.tcl

@@ -304 +304 @@
                         break
                 }
-                #set typosDone [bMotion_plugins_settings_get "output:typos" "typosDone" "" ""]
-                #bMotion_putloglev 2 * "bMotion: typosDone is !$typosDone!"
-                ## TODO: fix this
-                #if {$typosDone != ""} {
-                #       bMotion_plugins_settings_set "output:typos" "typosDone" "" "" ""
-                #       if [rand 2] {
-                #               bMotionDoAction $channel "" "%VAR{typoFix}" "" 1
-                #       }
-                #       bMotion_plugins_settings_set "output:typos" "typos" "" "" ""
-                #}
+                global bMotion_typo_mutex bMotion_typos
+
+                if {$bMotion_typo_mutex == ""} {
+                        set bMotion_typo_mutex "locked"
+                        if [llength $bMotion_typos] {
+                                set output [join $bMotion_typos]
+                                bMotionDoAction $channel $output "%VAR{typoFix}" "" 1
+                                set bMotion_typos [list]
+                        }
+                        set bMotion_typo_mutex ""
+                }
         }
         return 0
 }
 
+
+proc bMotion_add_typofix { fix } {
+        global bMotion_typos bMotion_typo_mutex
+
+        if {$bMotion_typo_mutex != ""} {
+                return
+        }
+
+        lappend bMotion_typos $fix
+}
 
 # 

trunk/modules/variables.tcl

@@ -63 +63 @@
 set bMotionCache(randomUser) ""
 
+set bMotion_typos [list]
+set bMotion_typo_mutex ""
+
 bMotion_plugins_settings_set "system" "lastPlugin" "" "" ""
 bMotion_plugins_settings_set "system" "last_simple" "" "" ""

trunk/plugins/en/output_typos.tcl

@@ -139 +139 @@
         if {[rand 100] > $typochance} {
                 #don't typo at all
+                bMotion_putloglev 2 * "Not doing typos for $line"
                 return $line
         }
@@ -183 +184 @@
 
 proc bMotion_plugin_output_typos_adderror { channel err } {
-  set currentErr [bMotion_plugins_settings_get "output:typos" "typos" "" ""]
-  if {$currentErr == ""} {
-    set currentErr $err
-  } else {
-    append currentErr " $err"
-  }
-  bMotion_plugins_settings_set "output:typos" "typos" "" "" $currentErr
+        bMotion_add_typofix $err
 }