Subversion Repositories mod_mult_exp

##

## 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 "blockMemory" xc3s500e-5fg320 VHDL 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