云南龙网

  1. 首页 > 云知道 > >

TCL脚本数据文件格式( 二 )

云知道


.c create rectangle $x1 $y1 $x2 $y2 -width $thickness -outline $color} elseif { [regexp
{^text([0-9] )([0-9] )("[^"]*")([^ ] )(.*)$}
$line dummy x y txt anchor color] } {
.c create text $x $y -text $txt -anchor $anchor -fill $color} elseif { [regexp {^ *$} $line] } {
# Ignore blank lines} else {
puts "error: unknown keyWord."
}
}
close $fid我们一次读取一行数据,使用正则表达式查找该行代表的是某种数据类型.通过检查第一个词,我们可以区分代表长方形的数据和代表文本的数据,所以第一个词是一个关键字,它明确地告诉我们正在处理的是什么类型的数据.同样我们分析每个项目的坐标,颜色和其他属性.括号中正则表达式的分组部分使我们找到变量"x1","x2"等的分析后的结果.
假如你知道正则表达式如何工作，这看上去是一个很简单的实现.但我觉得它有点难以维护，正则表达式也使其难以理解.
还有一个更简捷的解决方法，叫做“active file(主动文件)”.原本由Nat Pryce在设计样本时想到的 。这种方法基于一个非常简单的提议：与其用TCL自己来写语法分析器（用regexp或其他途径），干嘛不让TCL的语法分析器为你做这些工作呢？
▲主动文件设计样本
为解释这种设计样本，我们继续使用上节中那个简单的绘图工具 。首先我们用TCL语言写两个过程，一个画矩形，一个写文本 。
example2/parser.tcl
canvas .c
pack .cproc d_rect {x1 y1 x2 y2 thickness color} {
.c create rectangle $x1 $y1 $x2 $y2 -width $thickness -outline $color
}proc d_text {x y text anchor color} {
.c create text $x $y -text $text -anchor $anchor -fill $color
}现在要在画布上绘图，我们调用这两个过程就行了，每次调用其中的一项 。比如要画如前所述的图形，需要下面三个调用 。
example2/datafile.dat
d_rect 10 10 150 50 2 blue
d_rect 7 7 153 53 2 blue
d_text 80 30 "Simple Drawing Tool" c red看上去眼熟吗？调用过程的代码看上去与先前我们分析的代码几乎完全一样 。唯一的不同之处是关键词由"rectangle"和"text"变成了"d_rect"和"d_text".
现在我们看到了写样本的技巧:为分析数据文件,我们要把它当作一个TCL脚本来对待 。我们只把对我们写好的过程的调用放到一个文件中,并用此文件作为数据文件.设计样本的核心是数据文件实际上包含着对TCL过程的调用.
分析数据文件现在太容易了:
source "datafile.dat"内建的TCL命令source读取文件,分析并执行文件中的命令.因为我们已经完成了d_rect和d_text过程,source命令将自动以正确的参数调用这两个过程.我们将d_rect和d_text称为分析过程.
我们无需再做任何分析,不用正则表达式,不用一行一行地循环,不用打开/关闭文件.只需调用source命令就完成了所有的工作 。
数据文件已经成了可以执行的TCL脚本.因为它包含的是可执行命令，而不仅仅是被动的数据,所以称之为主动文件.主动文件在大多数脚本语言环境中均可正常运行,在Nat Pryce的主页上对其有详细的描述.
▲使用主动文件样本的优点:
无需再写一个分析程序,source调用TCL分析程序即可完成.
容易读取数据文件格式.
使用主动文件样本的缺点:
如果数据文件包含有危险命令,象l -a exec rm *,它们执行后会带来严重的后果.解决这个问题的办法是在安全模式下执行主动文件,防止危险命令 。具体信息可参看TCL手册中"安全解释器"部分.
▲主动文件样本的局限
此样本不是对所有可能的数据格式都有效.数据格式必须是以行为基础的,每一行必须以一个关键字开头.用关键字开头写TCL过程,就把被动的关键字变成了主动的命令 。这也意味着你不能使用象if或while之类的关键字,因为TCL不允许你用这样的名字来写过程.事实上,上面的例子中我把关键字改为d_text,就是因为开发工具包已经有了保留字text,该命令用来创建文本工具.

推荐阅读


上一篇：蔬菜苗期和开花结果期病害如何防治

下一篇：小米10s要单独买充电器吗