OpenCores
URL https://opencores.org/ocsvn/mod_mult_exp/mod_mult_exp/trunk

Subversion Repositories mod_mult_exp

[/] [mod_mult_exp/] [trunk/] [rtl/] [vhdl/] [mod_exp/] [blockMemory32/] [edit_blockMemory.tcl] - Blame information for rev 5

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 5 gajos
##
2
## Core Generator Run Script, generator for Project Navigator edit command
3
##
4
 
5
proc findRtfPath { relativePath } {
6
   set xilenv ""
7
   if { [info exists ::env(XILINX) ] } {
8
      if { [info exists ::env(MYXILINX)] } {
9
         set xilenv [join [list $::env(MYXILINX) $::env(XILINX)] $::xilinx::path_sep ]
10
      } else {
11
         set xilenv $::env(XILINX)
12
      }
13
   }
14
   foreach path [ split $xilenv $::xilinx::path_sep ] {
15
      set fullPath [ file join $path $relativePath ]
16
      if { [ file exists $fullPath ] } {
17
         return $fullPath
18
      }
19
   }
20
   return ""
21
}
22
 
23
source [ findRtfPath "data/projnav/scripts/dpm_cgUtils.tcl" ]
24
 
25
set result [ run_cg_edit "blockMemory" xc3s500e-5fg320 VHDL ]
26
 
27
if { $result == 0 } {
28
   puts "Core Generator edit command completed successfully."
29
} elseif { $result == 1 } {
30
   puts "Core Generator edit command failed."
31
} elseif { $result == 3 || $result == 4 } {
32
   # convert 'version check' result to real return range, bypassing any messages.
33
   set result [ expr $result - 3 ]
34
} else {
35
   puts "Core Generator edit cancelled."
36
}
37
exit $result

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.