c++/tcl编程总结

最新推荐文章于 2024-07-24 15:58:31 发布
最新推荐文章于 2024-07-24 15:58:31 发布
阅读量5.5k 收藏 10
点赞数
分类专栏： Tcl/Tk


一、           给Tcl脚本直接传递char*参数，Tcl脚本中的所有参数和结果都是char*类型

test.tcl

proc add {a b c} {
set d [expr $a + $b + $c]
return $d
}

test.cpp  

// gettclvalueofvariable.cpp
#include "stdafx.h"
#include "iostream"
#include "stdio.h"
#include "string"
#include "tcl.h"
#include "assert.h"
#include "tclDecls.h"

#pragma comment(lib,"tcl85.lib")

using namespace std;

#define STRCMD_SIZE 50

int _tmain(int argc, _TCHAR* argv[])
{
         Tcl_Main(argc,argv,Tcl_AppInit);

         return 0;
}

int Tcl_AppInit(Tcl_Interp *interp)
{
         if (Tcl_Init(interp)==(TCL_ERROR))
         {
                   return TCL_ERROR;
         }
         if(Tcl_EvalFile(interp,"test.tcl")==TCL_ERROR)
         {
                   return TCL_ERROR;
         }

         char *str = "10";
         char *str1 = "11";
         char *str12 = "12";
         char strcmd[STRCMD_SIZE] = {0};
         sprintf(strcmd,"add %s %s %s",str,str1,str12);

         Tcl_eval_r(interp,strcmd);
         Tcl_GetVar(interp,"d",TCL_GLOBAL_ONLY);
         cout<<interp->result<<endl;
         char *p = NULL;
         p = interp->result;
         assert(p != NULL);
         cout<<"the value of p is: "<<p<<endl;
         return 1;
}

二、           由于tcl的参数是char*类型的，所以在本程序中直接传递的char*类型参数，但是在实际过程中，往往c++函数需要接收string类型的参数，并传递给tcl脚本，这就涉及到string转换成char*以及char*转换成string。这样从tcl中获得的值可以转换成string，并传递给其他c++模块。

 

三、           接收string类型的实参，转换成char*类型，传递给Tcl脚本；从Tcl脚本接收到char*类型的结

#include "stdafx.h"
#include "iostream"
#include "string"
using namespace std;
int _tmain(int argc, _TCHAR* argv[])
{
         char* p = "hello";
         cout<<"the value of p is: "<<p<<endl;
         char m[10] = {0};
         string result;
         memcpy(m,p,sizeof(p)+1);
         result = string(m);
         cout<<"the value of m is: "<<m<<endl;
         cout<<"the value of result is: "<<result<<endl;
         return 0;
}

果后，转换成string，传递给其他c++函数。Tcl脚本同上例。  

// 0906.cpp : Defines the entry point for the console application.
//
#include "stdafx.h"
#include "tcl.h"
#include "string"
#include "iostream"
#include "stdio.h"
#include "assert.h"
#pragma comment(lib,"tcl85.lib")
#define ARRAYSIZE 30
using namespace std;
string callTcl()
{      
         Tcl_Interp *interp = Tcl_CreateInterp();
         //change string to char*
         string a = "123";                          //change a to char*
         char* str1 = const_cast<char*>(a.c_str());
         cout<<"the value of str1 is "<<str1<<endl;
         string b = "13";                          //change b to char*
         char* str2 = const_cast<char*>(b.c_str());
         cout<<"the value of str2 is: "<<str2<<endl;
         string c = "26";                            //change c to char*
         char* str3 = const_cast<char*>(c.c_str());
         cout<<"the value of str3 is: "<<str3<<endl;
         //call tcl and trans the char* to string and return
         if (Tcl_EvalFile(interp,"test.tcl") == TCL_ERROR)
         {
                   //return TCL_ERROR;
                   cout<<"call tcl error"<<endl;
         }
         char strcmd[ARRAYSIZE] = {0} ;
         sprintf(strcmd, "add %s %s %s", str1,str2,str3);
         Tcl_eval_r(interp,strcmd);
         char *p = NULL;
         Tcl_GetVar(interp,"d",TCL_GLOBAL_ONLY);
         cout<<"the value of interp->result is: "<<interp->result<<endl;
         p = interp->result;
         assert(p != NULL);
         cout<<"the value of p is: "<<p<<endl;
         //trans p to string type
         char result[60] = {0};
         memcpy(result,p,sizeof(p)+1);
         string sresult = string(result);
         return(sresult);
}
 
