Subversion Repositories g729a_codec

# 

# Project automation script for g729a_syn 

# 

# Created for ISE version 14.1

# 

# This file contains several Tcl procedures (procs) that you can use to automate

# your project by running from xtclsh or the Project Navigator Tcl console.

# If you load this file (using the Tcl command: source g729a_syn.tcl), then you can

# run any of the procs included here.

# 

# This script is generated assuming your project has HDL sources.

# Several of the defined procs won't apply to an EDIF or NGC based project.

# If that is the case, simply remove them from this script.

# 

# You may also edit any of these procs to customize them. See comments in each

# proc for more instructions.

# 

# This file contains the following procedures:

# 

# Top Level procs (meant to be called directly by the user):

#    run_process: you can use this top-level procedure to run any processes

#        that you choose to by adding and removing comments, or by

#        adding new entries.

#    rebuild_project: you can alternatively use this top-level procedure

#        to recreate your entire project, and the run selected processes.

# 

# Lower Level (helper) procs (called under in various cases by the top level procs):

#    show_help: print some basic information describing how this script works

#    add_source_files: adds the listed source files to your project.

#    set_project_props: sets the project properties that were in effect when this

#        script was generated.

#    create_libraries: creates and adds file to VHDL libraries that were defined when

#        this script was generated.

#    set_process_props: set the process properties as they were set for your project

#        when this script was generated.

# 

set myProject "g729a_syn"

set myScript "g729a_syn.tcl"

# 

# Main (top-level) routines

# 

# run_process

# This procedure is used to run processes on an existing project. You may comment or

# uncomment lines to control which processes are run. This routine is set up to run

# the Implement Design and Generate Programming File processes by default. This proc

# also sets process properties as specified in the "set_process_props" proc. Only

# those properties which have values different from their current settings in the project

# file will be modified in the project.

# 

proc run_process {} {

   global myScript

   global myProject

   ## put out a 'heartbeat' - so we know something's happening.

   puts "\n$myScript: running ($myProject)...\n"

   if { ! [ open_project ] } {

      return false

   }

   set_process_props

   #

   # Remove the comment characters (#'s) to enable the following commands 

   # process run "Synthesize"

   # process run "Translate"

   # process run "Map"

   # process run "Place & Route"

   #

   set task "Implement Design"

   if { ! [run_task $task] } {

      puts "$myScript: $task run failed, check run output for details."

      project close

      return

   }

   set task "Generate Programming File"

   if { ! [run_task $task] } {

      puts "$myScript: $task run failed, check run output for details."

      project close

      return

   }

   puts "Run completed (successfully)."

   project close

}

# 

# rebuild_project

# 

# This procedure renames the project file (if it exists) and recreates the project.

# It then sets project properties and adds project sources as specified by the

# set_project_props and add_source_files support procs. It recreates VHDL Libraries

# as they existed at the time this script was generated.

# 

# It then calls run_process to set process properties and run selected processes.

# 

proc rebuild_project {} {

   global myScript

   global myProject

   project close

   ## put out a 'heartbeat' - so we know something's happening.

   puts "\n$myScript: Rebuilding ($myProject)...\n"

   set proj_exts [ list ise xise gise ]

   foreach ext $proj_exts {

      set proj_name "${myProject}.$ext"

      if { [ file exists $proj_name ] } {

         file delete $proj_name

      }

   }

   project new $myProject

   set_project_props

   add_source_files

   create_libraries

   puts "$myScript: project rebuild completed."

   run_process

}

# 

# Support Routines

# 

# 

proc run_task { task } {

   # helper proc for run_process

   puts "Running '$task'"

   set result [ process run "$task" ]

   #

   # check process status (and result)

   set status [ process get $task status ]

   if { ( ( $status != "up_to_date" ) && \

            ( $status != "warnings" ) ) || \

         ! $result } {

      return false

   }

   return true

}

# 

# show_help: print information to help users understand the options available when

#            running this script.

# 

proc show_help {} {

   global myScript

   puts ""

   puts "usage: xtclsh $myScript <options>"

   puts "       or you can run xtclsh and then enter 'source $myScript'."

   puts ""

   puts "options:"

   puts "   run_process       - set properties and run processes."

   puts "   rebuild_project   - rebuild the project from scratch and run processes."

   puts "   set_project_props - set project properties (device, speed, etc.)"

   puts "   add_source_files  - add source files"

   puts "   create_libraries  - create vhdl libraries"

   puts "   set_process_props - set process property values"

   puts "   show_help         - print this message"

   puts ""

}

proc open_project {} {

   global myScript

   global myProject

   if { ! [ file exists ${myProject}.xise ] } {

      ## project file isn't there, rebuild it.

      puts "Project $myProject not found. Use project_rebuild to recreate it."

      return false

   }

   project open $myProject

   return true

}

# 

# set_project_props

# 

# This procedure sets the project properties as they were set in the project

# at the time this script was generated.

# 

proc set_project_props {} {

   global myScript

   if { ! [ open_project ] } {

      return false

   }

   puts "$myScript: Setting project properties..."

   project set family "Virtex6"

   project set device "xc6vlx75t"

   project set package "ff484"

   project set speed "-2"

   project set top_level_module_type "HDL"

   project set synthesis_tool "XST (VHDL/Verilog)"

   project set simulator "Modelsim-SE Mixed"

   project set "Preferred Language" "VHDL"

   project set "Enable Message Filtering" "false"

}

# 

# add_source_files

