Lines Matching refs:code

108     foreach {code char flag} $m {}
110     if {$code && $char == ""} { lappend lCode $code }
344   foreach code [lsort -integer [array names tl_lookup_table]] {
345     set mapping $tl_lookup_table($code)
347       set iFirst $code
348       set nOff   [expr $mapping - $code]
352       set diff [expr $code - ($iFirst + ($nIncr * ($nRange - 1)))]
357       if {$diff != $nIncr || ($mapping - $code)!=$nOff} {
360         set iFirst $code
361         set nOff   [expr $mapping - $code]
545 proc code {txt} {  procedure
620   puts [code {
698   puts [code {
766   puts [code {