int _tmain(int argc, _TCHAR* argv[])
{
         Tcl_Main(argc,argv,Tcl_AppInit);
         return 0;
} 

int Tcl_AppInit(Tcl_Interp *interp)
{
         if (Tcl_Init(interp)==TCL_ERROR)
         {
                   return TCL_ERROR;
         }
         string a;
         a = callTcl();//call callTcl function
         callTcl();
         cout<<"the value of a is: "<<a<<endl;
         return TCL_OK;
}

运行结果如下图：

 

四、           取名字空间中的值

test1.tcl

package provide test1 1.0
namespace eval test1 {
         namespace export a
         variable n 5
         proc a {} {
                   variable n
                   set n 6
                   return $n
                   #puts $n
         }
}

test2.tcl

package provide test2 1.0
package require test1 1.0
namespace import test1::a
namespace eval test2 {
set b [a]
puts $b
}

用active tcl 可以运行test2.tcl，返回b的值为6，要想取得名字空间变量的值用set b test1::n即可。

 

五、           在调用tcl脚本并取值时没必要遵循

int _tmain(int argc,_TCHAR* argv[] )

{

         Tcl_Main(argc,argv,Tcl_AppInit);

         return 0;

}

 

Int Tcl_AppInit(Tcl_Interp *interp)

{

         call .tcl and get variable value

}层次结构

 

只要在一般的函数里遵循初始化interp→调用tcl脚本→取值即可，下面是实例代码：

test.tcl代码如下：

puts "hello"

proc test {} {

set a 4

return $a

}

 

 

 

C++代码如下：

 

#include "stdafx.h"

#include "iostream"

#include "stdio.h"

#include "string"

#include "tcl.h"

#include "assert.h"

#include "tclDecls.h"

#include "assert.h"

 

#pragma comment(lib,"tcl85.lib")

 

 

using namespace std;

#pragma comment (lib,"tcl85.lib")

 

int calltcl();

 

int _tmain(int argc, _TCHAR* argv[])

{

         calltcl();

         return 0;

}

 

int calltcl()

 

{

 

         Tcl_Interp *interp = Tcl_CreateInterp();

         if (Tcl_Init(interp)==TCL_ERROR)

         {

                   return TCL_ERROR;

         }

         if (Tcl_EvalFile(interp,"test.tcl")==TCL_ERROR)

         {

                   return TCL_ERROR;

         }

 

         char strcmd[30] = {0};

         sprintf(strcmd,"test");//get the value of a variable in namespace

                            //sprintf(strcmd,"add %s %s %s",str,str1,str12);//get the value of a variable in proc

         Tcl_eval_r(interp,strcmd);

                  

         Tcl_GetVar(interp,"a",TCL_GLOBAL_ONLY);

         cout<<interp->result<<endl;

         char *p = NULL;

         p = interp->result;

         assert(p != NULL);

                  

         cout<<"the value of p is: "<<p<<endl;

}

运行结果截图：

 

【注】本部分中的.tcl脚本均和.exe在同一目录下，如果.tcl在某一个文件夹下，比如，test.tcl在testlib文件夹中，则：

if (Tcl_EvalFile(interp,"test.tcl")==TCL_ERROR)改为if (Tcl_EvalFile(interp,"./testlib/test.tcl")==TCL_ERROR)即可

 

【Tcl同一个名字空间中两个不同过程实现变量共享】

Tcl代码：

namespace eval test {

    global b

    global testResult

    global c

 

    #----------------

    proc test1 {} {

        global b

        global testResult

        set b 30123

        set testResult 400

       return $testResult

    }

   

    proc print {} {

        global b

        global c

       

        set c $b

 

        return $b

    }

 

}

 

#test::test1

#test::print

 

C++代码：

#include "stdafx.h"

#include "iostream"

#include "stdio.h"

#include "string"

#include "tcl.h"

#include "assert.h"

#include "tclDecls.h"

#include "assert.h"

 

using namespace std;

#pragma comment (lib,"tcl85.lib")

 

int calltcl();

 

int _tmain(int argc, _TCHAR* argv[])

{

         calltcl();

         return 0;

}

 

