From 275373c06b07649b6d686bfbfa043adbf8252795 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Max=20K=C3=B6hler?= <max.koehler@ni.com>
Date: Wed, 6 Mar 2024 15:13:02 +0100
Subject: [PATCH] fpga: tools: viv_ip_utils to update hdl_sources.tcl

Original-commit: 1e8521f52ee9ba778d4240f1a0a197642f3cee8d
---
 tools/scripts/viv_ip_utils.tcl | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/tools/scripts/viv_ip_utils.tcl b/tools/scripts/viv_ip_utils.tcl
index adccc5e..1ebee8d 100644
--- a/tools/scripts/viv_ip_utils.tcl
+++ b/tools/scripts/viv_ip_utils.tcl
@@ -128,6 +128,35 @@ if { [string compare $cmd "create"] == 0 } {
             # Rewrite TCL BD file
             write_bd_tcl -make_local -force "$src_dir/$src_rootname.tcl"
             puts "INFO: BD TCL source updated: $src_dir/$src_rootname.tcl"
+            # Export HDL source files into a seperate TCL file
+            puts "INFO: Generating hdl_sources.tcl file from project..."
+            set hdlSources -quiet [get_files -filter {FILE_TYPE == VHDL || FILE_TYPE == Verilog || FILE_TYPE == SystemVerilog}]
+            if {[llength $hdlSources] == 0} {
+                puts "INFO: No HDL sources found in project"
+            } else {
+                set hdlFileName "$src_dir/hdl_sources.tcl"
+                set fh [open $hdlFileName w]
+                # write file header
+                puts $fh "set script_loc \[file normalize \[info script\]\]"
+                puts $fh "set script_dir \[file dirname \$script_loc\]"
+                puts $fh ""
+                # sort the file list to make the output deterministic
+                set hdlSources [lsort $hdlSources]
+                # print file relative to the script location
+                foreach file $hdlSources {
+                    set file_type [get_property FILE_TYPE $file]
+                    set rel_file_path [exec realpath -s --relative-to=$src_dir $file]
+                    if { $file_type == "VHDL"} {
+                        puts $fh "read_vhdl        -library work \$script_dir/$rel_file_path"
+                    } elseif { $file_type == "Verilog"} {
+                        puts $fh "read_verilog     -library work \$script_dir/$rel_file_path"
+                    } else {
+                        puts $fh "read_verilog -sv -library work \$script_dir/$rel_file_path"
+                    }
+                }
+                puts "INFO: $src_dir/hdl_sources.tcl file created or updated"
+                close $fh
+            }
             # Close and delete tmp_bd project, not needed anymore.
             close_project
             puts "INFO: Deleting temp Vivado BD project..."