TCL心得一

下了windows的安装包。

一、在wish85里运行一下简单的测试。e:/tcl/test.tcl

%source e:/tcl/test.tcl

目录的斜杠方向跟UNIX一样哦。

test.tcl 内容


proc tgrep {pattern filename } {

set f [open $filename r]
while {[gets $f line]} {
if {[regexp $pattern $line]} {
puts stdout $line
} else {
puts "not found $pattern."
}
}

close $f
}

tgrep word e:/tcl/test.txt

因为while {[gets $f line]} ,gets读取一行并返回该行的字符数,文件尾返回-1,所以这种格式的判断,遇到空白行就停止循环了,后面的行不在读入。

 

另外,如果最后一行之后没有回车,有时候wish85控制台就没有响应,呆在那不动弹了。加上回车就好了。但这种情况也不是每次都出现。也有可能是别的原因。

 

 

二、在VC用TCL库函数写TCLsh解释器。

主要碰到的问题是老提示TCL_init()没有定义。发现原因是虽然包含了tcl.h等头文件,但是没有加入tcl85.lib.

VC中要把tcl.h,tcl85.lib加入到工程,并且在tools,options里的derictiories加入两个文件的路径。

#include "tcl.h"

#include "stdio.h"

#include "stdlib.h"       

int  Tcl_AppInit(Tcl_Interp *interp);

main(int argc, char *argv[])

{
Tcl_Main(argc, argv,Tcl_AppInit);
exit(0);

 

int Tcl_AppInit(Tcl_Interp *interp)
{
if (Tcl_Init(interp) == TCL_ERROR)
 {
return TCL_ERROR;

 }
return TCL_OK;
}

 

发现这个链接有很详细的介绍。

http://www.51testing.com/?uid-35-action-viewspace-itemid-11699

 

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值