24 set tcl_path [
file normalize "[
file dirname [
info script]]/.."]
25 if {[
info procs Msg] == ""} {
26 source $tcl_path/hog.tcl
29 set stage [
lindex $quartus(args) 0]
31 if {[
string compare $stage "quartus_map"] == 0 || [
string compare $stage "quartus_syn"] == 0} {
32 set script_path [
file normalize "$tcl_path/integrated/post-synthesis.tcl"]
33 }
elseif {[
string compare $stage "quartus_fit"] == 0} {
34 set script_path [
file normalize "$tcl_path/integrated/post-implementation.tcl"]
35 }
elseif {[
string compare $stage "quartus_asm"] == 0} {
36 set script_path [
file normalize "$tcl_path/integrated/post-bitstream.tcl"]
38 Msg Info "Unsupported step: $stage"
42 if {[
file exists $script_path]} {