TCL error

[NewDlac]

I am getting the following error in a TCL statement...

[xlt :xlat:ERR /0: ba13_xlate:04/11/2007 15:46:49] Tcl error:
msgId = message0
proc = 'backslash_sub'
args = ''
result = 'extra switch pattern with no body, this may be due to a comment incorrectly placed outside o
f a switch body - see the "switch" documentation'
errorInfo: '
extra switch pattern with no body, this may be due to a comment incorrectly placed outside of a switch body - s
ee the "switch" documentation
while executing
"switch -exact -- $mode {
start {
return "" ;# Nothing specific
}

run {
# The following lines will e..."
(procedure "backslash_sub" line 5)
invoked from within
"backslash_sub {MSGID message0} {CONTEXT xlt_pre} {ARGS {}} {MODE run} {VERSION 3.0}"'


has anyone seen this error, before

 

[ulis]

Seems to me that you did some mistake with the switch syntax.

The switch command can use two syntaxes.
The error message said that you used the first.

Here is a correct use of this syntax:

  switch -glob -- $mode \
  {
    start { return ""; # a comment }
    run    
    {
      # a comment
      a command
    }
    default { ... }
  }

Here is a faulty use of this syntax:

  switch -glob -- $mode \
  {
    start { return ""; # a comment }
    # a comment outside of any inner script
    default { ... }
  }

The error message said that you did it! ;-)

More info at:

http://wiki.tcl.tk/switch

HTH

ulis