int calltcl()

{

         Tcl_Interp *interp = Tcl_CreateInterp();//interp负o责e获?取¨?b的Ì?值¦Ì

         if (Tcl_Init(interp)==TCL_ERROR)

         {

                  return TCL_ERROR;

         }

 

                   if (Tcl_EvalFile(interp,"tes01t.tcl")==TCL_ERROR)

                            {

                                     return TCL_ERROR;

                            }

                          

                   Tcl_Interp *interp1 = Tcl_CreateInterp();

                   if (Tcl_Init(interp1)==TCL_ERROR)

                   {

                            return TCL_ERROR;

                   }

 

 

 

                   if (Tcl_EvalFile(interp1,"tes01t.tcl")==TCL_ERROR)

                   {

                            return TCL_ERROR;

                   }

 

 

         char strcmd[30] = {0};

         char strcmd1[30] = {0};

        

         sprintf(strcmd1,"test::test1");

         sprintf(strcmd,"test::print");//get the value of b variable in namespace

        

        

         Tcl_eval_r(interp1,strcmd1);//获?取¨?testResult值¦Ì

        

         Tcl_eval_r(interp,strcmd1);//获?取¨?b的Ì?值¦Ì，ê?先¨¨执¡ä行D一°?次ä?test1过y程¨¬

         Tcl_eval_r(interp,strcmd);

 

         Tcl_GetVar(interp1,"testResult",TCL_GLOBAL_ONLY);

        

         Tcl_GetVar(interp,"b",TCL_GLOBAL_ONLY);

 

        

         char *p = NULL;

         p = interp->result;

         assert(p != NULL);

         string value(p);

         cout<<"the value of b is: "<<p<<endl;

       

         char *p1 = NULL;

         p1 = interp1->result;

         assert(p1 != NULL);

         string value1(p1);

         cout<<"the value of testResult is: "<<p1<<endl;

}

 

返回值：

 

 

【注】以下代码用同一个解释器一样获取相同结果

#include "stdafx.h"

#include "iostream"

#include "stdio.h"

#include "string"

#include "tcl.h"

#include "assert.h"

#include "tclDecls.h"

#include "assert.h"

 

using namespace std;

#pragma comment (lib,"tcl85.lib")

 

int calltcl();

 

int _tmain(int argc, _TCHAR* argv[])

{

         calltcl();

         return 0;

}

 

