Tcl 语法

ArticleCategory:[Artikel Kategorie]

AuthorImage:[Bild des Autors]

AuthorName:[Name des Autors]

AboutTheAuthor:[Über den Autor]

Abstract:[Zusammenfassung]

ArticleIllustration:[Titelbild des Artikels]

ArticleBody:[Der eigentliche Artikel]

Tcl语法简介

作为一种脚本语言，Tcl具有简单的语法.

cmd arg arg arg

一条Tcl命令由空格分割的单词组成. 其中, 第一个单词是命令名称, 其余的是命令参数 .

$foo

$符号代表变量的值. 在本例中, 变量名称是foo.

[clock seconds]

方括号执行了一个嵌套命令. 例如, 如果你想传递一个命令的结果作为另外 一个命令的参数, 那么你使用这个符号 . 在本例中, 嵌套命令是以秒为单位的当前时间秒数 .

"some stuff"

双引号把词组标记为命令的一个参数. "$"符号和方括号在双引号内仍被解释 .

{some stuff}

大括号也把词组标记为命令的一个参数. 但是, 其他符号在大括号内不被解释.

\

反斜线符号(\) 是用来引用特殊符号. 例如：\n 代表换行. 反斜线符号也被用来关闭"$"符号 , 引号,方括号和大括号的特殊含义 .

一个小例子

下面是Tcl中打印当前时间的命令. 它使用了三条Tcl命令 : set, clock, 和 puts. set 命令给变量赋值. clock 命令生成时间值 . puts 命令打印结果.

set seconds [clock seconds]
puts "The time is [clock format $seconds]"

注意在给变量赋值时并未使用$符号. 只有在使用变量时才使用$符号.在上个例子中, seconds 变量并不是必须的. 你能使用一句命令打印出当前时间:

puts "The time is [clock format [clock seconds]]"

分组和替换

Tcl解析Tcl语法是通过以下三步: 参数分组, 结果替换和命令分派.

1. 参数分组. Tcl需要决定怎样组织命令的参数 . 在最简单的情况中, 空格分隔了各参数 . 作为早期规定, 引号和括号使多个单词成为一个参数 . 在上个例子中 , 双引号使多个单词 成为puts命令的一个参数.

2. 结果替换. 在参数分组后 , Tcl执行字符串替换. Put命令中, 只是简单地用变量 $foo 的值替换了foo, 用结果替换了括号命令. 替换是在分组之 后 后进行的. 这种次序使 特别的值并未使命令结构变复杂.

3. 命令分派. 在结果替换后, Tcl使用命令名称作为关键字 ,查询分派表,调用相应的C程序,来执行命令. . 你也可以在Tcl中开发命令程序. 在参数传递和错误处理 中有一些简单的约定.

另一个例子

下面是另一个例子:

set i 0
while {$i < 10} {
    puts "$i squared = [expr $i*$i]"
    incr i
}

我们看到了两个数学表达式: 逻辑比较和乘法计算. while命令自动计算第一个参数值. 在其它场合时,你要明确使用 expr 命令来执行数学计算.

命令分派

最后,Tcl调用程序执行复杂的工作. 我们可以看到Tcl 使用 expr 命令来执行数学运算, puts 命令来执行输出功能, set 命令来给变量赋值. 这些Tcl命令,是通过已在Tcl中注册 的C语言程序来执行的. C语言程序调用Tcl命令传来的字符串参数, 然后传回结果字符串. 写C语言程序并不复杂, 而且可以做任何事情，包括访问数据库和建立图形界 面. Tcl语言, 并不清楚命令会做什么 , 它只是进行参数分组, 结果替换和命令分派 .

最后一个例子

这是一个阶乘程序:

proc fac {x} {
    if {$x < 0} {
        error "Invalid argument $x: must be a positive integer"
    } elseif {$x <= 1} {
        return 1
    } else {
        return [expr $x * [fac [expr $x-1]]]
    }
}

进一步阅读

• <<使用Tcl 和 Tk 熟练编程>>第一章
• E.J. Friedman的Tcl/Tk教材

中文翻译：大明