c++ - 在 python 或 c++ 中获取全局 tcl 数组

Question

我需要从 tcl 文件(tcl 中保存的变量)导入现有信息，但我对 tcl 一点也不熟悉。我需要一个简单的解决方案(简短)，它不需要非常强大。 我有一个定义全局的 tcl 文件。这是一个小片段:

测试.tcl:

global gP
set gP(1,1) {-2.77577 -2.66083 14.6978}
set gP(1,2) {-2.2751 -1.91189 13.5285}
set gP(1,3) {-1.46855 -1.21695 11.8953}
...
set gP(1,spline) [list \
  {p (-0.005623,0.225326,4.821360) t (-0.155507,0.806054,-0.571047) tx (0.000000,0.578079,0.815981)} \{p (-0.006889,0.231865,4.816766) t (-0.156976,0.809595,-0.565609) tx (0.000000,0.572709,0.819758)} \
...
  {p (2.224570,6.136620,-6.119510) t (0.901583,0.422393,0.093441) tx (0.000000,0.215995,-0.976394)} \
  ]
...
set gP(1,4) {-0.673205 -0.728409 10.3576}
set gP(1,5) {-0.261822 -0.476418 9.47673}
set gP(1,name) {path1}
...

我想做的是从 python 或 c++ 运行 tcl 以生成该语言的 gP。所以像(在 python 中:)

from Tkinter import Tcl
MYFILE = 'test.tcl'
tcl = Tcl()
gP = tcl.evalfile(MYFILE)

我的最终目标是将它变成 c++，但我不需要所有的 gP。到目前为止，我在执行此操作时遇到的一个问题是 gP 是一个数组，因此不会在 Tkinter 中以正常方式返回。

这不需要很优雅，我只会用一两次。我愿意在 python 中操作变量，在文本(或 CSV)文件中打印出我需要的内容，然后将其读入 C++ 以填充变量。

编辑

按照 patthoyts 描述的那样做是一个非常好的开始!我想我需要一个(或两个级别的解析？

我已经这样做了(gPathPoints 和 gP 相同，只是变量名不同):

a  = eval(tcl.eval('''set r {};
  foreach k [array names gPathPoints] {
    lappend r "'$k': '$gPathPoints($k)'"
  };
  set r "{[join $r ,]}"
  '''))

Python 吐出一本不错的字典，但键有点古怪:

'100,0': '-2.939 -3.02 15.136',
'100,1': '-2.77577 -2.66083 14.6978',
'100,10': '-0.00681104 0.408274 3.53018',
...

我可能可以用一个简单的 c++ 方法解决这个问题，但我认为以下在 tcl 中会更容易:

'100,spline': '{p (-2.939000,-3.020000,15.136000) t (0.242924,0.657821,-0.712923) tx (0.000000,0.734938,0.678134)} {p (-2.934674,-3.008616,15.123467) t (0.250593,0.647200,-0.719955) tx (0.000000,0.743684,0.668531)}

Answer 1

使用 python :

from Tkinter import *
# create an array in tcl
tk.eval('array set a {a 1 b 2 c 3 d "4 5 6"}')
s = tk.eval('array get a')

这会将数组作为字符串返回，但使用的是 tcl 列表格式:'d {4 5 6} a 1 b 2 c 3' 因此您需要稍微重新解析一下。您可以很容易地在 Tcl 中进行解析，将其转换为 Python 字典:

a  = eval(tk.eval('''set r {};
  foreach k [array names a] {
    lappend r "'$k': '$a($k)'"
  };
  set r "{[join $r ,]}"
  '''))

使用上面的示例代码会产生:

>>> a
{'a': '1', 'c': '3', 'b': '2', 'd': '4 5 6'}
>>> a['d']
'4 5 6'
>>>

如果数组值中嵌入了引号，则您必须更加小心地处理引号，但这也足够简单。

在 C++ 中，我认为您还可以评估 array get $varname 以获取 Tcl 列表对象。然后您可以使用 Tcl_ListObjGetElements 遍历键值对列表。及相关功能。