TCL练习6：通过递归方法搜索文件夹并返回指定后缀文件（包含子目录）

最新推荐文章于 2024-11-05 15:07:09 发布

小苍蝇别闹

最新推荐文章于 2024-11-05 15:07:09 发布

阅读量3.6k

点赞数 3

CC 4.0 BY-SA版权

分类专栏： TCL学习 # FPGA 应用文章标签： TCL 递归 Vivado non-project FPGA

本文链接：https://blog.csdn.net/yinyeyy/article/details/115666182

这是一个TCL脚本，用于在指定目录及其子目录下查找特定类型的文件（如.hdl或.xdc），并将找到的文件路径和名称记录到不同的文件中。脚本从define.tcl获取参数，如目标文件夹、记录位置和文件后缀，然后遍历srcs和constraints文件夹，分别记录.vhd等HDL文件和.xdc约束文件。搜索结果分别写入code.rd和cons.rd文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

写这个TCL脚本的主要目的是搜索目标文件夹及其子文件夹下的所有文件，然后记录在指定的文件中。可以指定目标文件夹名称、信息记录位置和文件后缀等3种参数。

该脚本将用于Vivado的non-project编译过程，被综合和布线脚本调用。

define.tcl中定义了目标文件夹名称、信息记录位置、文件后缀类型、器件part等信息。findAllFiles.tcl脚本根据define.tcl中的参数搜索目标文件夹，当文件后缀类型参数（ext）为.hdl时，会搜索.v、.vh、.vhd、.sv等文件的路径和名称，并记录在./Tcl/code.rd中；当文件后缀类型参数为.xdc时，会搜索.xdc文件，并记录在./Tcl/cons.rd中。设计代码放置在srcs文件夹中，约束文件放置在constraints文件夹中。如果没有分类放置也可以正确识别。

set part "xcvu3p-ffvc1517-2-e"
set srcsPath "../srcs"
set consPath "../Constraints"
set codeRec "./code.rd"
set consRec "./cons.rd"
set codeExt ".hdl"
set consExt ".xdc"

set top "Top"
set synthDir "$top.synth"
set synthLog "synth.log"
set synthDcp "_synth.dcp"

以下是findAllFiles.tcl的内容。

source ./define.tcl

set status [catch {set codeF [open $codeRec w+]} msg]
if {$status} { puts $msg }

proc find

最低0.47元/天解锁文章

200万优质内容无限畅学