如何在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)

这不是非常有效！