Condenses TCL script.
This commit is contained in:
Billy Stevens
parent
1d6505182c
commit
05c07df4cc
|
|
@ -3,204 +3,16 @@
|
|||
#
|
||||
# Created for ISE version 14.7
|
||||
#
|
||||
# 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 xilinx_spiOverJtag_xc6.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 "xilinx_spiOverJtag_xc6"
|
||||
set myScript "xilinx_spiOverJtag_xc6.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
|
||||
}
|
||||
puts "\n$myScript: Rebuilding ($myProject)...\n"
|
||||
|
||||
if { [file exists "${myProject}.xise" ] } {
|
||||
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..."
|
||||
} else {
|
||||
project new $myProject
|
||||
|
||||
project set family "Spartan6"
|
||||
project set device "xc6slx100"
|
||||
|
|
@ -211,108 +23,22 @@ proc set_project_props {} {
|
|||
project set simulator "ISim (VHDL/Verilog)"
|
||||
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 "constr_xc6s_fgg484.ucf"
|
||||
xfile add "xilinx_spiOverJtag_xc6.vhd"
|
||||
|
||||
# Set the Top Module as well...
|
||||
project set top "bhv" "xilinx_spiOverJtag"
|
||||
|
||||
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 "VHDL Source Analysis Standard" "VHDL-200X"
|
||||
project set "Enable Internal Done Pipe" "true" -process "Generate Programming File"
|
||||
|
||||
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 }
|
||||
}
|
||||
}
|
||||
|
||||
xfile add "constr_xc6s_fgg484.ucf"
|
||||
xfile add "xilinx_spiOverJtag_xc6.vhd"
|
||||
|
||||
project set top "bhv" "xilinx_spiOverJtag"
|
||||
}
|
||||
|
||||
if { $tcl_interactive } {
|
||||
show_help
|
||||
} else {
|
||||
if {[catch {main} result]} {
|
||||
puts "$myScript failed: $result."
|
||||
}
|
||||
if { ! [ process run "Implement Design" ] } {
|
||||
return false;
|
||||
}
|
||||
if { ! [ process run "Generate Programming File" ] } {
|
||||
return false;
|
||||
}
|
||||
|
||||
puts "Run completed successfully."
|
||||
project close
|
||||
|
|
|
|||
Loading…
Reference in New Issue