diff options
| author | Paul Selkirk <pselkirk@isc.org> | 2015-03-17 13:49:30 +0100 |
|---|---|---|
| committer | Paul Selkirk <pselkirk@isc.org> | 2015-03-17 13:49:30 +0100 |
| commit | 283bfbeeb7fb5767815c10ea98bb155638d4bfb3 (patch) | |
| tree | 5929001d84e6ef964d1338c71b27418ad8a146bf /common/rtl/ipcore/edit_clkmgr_dcm.tcl | |
| parent | 21ef7967486b349d66703c13edfff58d5f13372a (diff) | |
Rearrange cores.
Diffstat (limited to 'common/rtl/ipcore/edit_clkmgr_dcm.tcl')
| -rw-r--r-- | common/rtl/ipcore/edit_clkmgr_dcm.tcl | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/common/rtl/ipcore/edit_clkmgr_dcm.tcl b/common/rtl/ipcore/edit_clkmgr_dcm.tcl new file mode 100644 index 0000000..4992eb1 --- /dev/null +++ b/common/rtl/ipcore/edit_clkmgr_dcm.tcl @@ -0,0 +1,37 @@ +##
+## Core Generator Run Script, generator for Project Navigator edit 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_edit "clkmgr_dcm" xc6slx45-3csg324 Verilog ]
+
+if { $result == 0 } {
+ puts "Core Generator edit command completed successfully."
+} elseif { $result == 1 } {
+ puts "Core Generator edit 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 edit cancelled."
+}
+exit $result
|