int calltcl(

{  

         Tcl_Interp *interp = Tcl_CreateInterp();//interp负o责e获?取¨?b的Ì?值¦Ì

         if (Tcl_Init(interp)==TCL_ERROR)

         {

                   return TCL_ERROR;

        }

 

         if (Tcl_EvalFile(interp,"tes01t.tcl")==TCL_ERROR)

         {

                   return TCL_ERROR;

         }

                   

         char strcmd[30] = {0};

         sprintf(strcmd,"test::test1");     

         Tcl_eval_r(interp,strcmd);   

        

         Tcl_GetVar(interp,"testResult",TCL_GLOBAL_ONLY);

 

        

         char *p = NULL;

         p = interp->result;

         assert(p != NULL);

         string value(p);

         cout<<"the value of testResult is: "<<p<<endl;

        

 

         sprintf(strcmd,"test::print");

         Tcl_eval_r(interp,strcmd);

         Tcl_GetVar(interp,"b",TCL_GLOBAL_ONLY);

         char *pb = NULL;

         pb = interp->result;

         assert(pb != NULL);

         string bvalue(pb);

         cout<<"the b value is:"<<endl<<bvalue<<endl; 

}


Augusdi
关注
专栏目录
cpptcl:用于 C++ 和 TCL 之间互操作性的 C++ 库
05-29
C++/Tcl - 用于 C++ 和 Tcl 之间互操作性的 C++ 库。 欢迎使用 C++/Tcl！ C++/Tcl...我们称之为cpptcl...在C++和Tcl之间建立了一座桥梁，提供了两种语言之间的深度互操作性。 C++ 开发人员可以使用 Tcl 来创建新的、强大的方式来与他们的应用程序的高级活动进行交互、调试、构建自动化测试和编排这些活动。 Tcl 开发人员可以使用 C++ 创建高性能代码，利用所有 C++ 生态系统，同时提供极其简单的方法将他们的 C++ 函数带入 Tcl，具有预期的 Tcl 语义并且没有什么有趣的事情。 使用 cpptcl 为 Tcl 编写 C++ 扩展要容易得多，并且比在 C 中扩展 Tcl 需要的代码少得多。 同样地 版权所有 (C) 2004-2006，Maciej Sobczak 版权所有 (C) 2017-2019，FlightAware
【NS2】tcl与c++互相调用/传参
LAM LAB
02-03 1082
在NS2，做实验的时候，为了能通过循环配合传值实验，一直找不到tcl传参给c++的方法，网上的只po出一部分看不懂，只能通过源码自己研究。最后的解决办法就是，模仿源码的操作，以下通过tcl→ex→sat-iridium.tcl为例子，只需要简单两步。
Tcl与Design Compiler （三）——DC启动环境的设置
最新发布
po_poo的博客
07-24 624
在由上而下的综合工程中，上一层的设计调用底层已经综合的模块时，将从link_library中寻找并且链接起来，因此当读入的文件是门级网表（比如用到了IP核的网表）时，需要把 link library 设成指向生成该门级网表的目标库，否则 DC 因不知道网表中门单元电路的功能而报错。B库变量的指定我们一般放在dc_setup.tcl这个文件中，这里的库变量一般是用set_app_var进行指定，此外指定的是具体的某一个库，而不仅仅是路径，DC会从search_path里面寻找到这些库。
tcl与C++联合编程
05-21
TCL与C＋＋联合编程，在Linux下进行简单图形开发。使用方便灵活。tcl是既是脚本语言，它也包含了图形库tk。。。。。。
TCl语言调用C语言的实现方法
weixin_45857223的博客
04-20 1123
这个示例代码定义了一个名为"sum"的Tcl命令，它接受两个参数a和b，并将它们作为整数相加，然后返回结果。代码的文件名一定为 ：Sample.c 否则会出现错误(理解清楚后，可以自己改代码，并改文件名)。Tcl是一种常见的脚本语言，它支持动态扩展，可以通过在Tcl脚本中调用C函数来实现对C语言的调用。4、在Tcl脚本中，使用这个Tcl命令，在Tcl环境下运行C语言函数。2、使用C/C++语言的头文件，定义一个Tcl命令来调用C函数。3、将这个命令加载到Tcl解释器中，并注册一个对应的Tcl命令。
c++/c内部调用ＴＣＬ
liujianfei526的专栏
12-19 5276
TCL提供了C语言的调用接口，可以很容易地嵌入到C程序中；由于TCL提供了与C的接口函数，所以可以在C编写的应用中调用TCL的库函数，执行TCL的命令或脚本。具体的工作有：     ①创建TCL的解释器;         ②执行TCL的命令或脚本;     ③对返回代码进行处理;     ④撤消TCL的解释器。 一、test.c代码 #include #include #
C++/Tcl-开源
05-29
C++/Tcl开源库是IT领域中一种用于融合C++和Tcl编程语言的工具，旨在实现两者之间的无缝交互。这个库使得开发者能够利用C++的强大性能和面向对象特性，同时利用Tcl的易用性和灵活性。在C++程序中嵌入Tcl解释器或者在...
C++/Tk-开源
05-29
Tk是最初为Tcl编程语言设计的一个GUI库，但C++/Tk使得开发人员可以用C++这种静态类型、面向对象的语言来构建Tk应用。这个库的独特之处在于它利用了C++的特性，如模板和运算符重载，以提供与Tcl/Tk语法相接近的编程...
TCL脚本语言编程_tcl_TCL校本编程_
09-29
《TCL脚本语言编程》这本书可能是为初学者设计的，旨在帮助读者掌握TCL的基础知识和应用技巧。 TCL的核心特性包括简洁的语法、动态类型和内置的字符串处理能力。其语法结构相对简单，使得学习曲线较平缓。例如，...
Documents.rar_Linux/Unix编程_PDF_
08-11
This package contains the following1) basics of linux to be known in advance to learnd ns2.2)Basics of C++ to know ns2.3)basics of Otcl and tcl to know ns2.4)Installation guide of ns2 in linux ...
ucli 之TCL
m0_58514221的博客
11-06 1065
string1 string2 [startindex] //在string2 中从头查找与string1匹配的字符序列，如果找到，那么就返回匹配的第一个字母所在的位置(0-based)。format命令类似于ANSIC中的sprintf函数，它按formatstring提供的格式，把各个value的值组合到formatstring中形成一个新字符串，并返回。这上面的例子中，upvar 把$arg(实际上是过程myexp中的变量a)和过程temp中的变量b绑定，对b的读写就相当于对a的读写。
Python & tcl & C++ 入门资源
gaoxcv的博客
10-23 983
C++: 入门：https://www.runoob.com/cplusplus/cpp-overloading.html 关注章节 1 重载函数 operator xx 2 命名空间 xx :: xx 3 模板 xx < xx > https://www.cnblogs.com...
ucli tcl cmd
ahr7882的博客
02-26 2401
ucli接口与tcl 8.6兼容；vcs中要调用ucli接口，执行脚本，必须在compile的时候，加入debug的权限； 　　　　　　　　　　-debug，-debug_pp，-debug_all，-debug_access，-debug_region 　　　　　　　　在run的时候，指定vcs -ucli [run_option] hierarchical name的pa...
tcl文件调用c语言,TCL与c/c++的互相调用
weixin_33534991的博客
05-24 2389
TCL与c/c++的互相调用TCL是一个解释型的语言，但是功能相当强大，一个重要原因就在于它的扩展性，现有的诸如http,socket,xml,oratcl等等，使得tcl可以轻松处理字符串、文件、通信以及数据库等等多方面的工作，甚至支持多线程。TCL的扩展可以通过调用tcl library来完成，具体的开发语言可能有多种，本文第一部分将以c/c++为例讨论。此外，缘于客户化的需要，也有可能在c/...
Open CASCADE学习|TCL命令转化为C++（下）
T20151470的博客
02-07 426
【代码】Open CASCADE学习|TCL命令转化为C++（下）
Tcl/C混合编程：将Tcl嵌入你自己的程序
linuxarmsummary的专栏
05-17 4374
原创】Tcl/C混合编程：将Tcl嵌入你自己的程序 Tcl/Tk同Python一样，是一种高级语言。所不同的是，Python追求高大全，几乎我们能想得到的所有计算机领域都有Python的库，甚至如CUDA调用，符号计算，3D显示等都可以。Tcl却恰恰相反，它追求的是小巧精致，尽管没有那么华丽的库，但这也是它的优点。整个Tcl/tk库可以简单而无缝的嵌入到任何人自己开发的程序而不使程序臃肿变
Tcl/Tk C/C++ 扩展
05-13 577
Tcl 作为一种脚本语言，有其优点，因而在C/C++程序中加入执行Tcl脚本的能力，可以提供脚本。Tcl 作为一种脚本语言，终有其局限性。比如速度和某些功能。在Tcl中调用 C/C++ 使得 Tcl 可以扩展。Tcl/Tk 和 C/C++ 的关系可以概括为三种情况： 在C/C++程序里面执行 Tcl 语句。 (Tcl Interpreter) 在 Tcl 中调用 C/...
TCL与c/c++的互相调用
yyt7529的专栏
09-19 7099
TCL与c/c++的互相调用   TCL是一个解释型的语言，但是功能相当强大，一个重要原因就在于它的扩展性，现有的诸如http,socket,xml,oratcl等等，使得tcl可以轻松处理字符串、文件、通信以及数据库等等多方面的工作，甚至支持多线程。<br />  TCL的扩展可以通过调用tcl library来完成，具体的开发语言可能有多种，本文第一部分将以c/c++为例讨论。<br />  此外，缘于客户化的需要，也有可能在c/c++代码中调用tcl的咚咚，例如执行脚本啊，配置文件什么的，具体可见第二
makefile往tcl中传递参数
Mr_huang1103的博客
05-20 3073
makefile定义变量，期望传递到tcl中。 1、在makefile中设置：export filelst = ./filelist.f 2、在tcl中设置变量数组：set env() "filelst" 3、在tcl中调用变量数组：echo $env(filelst)
精通Tcl/Tk8.5编程：实战菜谱
8. **扩展与嵌入**：讨论如何使用和编写Tcl的C语言扩展，以及如何在其他语言（如C或C++）中嵌入Tcl解释器。 9. **高级话题**：涵盖Tcl的面向对象编程、模块化设计、错误处理策略，以及性能优化方法。 10. **实战...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值