用VC写一个TCL的解释器（图）

;E8uwCH/Q^0今天上完了19期的集成测试自动化TCL（Tool Command Language）课，给他们介绍了TCL的扩展机制以及用VC搭建一个TCL集成测试环境。后来有同学问我是否可以用VC写一个Tclsh那样的解释器，我想了想，难的都教了（扩展指令都会了），简单的还不会么，于是打开VC，歘歘歘……

(lT)_1u7_@(x0v0自从给大家讲了Console版的tcl集成环境搭建指南后，我发现开始喜欢写“傻瓜式教程”了——呵呵，希望能够给更多的初学者带来有效的帮助。

7y P@0IcQE0以下就直奔主题，带大家用VC写一个最简单的Tcl解释器。51Testing软件测试网0A5A4fvz J

首先，打开VC（注：本人用的是VC 6.0英文版），点菜单File-->New，出现如下这张图，选择Projects-->Win32 Console Application，在Project Name那里填入MyTcl，然后点OK按钮。51Testing软件测试网A(Yt6\KpQ8|

!m(wU'o0`t0在接下来的向导窗口中选择“A Simple Application”，点Finish按钮。51Testing软件测试网skhl-Ok9R

再接下来弹出一个New Project Information，点OK按钮。51Testing软件测试网u5n _&v\$k

\5gi2rz&s!v0接着，双击VC项目工程的FileView（文件视图）里的MyTcl.cpp文件，输入代码如下：51Testing软件测试网 zhg(S.P9N5j;SP)U
[CODE]51Testing软件测试网 J3_ Yg(s ~ A U

;W^,HDM0|R)i+g0// MyTcl.cpp : Defines the entry point for the console application.51Testing软件测试网H;Q/PJc`
// code by 51Testing.songfun

#include "stdafx.h"51Testing软件测试网 qR6~.pk%J I}
#include <tcl.h>

/y#\tqJo"V([0int Tcl_AppInit(Tcl_Interp *interp)
*`[.d
hh\*?0{ 51Testing软件测试网5Gr8Au_)\ x
 if (Tcl_Init(interp) == TCL_ERROR)
f
AJ(a~fPG0 {
+N X7m:a*VU(Y0  return TCL_ERROR;
V4X8@@4nT,?/k'~]'?0 }
o e ilCb
L+W0 return TCL_OK;51Testing软件测试网]6b?WeYk
R'y
}

int main(int argc, char *argv[])51Testing软件测试网c,Y&uP9p/wo
{
!AB;bt V2g N8x
f7y$v0 Tcl_Main(argc, argv, Tcl_AppInit);
.d~8Jr'y0 return 0;
:L
{!?S9gCxN0}

[/CODE]

然后，点VC的菜单Project-->Add to Project-->Files，把tcl.h和tcl83.lib分别加进来。如图。
Kd0^)j&MG(z K C0再在VC的菜单Tools-->Options的Directories里设置tcl83包的头文件路径和库文件路径。如图。51Testing软件测试网gnd'e,f;~
g/u

@4X%w2B*C8yr4B;j0最后，点VC的“感叹号”Execute（执行按钮），看到什么了？
%GGn:e:w1N1PR0k%Yo~0呵呵，是不是这个窗口和大家之前看到的那个tclsh应用程序很像啊？51Testing软件测试网VCL_[9fEG(W
它就是我们自己写的tcl解释器，怎么样，很有成就感吧，嘻嘻，其实代码也没有多复杂对吧。51Testing软件测试网9hQ Q!LS#p$b$m_1`

w1t9O4A7]$F%]@Kj0实际上，这个地方只是演示一个例子，我们放着tclsh和scrīpt.Net这样的tcl解释工具不用，却自己用VC写一个tcl解释器的目的是什么？正是为了使用它的扩展机制来扩展我们自己定义的命令。所以上述的例子本身的意义还不是很大，必须结合有效的扩展函数的实现才会显得更有意义（这也是我上课给大家讲的内容）。

OK，本篇文章到此结束，大家有任何疑问可以随时和我交流，请各位不吝赐教啊，呵呵……51Testing软件测试网B"m!W8L-d^"A!BA

newProj

Win32Console

npi

MyTcl

mytclsh