Tcl 作为一种脚本语言,有其优点,因而在C/C++程序中加入执行Tcl脚本的能力,可以提供脚本。
Tcl 作为一种脚本语言,终有其局限性。比如速度和某些功能。在Tcl中调用 C/C++ 使得 Tcl 可以扩展。
Tcl/Tk 和 C/C++ 的关系可以概括为三种情况:
在C/C++程序里面执行 Tcl 语句。 (Tcl Interpreter)
在 Tcl 中调用 C/C++ 实现的功能。 (Tcl Package)
C/C++程序本身是基于 Tcl/Tk 的程序。(Big Wish)
在C/C++程序里面执行 Tcl 语句 (Tcl Interpreter)
Adding Tcl/Tk to a C application
由于Tcl语言是解释器执行语言,可以想象问题的关键是知道解释器对象和要执行得Tcl语句。
Tcl解释器(Tcl Interpreter)的创建和管理
// 创建一个解释器
Tcl_Interp *interp = Tcl_CreateInterp();
// 执行"init.tcl"进行初始化
if ( Tcl_Init( interp ) != TCL_OK ) {
// Error
}
if(Tcl_InterpDeleted(interp) != 0){
// 解释器 已经被删除了
}
// 通过解释器来使用Tcl
const char *script = "set t 3 ; puts $t";
Tcl_Eval(interp,script );
// 删除这个解释器
Tcl_DeleteInterp(interp);
Tcl解释器中命令的执行
/* 执行一段命令, 命令内容保存在 objPtr 中 */
int Tcl_EvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags);
/************************************************
* 第一次执行时,命令会被编译成字节码
***********************************************/
/* 执行一个文件, 相对于 source 语句 */
int Tcl_EvalFile(Tcl_Interp *interp, const char *fileName);
/* 执行一段命令, 命令内容保存在字符串中 */
int Tcl_Eval(Tcl_Interp *interp, const char *script );
int Tcl_EvalEx(Tcl_Interp *interp, const char *script, int numBytes, int flags);
/************************************************
* 直接解析执行,不会编译成字节码
***********************************************/
/* 执行一条命令 */
int Tcl_EvalObjv(Tcl_Interp *interp, int objc, Tcl_Obj **objv, int flags);
在 Tcl 中调用 C/C++ 实现的功能 (Tcl Package)
这个常用于扩展包。
在Tcl中读入编译好的C/C++程序模块(.so 文件或者.dll文件)。
Tcl 通过命令 load 加载编译好的程序模块
load filename.so pkgName
# Tcl解释器将会调用C/C++ 模块种特定的函数(pkgName_Init/pkgName_SafeInit) 作为程序入口。
# 该入口函数通常用来添加Tcl命令。
# 默认是读入当前的解释器。也可以指定解释器如下
load filename.so pkgName interp
C/C++
/************************************************
* 以下两者之一是函数原型
* 后者用于safe intepreter
*************************************************/
int pkgName_Init(Tcl_Interp *interp);
int pkgName_SafeInit(Tcl_Interp *interp);
//e.g.
int pkgName_Init(Tcl_Interp *interp){
}
关于如何在C中创建新的Tcl命令,稍后介绍。
C/C++程序本身是基于 Tcl/Tk 的程序
这种程序的好处是,在拥有C的强大计算能力的同时,提供给用户一个交互式界面。
如果加上Tk,还可以实现GUI。这样的程序有时也被称作 //bigwish//
Hello World 程序。执行起来就像是一个Tcl Shell。
#include <tk.h>
#include <tcl.h>
#include <iostream>
typedef int Tcl_AppInitProc(Tcl_Interp *interp);
int appInitProc(Tcl_Interp *interp){
std::cout<<"App Init"<<std::endl;
Tcl_Init(interp);
Tk_Init(interp);
Tk_Window topwin = Tk_MainWindow(interp);
Tk_SetAppName(topwin,"NOYESNO");
Tcl_Eval(interp,"wm title . NOYESNO");
//Tcl_EvalFile(interp,"debug.tcl");
return 0;
}
int main(int argc, char** argv){
Tk_Main(argc, argv, appInitProc);
//Tk_MainLoop();
return 0;
}
实际应用中常主要的问题是初始化。包括下面几项任务
设置环境变量 TCL_LIBRARY 和 TK_LIBRARY
这两个变量是用于帮助定位 init.tcl 和 tk.tcl
方法一:
const char *argv0 = Tcl_GetNameOfExecutable();
char exec_dir[255];
strcpy(exec_dir,argv0);
char *pos = strrchr(exec_dir,'/');
*pos = '\0';
char buf[255];
sprintf(buf,"TCL_LIBRARY=%s/lib/tcl8.5",exec_dir);
putenv(buf);
方法二:
const char *argv0 = Tcl_GetNameOfExecutable();
const char *tcl_init =
"set t [file dirname [info nameofexecutable]] \n"
"set env(TCL_LIBRARY) [file join $t lib tcl8.5] \n"
"set env(TK_LIBRARY) [file join $t lib tk8.5] \n"
"unset t"
;
if (Tcl_Eval(interp,tcl_init) != TCL_OK){
return TCL_ERROR;
}
应该说还是第一种方法作为C/C++程序来说更纯粹些。
设置默认字符编码
Tcl_SetSystemEncoding(interp,"utf-8");
Tcl_SetDefaultEncodingDir("/some/path/lib/tcl8.5/encoding");
执行初始化脚本
const char *nyno_init_file = "noyesno.tcl";
if(access(nyno_init_file,R_OK) == 0){
Tcl_EvalFile(interp,nyno_init_file);
}
参考资源
Embedding vs. Extending
How to embed Tcl in C applications
分享到:
相关推荐
解决ubuntu安装GDK编译不通过问题 ... from /GDB/insight-6.8-1/tk/unix/../generic/tk3d.c:16: /GDB/insight-6.8-1/tk/unix/../generic/tk.h:96: fatal error: X11/Xlib.h: No such file or directory
人脸识别3:C/C++ InsightFace实现人脸识别Face Recognition(含源码):https://blog.csdn.net/guyuealian/article/details/130600571 人脸识别4:Android InsightFace实现人脸识别Face Recognition(含源码):...
人脸识别3:C/C++ InsightFace实现人脸识别Face Recognition(含源码):https://blog.csdn.net/guyuealian/article/details/130600571 人脸识别4:Android InsightFace实现人脸识别Face Recognition(含源码):...
Bitcore Insight API-Golang 一个小的golang程序包,可帮助您将Bitcore Insight API与Golang一起使用。 连接到Insight API // import "github.com/hunterlong/insight" bitcoin := insight . New ( ...
人脸识别3:C/C++ InsightFace实现人脸识别Face Recognition(含源码):https://blog.csdn.net/guyuealian/article/details/130600571 人脸识别4:Android InsightFace实现人脸识别Face Recognition(含源码):...
Windows平台下的源代码阅读工具Source Insight 企业级源码查看和编辑工具,特别是在WINDOWS与Linux环境下的切换是相当方便的。国内外一线IT企业,嵌入式开发的王牌软件。 为了方便地学习Linux源程序,我们不妨...
人脸识别3:C/C++ InsightFace实现人脸识别Face Recognition(含源码):https://blog.csdn.net/guyuealian/article/details/130600571 人脸识别4:Android InsightFace实现人脸识别Face Recognition(含源码):...
ICInsight:一季度英特尔仍是半导体龙头.pdf
SourceInsight3.5 C/C++语言 源代码查看工具 破解版
Fix: C/C++ Source File: added *.hh file association Fix: Project > Add and Remove Project Files - fixed keyboard short cut in prompt to add top level sub-directories. Fix: Crash could happen when ...
insight C/C++图形化调试器 insight C/C++图形化调试器
一个sourforge上开源的用来格式化c/C++代码的工具,可以集成到各种编辑器中,如sourceinsight中
<br/>Publisher: Sams Publishing <br/>Pub Date: July 26, 2005 <br/>ISBN: 0-672-32798-8 <br/>Pages: 408 <br/> <br/>* Overview *<br/>Software Testing, Second Edition provides practical insight into the ...
Source-Navigator 支持C, C++, Java, Tcl, [incr Tcl], FORTRAN 和 COBOL, 并且提供SDK给开发者开发自己的语言解析器 你可以使用Source-Navigator: 分析某处源码的变化对其他模块的影响 查找某个函数被调用的...
turboc2.zip: 较早的C语言编译器。...Source.Insight.v3.50.0070-20120620.rar:C语言大型项目的代码分析查看工具,也可以写代码。 可以在大型项目的源程序中迅速找到变量、函数等的定义及调用关系等
| | 最科幻的企业微信群机器人管理工具 非常方便的发布群即时消息和定时消息,解放双手,提升沟通效率在线体验insight官网:。注意:此网站仅供demo测试,你也可以暂时将自己的机器人放在这里。部署教程这个是在...
SourceInsight工具,c++/c的强大开发工具,比vc好用多了
Source Insight 绿色 护眼 主题
source insight and windows via c++
insightface c++ 人脸关键点并进行对齐矫正 code for face alignment in c++