cleanup of tcl scripts for ledsw

pnr/ledsw-scripted/create_quartus_project_settings.tcl

@@ -6,22 +6,11 @@
 ## ----------------------------------------------------------------------------
 ## Description: create a quartus project with default settings for device, 
 ##              unused pins, ...
-##              expects project name as command line parameter 
-##              e.g.
-##              quartus_sh -t create_quartus_project_settings.tcl -projectname de1_mux2to1
-##                         -family "Cyclone II" -device EP2C20F484C7
-## ----------------------------------------------------------------------------
-## Revisions  : see end of file
-## ----------------------------------------------------------------------------
+##              quartus_sh -t create_quartus_project_settings.tcl 
 
-#package require cmdline
 # Load Quartus II Tcl Project package
 package require ::quartus::project
 
-# ----------------------------------------------------------------------------
-# Verify required paramters
-# ----------------------------------------------------------------------------
-
 	# ----------------------------------------------------------------------------
 	# Create project
 	# ----------------------------------------------------------------------------
@@ -76,8 +65,3 @@ package require ::quartus::project
 	project_close
 
 
-## ----------------------------------------------------------------------------
-## Revisions:
-## ----------
-## $Id:$
-## ----------------------------------------------------------------------------

pnr/ledsw-scripted/quartus_project_flow.tcl

@@ -5,14 +5,7 @@
 ## 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
-## ----------------------------------------------------------------------------
+##              quartus_sh -t quartus_project_flow.tcl 
 
 # Load Quartus II Tcl Project package
 package require ::quartus::project
@@ -24,18 +17,17 @@ package require ::quartus::project
     project_open ledsw
 
     # ----------------------------------------------------------------------------
-    # Run specified design flow by parameter -process
+    # Run design flow 
     # ----------------------------------------------------------------------------
     load_package flow
 
     execute_flow -compile
 
-
     # ----------------------------------------------------------------------------
     # Write Reports
     # ----------------------------------------------------------------------------
     load_package report
-    load_report  first
+    load_report  ledsw
     write_report_panel -file flowsummary.log "Flow Summary"
 
     # ----------------------------------------------------------------------------
@@ -43,9 +35,3 @@ package require ::quartus::project
     # ----------------------------------------------------------------------------
     project_close
 
-
-## ----------------------------------------------------------------------------
-## Revisions:
-## ----------
-## $Id:$
-## ----------------------------------------------------------------------------