Create New Commands in Tcl
eryar@163.com
摘要Abstract：Tcl/Tk腳本可以很容易實(shí)現(xiàn)用戶自定義的命令，方便的創(chuàng)建圖形化的用戶界面GUI，所以Tcl和Tk的應(yīng)用領(lǐng)域幾乎覆蓋了圖形和工程應(yīng)用的全部范圍，包括計(jì)算機(jī)輔助設(shè)計(jì)、軟件開發(fā)、測(cè)試、儀器控制、科學(xué)可視化及多媒體方面。本文主要詳解如何在C程序中使用Tcl來創(chuàng)建自定義的命令，并理解OpenCascade的Draw Test Harness的實(shí)現(xiàn)。
關(guān)鍵字Key Words：OpenCascade, Tcl/Tk, Draw Test Harness, Software Customization
一、引言 Introduction
Tcl是”Tool Command Language”，和Python、Perl、Lua等一樣也是一種腳本語言。利用Tcl可以很容易實(shí)現(xiàn)自定義的命令，利用Tk可以很方便地創(chuàng)建出跨平臺(tái)的用戶界面UI。因Tcl/Tk功能強(qiáng)大，跨平臺(tái)便于移植，且是開源免費(fèi)的，所以在OpenCascade中就利用這個(gè)庫(kù)來實(shí)現(xiàn)了測(cè)試程序Draw Test Harness，并且也利用Tcl實(shí)現(xiàn)了自動(dòng)化測(cè)試。
因?yàn)門cl是解析語言，所以Tcl可用來做為程序中的二次開發(fā)語言。因?yàn)樾薷腡cl的腳本不需要重新編譯鏈接，只需要重新加載下，加快開發(fā)速度。
通過在Tcl中實(shí)現(xiàn)自定義的命令，來理解OpenCascade中Draw Test Harness的實(shí)現(xiàn)，并去感受Tcl的強(qiáng)大功能。
Figure 1.1 Draw Test Harness with Tcl/Tk
二、Tcl/Tk應(yīng)用 OpenCascade Draw Test Harness
在Draw Test Harness中輸入自定義的命令就可以對(duì)相應(yīng)的建模造型程序進(jìn)行檢驗(yàn)。理解其實(shí)現(xiàn)方法，也可以加深對(duì)OpenCascade的其他模塊的理解。如下圖所示為自定義命令：
Figure 2.1 User defined command in Draw Test Harness
Figure 2.2 Command result in Test3d view
可以結(jié)合《OpenCascade Test Harness User’s Guide》來試試Draw Test Harness，如果將命令做在自己的程序中，就可以實(shí)現(xiàn)腳本建模啦。
Draw Test Harness中的命令都是用Tcl/Tk來實(shí)現(xiàn)的，下面通過一個(gè)簡(jiǎn)單的示例來說明如何在Tcl中實(shí)現(xiàn)自定義的命令。學(xué)會(huì)Tcl腳本應(yīng)該也是掌握了一種強(qiáng)大的腳本工具，可以為自己的程序?qū)崿F(xiàn)二次開發(fā)功能。
三、程序示例 Example Code
在Tcl中實(shí)現(xiàn)自定義命令很方便，只需要按Tcl的格式定義一個(gè)命令函數(shù)。基于對(duì)象的命令函數(shù)的聲明如下：
typedef int (Tcl_ObjCmdProc) _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp, int objc, struct Tcl_Obj * CONST * objv));
為了能在Tcl中調(diào)用一個(gè)命令函數(shù)，必須先調(diào)用Tcl_CreateObjCommand注冊(cè)它，格式如下所示：
EXTERN Tcl_Command Tcl_CreateObjCommand (Tcl_Interp * interp,
CONST char * cmdName, Tcl_ObjCmdProc * proc,
ClientData clientData,
Tcl_CmdDeleteProc * deleteProc);
這就是把Tcl中的字符串與實(shí)現(xiàn)它的C函數(shù)關(guān)聯(lián)起來“魔術(shù)”。一個(gè)完整的程序如下所示，程序?qū)崿F(xiàn)了兩個(gè)自定義的命令randomcmd和equalcmd，分別用來生成一個(gè)隨機(jī)數(shù)和相等判斷：
/*
* Copyright (c) 2014 eryar All Rights Reserved.
*
* File : Main.cpp
* Author : eryar@163.com
* Date : 2014-01-09 18:58
* Version : 1.0v
*
* Description : Create new command for Tcl in C. Refer to
* 1. Tcl and Tk Toolkit
* 2. Practical Programming in Tcl and Tk
*
* Key Words : Tcl/Tk, C Interface, New Command
*
*/
#include <tcl.h>
#include <stdlib.h>
#include <string.h>
#pragma comment(lib, "tcl85.lib")
/*
* @breif Definitions for application-specific command procedures.
*/
int RandomCmd(ClientData clientData, Tcl_Interp* interp, int objc, Tcl_Obj *CONST objv[])
{
if (objc != 2)
{
Tcl_WrongNumArgs(interp, 1, objv, "?range");
return TCL_ERROR;
}
int limit = 0;
Tcl_Obj* result = NULL;
Tcl_GetIntFromObj(interp, objv[1], &limit);
result = Tcl_NewIntObj(rand() % limit);
Tcl_SetObjResult(interp, result);
return TCL_OK;
}
int EqualCmd(ClientData clientData, Tcl_Interp* interp, int objc, Tcl_Obj *CONST objv[])
{
if (objc != 3)
{
Tcl_WrongNumArgs(interp, 1, objv, "string1 string2");
return TCL_ERROR;
}
Tcl_Obj* result = NULL;
char* arg1 = Tcl_GetString(objv[1]);
char* arg2 = Tcl_GetString(objv[2]);
if (strcmp(arg1, arg2) == 0)
{
result = Tcl_NewBooleanObj(1);
}
else
{
result = Tcl_NewBooleanObj(0);
}
Tcl_SetObjResult(interp, result);
return TCL_OK;
}
/*
* @breif Tcl_AppInit is called from Tcl_Main after the Tcl interpreter has been created,
* and before the script file or interactive command loop is entered.
*/
int Tcl_AppInit(Tcl_Interp* interp)
{
// Initialize packages Tcl_Init sets up the Tcl library facility.
if (Tcl_Init(interp) == TCL_ERROR)
{
return TCL_ERROR;
}
// Register application-specific commands.
Tcl_CreateObjCommand(interp, "randomcmd", RandomCmd, NULL, NULL);
Tcl_CreateObjCommand(interp, "equalcmd", EqualCmd, NULL, NULL);
return TCL_OK;
}
int main(int argc, char* argv[])
{
Tcl_Main(argc, argv, Tcl_AppInit);
return 0;
}
程序效果如下圖所示：
Figure 3.1 User defined command in Tcl
結(jié)合上面的代碼來理解Draw Test Harness中自定義命令的實(shí)現(xiàn)可以事半功倍。當(dāng)然也可以在C程序中使用Tk來定義用戶界面UI。詳細(xì)信息請(qǐng)參考References中羅列的參考資料。
由上可知，使用Tcl/Tk可以使自己的程序?qū)崿F(xiàn)命令行的功能，如AutoCAD、PDMS中都有這種功能，用戶通過輸入命令來實(shí)現(xiàn)一定的功能，很方便，如下圖所示為PDMS中的命令窗口：
Figure 3.2 Command Window of AVEVA Plant/PDMS
四、結(jié)論 Conclusion
通過在程序中使用Tcl實(shí)現(xiàn)自定義的命令，理解Tcl中C接口的用法。在此基礎(chǔ)上來理解OpenCascade中Draw Test Harness的實(shí)現(xiàn)要更容易。
通過學(xué)習(xí)Tcl/Tk可知，Tcl可以作為程序的二次開發(fā)語言，類似PDMS中的PML。Tcl中自定義命令方便，還可對(duì)表達(dá)式進(jìn)行解析并求值，功能相當(dāng)強(qiáng)大。缺點(diǎn)就是在Tcl中面向?qū)ο蟮墓δ芤铧c(diǎn)兒，如在Tcl腳本中自定義一個(gè)對(duì)象，像在PML中可以這樣來自定義對(duì)象，而在Tcl中這種自定義類型是不支持的：
Figure 4.1 User Defined Object in PDMS PML
好像Tcl也有對(duì)面向?qū)ο蟮募訌?qiáng)庫(kù)TclOO，基本用法如圖所示：
Figure 4.2 Basic Usage of TclOO
五、參考資料 References
1. Tcl and the Tk Toolkit
2. Practical Programming in Tcl and Tk
3. Tcl/Tk A Developer’s Guide
4. http://sourceforge.net/projects/tcl/
5. http://www.tcl.tk/