1-
21# Set arithmetic operator modules. Default is the first module in the list.
32set deferred_cells {
43 {
@@ -18,33 +17,33 @@ set deferred_cells {
1817}
1918
2019# Reorder the modules based on envar
21- proc reorder_deferred_cells {deferred_cells_var index env_var} {
22- upvar $deferred_cells_var deferred_cells
20+ proc reorder_deferred_cells { deferred_cells_var index env_var } {
21+ upvar $deferred_cells_var deferred_cells
2322
24- if {![info exists ::env($env_var )]} {
25- return
26- }
23+ if { ![info exists ::env($env_var )] } {
24+ return
25+ }
2726
28- set cell_def [lindex $deferred_cells $index ]
27+ set cell_def [lindex $deferred_cells $index ]
2928
30- # Build lookup dict
31- set choice_map {}
32- foreach choice [lrange $cell_def 2 end] {
33- dict set choice_map [lindex $choice 0] $choice
34- }
29+ # Build lookup dict
30+ set choice_map {}
31+ foreach choice [lrange $cell_def 2 end] {
32+ dict set choice_map [lindex $choice 0] $choice
33+ }
3534
36- # Build new choices
37- set new_choices {}
38- foreach name [split $::env($env_var) ] {
39- if {[dict exists $choice_map $name ]} {
40- lappend new_choices [dict get $choice_map $name ]
41- } else {
42- puts " Warning: Unknown choice '$name ' ignored for $env_var "
43- }
35+ # Build new choices
36+ set new_choices {}
37+ foreach name [split $::env($env_var) ] {
38+ if { [dict exists $choice_map $name ] } {
39+ lappend new_choices [dict get $choice_map $name ]
40+ } else {
41+ puts " Warning: Unknown choice '$name ' ignored for $env_var "
4442 }
43+ }
4544
46- # Replace cell
47- lset deferred_cells $index [linsert $new_choices 0 {*}[lrange $cell_def 0 1]]
45+ # Replace cell
46+ lset deferred_cells $index [linsert $new_choices 0 {*}[lrange $cell_def 0 1]]
4847}
4948
5049# Apply custom orders
0 commit comments