文档章节

Create New Commands in Tcl

eryar
 eryar
发布于 2014/11/23 12:36
字数 1387
阅读 22
收藏 0

Create New Commands in Tcl

eryar@163.com

摘要Abstract:Tcl/Tk脚本可以很容易实现用户自定义的命令,方便的创建图形化的用户界面GUI,所以Tcl和Tk的应用领域几乎覆盖了图形和工程应用的全部范围,包括计算机辅助设计、软件开发、测试、仪器控制、科学可视化及多媒体方面。本文主要详解如何在C程序中使用Tcl来创建自定义的命令,并理解OpenCascade的Draw Test Harness的实现。 

关键字Key Words:OpenCascade, Tcl/Tk, Draw Test Harness, Software Customization 

一、引言 Introduction

Tcl是”Tool Command Language”,和Python、Perl、Lua等一样也是一种脚本语言。利用Tcl可以很容易实现自定义的命令,利用Tk可以很方便地创建出跨平台的用户界面UI。因Tcl/Tk功能强大,跨平台便于移植,且是开源免费的,所以在OpenCascade中就利用这个库来实现了测试程序Draw Test Harness,并且也利用Tcl实现了自动化测试。 

因为Tcl是解析语言,所以Tcl可用来做为程序中的二次开发语言。因为修改Tcl的脚本不需要重新编译链接,只需要重新加载下,加快开发速度。 

通过在Tcl中实现自定义的命令,来理解OpenCascade中Draw Test Harness的实现,并去感受Tcl的强大功能。 

wps_clip_image-13557

Figure 1.1 Draw Test Harness with Tcl/Tk 

二、Tcl/Tk应用 OpenCascade Draw Test Harness

在Draw Test Harness中输入自定义的命令就可以对相应的建模造型程序进行检验。理解其实现方法,也可以加深对OpenCascade的其他模块的理解。如下图所示为自定义命令: 

wps_clip_image-14583

Figure 2.1 User defined command in Draw Test Harness 

wps_clip_image-21502

Figure 2.2 Command result in Test3d view 

可以结合《OpenCascade Test Harness User’s Guide》来试试Draw Test Harness,如果将命令做在自己的程序中,就可以实现脚本建模啦。 

Draw Test Harness中的命令都是用Tcl/Tk来实现的,下面通过一个简单的示例来说明如何在Tcl中实现自定义的命令。学会Tcl脚本应该也是掌握了一种强大的脚本工具,可以为自己的程序实现二次开发功能。 

三、程序示例 Example Code

在Tcl中实现自定义命令很方便,只需要按Tcl的格式定义一个命令函数。基于对象的命令函数的声明如下:

typedef  int  (Tcl_ObjCmdProc) _ANSI_ARGS_((ClientData clientData,  Tcl_Interp  * interp,  int  objc,  struct  Tcl_Obj  *  CONST  *  objv)); 

为了能在Tcl中调用一个命令函数,必须先调用Tcl_CreateObjCommand注册它,格式如下所示:

EXTERN Tcl_Command Tcl_CreateObjCommand (Tcl_Interp  *  interp,   CONST  char   *  cmdName, Tcl_ObjCmdProc  *  proc,   ClientData clientData,   Tcl_CmdDeleteProc  *  deleteProc); 

这就是把Tcl中的字符串与实现它的C函数关联起来“魔术”。一个完整的程序如下所示,程序实现了两个自定义的命令randomcmd和equalcmd,分别用来生成一个随机数和相等判断: 

