Add possiblity to append created Block Design

A project can define a procedure append_block_design that will update an existing block design

Add possiblity to append created Block Design
A project can define a procedure append_block_design that will update an existing block design
33949b88 · Maciej Lipinski · 78752934 · 33949b88
Commit 33949b88 authored Apr 12, 2022 by Maciej Lipinski
Hide whitespace changes
Inline Side-by-side

Showing with 18 additions and 1 deletion

build_project.tcl gw/build_project.tcl +18 -1

No files found.
--- a/gw/build_project.tcl
+++ b/gw/build_project.tcl
@@ -21,7 +21,18 @@ set_param general.maxThreads ${max_threads}

 # Set the project name
 set _xil_proj_name_ ${project_name}
-source ${target_path}/tcl/create_bd.tcl -notrace
+if { [ file exists ${target_path}/tcl/create_bd.tcl ] } {
+  write_msg "INFO: create_db.tcl exists" "1"
+  source ${target_path}/tcl/create_bd.tcl -notrace
+} else {
+  write_msg "INFO: create_db.tcl does not seem to exist in ${target_path}" "1"
+}
+if { [ file exists ${target_path}/tcl/append_bd.tcl ] } {
+  write_msg "INFO: append_db.tcl exists" "1"
+  source ${target_path}/tcl/append_bd.tcl -notrace
+} else {
+  write_msg "INFO: append_db.tcl does not seem to exist" "1"
+}

 # Create project
 create_project ${_xil_proj_name_} ${output_path}/${_xil_proj_name_} -part ${reference_part}
@@ -110,7 +121,13 @@ set_property -name "top" -value ${entity_top} -objects $obj
 #   Create Block Design
 # ##############################################################################
 write_msg "INFO: Generating block design" "1"
+# it is assumed that create_block_design always exists
 create_block_design "" ${_xil_proj_name_} ${target_path}
+
+# append exists only in derived projects
+if { [file exists ${target_path}/tcl/append_bd.tcl ] } {
+  append_block_design "" ${_xil_proj_name_} ${target_path}
+}
 update_compile_order -fileset sources_1

 set_property IS_ENABLED "1" [ get_files ${_xil_proj_name_}.bd ]