38 lines
1.1 KiB
Tcl
38 lines
1.1 KiB
Tcl
##
|
|
## Core Generator Run Script, generator for Project Navigator regen command
|
|
##
|
|
|
|
proc findRtfPath { relativePath } {
|
|
set xilenv ""
|
|
if { [info exists ::env(XILINX) ] } {
|
|
if { [info exists ::env(MYXILINX)] } {
|
|
set xilenv [join [list $::env(MYXILINX) $::env(XILINX)] $::xilinx::path_sep ]
|
|
} else {
|
|
set xilenv $::env(XILINX)
|
|
}
|
|
}
|
|
foreach path [ split $xilenv $::xilinx::path_sep ] {
|
|
set fullPath [ file join $path $relativePath ]
|
|
if { [ file exists $fullPath ] } {
|
|
return $fullPath
|
|
}
|
|
}
|
|
return ""
|
|
}
|
|
|
|
source [ findRtfPath "data/projnav/scripts/dpm_cgUtils.tcl" ]
|
|
|
|
set result [ run_cg_regen "microblaze_mcs" xc6slx9-2tqg144 Verilog CURRENT ]
|
|
|
|
if { $result == 0 } {
|
|
puts "Core Generator regen command completed successfully."
|
|
} elseif { $result == 1 } {
|
|
puts "Core Generator regen command failed."
|
|
} elseif { $result == 3 || $result == 4 } {
|
|
# convert 'version check' result to real return range, bypassing any messages.
|
|
set result [ expr $result - 3 ]
|
|
} else {
|
|
puts "Core Generator regen cancelled."
|
|
}
|
|
exit $result
|