Возвращение некоторой переменной из «прок» в Tcl

Question

Предположим, что процедура в Tcl выглядит следующим образом:

proc Section {ID x y} { 
. 
. 
"Some calculations do here" 
. 
. 
} 

Section 1 20 30 
Section 2 25 35 
Section 3 30 40 
Section 4 35 45 

Теперь я определяю это:

set IDsection {1 3} 

Тогда, я хотел бы прочитать все значения (произвольное число, 2 или более) в наборе (IDsection), который будет показывать идентификатор в вышеописанной процедуре и генерировать соответствующий y:

set Load {30 40} 

Как я могу получить значения в {} перед «Загрузка»?

Answer 1

Вы можете сделать это следующим образом:

proc Section {ID x y} { 
    set ::section_data($ID) [list $x $y] 
} 

proc getLoads {ids} { 
    global section_data 
    foreach id $ids { 
     lappend loads [lindex $section_data($id) end] 
    } 
    return $loads 
} 

Section 1 20 30 
Section 2 25 35 
Section 3 30 40 
Section 4 35 45 

set IDsection {1 4 1 3} 

set Load [getLoads $IDsection] ;# => 30 45 30 40