Last change
on this file since 116 was
115,
checked in by rolagamo, 10 years ago
|
Ajout des Cores utilisés dans le projet
|
File size:
1.1 KB
|
Line | |
---|
1 | ## |
---|
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 "mem_4k8" xc6slx45-3csg324 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 |
---|
Note: See
TracBrowser
for help on using the repository browser.