Easy Question

[Ati2ude]

I am trying to write a TCL proc and pass a list of args to the proc when it is called, I am not doing something correctly. I have attached my code example and the error I recieve. Any ideas? Thanks in advance.


How I am calling it:
xlt_parse_field "DELIM - MSG 0 STRNUM 0"

Code:
proc xlt_parse_field { args } {
keylget args ARGS.DELIM inDelim
keylget args ARGS.MSG inMSG
keylget args ARGS.STRNUM inStrNum
echo "Delim: $inDelim"
echo "MSG: $inMsg"
echo "StrNum: $inStrNum"
}


Error:
errorInfo:
no value given for parameter "DELIM" to "xlt_parse_field"
while executing
"xlt_parse_field "DELIM - MSG 0 STRNUM 0""
<End of errorInfo>

 

[ulis]

This doesn't seem Tcl code.

ulis

 

[Ati2ude]

I am using TCL with in a Interface Engine (CloverLeaf).

 

[ulis]

I don't know this tool.
My best guest to help you:
Try

 xlt_parse_field DELIM - MSG 0 STRNUM 0

(without quotes).

HTH

ulis

 

[Ati2ude]

The proc command can acept a list of arguments, correct? If so, what is the correct format to pass the arguments to the proc?

Thanks for you help thus far.

 

[ulis]

Any argument of a proc can be a list:

  proc p1 {arg1 listarg}   {
    set var $arg1
    foreach item $listarg { puts $item }
  }
  p1 an_arg [list a list of args]
->a
->list
->of
->args

A special case is the last parameter: if its name is args it collects the last args not already collected in a list:

  proc p2 {arg1 args}   {
    set var $arg1
    foreach arg $args { ... }
  }
  p2 an_arg a list of args
->a
->list
->of
->args

So: the definition of your proc is correct (you used args to collect all args in the list). The use of your proc is not correct (you used a single string containing all the args in place of letting the args for its own)

More on the proc syntax:

http://mini.net/tcl/proc

(specifically in the section Order of arguments)

HTH

ulis

 

[Ati2ude]

That is what I needed. Thanks for the pointer to that web page, it actually answered my next question on overloading.

Thanks again for your help.