Altera Quartus：tcl脚本删除output_files目录下的非jic、sof、pof文件

用于将Quartus工程目录下output_files文件夹下，除了jic、sof、pof文件其他的文件删除，保存为clean_output.tcl

# 定义要保留的文件扩展名
set keep_extensions {.jic .sof .pof}

# 获取当前工作目录
set current_dir [pwd]
set output_dir [file join $current_dir "output_files"]

# 检查output_files目录是否存在
if {![file exists $output_dir] || ![file isdirectory $output_dir]} {
    puts "错误：output_files目录不存在或不是一个目录"
    exit 1
}

# 遍历目录中的文件
foreach file [glob -nocomplain -directory $output_dir *] {
    # 只处理普通文件
    if {[file isfile $file]} {
        set ext [file extension $file]
        
        # 检查文件扩展名是否不在保留列表中
        if {[lsearch -exact $keep_extensions $ext] == -1} {
            puts "正在删除文件: $file"
            file delete $file
        }
    }
}

puts "清理完成"

在qsf文件里添加一行：

set_global_assignment -name POST_FLOW_SCRIPT_FILE "quartus_sh:clean_output.tcl"

这样每次编译完成，就会把其他编译产生的临时文件清理掉。