基于Tcl语言的外壳语言实现方法
Tcl语言基础（
Tcl语言基础（TCL语言Tcl tick 的构成在下面的清单中，将会发现第一个很常见的示例程序，它是用Tcl 实现的。
这是一个完整的脚本：第一行命令调用 tclsh 环境，第二行命令执行实际工作。
用您所选择的文本编辑器创建该脚本，输入chmod +x hello.tcl 使之成为可执行文件，然后执行它以测试您这件“作品”。
~/tcltk$ cat hello.tcl#!/usr/bin/tclshputs stdout {Hello, World!}~/tcltk$ ./hello.tclHello, World!Tcl 和 Tk 是解释型的、可扩展脚本语言。
与 BSD 许可证十分相似，该许可证允许在任何情况下自由使用该软件，只要在所有副本中保留该版权并且在任何分发中一字不差地传递通告。
这个许可证条款使Tcl/Tk 成为自由软件。
Tcl/Tk 是一种解释型环境。
可以通过添加预编译的C 函数来扩展Tcl 解释器，可从 Tcl 环境内部调用 Tcl 解释器。
可以为特定目的或一般的以及广泛使用的而定制这些扩展。
我们将在教程的后面看一些扩展并着重看一下第一个扩展—非常流行的 Expect。
在接下来的几屏中，将回顾 T cl 语言的一些主要特性，从元字符和全局变量到运算符、数学函数以及核心命令。
毕竟，这些命令使Tcl/Tk 成为有特色的，逐步发展的语言。
请记住，在本教程中没有篇幅涉及每条命令。
这里只突出一部分，以后您可以更进一步了解Tcl/Tk。
#!/usr/bin/tclsh# filename hello2.tcl# This program code shows# metacharacter usageputs stdout "Hello, World! \a"puts stdout {Hello, World! \a}set Pints 6set Days 7puts stdout "The answer to the universe is [ $Pints * $Days]!\n"***~/tcltk$ ./hello2.tclHello, World!Hello, World! \aThe answer to everything is 42!Tcl 元字符元字符是在Tcl/Tk 环境的上下文中有特殊含意的字符或字符对，它们包括分组语句、封装字符串、终止语句以及其它，如下表所示。
Tcl语言基础教程
set x 10
set y 100 + $x
这时，y的值还不是我们想要的值110，而是10+100，因为Tcl解释器把10+100看成是一个字符串而不是表达式；y要想得到值
110，还必须用命令置换，使得Tcl会把10+100看成一个表达式并求值。
string tolower string [first] [last]
string replace string first last [newstring]
string equal [-nocase] [-length int] string1 string2
string match [-nocase] pattern string如果pattern匹配string,那么返回1,否则返回0.
Tcl变量根据其结构的复杂程度分为“简单变量”和“数组变量”两类。
（1）简单变量
一个Tcl的简单变量包含两个部分：名字和值，其中名字和值都可以是任意字符串。不过为了更好的使用变量置换功能，变量名
最好按C\C++语言中标识符的命名规则命名。这是因为Tcl解释器在分析一个变量置换时，只把从＄符号往后直到第一个不是字母、数
个新字符串，并返回。例如：
set msg [format "%s is %d years old" $name $age]
【scab】
语法：scan string formatsting varName varName ...
scan命令可以认为是format命令的逆，其功能类似于ANSI C中的sscanf函数。它按formatsting提供的格式分析string字
tcl脚本语言介绍
中的方括号部分，产生一条新命令
set a "hello" //"hello" 为 set b "hello" 的返
//回值
最终的结果是b="hello" a="hello"
当命令的一个子域以方括号开始以方括号结束，表示要进行一个命令子替换。并执行该子命令，用其结果来替换原命令中的方括号部分。方括号中的部分都被视为Tcl命令。
Variables: scalars and arrays 变量：标量和向量（即数组）
向量就是数组，而标量是没有下表的变量。
我们用C来类比：
int i； // i 是标量
int j[10]； // j 是向量
变量不需要定义，使用的时候会自动的被创建。Tcl支持两种
变量：标量和向量
举个例子来说明吧，
Tcl是一种很通用的脚本语言，它几乎在所有的平台上都可以释运行，其强大的功能和简单精妙的语法会使你感到由衷的喜悦，这片文章对 Tcl有很好的描述和说明。如果你看起来很吃力，那是因为 Tcl与一般的语言有一些不同之处，刚开始可能有一些不理解，但很快就会掌握的。请坚持一下,我能坚持写完，你至少也应该坚持读一遍吧！
这里有一个初学者不注意的地方，上述的定义一定要写成那样子。而不能向下面那样写：
proc pf {str}
{
puts $str
}
因为proc实际上也只不过是一条命令，是一换行符或分号来结束的，用集群参数来传递函数体。proc的定义如下：
proc name args tclcommand
TCL编程高级教程讲解
为解决上述问题和进一步提高TCL 的扩展能力，较新版 本的TCL提供了更好的程序包机制。
脚本库和程序包
• 程序包
Q:什么是程序包？ A:由于脚本库的局限性，TCL提供了更好的
TCL已经有一个这样的集合，就是我们指的 全局命名空间。全局命名空间将所有的全局变量 和命令放在一起。 命名空间也叫做名称空间、名 称域、命名域 等。
命名空间
• 命名空间创建:
用 namespace eval 命令创建一个新的命名空间
• 命名空间查询
如果要在命名空间XXX之外查询命名空间内部变 量的值xxx，可以用如下语句： set :: XXX::xxx
命名空间
• 输入命令和输出命令
命名空间常常用来描述库，需要频繁使用命名空间前缀， 用输入命令和输出命令可以省略命令前面的命名空间前缀。
输入命令： namespace import 输出命令： namespace export
命名空间
• 输入命令
➢ namespace import 命令只输入命名空间中用namespace export命令输 出的命令
package 机制来实现对TCL的共用和扩展，也就 是程序包 。
脚本库和程序包
• 创建TCL程序包:
把你想包含在某个包中的所有自定义过程 放到一个TCL脚本文件中，然后在文件的开头 使用 package provide 命令指明这个包的名字和 版本即可。
脚本库和程序包
– 如果一个函数在几个脚本库中都有定义的话，TCL会按照搜索顺序自动加 载在 auto_path 中位置靠前的那个库。因此，如果加载的脚本库要先被搜 索的话，可以使用 linsert 命令将其插入到 auto_path 中靠前的位置中， 例如： % set auto_path [linsert $auto_path 0 c:/tcllib/lib1]
vivado tcl语句
vivado tcl语句1. 什么是Vivado TCL语句？Vivado是一种由赛灵思公司开发的综合工具套件，用于设计和实现复杂的数字电路。
TCL（Tool Command Language）是一种脚本语言，由约翰·奥斯汀（John Ousterhout）于1988年开发，用于自动化软件任务。
在Vivado中，你可以使用TCL语句来定义和执行各种操作，例如创建设计工程，生成约束文件，运行综合和实现流程等。
2. 使用TCL语句的优势有哪些？使用TCL语句可以带来许多优势。
首先，TCL是一种脚本语言，它允许你编写一系列命令来执行复杂的任务，无需逐个手动输入命令。
这大大提高了工作效率，减少了错误的可能性。
其次，TCL语句是可编程的，这意味着你可以使用条件语句、循环和函数等控制结构来编写更加灵活和智能的代码。
你可以根据特定需求自定义脚本，以便自动执行一系列任务，而不是手动操作。
此外，TCL语句还可以与其他脚本语言和工具进行交互，例如Python和Shell脚本。
这意味着你可以在TCL脚本中调用其他脚本或工具的功能，以实现更高级的自动化和集成。
3. 如何使用Vivado TCL语句？使用Vivado TCL语句有一些基本步骤。
首先，你需要打开Vivado软件，并创建或打开一个设计工程。
在Vivado界面中，你可以打开"TCL Console"窗口，它允许你在其中输入和执行TCL命令。
接下来，你可以使用TCL语句来执行各种操作，例如创建设计工程、添加源文件、设置约束、运行综合和实现等。
可以使用"source"命令执行一个TCL脚本文件，或者逐个输入命令。
通过在命令前加上"puts"命令，你还可以打印输出结果，以便进行调试和验证。
此外，Vivado还提供了TCL命令的完整文档和参考手册，你可以在其中查找各种命令和用法的详细信息。
这些文档可以帮助你学习和理解TCL 语句的功能和用法。
TCL语言.
TCL语言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提供了通过终端自动执行命令的能力，例如(pass wd, ftp, telnet等命令驱动的外壳).下面是TCL程序的例子：#!/bin/sh# next line restarts using tclsh in path \exec tclsh ${1+"$@"}# echo server that can handle multiple# simultaneous connections.proc newConnection { sock addr port } {# client connections will be handled in# line-buffered, non-blocking modefconfigure $sock -blocking no -buffering line# call handleData when socket is readablefileevent $sock readable [ list handleData $sock ]}proc handleData {puts $sock [ gets $sock ]if { [ eof $sock ] } {close $sock}}# handle all connections to port given# as argument when server was invoked# by calling newConnectionset port [ lindex $argv 0 ]socket -server newConnection $port# enter the event loop by waiting# on a dummy variable that is otherwise# unused.vwait forever另外一个TK的例子(来自 A simple A/D clock) 它使用了定时器时间，3行就显示了一个时钟。
tcl define_proc用法 -回复
tcl define_proc用法-回复"Tcl define_proc用法"是关于Tcl编程语言中的define_proc命令使用方法的主题。
这篇文章旨在提供一个逐步的解释，以帮助读者理解如何使用define_proc命令来定义过程（procedure）和函数（function）。
在Tcl编程语言中，define_proc命令提供了一种定义过程和函数的方式。
通过使用define_proc，开发者可以编写可重用的代码块，并在程序中使用它们，从而提高代码的可维护性和代码重用性。
接下来，我们将介绍define_proc命令的语法和使用方法，并提供一些示例来帮助读者更好地理解。
首先让我们来看看define_proc的基本语法。
在Tcl中，定义过程和函数都使用define_proc命令，其语法如下：define_proc procedureName {arguments} {过程/函数体}在这个语法中，procedureName代表过程或函数的名称。
arguments 是一组由空格分隔的参数列表，即过程或函数可以接受的输入。
花括号{}中的内容是过程或函数体，其中包含了实现过程或函数功能的代码。
接下来，我们将通过一些例子来说明define_proc命令的使用方法。
让我们首先定义一个简单的过程，该过程接受两个参数并计算它们的和。
代码如下：define_proc sum {a b} {set result [expr {a + b}]puts "The sum of a and b is result"}在这个例子中，我们定义了一个名为sum的过程，它接受两个参数a和b。
首先，我们使用set命令将变量result设置为参数a和b的和。
然后，我们使用puts命令在控制台上输出结果。
现在，我们可以在程序中调用sum过程，并传递两个数字作为参数。
例如，我们可以这样调用sum过程：sum 5 10。
UG后处理tcl语言解释
exec tclsh ${1+"$@"}# echo server that can handle multiple# simultaneous connections.proc newConnection { sock addr port } {# client connections will be handled in# line-buffered, non-blocking modefconfigure $sock -blocking no -buffering line# call handleData when socket is readablefileevent $sock readable [ list handleData $sock ]}proc handleData {puts $sock [ gets $sock ]if { [ eof $sock ] } {close $sock}}# handle all connections to port given# as argument when server was invoked# by calling newConnectionset port [ lindex $argv 0 ]socket -server newConnection $port# enter the event loop by waiting# on a dummy variable that is otherwise# unused.vwait forever另外一个TK的例子 (来自 A simple A/D clock) 它使用了定时器时间，3行就显示了一个时钟。
proc every {ms body} {eval $body; after $ms [info level 0]} pack [label .clock -textvar time]every 1000 {set ::time [clock format [clock sec]-format %H:%M:%S]} ;# RS解释：第一行定义了过程every，每隔ms毫秒，就重新执行body代码。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Matrix 语言
Tcl 基本指令
Matrix 扩展指令
图 1 matrix 语言结构
matrix 基本部分就直接使用 Tcl 语言 其语法格式完全 依照 Tcl 语言 算术运算 逻辑运算 控制判断等处理由 Tcl 语言解释器处理 设计语言时就不必将大量的精力花在基本 问题的处理上 而是直接处理面向矩阵运算的问题
133
万方数据
每一条命令都有两个结果 一个退出值和一个字符串 退出值标志着命令是否正确执行 字符串给出附加信息
关于 Tcl 语言编程可进一步阅读参考文献 1
2 matrix 语言结构
matrix 语言是一个简单的面向矩阵计算语言 并非是一 个全新的语言 而是从 Tcl 语言扩展而来 其结构见图 1
Tcl 只支持一种数据结构 字符串 所有的命令 命令 的所有的参数 命令的结果 所有的变量都是字符串 然而 字符串的实际解释是依赖于上下文或命令的 有 3 种形式 命令 表达式和表
作 者 简 介 崔 鸿 (1972 ) 男 讲师 硕士 主研方向 计算机 网络和嵌入式系统 李全福 助教 硕士 收稿日期 2005-05-10 E-mail cuihme@
3 外部程序 编写单独的 C 程序 编译后用 Tcl 的 exec 命令来运行 这些程序 但是 和调用一个相同应用程序的内部 Tcl 命令 相比 运行一个外部程序需要额外的开销 在连接应用程序 如数据库 的时候 可能要占用较长的时间 那么做一个 Tcl 命令集与这个应用程序匹配的接口要比每次调用它方便 得多 外部程序更适用于那些一次性的操作 例如给一个文 件加密
Key words Oriented field; Tcl language; Matrix language
当今计算机的应用计算机应用的生命力在于同各行业 融合的程度 传统的应用软件是由计算机人员了解用户需求 后 编制软件 由于人表达复杂系统的局限性 最终的软件 往往出现与用户的真正需求不符的情况 而且这种软件对用 户是一个黑盒子 用户不了解软件的内部结构 当需求变化 时 无法自行维护
set n1 [new m n] 定义一个 m 行 n 列的矩阵 将结果返回给 矩阵 n1
evaluate $n1 为矩阵 n1 的各行各列赋初值 set n2 [ reverse $n1] 求矩阵 n1 的转置 将结果返回给 n2 set n3 [add $n1 $n2] 将矩阵 n1 和 n2 求和的结果返回给 n3
evaluate $n1 $list1 同理为矩阵 n2 赋值
set n2 [new 2 3]
lappend list2 1 2 3 4 5 6
evaluate $n2 $list2 定义矩阵 n3 并将 n1 n2 的和存储在 n3 中
set n3 [add $n1 $n2] 显示 n3 内容
display n3 从上述的一个加法程序可以看出 矩阵加法只需一条指 令就可完成 其编程十分简单 灵活 非计算机人士学习这 样的语言也不会感到困难 而他们编出的程序会较好地符合 任务需求 并且也可以自己维护自编的软件
5 结论
面向对象的软件设计方法能使软件可重用性和可扩充 性大大提高 当系统需求变化时 就能使系统作出灵活的反 应 这在大尺度软件的设计开发中是十分重要的
下转第 137 页
万方数据
点的每一维对选取中心影响大小的不同 自动产生合适的聚 类个数进行聚类 并且在事先不用给出聚类的个数 而在 FCM 中 必须事先给出聚类的个数 如果个数选得不合适就 会影响最终的聚类效果 这里的数据使均匀分布的 300 个随 机数据 还不能十分完全地看出使用减法聚类与 FCM 相结 合的聚类方法的好处 如果数据点是一些已经有一定聚类性 质的数据点 效果会更明显
1 Tcl/Tk 简介
Tool Command Language (Tcl)是一种脚本语言和它的解 释器 interpreter Tk 是与之相联系的 X Window 工具箱 X windows toolkit, Tk Tcl/Tk 是由加利福尼亚大学伯克利分校 的 John k.Ousterhout 教授编写的 运行于 Unix 系统之上 Tcl 是一种功能很强大的脚本语言 它简明 易学 高效 移植 性好
随着计算机的广泛应用 各行业都有大量人士掌握了基 本的计算机技术 若是能由用户或各行业的技术人员来编制 其所需的软件 由于他们非常了解自己的需求 所编制的软 件就能较好地符合实际需求 而且随着需求变化 可由用户 自己随时修改软件功能
因此 研究面向专业领域的专用语言的实现方法 有着 现实意义 这种语言应该简单易学 具有功能化指令 本文 探讨了一种应用 Tcl 语言和 C 语言的实现方法 并用这种方 法实现了一个简单的面向矩阵计算的 matrix 语言 由于主要 是为了研究专用语言的实现方法 只包括了矩阵的定义 显 示 加法 乘法 求转置等几条指令
4 矩阵运算实例及性能分析
以下是在 matrix 语言解释器完后实际运行的一个程序
把矩阵 n1 定义为一个 2 行 3 列的矩阵
set n1 [new 2 3] 为列表 list1 赋值
lappend list1 1 2 3 4 5 6 将列表 list1 中的值按照先行后列的顺序依次赋给矩阵 n1
Tcl 是一种很有特色的脚本语言 可以从两个角度理解 它 语言和库 首先 Tcl 是一种通用的外壳语言 它有简单 的语法 其次 Tcl 是一个库 可以嵌入到应用程序 它包 含一个分析器 执行 Tcl 指令 并允许扩充指令集合 即定 义专用的指令集 应用程序中可以使用 Tcl 基本指令 也可 以使用扩展指令 由 Tcl 库进行指令分析和执行 但有可能 在二者间产生递归调用
第 31 卷 增 刊 Vol.31 Supplementary Issue
软件技术与数据库
计算机工程 Computer Engineering
文章编号 1000 3428(2005)增刊 133 02 文献标识码 A
2005 年 7 月 July 2005
中图分类号 TP302
基于 Tcl 语言的外壳语言实现方法
134
矩阵计算程序
Matrix 解释器
Tcl 解释器 Matrix 扩展指令 Tcl 程序库
Matrix 扩展指令 c 程序库
图 2 matrix 语言运行原理与解释器结构 (1)Tcl 解释器 matrix 解释器是用 C 语言编写的软件 在其内部嵌入了
一个 Tcl 语言解释器 由其完成 matrix 语句的语法 语义分
3 matrix 语言运行原理
同其它语言一样 matrix 语言的运行原理也是用其编写 程序 然后交给编译或解释器执行 首先编写 matrix 程序 也叫脚本文件 由用户编写其所需的软件 然后调用 matrix 解释器执行程序
构建 matrix 语言的核心就是构建其解释器 其解释器由 C 语言编写 内部结构图 2 所示 主要由 3 个部分组成 一 个内嵌的 Tcl 语言解释器 一个外部的 matrix 扩展指令 Tcl 语言库文件 一个内嵌的 matrix 扩展指令 C 语言库文件
Tcl 语言中有 3 种方法可扩展其基本指令集 1 子程序
Tcl 允许通过 proc 命令来扩充命令 定义新的命令 定义之后可以同其它内建的基本命令一样使用 这也是 Tcl 语言的一大特色 编制软件时经常用到
2 C 接口 Tcl 可以轻松地通过用 C 语言编写的命令进行扩展 C 语言可编写底层的 数据处理十分灵活的程序 C 语言与 Tcl 语言的接口匹配较复杂 就接口本身而言并不复杂 而是整 个匹配过程复杂 不是自动的 Matrix 语言就使用这种方式 扩展指令集合
矩阵计算部分就需要扩展指令 这是建立面向专业领域 语言的关键 首先应根据具体问题提取出通用的专业指令 并定义其语义 然后在 Tcl 语言中扩展这些指令 给出其实 现 matrix 语言扩展的命令有 矩阵定义 矩阵赋值 矩阵 显示 矩阵加法 矩阵乘法 矩阵转置 经过扩展后的 Tcl 语言就成为一个面向专业领域的外壳语言 举例如下
崔 鸿 李全福 (中国民用航空学院计算机学院 天津 300300
摘 要 计算机应用的广阔空间在于同各行业相互融合 研究面向专业领域的语言具有现实意义 文章介绍应用 Tcl 语言和 C 语言设计专 用语言的方法 实现了一个简单的面向矩阵计算的 matrix 语言 并介绍了 matrix 语言解释器的构造方法 关键词 面向领域 Tcl 语言 Matrix 语言
Tcl 目前已发展到 8.4 版 其多种操作系统 Windows Linux and Solaris 下的可执行文件 可从 免 费下载源程序压缩包 编译后运行 欲查找更多资料可登录 该网站 网站 /Publications/Cookbook/ 介绍了 Tcl 和 Tk 的基础知识 适合入门的读者阅读
最初人们使用它是由于它在 Linux/Unix 环境下提供图 形工具箱(Tk) 利用它们构造用户界面的速度要比利用传统 的 X-Window 编程方法快得多 利用 TCL 脚本语言完全可 以编写复杂的图形应用程序 避开了用 C 语言编写界面时所
遇到的界面编程的许多复杂性 可以方便地处理图形 作为 一种 Shell 语言 它与 Unix 其它 Shell 语言 如 C shell Korn Shell Perl 很相似 可以编制复杂的程序
析 算术运算 逻辑运算 控制判断等基本内容均由 Tcl 语
言解释器处理
(2)扩展指令程序库
在设计 matrix 语言中的矩阵运算指令时 设计了一种镜