如何在tcl中創建枚舉數據類型？

Question

我想創建一個枚舉數據類型。採用以下格式。

set module { 
    0 { type { XXX} 
     type_name { yyy} 
     inst_name {ppp} 
     lib {jjjj } 
     is_cw {0/1} 
     pll_to_top { merged/propogated} 
    } 

    1 { type {....} 
     type_name {......} 
     inst_name {........} 
     lib {......} 
    } 

    2 ...... 

} 

任何幫助將不勝感激。

Answer 1

這看起來像一本字典（在Tcl 8.5中引入）。您在幾乎你寫在那裏的形式創建它們，然後你可以看看他們了：

set zero_lib [dict get $module 0 lib] 

---

另外，如果你在8.4卡住後面，那麼你做的事：

array set ary $module 
array set subary $ary(0) 
set zero_lib $subary(lib) 

這不是非常有效！