Changeset 1032 for trunk/plugins/en/output_VAR.tcl

Timestamp:

09/11/09 06:26:45 (3 years ago)

Author:

james

Message:

support bothmixin option too

File:

• trunk/plugins/en/output_VAR.tcl (modified) (4 diffs)

trunk/plugins/en/output_VAR.tcl

@@ -24 +24 @@
 proc bMotion_plugin_output_VAR { channel line } {
         bMotion_putloglev 4 * "bMotion_plugin_output_VAR $channel $line"
-        global BMOTION_MIXIN_NONE BMOTION_MIXIN_REVERSE BMOTION_MIXIN_DEFAULT
+        global BMOTION_MIXIN_NONE BMOTION_MIXIN_REVERSE BMOTION_MIXIN_DEFAULT BMOTION_MIXIN_BOTH
 
         set line [string map { "%noun" "%VAR{sillyThings}" } $line]
@@ -56 +56 @@
                         bMotion_putloglev 1 * "mixin type for $abstract is none"
                         set mixin_type $BMOTION_MIXIN_NONE
+                } elseif {[lsearch $options_list "bothmixin"] > -1} {
+                        bMotion_putloglev 1 * "mixin type for $abstract is both"
+                        set mixin_type $BMOTION_MIXIN_BOTH
                 }
 
@@ -74 +77 @@
                         set replacement $newText
                 }
-
 
                 if {[lsearch $options_list "strip"] == -1} {
@@ -118 +120 @@
                                 }
                                 "plural" {
+                                        bMotion_putloglev 1 * "pluralising $replacement"
                                         set replacement [bMotionMakePlural $replacement]
                                 }