tcl/tk学习笔记《二》 tcl/tk概览二

最新推荐文章于 2025-06-22 10:04:43 发布

原创

最新推荐文章于 2025-06-22 10:04:43 发布 · 1.7k 阅读

3 ·

CC 4.0 BY-SA版权

本文介绍了Tcl/Tk中的while循环控制结构，并详细解析了其执行过程。通过查看源码，阐述了while循环的预处理、Tcl_EvalObjEx的执行以及后处理程序的三个步骤，强调了while命令如何调用其他Tcl命令并利用回调函数执行后续操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

（6）控制结构(粗略看一下) http://www.tcl.tk/man/tcl8.6/TclLib/NRE.htm#M5

tcl的控制语言结构，如下看一下while循环

while {val > 0} {

result *= val ;

val -= 1;

}

大家可以看到，这个语句是“while {语句一} {语句二}”这样的方式出现的，我现在给大家说，这个while循环的过程，这个tcl脚本解释器，这个跟shell脚本解释器其实差不多，这个解释器特别简单，它就只能解释单个的tcl指令，或者执行多个单个命令的过程集合。他就是简答的替换，while循环处理的过程如下图

关于上面说的这些个处理过程，我事先查看了一下关于这个while循环的源码，大家有兴趣的话可以自己查看，如果你实在看不懂源码里面的细节内容的话，可以参照我开头给的那个链接，点进去看看源码里面的每个函数主要的功能在哪里，然后你一个一个去对照，也能看懂，所以我就是先打开开头那个链接，查看一下关于一个 TclNRAddCallback的 函数，然后再说说源码，首先这个 TclNRAddCallback 这个函数呢，其实是一个宏定义，在tclInt.h文件中

定义： #define TclNRAddCallback (interp,postProcPtr,data0,data1,data2,data3)

关于这个函数的官方解释如下

Tcl_NRAddCallback是 当在interp指定的解析器中的当前跳转函数指令返回的时候调用的一个C的回调函数，这哥们有6个参数

第一个参数是： interp 解析器的指针

第二个参数是： Tcl_NRPostProc * postProcPtr 的指针指向的回调函数

后面的就是几个参数

typedef int Tcl_NRPostProc (

ClientData data [],

Tcl_Interp * interp ,

int result );

当跳板函数调用回调函数的时候，这个data参数是指向一个包含4个参数的数组传递给 Tcl_NRAddCallback的data0到data3中，tcl解析器被interp这个参数指定的，result函数的值则是有命令指向的结果赋值进去的，result的值可能为：（ TCL_OK , TCL_ERROR