FPGA学习笔记7-Quartus II其余的部分TCL指令（翻译）
议程
-其他一些TCL指令
-访问命令行选项
-在Quartus II中使用TCL脚本
-获取帮助
PS：里面提到的命令行和可执行命令实际上一部分指在quartus II软件中，
还有部分在windows cmd命令行中也可以使用，读起来可能会觉得有点乱。
::quartus::misc -杂项指令
-实用和一些杂项的指令
在每一个可执行程序中默认被打开
-一些通常使用到的指令
escape_brackets
post_message
escape_brackets -字符集合区间通配符
-许多Quartus II的TCL脚本允许在指令行中采用正则表达式
-通常采用匹配区间会存在一些问题
address\[10\]
正则表达式匹配address0或者address1
-相等匹配符必须匹配两次
address\\\[10\\\]
PS：这段意思是任何一个元字符都可以通过给它加上一个反斜杠字符(\)作为前缀的方法来转译，
配对的元字符(如[])不能用作元字符时必须被转义，否则正则表达式分析会抛出一个错误。
也就是上述第一个匹配的结果是匹配address*这种形式，但是第二个为相等匹配，匹配目标就是
address\[10\]，多余的不进行匹配
-采用通配符更方便的使用命令行
-示例，获取所有总线上的赋值信息
例子：
set address_names "address\[*\]"
set address_locations [get_all_instance_assignments \
-to [escape_brackets $address_names] -name LOCATION]
post_message -打印信息的相关指令
-按照Quartus II中的标准格式打印信息
-特殊信息格式和文本
info,extra_info,warning,critical_warning,error
TCL回收机制
-一些TCL指令返回数据的最大设置值
-回收是包含在大数据设置中
特殊Quartus II的TCL API
-通过foreach_in_collection指令访问回收元素
拥有和foreach类似的功能
-回收指令集返回回收数据，其中包含foreach_in_clooection
不需要独立的加载包
TCL Collection 例子
-打印所有细节部分的设置
set instance_assignments [get_all_instance_assignments -name *]
foreach_in_collection instance $instance_assignments {
set sect_id[lindex $instance 0]
set src[lindex $instance 1]
set dest[lindex $instance 2]
set name[lindex $instance 3]
set value[lindex $instance 4]
puts "Section ID ($sect_id)"
puts "Source ($src)"
puts "Destination ($dest)"
puts "Assignment Name ($name)"
puts "Assignment value ($value)"
}
访问指令选项
-Quartus II4.1版本支持argv,argc,argv0
之前的版本通过args传值
命令行选项的示例
-命令行包提供了灵活访问命令行选项的方法
在命令行列表中拥有比固化代码更加稳健
包含于Quartus II中
-示例
quartus_sh -t myscript.tcl -project my_project -revision second
-通过选项名打开工程
quartus_sh -t myscript.tcl -project my_project -revision second
-Open Project with Optional Revision Name
package require cmdline
set options {\
{"project.arg""""Project Name"}\
{"revision.arg""""Revision Name"}\
}
array set optshash [::cmdline::getoptions ::argv $options "Options:"]
if{[string equal "" $optshash(revision)]}{
#No revision is specified
project_open $optshash(project)
}else{
project_open $optshash(project) -revision $optshash(revision)
}
#The rest of your script follows here
在Quartus II中使用TCL脚本
-可执行命令行
批处理
交互式shell
快速执行TCL指令行
-TCL命令行在GUI界面中
交互式Shell
在View->Unity windows->Tcl console下
在命令行中使用TCL脚本
-运行脚本
quartus_sh -t
-其他一些TCL指令
-访问命令行选项
-在Quartus II中使用TCL脚本
-获取帮助
PS：里面提到的命令行和可执行命令实际上一部分指在quartus II软件中，
还有部分在windows cmd命令行中也可以使用，读起来可能会觉得有点乱。
::quartus::misc -杂项指令
-实用和一些杂项的指令
在每一个可执行程序中默认被打开
-一些通常使用到的指令
escape_brackets
post_message
escape_brackets -字符集合区间通配符
-许多Quartus II的TCL脚本允许在指令行中采用正则表达式
-通常采用匹配区间会存在一些问题
address\[10\]
正则表达式匹配address0或者address1
-相等匹配符必须匹配两次
address\\\[10\\\]
PS：这段意思是任何一个元字符都可以通过给它加上一个反斜杠字符(\)作为前缀的方法来转译，
配对的元字符(如[])不能用作元字符时必须被转义，否则正则表达式分析会抛出一个错误。
也就是上述第一个匹配的结果是匹配address*这种形式，但是第二个为相等匹配，匹配目标就是
address\[10\]，多余的不进行匹配
-采用通配符更方便的使用命令行
-示例，获取所有总线上的赋值信息
例子：
set address_names "address\[*\]"
set address_locations [get_all_instance_assignments \
-to [escape_brackets $address_names] -name LOCATION]
post_message -打印信息的相关指令
-按照Quartus II中的标准格式打印信息
-特殊信息格式和文本
info,extra_info,warning,critical_warning,error
TCL回收机制
-一些TCL指令返回数据的最大设置值
-回收是包含在大数据设置中
特殊Quartus II的TCL API
-通过foreach_in_collection指令访问回收元素
拥有和foreach类似的功能
-回收指令集返回回收数据，其中包含foreach_in_clooection
不需要独立的加载包
TCL Collection 例子
-打印所有细节部分的设置
set instance_assignments [get_all_instance_assignments -name *]
foreach_in_collection instance $instance_assignments {
set sect_id[lindex $instance 0]
set src[lindex $instance 1]
set dest[lindex $instance 2]
set name[lindex $instance 3]
set value[lindex $instance 4]
puts "Section ID ($sect_id)"
puts "Source ($src)"
puts "Destination ($dest)"
puts "Assignment Name ($name)"
puts "Assignment value ($value)"
}
访问指令选项
-Quartus II4.1版本支持argv,argc,argv0
之前的版本通过args传值
args在4.1版本也支持
| 4.1版本变量 | 更早的版本 |
| argv | quartus(args) |
| argc | llength $quartus(args) |
| argv0 | info nameofexecutable |
命令行选项的示例
-命令行包提供了灵活访问命令行选项的方法
在命令行列表中拥有比固化代码更加稳健
包含于Quartus II中
-示例
quartus_sh -t myscript.tcl -project my_project -revision second
-通过选项名打开工程
quartus_sh -t myscript.tcl -project my_project -revision second
-Open Project with Optional Revision Name
package require cmdline
set options {\
{"project.arg""""Project Name"}\
{"revision.arg""""Revision Name"}\
}
array set optshash [::cmdline::getoptions ::argv $options "Options:"]
if{[string equal "" $optshash(revision)]}{
#No revision is specified
project_open $optshash(project)
}else{
project_open $optshash(project) -revision $optshash(revision)
}
#The rest of your script follows here
在Quartus II中使用TCL脚本
-可执行命令行
批处理
交互式shell
快速执行TCL指令行
-TCL命令行在GUI界面中
交互式Shell
在View->Unity windows->Tcl console下
在命令行中使用TCL脚本
-运行脚本
quartus_sh -t