如何编译TCL DLL加载(How to compile dll loadable in tcl)

大量尝试和搜索网络选项编译和加载DLL我能不能为TCL创造的dll后。你能解释一下我是如何做到这一点。

好吧，这里是一个简单的例子。此代码编译和工程TCL8.5和VS2008。首先我创建了一个WIN32 DLL项目称为BasicTclExtn是导出的符号。

// BasicTclExtn.h
#ifdef BASICTCLEXTN_EXPORTS
#define BASICTCLEXTN_API __declspec(dllexport)
#else
#define BASICTCLEXTN_API __declspec(dllimport)
#endif

int BasicExtnCmd(ClientData data, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) ;
extern "C" {
    BASICTCLEXTN_API int Basictclextn_Init(Tcl_Interp *interp) ;
}

然后.cpp文件

// BasicTclExtn.cpp : Defines the exported functions for the DLL application.
#include "stdafx.h"
#include "BasicTclExtn.h"

int
BasicExtnCmd(ClientData data,
             Tcl_Interp *interp,
             int objc,
             Tcl_Obj *CONST objv[])
{

    // Check the number of arguments
    if (objc != 3) {
        Tcl_WrongNumArgs(interp, 1, objv, "arg arg");
        return TCL_ERROR;
    }

    long v1, v2, result ;

    if ( Tcl_GetLongFromObj(interp, objv[1], &v1) != TCL_OK)
        return TCL_ERROR ;

    if ( Tcl_GetLongFromObj(interp, objv[2], &v2)  != TCL_OK)
        return TCL_ERROR ;

    result = v1 + v2 ;

    Tcl_SetObjResult(interp, Tcl_NewIntObj(result)) ;
        return TCL_OK ;
}

    // Note the casing on the _Init function name
    BASICTCLEXTN_API int Basictclextn_Init(Tcl_Interp *interp)
    {
        // Link with the stubs library to make the extension as portable as possible
        if (Tcl_InitStubs(interp, "8.1", 0) == NULL) {
            return TCL_ERROR;
        }

        // Declare which package and version is provided by this C code
        if ( Tcl_PkgProvide(interp, "BasicTclExtn", "1.0") != TCL_OK ) {
            return TCL_ERROR ;
        }

        // Create a command
        Tcl_CreateObjCommand(interp, "BasicExtnCmd", BasicExtnCmd, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);

        return TCL_OK ;
    }

你需要在stdafx.h中＃包括tcl.h。

本例使用Tcl的存根设施，请参阅Tcl_InitStubs功能的详细信息的文件; 使用存根当你需要链接到只有tclstub85.lib。为了让代码正确链接，你需要做到以下几点：

添加包括其中tcl.h安装到配置属性目录 - > C / C ++ - >常规 - >附加包含目录
定义USE_TCL_STUBS符号，我通常为此在属性- > C / C ++ - >预处理器- >预处理器定义。你也可能会发现你然后需要定义<DLLNAME>_EXPORTS （ BASICTCLEXTN_EXPORTS在此之后在我的例子），我不知道为什么会这样。
该路径添加到目录中的文件tclstub85.lib是在配置属性附加库目录 - >链接器 - >常规 - >附加库目录。
添加tclstub85.lib配置属性 - >链接器 - >输入 - >附加依赖关系
>链接 - - 如果编译器吐出约MSVCRT警告，然后将其添加到配置属性被忽略的图书馆排除MSVCRT>输入 - >忽略特定的图书馆。

所有这些的.lib，.dll和.h文件应该在你的Tcl安装很容易被发现。您还需要确保相关tclstub85.dll和tcl85.dll可以在运行时发现，确保对Tcl的bin目录的路径应梳理了这一点。所以，你应该然后能够从Tcl的做到以下几点：

C:\Projects\BasicTclExtn\Debug>tclsh
% load BasicTclExtn.dll
% BasicExtnCmd 1 2
3
% BasicExtnCmd 1 2.p
expected integer but got "2.p"
% BasicExtnCmd 1 2
3
% BasicExtnCmd 1
wrong # args: should be "BasicExtnCmd arg arg"
% BasicExtnCmd 1 3
4
% exit

这是Tcl的exstention的最简单的形式，你可以添加额外的呼叫Tcl_CreateObjCommand()更多commnds加入到这个扩展。 TCL提供了一些faciities以帮助传递到命令在命令行paramters的处理。示例代码使用Tcl_WrongNumArgs()但你也应该看看Tcl_GetIndexFromObj()函数。

我也建议你用布伦特·韦尔奇得到Tcl和Tk实际编程的副本。你可以在这里阅读一些样章http://www.beedub.com/book/ ，对C语言编程对Tcl从第3版的章节会帮助你很多。