c++ - 它是如何工作的，如何使用宏编译 TCL 的 C++ 扩展而没有主要功能

Question

我有一套工作的 TCL 脚本加上 C++ 扩展，但我不知道它是如何工作的以及它是如何编译的。我正在使用 gcc 和 linux Arch。

它的工作原理如下:当我们执行 test.tcl 脚本时，它会将一些值传递给定义在 C++ 扩展中的类的对象。使用这些值，使用宏的扩展会给出一些结果并打印一些图形。

在我的 test.tcl 脚本中:

#!object

use_namespace myClass 

proc simulate {} { 
    uplevel #0 {
      set running 1
         for {} {$running} { } {
        moveBugs
        draw .world.canvas
        .statusbar configure -text "t:[tstep]"
     }
    }
}

set toroidal 1
set nx 100
set ny 100
set mv_dist 4
setup $nx $ny $mv_dist $toroidal

addBugs 100

# size of a grid cell in pixels
set scale 5
myClass.scale 5 

object.cc 看起来像:

#include //some includes here

MyClass myClass;
make_model(myClass); // --> this is a macro!

宏“make_model(myClass)”展开如下:

     namespace myClass_ns { DEFINE_MYLIB_LIBRARY; int TCL_obj_myClass
(mylib::TCL_obj_init(myClass),TCL_obj(mylib::null_TCL_obj,
(std::string)"myClass",myClass),1); };

类定义是:

class MyClass:
{
public:
  int tstep;   //timestep - updated each time moveBugs is called
  int scale;   //no. pixels used to represent bugs
  void setup(TCL_args args) {
    int nx=args, ny=args, moveDistance=args;
    bool toroidal=args;
    Space::setup(nx,ny,moveDistance,toroidal);
  }

整个事情创建了一个单元格网格，其中有一些点(错误)从一个单元格移动到另一个单元格。

我的问题是:

• 类方法和变量如何获取脚本值？
• 没有 main 函数怎么可能有 c++ 代码并编译它？
• 扩展中的那个宏是做什么的，它是如何工作的？？

谢谢

Answer 1

每当运行 Tcl 中的命令时，它都会调用实现该命令的函数。该函数是用 C 或 C++ 等语言编写的，并在参数中传递(作为字符串或 Tcl_Obj* 值)。一个完整的扩展还将包括一个函数来进行库初始化；该函数(它是外部的，具有 C 链接，如果您的库是 foo.dll，它的名称类似于 Foo_Init)执行基本的设置任务，例如注册实现函数作为命令，它是显式的，因为它引用了正在初始化的解释器上下文。

实现函数几乎可以做任何他们想做的事情，但是为了返回结果，它们使用函数 Tcl_SetResult、Tcl_SetObjResult 等之一，并且它们必须返回包含相关异常代码的 int。通常有用的是 TCL_OK(无一异常(exception))和 TCL_ERROR(因为出现问题)。这是一个 C API，因此不允许出现 C++ 异常。

可以使用 C++ 实例方法作为命令实现，前提是两者之间有一个绑定(bind)函数。特别是，该函数必须通过转换 ClientData 值(实际上是 void* 的别名，记住这是主要来获取实例指针一个 C API)，然后调用它的方法。这是少量代码。

---

编译只是构建一个链接到正确库(或多个库，根据需要)的 DLL。虽然通常建议使用扩展来链接 stub 库，但如果您只是在一台机器上进行开发和测试，则没有必要这样做。但是如果你链接到 Tcl DLL，你最好确保代码被加载到使用那个 DLL 的 tclsh 中。 stub 库摆脱了这种紧密绑定(bind)，提供了相当强大的 ABI 稳定性，但设置起来几乎没有什么工作；您需要定义正确的 C 宏来打开它们，并且需要在初始化函数中进行额外的 API 调用。

我假设您已经知道如何编译和链接 C++ 代码。我不会告诉您如何操作，但如果您需要帮助，Stack Overflow 上肯定会有其他问题。

使用代码？对于扩展，它基本上只是:

# Dynamically load the DLL and call the init function
load /path/to/your.dll

# Commands are all present, so use them
NewCommand 3

稍后有一些额外的步骤将 DLL 转换为适当的 Tcl 程序包，抽象使用 DLL 的代码远离它正是那个 DLL 等的事实，但它们不需要担心，直到你的工作效率更高了。