我曾经学习如何设置UG的后处理器,进入后处理构造器后,原来进行设置时,要用到tcl语言,自己不会但通过搜索网上的教程和程序,也能基本满足使用要求,但总是心里没底的感觉。
b7 P0 q& N9 _- B原来这个tcl语言是可以学习的,有空下载点资料来学习一下。
+ l! g" z) q! U5 S3 e; P资料:
0 p; z2 t$ B$ v7 s7 J; n3 |TCL语言 Tcl (最早称为“工具命令语言”"Tool Command Language", 但是目前已经不是这个含义,不过我们仍然称呼它为TCL)是一种 脚本语言。 由John Ousterhout创建。 TCL很好学,功能很强大。TCL经常被用于 快速原型开发,脚本编程, GUI和测试等方面。 Tcl (最早称为“工具命令语言”"Tool Command Language", 但是目前已经不是这个含义,不过我们仍然称呼它为TCL)是一种 脚本语言。 由John Ousterhout创建。 TCL很好学,功能很强大。TCL经常被用于 快速原型开发,脚本编程, GUI和测试等方面。TCL念作“踢叩” "tickle". Tcl的特性包括: * 任何东西都是一条命令,包括语法结构(for, if等)。 * 任何事物都可以重新定义和重载。 * 所有的数据类型都可以看作字符串。 * 语法规则相当简单 * 提供事件驱动给Socket和文件。基于时间或者用户定义的事件也可以。 * 动态的域定义。 * 很容易用C, C++,或者Java扩展。 * 解释语言,代码能够动态的改变。 * 完全的Unicode支持。 * 平台无关。Win32, UNIX, Mac 上都可以跑。 * 和Windows的GUI紧密集成。 Tk * 代码紧凑,易于维护。 TCL本身不提供面向对象的支持。但是语言本身很容易扩展到支持面向对象。许多C语言扩展都提供面向对象能力,包括XOTcl, Incr Tcl 等。另外SNIT扩展本身就是用TCL写的。 使用最广泛的TCL扩展是TK。 TK提供了各种OS平台下的图形用户界面GUI。连强大的Python语言都不单独提供自己的GUI,而是提供接口适配到TK上。另一个流行的扩展包是Expect. Expect提供了通过终端自动执行命令的能力,例如(passwd, ftp, telnet等命令驱动的外壳). 具体例子 下面是TCL程序的例子: #!/bin/sh # next line restarts using tclsh in path \
0 ~% R4 V( N2 o& W3 l7 h5 c- A4 Q exec tclsh ${1+"$@"} # echo server that can handle multiple # simultaneous connections.
( C' J- y/ c" b) U% b proc newConnection { sock addr port } { # client connections will be handled in # line-buffered, non-blocking mode
+ a% I' t. S% A fconfigure $sock -blocking no -buffering line # call handleData when socket is readable 0 I9 h9 d3 F c. Y- d
fileevent $sock readable [ list handleData $sock ] }
: {/ e1 A; P2 {( j- l proc handleData {
+ m& E, {' o' f7 a+ S! g U* Q. U puts $sock [ gets $sock ] if { [ eof $sock ] } { close $sock } } 0 d6 Q. r! g5 a! [8 C6 ]7 k" K
# handle all connections to port given # as argument when server was invoked # by calling newConnection ' x! i" ]: F/ o
set port [ lindex $argv 0 ]
! H& d% \$ B- @" I4 s socket -server newConnection $port # enter the event loop by waiting
* I: r* S9 k3 i* v: b # on a dummy variable that is otherwise # unused. 6 b! k: Q" V% Q: @ `; n
vwait forever
' C9 u$ l0 T$ s 另外一个TK的例子 (来自 A simple A/D clock) 它使用了定时器时间,3行就显示了一个时钟。
8 L% E6 v& |9 e% ?$ O( S proc every {ms body} {eval $body; after $ms [info level 0]} pack [label .clock -textvar time]
/ }4 m- O+ f* l. {2 Q) w every 1000 {set ::time [clock format [clock sec] 0 e$ N n7 O, W# Z
-format %H:%M:%S]} # RS 8 U5 f" ]- g4 h- p, ~9 H
解释:第一行定义了过程every, 每隔ms毫秒,就重新执行body代码。第二行创建了标签起内容由time变量决定。第3行中设置定时器,time变量从当前时间中每秒更新一次。
n) k% e' q; ?. S" q, o3 N/ X$ Q( T! X; v) _0 J
3 z: [! D0 m9 T, y2 B2 D
4 Q `1 k, P0 ?" z+ p
|