Использование расширения аргумента {*} с более чем одним оператором

Question

Я использую {*} в tcl для расширения аргументов и сталкиваюсь с этой проблемой.

#!/usr/bin/tclsh 

set reset { 
     set count 0; 
     set age 24; 
} 

puts $reset 

eval $reset; # This is working fine. Commented out the below line and tried 

{*}$reset; # This is throwing error. Commented out the above line and tried. 

if { [ info exists count ] && [ info exists age ] } { 
     puts "count & age initialzed to $count and $age" 
} else { 
     puts "count & age not initialzed :(" 
} 

Как вы видите, у меня есть переменная сброса определяется и я оценка с eval, а также с {*}.

Хотя eval работает отлично, {*} бросает ошибку как

wrong # args: should be "set varName ?newValue?" 
    while executing 
"{*}$reset" 

Тогда я изменил переменную reset следующим образом,

set reset { 
      set count 0; 
    } 

т.е. я удалил 2-ое set заявление и код работает отлично.

Почему {*} работает нормально с одним утверждением и не более чем с этим? Или что мне здесь не хватает?

Answer 1

Команда облегченного eval и uplevel (и while и if и т.д.) может оценивать сценарии, то есть струны/списки, которые состоят из нуля или более командных вызовов. Когда вы вызываете {*}$reset, вы получаете шесть слов вместо одного, но интерпретатор все еще ожидает одного вызова команды. Фактически вызывается команда set с пятью аргументами, и команда будет неактуальна.

Расширение слова на несколько слов работает до тех пор, как формы расширения точно одна команда вызова:

set foo bar 
# => bar 

Слишком мало слов:

set cmd set 
# => set 
{*}$cmd 
# => wrong # args: should be "set varName ?newValue?" 

Слишком много слов:

set cmd {set foo baz ; set abc def} 
# => set foo baz ; set abc def 
{*}$cmd 
# => wrong # args: should be "set varName ?newValue?" 

Право:

set cmd {set foo} 
# => set foo 
{*}$cmd 
# => bar 
set cmd {set foo baz} 
# => set foo baz 
{*}$cmd 
# => baz 

Также впору:

set cmd set 
# => set 
{*}$cmd ghi jkl 
# => jkl 
set cmd {set mno} 
# => set mno 
{*}$cmd pqr 
# => pqr 

Документация: eval, if, set, {*}, uplevel, while