问题标签 [tcl]

我对 TCL 相当陌生，并且正在为其他人开发的一些代码提供 QA（不是真的！）。在这个特定的程序中有很多很多全局变量，我有时会看到 upvar 被使用，通常与 global 结合使用。我知道 upvar 模拟传递引用，但是以下两个 procs 之间的实际区别是什么？

在我看来， myFirstProc 会更干净，而且 . 我在这里错过了什么吗？

任何人都可以帮助我如何在具有 n 个矩形障碍物的边界框区域中为空间绘制矩形吗？可能有任意数量的轴平行矩形障碍物，这不是一个独特的情况，因此需要考虑不同的极端情况。最好使用最大水平条算法吗？如何？

问题描述：

1.SUB1和SUB2是障碍物，你不会触及SUB1和SUB2的内部，你需要找到所有SUB外部的所有空闲区域，并从中创建矩形。

2.您将需要在空闲区域矩形上找到所有可能的矩形，并相应地从左到右扫过而不与SUB相交；

在这种情况下，最大水平空间矩形的总数应该是 7，或者通常是 3n+2（其中 n 是障碍物的数量）： alt text http://img25.imageshack.us/img25/452/pic1gts.png

替代文字 http://img22.imageshack.us/img22/3417/pic2h.png

替代文字 http://img16.imageshack.us/img16/5818/pic3h.png

替代文字 http://img13.imageshack.us/img13/2151/pic4.png

点击查看图片： http: //img25.imageshack.us/img25/452/pic1gts.png http://img22.imageshack.us/img22/3417/pic2h.png http://img16.imageshack.us/img16 /5818/pic3h.png http://img13.imageshack.us/img13/2151/pic4.png

我需要分发一些 TCL 代码作为企业应用程序的一部分，并且该代码必须可用于集群中的所有节点。由于安全策略，Tcl 解释器无法从文件系统访问 TCL 代码，因此我必须使其在 EAR 本身的 jar 中可用。

我怎样才能说服 Jacl（1.4.1，如果重要的话）在类路径上为包找到 pkgIndex.tcl？

我最近一直在期待，我一生都无法弄清楚如何对我传入的变量执行简单的加法。有人知道怎么做吗？另外，是否有不错的 Expect 在线参考资料？我试过用谷歌搜索，结果非常有限。

在 TCL 中，如果您使用 DOM 包（可在 ActiveState 发行版中获得），您可以创建一个 xml。

创建这个简单的 xml：

如何向 Tx_Frames 元素添加一些数据？

请注意，dom 包实际上是 libxml2 的包装器

我已经开始使用 Tcl 制作桌面应用程序的原型，并打算将这个想法展示给一些风险投资家。桌面应用程序和 Tcl 都不是流行的，所以我想准备好反驳对这项技术的任何反对意见。以下是我所看到的专业人士，我确信我期待充实大量的缺点，但希望也有更多的专业人士。

1. 我最初在去年的一份雇佣合同中开始使用 Java 编写一些相同的代码，并且出于法律原因，我想使用一种完全不同的语言来区分我的工作
2. 虽然代码目前作为命令行脚本运行，但有必要应用 UI，Tk 足以满足原型的需求，并且 Tk 与 Tcl 紧密集成。
3. 由于我一般远离 Java，我预见到“生产”，而不是原型，UI 是用 C++ 编写的。Tcl 很容易嵌入到 C++ 应用程序中，因此在将性能关键部分移植到 C++ 之前，底层 TCL 引擎将最初能够被嵌入

我知道一个潜在的骗局是“Tk UI 很丑”，但是如上所述，Tk UI 将用于原型，无论如何，Tk 丑陋的问题已经由您真正提出：为什么要考虑 Tk GUI丑陋？

我有一个生成许多表单的 Tcl/Tk 应用程序，并且希望能够从一个中心位置配置默认小部件字体，而无需使用-font开关配置每个小部件。

为了使用安捷伦基站模拟器，我创建了以下程序：

==================================================== ====== 输出：

字符串 1

>

oa;05:SYST:APPL? 字符串 2 发送 bss_str: en;05 "CDMA 2000 Lab App T"

无法读取“expect_out(buffer)”：执行“set receive_buffer $expect_out(buffer)”时没有这样的变量（过程“get_bss_parameter_value”第 20 行）

==================================================== ====== 如果在上面的代码中“. ”被“ ”替换，这是输出：

字符串 1

>

oa;05:SYST:APPL? 字符串 2 发送 bss_str: en;05 receive_buffer START:

oa;05:SYST:APPL?

END 当前申请是

oa;05:SYST:APPL?

问题：
1) 我无法在 expect_out(buffer) 变量中获得值“CDMA 2000 Lab App T”，该变量应该匹配（由于.*）安捷伦设备的输出。代码有问题吗？
2) 在这两种情况下，命令“en;05”已发送但未显示在标准输出上。虽然我们可以在第一种情况下看到预期的输出。

我有一些通过在命令行调用中定义变量来执行的 Tcl 脚本：

有没有办法检查 var1 和 var2 是否未在命令行中定义，然后为它们分配一组默认值？

我尝试了关键字 global、variable 和 set，但是当我说"if {$<var1>==""}"："can't read <var1>: no such variable"

我需要在另一个变量中使用一个变量的值。

这是我试过的..

但不是得到

我正进入（状态：

PS我尝试了以下无济于事

1. $cmd_ts
2. “$cmd_ts”
3. {$cmd_ts}
4. \$cmd_ts