FPGA/basic_verilog
1
0
Fork 0
mirror of https://github.com/pConst/basic_verilog.git synced 2025-01-14 06:42:54 +08:00
Code Issues Releases Wiki Activity

Added project archieving for Quartus post-flow script

Browse Source
This commit is contained in:
Konstantin Pavlov 2020-10-30 11:48:19 +03:00
parent 002db3191e
commit eb69a3a374
1 changed files with 31 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
scripts/post_flow_quartus.tcl
View File

@ -48,18 +48,37 @@ set sof_dir "./OUTPUT/"
set sof_arch_dir "./SOF_ARCHIEVE/"
set sof_filename [join [list [lindex $argv 2] ".sof"] ""]
set new_sof_filename [join [list [lindex $argv 2] "_v" [format %02x $ver_hi] [format %02x $ver_lo] ".sof"] ""]
if { [file exists ${sof_dir}${sof_filename}] } {
if { [file exists $sof_arch_dir] } {
if { [file exists ${sof_arch_dir}] } {
if { [file exists ${sof_arch_dir}${new_sof_filename}] } {
post_message "Copying existing .sof file to archieve directory"
file copy ${sof_dir}${sof_filename} ${sof_arch_dir}
post_message "Adding version identifier to archieved .sof file"
file rename ${sof_arch_dir}${sof_filename} ${sof_arch_dir}${new_sof_filename}
} else {
post_message "Destination .sof file already exists. Copying to archieve cancelled"
}
}
}
#===============================================================================
# copying OUTPUT dir to archieve
post_message "=== OUTPUT ARCHIEVE ================================================="
set out_dir "./OUTPUT/"
set out_arch_dir "./OUTPUT_ARCHIEVE/"
set new_out_dirname [join [list "OUTPUT_v" [format %02x $ver_hi] [format %02x $ver_lo] ] ""]
if { [file exists ${out_dir}] } {
if { [file exists ${out_arch_dir}] } {
if { [file exists ${out_arch_dir}${new_out_dirname}] } {
post_message "Destination OUTPUT archeive already exists. Copying to archieve cancelled"
} else {
post_message "Copying existing OUTPUT directory to archieve"
exec cp -r ${out_dir} ${out_arch_dir}${new_out_dirname}
}
}
}
# if { [file exists ${sof_dir}${sof_filename}] } {
# post_message "Adding version identifier to existing .sof file"
# file rename ${sof_dir}${sof_filename} ${sof_dir}${new_sof_filename}
# }
#===============================================================================
# Set warning on implicit nets declaration
@ -83,7 +102,7 @@ set hs_t 0
set ms_t 0
set ss_t 0
set filename [join [list "./OUTPUT/" [lindex $argv 2] ".map.rpt"]
set filename [join [list "./OUTPUT/" [lindex $argv 2] ".map.rpt"] ""]
if { [file exists $filename] } {
set file [open $filename r]
while {[gets $file line] != -1} {
@ -100,7 +119,7 @@ if { [file exists $filename] } {
}
set filename [join [list "./OUTPUT/" [lindex $argv 2] ".fit.rpt"]
set filename [join [list "./OUTPUT/" [lindex $argv 2] ".fit.rpt"] ""]
if { [file exists $filename] } {
set file [open $filename r]
while {[gets $file line] != -1} {
@ -116,7 +135,7 @@ if { [file exists $filename] } {
close $file
}
set filename [join [list "./OUTPUT/" [lindex $argv 2] ".asm.rpt"]
set filename [join [list "./OUTPUT/" [lindex $argv 2] ".asm.rpt"] ""]
if { [file exists $filename] } {
set file [open $filename r]
while {[gets $file line] != -1} {
@ -133,9 +152,9 @@ if { [file exists $filename] } {
}
# timequest execution time for newer versions of Quartus
set filename [join [list "./OUTPUT/" [lindex $argv 2] ".sta.rpt"]
set filename [join [list "./OUTPUT/" [lindex $argv 2] ".sta.rpt"] ""]
if { [file exists $filename] } {
set file [open $filename ""] r]
set file [open $filename r]
while {[gets $file line] != -1} {
set time [string range $line 24 31]
if {[string first "Info: Elapsed time:" $line] != -1} {
@ -150,9 +169,9 @@ if { [file exists $filename] } {
}
# classic timing analizer execution time for older versions of Quartus
set filename [join [list "./OUTPUT/" [lindex $argv 2] ".tan.rpt"]
set filename [join [list "./OUTPUT/" [lindex $argv 2] ".tan.rpt"] ""]
if { [file exists $filename] } {
set file [open $filename ""] r]
set file [open $filename r]
while {[gets $file line] != -1} {
set time [string range $line 24 31]
if {[string first "Info: Elapsed time:" $line] != -1} {