Changeset 1130 for trunk

Timestamp:

12/20/11 18:59:06 (5 months ago)

Author:

james

Message:

add a bunch of debug

File:

• trunk/plugins/en/output_colloquial.tcl (modified) (7 diffs)

trunk/plugins/en/output_colloquial.tcl

@@ -25 +25 @@
   if [bMotion_plugin_output_colloq_chance $colloq_rate] {
     regsub -all -nocase "\mshould( have|\'ve| of)\M" $line [bMotion_abstract_get "colloq_shouldhave"] line
+                if {$line == ""} {
+                        putlog "colloq plugin killed output: 1"
+                }
   }
 
   if [bMotion_plugin_output_colloq_chance $colloq_rate] {
     regsub -all -nocase "\mshouldn't( have|\'ve| of)\M" $line [bMotion_abstract_get "colloq_shouldhavenot"] line
+                if {$line == ""} {
+                        putlog "colloq plugin killed output: 2"
+                }
   }
 
@@ -34 +40 @@
     regsub -all -nocase "sort of" $line "sorta" line
     regsub -all -nocase "something" $line "sommat" line
+                if {$line == ""} {
+                        putlog "colloq plugin killed output: 3"
+                }
   }
 
@@ -40 +49 @@
     regsub -all -nocase "seam" $line "seem" line
     regsub -all -nocase "mean" $line "meen" line
+                if {$line == ""} {
+                        putlog "colloq plugin killed output: 4"
+                }
   }
 
@@ -46 +58 @@
     regsub -all -nocase "separate" $line "seperate" line
     regsub -all -nocase "definitely" $line "definately" line
+                if {$line == ""} {
+                        putlog "colloq plugin killed output: 5"
+                }
   }
 
@@ -51 +66 @@
     regsub -all -nocase {\myou\M} $line [bMotion_abstract_get "colloq_you"] line
     regsub -all -nocase {\myour\M} $line [bMotion_abstract_get "colloq_your"] line
+                if {$line == ""} {
+                        putlog "colloq plugin killed output: 6"
+                }
   }
 
   if [bMotion_plugin_output_colloq_chance $colloq_rate] {
     regsub -all -nocase "n't" $line "nt" line
+                if {$line == ""} {
+                        putlog "colloq plugin killed output: 7"
+                }
   }
 
@@ -74 +95 @@
   }
   set line $newLine
+                if {$line == ""} {
+                        putlog "colloq plugin killed output: 8"
+                }
 
   #don't waste time updating if the line didn't change
@@ -79 +103 @@
     return $oldLine
   }
+
+        if {$line == ""} {
+                putlog "colloq plugin recovering output"
+                return $oldLine
+        }
 
   return [string trim [bMotionDoInterpolation $line "" ""]]