first commit with top_simple synthesis

1 files changed, 84 insertions, 0 deletions

diff --git a/scripts/quartus_project_flow.tcl b/scripts/quartus_project_flow.tcl
new file mode 100644
index 0000000..2894685
--- /dev/null
+++ b/scripts/quartus_project_flow.tcl
@@ -0,0 +1,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:$
+## ----------------------------------------------------------------------------