This is an empty page.
Enter page contents here, upload content using the button above, or click cancel to leave it empty.
Case Insensitive TCL commands
Some days back I faced an issue with writing case insensitive procedure names. i.e
proc abc {} {
puts "Called function abc() .."
}This should work with other 7 variants abc, abC, aBc, aBC, Abc, AbC, aBc.
The solution to this could be to use the unknown function in TCL.
# define the original command name list.
set orig_cmd_names [list abc]
# Rename the original unknown to unknown_orig
rename unknown unknown_orig
# Define a customized unknown procedure.
proc unknown {args} {
set cmd [lindex $args 0]
global orig_cmd_names
foreach oCmd $orig_cmd_names {
if {[regexp -nocase ^($oCmd)$ $cmd]} {
# Found the command .. !, new execute it in global scope
set result [uplevel #0 $oCmd [lrange $args 1 end]]
return -code ok $result
}
}
# Not found .. :-(, call the base unknown function.
unknown_orig $args
}
%abC
Called function abc() ..
%Abc
Called function abc() ..