Changeset 1034 for trunk/plugins/en/output_REPEAT.tcl

Timestamp:

09/11/09 15:30:40 (3 years ago)

Author:

james

Message:

fix %REPEAT to be a lot less broken

File:

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

trunk/plugins/en/output_REPEAT.tcl

@@ -17 +17 @@
         if {[regexp -nocase "%REPEAT\{(.+?)\}" $line matches BOOM]} {
                 set replacement [bMotionMakeRepeat $BOOM]
-                regsub -nocase "%REPEAT\\{$BOOM\\}" $line $replacement line
+                putlog "replacement is $replacement"
+                set location [string first $matches $line]
+                if {$location == -1} {
+                        # something's broken
+                        return ""
+                }
+                putlog "location is $location"
+                putlog "matches is $matches"
+                set line [string replace $line $location [expr $location + [string length $matches] - 1] $replacement]
+                putlog "line is now $line"
         }
         return $line