5 lines
124 B
Tcl
5 lines
124 B
Tcl
|
proc enumerate {name values} {
|
||
|
|
interp alias {} $name: {} lsearch $values
|
||
|
|
interp alias {} $name@ {} lindex $values
|
||
|
|
}
|