在Vivado中，您使用过TCL吗？

<font color="#FD8900">作者：宸宸，来源：FPGA开源工作室</font>

<font style="line-height: 40px;" color="red"><strong>Tcl介绍</strong></font>

Vivado是Xilinx最新的FPGA设计工具，支持7系列以后的FPGA及Zynq 7000的开发。与之前的ISE设计套件相比，Vivado可以说是全新设计的。无论从界面、设置、算法，还是从对使用者思路的要求，都是全新的；在运行速度、算法优化和功能整合等很多方面都有了显著地改进。但是对初学者来说，新的约束语言XDC以及脚本语言Tcl的引入则成为了快速掌握Vivado使用技巧的最大障碍，以至于两年多后的今天，仍有很多用户缺乏升级到Vivado的信心。

本文介绍了Tcl在Vivado中的基础应用，希望起到抛砖引玉的作用，指引使用者在短时间内快速掌握相关技巧，更好地发挥Vivado在FPGA设计中的优势。

<font style="line-height: 40px;" color="red"><strong>使用Tcl作为它的命令语言的好处：</strong></font>

1 Tcl提供了标准语法，一旦用户掌握了Tcl就可以很容易的发布命令给基于Tcl的程序

2 Tcl可作为程序间通信的接口

3 通过Tcl， Vivado具备了强大的设计分析能力
• 快速定位设计中的问题
• 减少设计迭代周期

<font style="line-height: 40px;" color="red"><strong>基本语法和基础命令</strong></font>

在Vivado中的Tcl命令行里，学习这些基本语法

（Windows下 –&gt; 开始 –&gt; 所有程序 –&gt; Xilinx Design Tools –&gt; Vivado xxx –&gt; Vivado xxx Tcl Shell）

<strong>01、命令格式</strong>

一条Tcl的命令串包含了多条命令时，用换行符或分号来隔开，而每一条命令包含了一个域的集合，域使用空白分开的，第一个域是一个命令的名字，其它的是作为参数来传给它。

<strong>02、数据类型</strong>

Tcl只支持一种数据结构：字符串。所有的命令、命令里的所有的参数、命令的结果、变量全部都是都是字符串。

简单实例：

<pre>set i 123
将123这个字符串赋值给i变量

unset i
清除变量

set i hi
将hi这个字符串赋值给i变量

set i "hi hello"
hi hello中有空格，所以加引号

set i 123;#开始注释
注意: 注释前，要先用分号，把命令结束掉，或者换行注释 </pre>

<strong>03、设置变量</strong>

<img src="http://xilinx.eetrend.com/files/2019-12/wen_zhang_/100046619-86926-1.pn…; alt=""><br>

设置一个名为myVar的变量，其值为Hello World!

<strong>04、使用$符号引用变量</strong>

<img src="http://xilinx.eetrend.com/files/2019-12/wen_zhang_/100046619-86927-2.pn…; alt=""><br>

其中puts是打印命令

<strong>05、使用[]将命令返回值，作为新命令的参数</strong>

<img src="http://xilinx.eetrend.com/files/2019-12/wen_zhang_/100046619-86928-3.pn…; alt=""><br>

set j 232命令会返回值232
新命令就成了 set i 232

这里稍微复杂一点点的例子：
set i a[set j b][set k c]
最后的结果就是：j=b ; k=c ; i=abc

<strong>06、数组</strong>

数组不需要声明，直接赋值即可，也不必按照顺序来：
set i(1) 123 ; set i(16) hi

当然也支持任意维数的数组：
set i(1,2,3) hi
引用的时候直接$i(1,2,3)即可

<font color="red">parray命令 </font>
可以打印出一个数组的全部信息：

<img src="http://xilinx.eetrend.com/files/2019-12/wen_zhang_/100046619-86929-4.pn…; alt=""><br>

<font color="red">array命令 </font>
命令格式：array option arrayName

option 是 操作选项，有如下可选：
　　name : 返回数组的所有元素的名称
　　size : 返回数组的长度
　　startsearch : 初始化一次遍历，返回一个遍历标识符(searchId)，这个searchId在下面用到，（是可以多个遍历同时进行的）
　　下面的命令格式为：array option arrayName searchId
　　-&gt;nextelement : 返回数组中下一个元素，如果没有返回空
　　-&gt;anymore : 如果接下来还有元素，返回1，否则返回0
　　-&gt;donesearch : 结束遍历

<img src="http://xilinx.eetrend.com/files/2019-12/wen_zhang_/100046619-86930-5.pn…; alt=""><br>

<strong>07、字符串命令</strong>

<font color="red">string命令:</font>

命令格式：string option string1 string2

option 是 操作选项，有如下可选：
compare : 按照字母的排序方式比较，string1 &lt;,=,&gt;string2，分别返回-1,0,1
match : 判断string1和string2是否匹配
first : 检索string2中第一次出现string1的位置，如果没有出现string1则返回-1
last : 和first相反
trim : 从string1中删除开头和结尾的，string2的字符

