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

（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