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

Subversion Repositories vspi

[/] [vspi/] [trunk/] [projnav/] [xps/] [pcores/] [spiifc_v1_00_a/] [devl/] [projnav/] [ipcore_dir/] [create_spiloopmem.tcl] - Blame information for rev 14

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 14 mjlyons
##
2
## Core Generator Run Script, generator for Project Navigator create 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_create "xilinx.com:ip:blk_mem_gen:6.2" "spiloopmem" "Block Memory Generator" "Block Memory Generator (xilinx.com:ip:blk_mem_gen:6.2) generated by Project Navigator" xc6slx45-2csg324 Verilog ]
26
 
27
if { $result == 0 } {
28
   puts "Core Generator create command completed successfully."
29
} elseif { $result == 1 } {
30
   puts "Core Generator create 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 create 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.