<img src="http://xilinx.eetrend.com/files/2019-12/wen_zhang_/100046619-86931-6.pn…; alt=""><br>

命令格式：string option string
tolower : 返回string中的所有字符被转换为小写字符后的新字符串
toupper : 返回string中的所有字符串转换为大写后的字符串
trimleft : 去除string左空白，类似的还有trimright
length : 返回string1的长度

<img src="http://xilinx.eetrend.com/files/2019-12/wen_zhang_/100046619-86932-7.pn…; alt=""><br>

range :
string range abcdef 1 2，返回输出结果为bc

<font color="red">append命令:</font>
字符串追加，可以无限拼接

set i a
append i b c d
puts $i123

i变量的值就成了 abcd，注意append i b c d命令，而不是append $i b c d

<font color="red">split命令 </font>
命令格式：split 字符串 分割符，将字符串转换为列表

<img src="http://xilinx.eetrend.com/files/2019-12/wen_zhang_/100046619-86933-8.pn…; alt=""><br>

<strong>08、数字操作 </strong>

tcl中只有string类型的变量，所以当进行数字运算的时候，需要用到incr和expr操作命令

<font color="red">incr命令:</font>
a变量自加-3：incr a -3
a变量自加1 ： incr a

<font color="red">expr命令: </font>
类似C语言中的算术操作符有（在Tcl 中的逻辑：真为1，假为0）：
!、* 、/、 %、+、-、&lt;&lt;、 &gt;&gt; 、&lt; 、&gt; 、&lt;= 、&gt;= 、== 、!=、& 、^ 、|、&&、 || 、x ? y : z
除此之外，expr还能够识别一些函数及其返回值： abs(x) 、round(x) 、sin(x)、cos(x) 等
使用方法：expr 表达式

<img src="http://xilinx.eetrend.com/files/2019-12/wen_zhang_/100046619-86934-9.pn…; alt=""><br>

<strong>09、proc自定义函数 </strong>

proc：

proc hello {str} {
puts hello:$str}

需要注意的是，如果不能一行写完，那建议按照如下格式来定义（主要是要将“{”放到第一行的末尾）：
第一行： proc+（空格）+函数名+（空格）+{参数}+（空格）+{
中间行： 逻辑运算
最后行： }

<font color="red">全局变量global： </font>
用于将过程中的局部变量变成外界可操作的全局变量

proc hello {} { global x set x hi set i hello}1234

上述代码，执行结果：

<img src="http://xilinx.eetrend.com/files/2019-12/wen_zhang_/100046619-86935-10.p…; alt=""><br>

<font color="red">return命令：</font>

proc hello {} {return world}
set i [hello]12

return命令没啥好说的，上述代码的结果是，将i变量赋值为world字符串

<strong>10、控制流和循环命令</strong>

Tcl语言中用于控制流程和循环的命令与C语言及其它高级语言中相似，包括if、while、for和foreach等等。

具体使用可以参考如下示例：

<img src="http://xilinx.eetrend.com/files/2019-12/wen_zhang_/100046619-86936-11.j…; alt=""><br>

<font color="red">if 流控制: </font>
这个同样建议按照格式来：
第一行： if+（空格）+{表达式}+（空格）+{
中间行： 逻辑运算
第N行： }+（空格）+else+（空格）+{
中间行： 逻辑运算
最后行： }

<font color="red">switch流控制 :</font>
例子如下，一目了然：

switch 2 {
1 {puts 111}
2 {puts 222}
3 {puts 333}
default {puts xxx}
}

<font color="red">case流控制:</font>

case abcd in a {puts 111} *bc* {puts 333} default {puts xxx} 1

上述程序对字符串abcd进行判断：
条件一 : 字符串为a
条件二 : 不管字符串的前后字符是啥，只要中间有bc子字符串即可
条件三 : default

<font color="red">foreach循环： </font>

循环读取myVar变量的值并打印，那就需要这个foreach了

<font color="red">for循环： </font>
TCL的for循环也是很类似C语言的：

for {set i 0} {$i &lt; 10} {incr i} {
puts $i
}123

初始化i=0，范围 i&lt;10 ，循环i=i+1

<font color="red">while循环：</font>

判断变量的值，打印，变量再赋值就OK了

<strong>11、字符串转为命令 </strong>

<font color="red">eval命令： </font>
set a set ; set b i ; set c hello ; eval $a $b $c
上述代码就等效于：set i hello
eval将字符串的内容，作为命令，执行

<strong>12、打印输出 </strong>

打印主要通过puts语句来执行，配合特殊符号，直接决定最终输出内容。

<img src="http://xilinx.eetrend.com/files/2019-12/wen_zhang_/100046619-86937-12.p…; alt=""><br>

<h5><font color="red"><body>
文章转载自：<a href="https://mp.weixin.qq.com/s/l17R94pella2UdshP4wjFw">FPGA技术联盟</a><br />
*本文由FPGA技术联盟授权转发，如需转载请联系作者本人
</body>
</font></h5>