Tcl Eval Trouble Calling Namespace

[Jerry Tilsley]

All,

I have the following code


if {$type == “support”} {
set result [eval “SCRLibraryEDM_support::WriteEDMHeader” {$doctype $foldertype $foldername $filename $facname $acctno $servdate $mrn $docdescrip $processed}]
echo “<$result>”
}
[/code.

but would rather do something like this:

[code]
set result [eval SCRLibraryEDM_$type::WriteEDMHeader {$doctype $foldertype $foldername $filename $facname $acctno $servdate $mrn $docdescrip $processed}]
[/code

But when I do that I get a tcl error saying “type::WriteEDMHeader” is not a valid variable.  Why is the substitution not working here?  Can someone provide me some hints as to the correct syntax?

Thanks,

Jerry[/code][code]
if {$type == “support”} {
set result [eval “SCRLibraryEDM_support::WriteEDMHeader” {$doctype $foldertype $foldername $filename $facname $acctno $servdate $mrn $docdescrip $processed}]
echo “<$result>“
}
[/code.

but would rather do something like this:

[code]
set result [eval SCRLibraryEDM_$type::WriteEDMHeader {$doctype $foldertype $foldername $filename $facname $acctno $servdate $mrn $docdescrip $processed}]
[/code

But when I do that I get a tcl error saying “type::WriteEDMHeader” is not a valid variable.  Why is the substitution not working here?  Can someone provide me some hints as to the correct syntax?

Thanks,

Jerry[/code]

Topic

[Ron Archambault]

Jerry,

Try putting { } around type.

SCRLibraryEDM_${type}::WriteEDMHeader

That should work for you.

[Jerry Tilsley]

Beautiful!  I had tried {$type} before but the brackets would stay.  So your thought of putting the $ outside of the brackets fixed it!

Thanks!

[Author]

Replies