blob: ab4e8db06d4de406f47bd4150ecdf7cfae77a749 (
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
|
## ----------------------------------------------------------------------------
## 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"}
}
array set arg [::cmdline::getoptions argv $parameters]
# ----------------------------------------------------------------------------
# Verify required paramters
# ----------------------------------------------------------------------------
set requiredParameters {projectname}
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
execute_flow -compile
# ----------------------------------------------------------------------------
# Write Reports
# ----------------------------------------------------------------------------
load_package report
load_report $arg(projectname)
write_report_panel -file flowsummary.log "Flow Summary"
# ----------------------------------------------------------------------------
# Close project
# ----------------------------------------------------------------------------
project_close
|
