如何在字符串中調用函數的TCL

Question

的情況下進行擴展我怎樣才能在下面的腳本執行expand（擴大命令和變量，如TCL正常），我希望它打印出來：

' 
    hello { 
     $b 
    } 
    {tcl world} 
' 

這就是我想象中的腳本將看：

proc clever_func {script} { 
    set script [uplevel 1 expand [list $script]] 
    puts "'$script'" 
} 

proc isolated_client_function {} { 
    set a hello 
    set b difficult 
    set c tcl 
    set d world 

    clever_func { 
     $a { 
      $b 
     } 
     [list $c $d] 
    } 
} 

isolated_client_function 

Answer 1

一個例子是不足夠的替代品的規範，但似乎沒有內置的TCL工廠做你想要什麼。可以在單個命令尾部（通過將list添加到某個命令並將eval添加到您希望的任何級別）進行替換，但不能對具有兩個「命令」的僞腳本執行替換。 （也可以使用subst做字符串插值，但您可能已經知道它爲什麼不是您想要的：它也將擴展爲$b）。

我看到兩種可能得到你想要的東西：

1. 記號化使用sugar::scriptToList您的輸入，然後在標記列表中手動執行替換，然後將結果轉換回文本形式sugar::listToScript。 sugar宏處理器的這些功能旨在讓您在保留格式，註釋和佈局的同時語義上修改腳本。

2. 打破你輸入成單獨的「命令」：先拆每個換行和分號，然後用info complete收集完成相應「命令」件（IIRC會有一些角落例反斜槓換行符延續：當心）。在每個完整的「命令」中，使用前面加上"list "的技巧，在必要的上下文中評估結果（uplevel）。因此，對於每個命令，您將得到一個列表，其中在適用時已經執行了替換。每個「命令」內部都會失去格式的細微差別（比如分隔單詞和空間類型的空格數量），並且除非您自己記住它們，否則將失去原始命令分隔符。如果您的目標是在稍後的某個其他環境中獲得一種「預擴展腳本」，則對您而言可能並不壞。

Answer 2

subst命令將帶你到那裏的大部分。

proc expand {script} { 
    uplevel 1 [list subst $script] 
} 

set a hello 
set b difficult 
set c tcl 
set d world 

expand { 
    $a { 
     $b 
    } 
    [list $c $d] 
} 

輸出

hello { 
     difficult 
    } 
    tcl world 

我不知道把我的頭頂部如何防止$b被取代。您可能必須自己解析腳本。

如果你想在最後一部分有你展示報價，你需要列表岬的另一個層面

expand { 
    $a { 
     $b 
    } 
    [list [list $c $d]] 
} 

輸出

hello { 
     difficult 
    } 
    {tcl world}