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

Updated reporting script to write total ompilation time

Browse Source
This commit is contained in:
Konstantin Pavlov 2019-04-14 11:03:16 +03:00
parent 57de1109bc
commit 8c420a1570
2 changed files with 107 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

107
scripts/post_flow.tcl Executable file
View File

@ -0,0 +1,107 @@
#------------------------------------------------------------------------------
# post_flow.tcl
# Konstantin Pavlov, pavlovconst@gmail.com
#------------------------------------------------------------------------------
# INFO ------------------------------------------------------------------------
# Use this script as a boilerplate for custom reporting or report analisys
# for Intel Quartus IDE. Your custom messages will be reported in messages window
# after all normal compilation messages
#
# Script requires following QSF assignment
# set_global_assignment -name PROJECT_OUTPUT_DIRECTORY OUTPUT
# set_global_assignment -name POST_FLOW_SCRIPT_FILE "quartus_sh:post_flow.tcl"
#===============================================================================
# Set warning on implicit nets declaration
post_message "=== ERRORS ======================================================="
set file [open [join [list "./OUTPUT/" [lindex $argv 2] ".map.rpt"] ""] r]
while {[gets $file line] != -1} {
if {[string first "implicit" $line] != -1} {
post_message $line
}
}
close $file
#===============================================================================
# compuiting elapsed time
post_message "=== COMPILE TIME ================================================="
set hs 0
set ms 0
set ss 0
set hs_t 0
set ms_t 0
set ss_t 0
set file [open [join [list "./OUTPUT/" [lindex $argv 2] ".map.rpt"] ""] r]
while {[gets $file line] != -1} {
set time [string range $line 24 31]
if {[string first "Info: Elapsed time:" $line] != -1} {
post_message [ join [ list "map: " $time ] "" ]
scan $time "%d:%d:%d" hs ms ss
set hs_t [expr {$hs_t + $hs} ]
set ms_t [expr {$ms_t + $ms} ]
set ss_t [expr {$ss_t + $ss} ]
}
}
close $file
set file [open [join [list "./OUTPUT/" [lindex $argv 2] ".fit.rpt"] ""] r]
while {[gets $file line] != -1} {
set time [string range $line 24 31]
if {[string first "Info: Elapsed time:" $line] != -1} {
post_message [ join [ list "fit: " $time ] "" ]
scan $time "%d:%d:%d" hs ms ss
set hs_t [expr {$hs_t + $hs} ]
set ms_t [expr {$ms_t + $ms} ]
set ss_t [expr {$ss_t + $ss} ]
}
}
close $file
set file [open [join [list "./OUTPUT/" [lindex $argv 2] ".asm.rpt"] ""] r]
while {[gets $file line] != -1} {
set time [string range $line 24 31]
if {[string first "Info: Elapsed time:" $line] != -1} {
post_message [ join [ list "asm: " $time ] "" ]
scan $time "%d:%d:%d" hs ms ss
set hs_t [expr {$hs_t + $hs} ]
set ms_t [expr {$ms_t + $ms} ]
set ss_t [expr {$ss_t + $ss} ]
}
}
close $file
set file [open [join [list "./OUTPUT/" [lindex $argv 2] ".sta.rpt"] ""] r]
while {[gets $file line] != -1} {
set time [string range $line 24 31]
if {[string first "Info: Elapsed time:" $line] != -1} {
post_message [ join [ list "sta: " $time ] "" ]
scan $time "%d:%d:%d" hs ms ss
set hs_t [expr {$hs_t + $hs} ]
set ms_t [expr {$ms_t + $ms} ]
set ss_t [expr {$ss_t + $ss} ]
}
}
close $file
while { $ss_t >= 60 } {
set ss_t [expr $ss_t - 60]
set ms_t [expr $ms_t + 1]
}
while { $ms_t >= 60 } {
set ms_t [expr $ms_t - 60]
set hs_t [expr $hs_t + 1]
}
post_message "----------------------------------"
post_message [ join [ list "TOTAL: " [format "%02d:%02d:%02d" $hs_t $ms_t $ss_t]] "" ]

26
scripts/quartus_custom_report.tcl
View File

@ -1,26 +0,0 @@
#------------------------------------------------------------------------------
# quartus_custom_eport.tcl
# Konstantin Pavlov, pavlovconst@gmail.com
#------------------------------------------------------------------------------
# INFO ------------------------------------------------------------------------
# Use this script as a boilerplate for custom reporting or report analisys
# for Intel Quartus IDE. Your custom messages will be reported in messages window
# after all normal compilation messages
#
# Script requires following QSF assignment
# set_global_assignment -name POST_FLOW_SCRIPT_FILE "quartus_sh:quartus_custom_report.tcl"
#
# This particular example finds for "Implicit Net warning" lines in mapping report
set file [open [lindex $argv 2]".map.rpt" r]
while {[gets $file line] != -1} {
if {[string first "implicit" $line] != -1} {
post_message $line
}
}
close $file