blob: 289468517526285e50da1027b07ab07e7565b596 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
## ----------------------------------------------------------------------------
## Script : quartus_project_flow.tcl
## ----------------------------------------------------------------------------
## Author : Johann Faerber, F. Beckmann
## Company : University of Applied Sciences Augsburg
## ----------------------------------------------------------------------------
## Description: executes process steps in a quartus project
## depending on the parameter process
## expects project name as command line parameter
## e.g.
## quartus_sh -t quartus_project_flow.tcl -projectname de1_mux2to1
## -process compile
## ----------------------------------------------------------------------------
## Revisions : see end of file
## ----------------------------------------------------------------------------
package require cmdline
# Load Quartus II Tcl Project package
package require ::quartus::project
# ----------------------------------------------------------------------------
# Declare command line parameters
# ----------------------------------------------------------------------------
set parameters {
{projectname.arg "" "Project Name"}
{process.arg "" "Process Step"}
}
array set arg [::cmdline::getoptions argv $parameters]
# ----------------------------------------------------------------------------
# Verify required paramters
# ----------------------------------------------------------------------------
set requiredParameters {projectname process}
foreach parameter $requiredParameters {
if {$arg($parameter) == ""} {
puts stderr "Missing required parameter: -$parameter"
exit 1
}
}
# ----------------------------------------------------------------------------
# Check, if project exists
# ----------------------------------------------------------------------------
if { ![project_exists $arg(projectname)] } {
post_message -type error "Project $arg(projectname) does not exist"
exit
}
# ----------------------------------------------------------------------------
# Open project
# ----------------------------------------------------------------------------
project_open $arg(projectname)
# ----------------------------------------------------------------------------
# Run specified design flow by parameter -process
# ----------------------------------------------------------------------------
load_package flow
if { $arg(process) == "compile" } {
execute_flow -compile
} elseif { $arg(process) == "analysis_and_elaboration" } {
execute_flow -analysis_and_elaboration
} else {
post_message -type error "Process step $arg(process) not allowed !"
exit
}
# ----------------------------------------------------------------------------
# Write Reports
# ----------------------------------------------------------------------------
load_package report
load_report $arg(projectname)
write_report_panel -file flowsummary.log "Flow Summary"
# ----------------------------------------------------------------------------
# Close project
# ----------------------------------------------------------------------------
project_close
## ----------------------------------------------------------------------------
## Revisions:
## ----------
## $Id:$
## ----------------------------------------------------------------------------
|
