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