# 

# This procedure add the source files that were known to the project at the

# time this script was generated.

# 

proc add_source_files {} {

   global myScript

   if { ! [ open_project ] } {

      return false

   }

   puts "$myScript: Adding sources to project..."

   xfile add "../../VHDL/G729A_asip_adder_f.vhd"

   xfile add "../../VHDL/G729A_asip_addsub_pipeb.vhd"

   xfile add "../../VHDL/G729A_asip_arith_pkg.vhd"

   xfile add "../../VHDL/G729A_asip_basic_pkg.vhd"

   xfile add "../../VHDL/G729A_asip_bjxlog.vhd"

   xfile add "../../VHDL/G729A_asip_cfg_pkg.vhd"

   xfile add "../../VHDL/G729A_asip_cpu_2w_p6.vhd"

   xfile add "../../VHDL/G729A_asip_ftchlog_2w.vhd"

   xfile add "../../VHDL/G729A_asip_fwdlog_2w_p6.vhd"

   xfile add "../../VHDL/G729A_asip_idec.vhd"

   xfile add "../../VHDL/G729A_asip_idec_2w.vhd"

   xfile add "../../VHDL/G729A_asip_idec_2w_pkg.vhd"

   xfile add "../../VHDL/G729A_asip_idec_pkg.vhd"

   xfile add "../../VHDL/G729A_asip_ifq.vhd"

   xfile add "../../VHDL/G729A_asip_lcstk.vhd"

   xfile add "../../VHDL/G729A_asip_lcstklog_2w.vhd"

   xfile add "../../VHDL/G729A_asip_lcstklog_ix.vhd"

   xfile add "../../VHDL/G729A_asip_logic.vhd"

   xfile add "../../VHDL/G729A_asip_lsu.vhd"

   xfile add "../../VHDL/G729A_asip_lu.vhd"

   xfile add "../../VHDL/G729A_asip_mulu_pipeb.vhd"

   xfile add "../../VHDL/G729A_asip_op_pkg.vhd"

   xfile add "../../VHDL/G729A_asip_pipe_a_2w.vhd"

   xfile add "../../VHDL/G729A_asip_pipe_b.vhd"

   xfile add "../../VHDL/G729A_asip_pkg.vhd"

   xfile add "../../VHDL/G729A_asip_pstllog_2w_p6.vhd"

   xfile add "../../VHDL/G729A_asip_pxlog.vhd"

   xfile add "../../VHDL/G729A_asip_rams.vhd"

   xfile add "../../VHDL/G729A_asip_regfile_16x16_2w.vhd"

   xfile add "../../VHDL/G729A_asip_romd_pkg.vhd"

   xfile add "../../VHDL/G729A_asip_romi_pkg.vhd"

   xfile add "../../VHDL/G729A_asip_roms.vhd"

   xfile add "../../VHDL/G729A_asip_shftu.vhd"

   xfile add "../../VHDL/G729A_asip_spc.vhd"

   xfile add "../../VHDL/G729A_asip_top_2w.vhd"

   xfile add "../../VHDL/G729A_codec_intf_pkg.vhd"

   xfile add "../../VHDL/G729A_codec_sdp.vhd"

   xfile add "../../VHDL/G729A_codec_sdp_SYN.vhd"

   xfile add "../../VHDL/SELF_TEST/G729A_codec_st_rom_pkg.vhd"

   xfile add "../../VHDL/SELF_TEST/G729A_codec_st_roms.vhd"

   xfile add "../../VHDL/SELF_TEST/G729A_codec_selftest.vhd"

   xfile add "./g729a_syn.ucf"

   # Set the Top Module as well...

   project set top "ARC" "G729A_CODEC_SDP_SYN"

   puts "$myScript: project sources reloaded."

} ; # end add_source_files

# 

# create_libraries

# 

# This procedure defines VHDL libraries and associates files with those libraries.

# It is expected to be used when recreating the project. Any libraries defined

# when this script was generated are recreated by this procedure.

# 

proc create_libraries {} {

   global myScript

   if { ! [ open_project ] } {

      return false

   }

   puts "$myScript: Creating libraries..."

   # must close the project or library definitions aren't saved.

   project save

} ; # end create_libraries

# 

# set_process_props

# 

# This procedure sets properties as requested during script generation (either

# all of the properties, or only those modified from their defaults).

# 

proc set_process_props {} {

   global myScript

   if { ! [ open_project ] } {

      return false

   }

   puts "$myScript: setting process properties..."

   project set "Number of Clock Buffers" "16" -process "Synthesize - XST"

   project set "Target UCF File Name" "./g729a_syn.ucf" -process "Back-annotate Pin Locations"

   #project set "Synthesis Constraints File" "./g729a_syn.xcf" -process "Synthesize - XST"

   puts "$myScript: project property values set."

} ; # end set_process_props

proc main {} {

   if { [llength $::argv] == 0 } {

      show_help

      return true

   }

   foreach option $::argv {

      switch $option {

         "show_help"           { show_help }

         "run_process"         { run_process }

         "rebuild_project"     { rebuild_project }

         "set_project_props"   { set_project_props }

         "add_source_files"    { add_source_files }

         "create_libraries"    { create_libraries }

         "set_process_props"   { set_process_props }

         default               { puts "unrecognized option: $option"; show_help }

      }

   }

}

if { $tcl_interactive } {

   show_help

} else {

   if {[catch {main} result]} {

      puts "$myScript failed: $result."

   }

}