Как создать список tcl из списка в tcl?

Question

У меня есть список объектов в переменной хранится в виде $ m_objs с использованием каждого объекта я могу получить 4 различных значения, как demoRoot demoSuite demoCase и гс, так что каждый из них должен быть список список, как это:

set data { 
    {demoRoot1 demoSuite1 demoCase1 ic1} 
    {demoRoot2 demoSuite2 demoCase2 ic2} 
    {demoRoot3 demoSuite3 demoCase3 ic3} 
    {demoRoot4 demoSuite4 demoCase4 ic4} 
    {demoRoot5 demoSuite5 demoCase5 ic5} 
    {demoRoot5 demoSuite5 demoCase5 ic5} 
} 

Таким образом, я попытался с помощью Еогеаспа цикла, как это:

set tests [list] 

foreach ic $m_ics \ 
{ 
    set icRoot [$ic getRoot] 
    set icSuite [$ic getSuite] 
    set icCase [$ic getCase] 
    set icName [$ic getName] 
    set icList "$icRoot $icSuite $icCase $icName" 
    lappend tests $icList 
} 

выхода я получаю только для одной итерации, как этого

puts $icList 
PTSE2 actions misc rmon_counters 

но OUTP ут должны быть получены, как я уже говорил, как set data {...........}

Пожалуйста, помогите мне получить этот

Answer 1

Измените эту строку:

set icList "$icRoot $icSuite $icCase $icName" 

к:

set icList [list $icRoot $icSuite $icCase $icName] 

Это создаст icList как вместо строки, и будет добавлен в список tests в виде списка.

Список литературы: list