/*
*    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;
}

程序效果如下图所示: 

wps_clip_image-23159

Figure 3.1 User defined command in Tcl 

结合上面的代码来理解Draw Test Harness中自定义命令的实现可以事半功倍。当然也可以在C程序中使用Tk来定义用户界面UI。详细信息请参考References中罗列的参考资料。 

由上可知,使用Tcl/Tk可以使自己的程序实现命令行的功能,如AutoCAD、PDMS中都有这种功能,用户通过输入命令来实现一定的功能,很方便,如下图所示为PDMS中的命令窗口: 

wps_clip_image-6737

Figure 3.2 Command Window of AVEVA Plant/PDMS 

四、结论 Conclusion

通过在程序中使用Tcl实现自定义的命令,理解Tcl中C接口的用法。在此基础上来理解OpenCascade中Draw Test Harness的实现要更容易。 

通过学习Tcl/Tk可知,Tcl可以作为程序的二次开发语言,类似PDMS中的PML。Tcl中自定义命令方便,还可对表达式进行解析并求值,功能相当强大。缺点就是在Tcl中面向对象的功能要差点儿,如在Tcl脚本中自定义一个对象,像在PML中可以这样来自定义对象,而在Tcl中这种自定义类型是不支持的: 

wps_clip_image-4895

Figure 4.1 User Defined Object in PDMS PML 

好像Tcl也有对面向对象的加强库TclOO,基本用法如图所示: 

wps_clip_image-10514

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/

 

© 著作权归作者所有

eryar
粉丝 22
博文 127
码字总数 227012
作品 0
武汉
私信 提问
JTcl 2.4.0 发布,Tcl 的 Java 版

JTcl 是一个 Tcl (Tool Command Language) 编程语言的 Java 实现保,支持 Tcl 8.4 的语法、命令。 JTcl 2.4.0 发布,改进记录: Creating a safe interpreter (interp create -safe) now ex...

oschina
2012/10/18
875
3
Fossil 1.34 早已发布

Fossil 是一个简单、高可靠性的分布式软件配置管理系统。可以在 http://chiselapp.com/ 托管自己的 Fossil 项目。Fossil 目前被 Tcl/Tk 社区广泛使用。 1.34 版本更新: Make the fossil cl...

MikeManilone
2016/03/06
1K
0
3Par7200存储低电压告警

ss7200 cli% cgcmd -tc tty -C cage0 -c report_faults -p a ##查看报错电源 ---------------------------------------------------------------------- Drive Manager faults No faults En......

argen2020
2017/09/15
0
0
JBoss Forge 2.0.0.CR2 (Heat) 发布

JBoss Forge 2.0.0.CR2 (Heat) 发布了,正式版将在两天内发布,因此现在是你提交问题的关键时间。 非常感谢你的参与和帮助: 可通过 Update Site 来尝试 命令行可通过下载病安装 CR2 releas...

红薯
2014/01/29
227
1
laravel 5.0 artisan 命令列表(中文简体)

c:wampwwwlv5>php artisan list Laravel Framework version 5.0.13 Usage: [options] command [arguments] Options(选项): --help (-h) Display this help message --quiet (-q) Do not outp......

hisense20112784
2017/08/12
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Mybatis Plus删除

/** @author beth @data 2019-10-17 00:30 */ @RunWith(SpringRunner.class) @SpringBootTest public class DeleteTest { @Autowired private UserInfoMapper userInfoMapper; /** 根据id删除......

一个yuanbeth
14分钟前
1
0
总结

一、设计模式 简单工厂:一个简单而且比较杂的工厂,可以创建任何对象给你 复杂工厂:先创建一种基础类型的工厂接口,然后各自集成实现这个接口,但是每个工厂都是这个基础类的扩展分类,spr...

BobwithB
53分钟前
4
0
java内存模型

前言 Java作为一种面向对象的,跨平台语言,其对象、内存等一直是比较难的知识点。而且很多概念的名称看起来又那么相似,很多人会傻傻分不清楚。比如本文我们要讨论的JVM内存结构、Java内存模...

ls_cherish
57分钟前
4
0
友元函数强制转换

友元函数强制转换 p522

天王盖地虎626
昨天
5
0
js中实现页面跳转(返回前一页、后一页)

本文转载于:专业的前端网站➸js中实现页面跳转(返回前一页、后一页) 一:JS 重载页面,本地刷新,返回上一页 复制代码代码如下: <a href="javascript:history.go(-1)">返回上一页</a> <a h...

前端老手
昨天
5
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部