fhlow 1.91.0 → 1.91.1

data/lib/plugins/Quartus.flw

@@ -0,0 +1,5 @@
+[Quartus]
+    BinDir = 
+    LicenseFile =
+
+    Verbose = 0

data/lib/plugins/Quartus.rb

@@ -0,0 +1,237 @@
+#----------------------------------------------------------------------------
+# 
+# Copyright (C) 2007 Simon Lasselsberger
+# simon.lasselsberger@fh-hagenberg.at
+#
+# This file is part of the _fhlow_ scripting environment.
+#
+# The _fhlow_ scripting environment is free software; you can redistribute 
+# it and/or modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2 of the
+# License, or (at your option) any later version.
+#
+# _fhlow_ is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with _fhlow_; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+#----------------------------------------------------------------------------
+
+require 'plugin'
+require 'fileutils'
+require 'fhlowexception'
+require 'fileutils'
+
+class Quartus < Fhlow::Plugin
+  
+    def initialize(_actualLeaf, _pen, _log)
+        super(_actualLeaf, _pen, _log)
+
+        # default configuration values here
+		@verbose = @actualLeaf.conf["Quartus"]["Verbose"]
+        
+
+
+        # this functioncall is optional
+        describeCmd("Plugin vor Altera Quartus.",
+                    "Supported versions: Quartus 6.1")
+
+
+        # --- synthesise ---
+        # create an options object
+        synoptions = CmdParse::OptionParserWrapper.new do |opt|
+            opt.separator "<synthesize-options>:"
+            opt.on("-v", "--verbose VAL",     "More output. possible values of VAL: 0, 1, 2") {|val| @verbose = val.to_i }
+        end
+
+        # register the subcommand
+        registerSubCmd(
+                "synthesize",                            # name of the subcmd
+                "Synthesizes the configured sources.",  # short description (optional)
+                "Synthesizes the configured sources.", 	# description (optional)
+                synoptions                              # the option object (optional)
+                ) { synthesize() }                      # the action which should be run when this subcmd is invoked
+
+        # --- place and route ---
+        # create an options object
+        pnroptions = CmdParse::OptionParserWrapper.new do |opt|
+            opt.separator "<placeandroute-options>:"
+            opt.on("-v", "--verbose VAL",     "More output. possible values of VAL: 0, 1, 2") {|val| @verbose = val.to_i }
+        end
+
+        # register the subcommand
+        registerSubCmd(
+                "placeandroute",                        # name of the subcmd
+                "Runs placement and routing of configured sources.",    # short description (optional)
+                "Runs placement and routing of configured sources.", 	# description (optional)
+                pnroptions                              # the option object (optional)
+                ) { synthesize(); placeandroute(false, true)}  # the action which should be run when this subcmd is invoked
+
+    end
+
+    def synthesize(_printActualLeaf=true)
+        initWork()
+		
+        sources = @actualLeaf.getFiles("Packages") | @actualLeaf.getFiles("Units")
+
+        @pen.puts 
+        @actualLeaf.printMe if _printActualLeaf
+        width = 87
+
+        @pen.seperator
+
+        begin
+            @pen.print ",", "-"*width,"+\n"
+            @pen.print "|", " Synthesis".ljust(width), "|\n"
+            @pen.print "+", "-"*width,"+\n"
+
+            callTool("quartus_sh") { prepareSettingsFile() }
+            callTool("quartus_map") { callQuartusMap(sources) } 
+        ensure
+            @pen.print "`", "-"*width,"+\n"
+        end
+    end
+
+    
+    def placeandroute(_printActualLeaf=true, _noInitWork=false)
+        initWork() unless _noInitWork
+
+		sources = @actualLeaf.getFiles("Packages") | @actualLeaf.getFiles("Units")
+
+        @pen.puts if _printActualLeaf
+        @actualLeaf.printMe if _printActualLeaf
+        width = 87
+
+        @pen.seperator
+
+        begin
+            @pen.print ",", "-"*width,"+\n"
+            @pen.print "|", " Place and Route".ljust(width), "|\n"
+            @pen.print "+", "-"*width,"+\n"
+
+            callTool("quartus_fit") { callQuartusFit }
+			@pen.print "+", "-"*width,"+\n"
+            callTool("quartus_asm") { callQuartusAsm }     
+			@pen.print "+", "-"*width,"+\n"
+            callTool("quartus_tan") { callQuartusTan }
+			@pen.print "+", "-"*width,"+\n"
+            callTool("quartus_eda") { callQuartusEda }
+            
+        ensure
+            @pen.print "`", "-"*width,"+\n"
+        end
+    end
+
+    # --- some private helper functions ---
+    private
+        def initWork(_vardir=@varDir, _sharedir=@shareDir)
+            ENV["LM_LICENSE_FILE"] = @actualLeaf.conf["Quartus"]["LicenseFile"]
+            
+            FileUtils.rm_r(_vardir) if File.directory?(_vardir)
+            FileUtils.makedirs(_vardir)
+            FileUtils.makedirs(_sharedir)
+        end
+
+        def callTool(_toolname, &_block)
+			msg = _block.call
+            raise Fhlow::FhlowPluginException.new("Quartus"), "There were some errors while running #{_toolname}!\n       Message:\n-----\n#{msg}\n-----" if $? != 0
+			if @verbose >= 2
+				
+                msg.gsub!(/(.*successful.*)/, @pen.lightgreen+'\1'+@pen.clear)
+                msg.gsub!(/(.*Warning.*)/, @pen.lightyellow+'\1'+@pen.clear)
+                msg.gsub!(/(.*Error.*)/, @pen.lightred+'\1'+@pen.clear)
+                puts msg
+                
+			else
+				msg.find_all { |line| line =~ /.*successful|Warning.*/ }.each do |str| 
+                    if str =~ /.*successful.*/
+                        @pen.puts "| "+@pen.lightgreen+$&+@pen.clear
+                    elsif str =~ /.*Warning.*/ and @verbose >= 1
+                        @pen.puts "| "+@pen.lightyellow+$&+@pen.clear
+                    end
+                end
+			end    
+        end
+        
+        def prepareSettingsFile()
+            file = File.open(@actualLeaf.getPath+"var/#{self.class.to_s}/pins.tcl", "w")
+            
+            file.puts "project_new #{@actualLeaf.name} -overwrite"
+            @actualLeaf.conf[@target].item_each("Pins") do |signalname, pinname, pullup|
+                signalname.sub!(/\((\w)\)/, '[\1]')
+                file.puts "set_location_assignment -to #{signalname} #{pinname}"
+                file.puts "set_instance_assignment -name WEAK_PULL_UP_RESISTOR ON -to #{signalname}" if pullup == "true"
+            end
+            
+            # by now only base clocks can be created
+            @actualLeaf.conf[@target].item_each("Frequencies") do |signalname, freqency, clockname|
+                signalname.sub!(/\((\w)\)/, '[\1]')
+                file.puts "create_base_clock -fmax #{freqency}MHz -target #{signalname} #{clockname}"
+            end
+            
+            file.puts "set_global_assignment -name EDA_VHDL_ARCH_NAME #{@actualLeaf.getArchitectures(@actualLeaf)["Units"][0]} -section_id eda_simulation"
+            file.puts "set_global_assignment -name RESERVE_ALL_UNUSED_PINS  \"AS INPUT TRI-STATED\""
+#            file.puts "set_global_assignment -name EDA_WRITER_DONT_WRITE_TOP_ENTITY ON -section_id eda_simulation"
+            file.puts "set_global_assignment -name EDA_MAINTAIN_DESIGN_HIERARCHY ON -section_id eda_simulation"
+            
+            file.puts "project_close"
+            file.close
+            instruction = "#{@actualLeaf.conf["Quartus"]["BinDir"]}quartus_sh -t #{file.path}"
+            @log.debug("Quartus", "Running quartus_sh: #{instruction}")            
+            msg = ""; runInVarDir { msg = `#{instruction} 2>&1` } 
+            msg
+        end
+        
+        def callQuartusMap(_src)
+            instruction = "#{@actualLeaf.conf["Quartus"]["BinDir"]}quartus_map #{@actualLeaf.name} "
+            instruction += "--source=#{_src.join(" --source=")} "
+            instruction += "--family=#{@actualLeaf.conf[@target]["Family"]} "
+            instruction += "--part=#{@actualLeaf.conf[@target]["Part"]}#{@actualLeaf.conf[@target]["Package"]}#{@actualLeaf.conf[@target]["SpeedGrade"]} " 
+            instruction += "--set=DEVICE_FILTER_SPEED_GRADE=#{@actualLeaf.conf[@target]["SpeedGrade"]} "
+            @log.debug("Quartus", "Running quartus_map: #{instruction}")            
+            msg = ""; runInVarDir { msg = `#{instruction} 2>&1` }
+            msg
+        end
+
+        def callQuartusFit()
+            instruction = "#{@actualLeaf.conf["Quartus"]["BinDir"]}quartus_fit #{@actualLeaf.name} "
+            instruction += "--part=#{@actualLeaf.conf[@target]["Part"]}#{@actualLeaf.conf[@target]["Package"]}#{@actualLeaf.conf[@target]["SpeedGrade"]} " 
+            #instruction += "--fmax=#{@actualLeaf.conf[@target]["Frequency"]}MHz "
+            #instruction += "--set=RESERVE_ALL_UNUSED_PINS=\"AS INPUT TRI-STATED\" "
+            @log.debug("Quartus", "Running quartus_fit: #{instruction}")            
+            msg = ""; runInVarDir { msg = `#{instruction} 2>&1` }
+            msg
+        end
+
+        def callQuartusAsm()
+            instruction = "#{@actualLeaf.conf["Quartus"]["BinDir"]}quartus_asm #{@actualLeaf.name}"
+            @log.debug("Quartus", "Running quartus_asm: #{instruction}")            
+            msg = ""; runInVarDir { msg = `#{instruction} 2>&1` }
+            msg
+        end
+
+        def callQuartusTan()
+            instruction = "#{@actualLeaf.conf["Quartus"]["BinDir"]}quartus_tan #{@actualLeaf.name}"
+            @log.debug("Quartus", "Running quartus_tan: #{instruction}")            
+            msg = ""; runInVarDir { msg = `#{instruction} 2>&1` }
+            msg
+        end
+
+        def callQuartusEda()
+            instruction = "#{@actualLeaf.conf["Quartus"]["BinDir"]}quartus_eda #{@actualLeaf.name} "
+            instruction += "--simulation "
+            instruction += "--tool=modelsim "
+            instruction += "--format=vhdl "
+            @log.debug("Quartus", "Running quartus_eda: #{instruction}")            
+            msg = ""; runInVarDir { msg = `#{instruction} 2>&1` }
+            
+            FileUtils.copy("#{@varDir}/simulation/modelsim/#{@actualLeaf.name}_vhd.sdo", "#{@shareDir}/#{@actualLeaf.name}.sdf")
+            FileUtils.copy("#{@varDir}/simulation/modelsim/#{@actualLeaf.name}.vho", "#{@shareDir}/net#{@actualLeaf.name}-#{@actualLeaf.getArchitectures(@actualLeaf)["Units"][0]}-ea.vhd")
+            msg
+        end
+
+end

metadata

@@ -1,106 +1,111 @@
 --- !ruby/object:Gem::Specification 
-rubygems_version: 0.8.11
-specification_version: 1
 name: fhlow
 version: !ruby/object:Gem::Version 
-  version: 1.91.0
-date: 2007-04-02 00:00:00 +02:00
-summary: A working environment that speeds up and structures the design process of technology independent digital chips.
-require_paths: 
-- lib
-email: simon.lasselsberger@fh-hagenberg.at
-homepage: http://fhlow.lisuna.org
-rubyforge_project: fhlow
-description: 
-autorequire: 
-default_executable: fhlow
-bindir: bin
-has_rdoc: false
-required_ruby_version: !ruby/object:Gem::Version::Requirement 
-  requirements: 
-  - - ">"
-    - !ruby/object:Gem::Version 
-      version: 0.0.0
-  version: 
+  version: 1.91.1
 platform: ruby
-signing_key: 
-cert_chain: 
 authors: 
 - Simon Lasselsberger
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2008-10-29 00:00:00 +01:00
+default_executable: fhlow
+dependencies: []
+
+description: 
+email: simon.lasselsberger@fh-hagenberg.at
+executables: 
+- fhlow
+extensions: []
+
+extra_rdoc_files: []
+
 files: 
 - bin/fhlow
-- lib/module_cmdparse
-- lib/module_fhlow
-- lib/module_config
 - lib/module_term
+- lib/module_term/ansicolor.rb
+- lib/module_cmdparse
 - lib/module_cmdparse/cmdparse
-- lib/module_cmdparse/cmdparse.rb
 - lib/module_cmdparse/cmdparse/wrappers
 - lib/module_cmdparse/cmdparse/wrappers/optparse.rb
-- lib/module_fhlow/leafs
-- lib/module_fhlow/fhlowexception.rb
-- lib/module_fhlow/leaf.rb~
-- lib/module_fhlow/leaf.rb
-- lib/module_fhlow/test.rb
-- lib/module_fhlow/pen.rb
-- lib/module_fhlow/pluginpool.rb
-- lib/module_fhlow/node.rb
+- lib/module_cmdparse/cmdparse.rb
+- lib/module_fhlow
 - lib/module_fhlow/plugin.rb
 - lib/module_fhlow/leaffactory.rb
-- lib/module_fhlow/log.rb
 - lib/module_fhlow/rootnode.rb
-- lib/module_fhlow/leafs/Package.rb
+- lib/module_fhlow/log.rb
+- lib/module_fhlow/leaf.rb
+- lib/module_fhlow/leafs
+- lib/module_fhlow/leafs/Library.rb
 - lib/module_fhlow/leafs/Unit.rb
-- lib/module_config/configitems
-- lib/module_config/configs.test
-- lib/module_config/configexception.rb
-- lib/module_config/test.flw
+- lib/module_fhlow/leafs/Package.rb
+- lib/module_fhlow/pen.rb
+- lib/module_fhlow/fhlowexception.rb
+- lib/module_fhlow/pluginpool.rb
+- lib/module_fhlow/node.rb
+- lib/module_config
 - lib/module_config/config.rb
-- lib/module_config/tmp
+- lib/module_config/simpleitem.rb
+- lib/module_config/items
+- lib/module_config/items/complex.rb
+- lib/module_config/items/simple.rb
+- lib/module_config/items/complexpins.rb
+- lib/module_config/items/simpleverbose.rb
+- lib/module_config/items/complexfreqencies.rb
+- lib/module_config/items/complexunit.rb
+- lib/module_config/items/complexpackage.rb
+- lib/module_config/items/simplesimulaterun.rb
+- lib/module_config/items/simplebindir.rb
+- lib/module_config/items/simplearchitecture.rb
+- lib/module_config/items/simplepostlayoutsdf.rb
+- lib/module_config/items/complexlibrary.rb
+- lib/module_config/items/simplebool.rb
+- lib/module_config/test.rb
 - lib/module_config/unittests
+- lib/module_config/unittests/config_1_fixed.flw
+- lib/module_config/unittests/config_3b.flw
+- lib/module_config/unittests/config_3a.flw
+- lib/module_config/unittests/config_1.flw
+- lib/module_config/unittests/config_2.flw
+- lib/module_config/unittests/config_test.rb
+- lib/module_config/complexitem.rb
 - lib/module_config/section.rb
 - lib/module_config/itemfactory.rb
+- lib/module_config/test.flw
+- lib/module_config/configexception.rb
 - lib/module_config/item.rb
-- lib/module_config/test.rb
-- lib/module_config/configitems/simplepackage.rb
-- lib/module_config/configitems/simpleunit.rb
-- lib/module_config/configitems/complex.rb
-- lib/module_config/configitems/simple.rb
-- lib/module_config/configitems/complexunit.rb
-- lib/module_config/configitems/complexpackage.rb
-- lib/module_config/configitems/simplearchitecture.rb
-- lib/module_config/unittests/config_2.flw
-- lib/module_config/unittests/config_1.flw
-- lib/module_config/unittests/config_1_fixed.flw
-- lib/module_config/unittests/config_test.rb
-- lib/module_config/unittests/config_3a.flw
-- lib/module_config/unittests/config_3b.flw
-- lib/module_config/unittests/coverage
-- lib/module_config/unittests/coverage/index.html
-- lib/module_config/unittests/coverage/-home-simon-tmp-fhlow_v2-flw-core-lib-module_config-configexception_rb.html
-- lib/module_config/unittests/coverage/-home-simon-tmp-fhlow_v2-flw-core-lib-module_config-configitems-simple_rb.html
-- lib/module_config/unittests/coverage/-home-simon-tmp-fhlow_v2-flw-core-lib-module_config-item_rb.html
-- lib/module_config/unittests/coverage/-home-simon-tmp-fhlow_v2-flw-core-lib-module_config-itemfactory_rb.html
-- lib/module_config/unittests/coverage/-home-simon-tmp-fhlow_v2-flw-core-lib-module_config-myconfig_rb.html
-- lib/module_config/unittests/coverage/-home-simon-tmp-fhlow_v2-flw-core-lib-module_config-section_rb.html
-- lib/module_config/unittests/coverage/-home-simon-tmp-fhlow_v2-flw-core-lib-module_config-configitems-simpleunit_rb.html
-- lib/module_config/unittests/coverage/-home-simon-tmp-fhlow_v2-flw-core-lib-module_config-configitems-complex_rb.html
-- lib/module_config/unittests/coverage/-home-simon-tmp-fhlow_v2-flw-core-lib-module_config-configitems-simplepackage_rb.html
-- lib/module_config/unittests/coverage/-home-simon-tmp-fhlow_v2-flw-core-lib-module_config-configitems-complexpackage_rb.html
-- lib/module_config/unittests/coverage/-home-simon-tmp-fhlow_v2-flw-core-lib-module_config-configitems-complexunit_rb.html
-- lib/module_term/ansicolor.rb
+- lib/plugins
+- lib/plugins/Quartus.rb
+- lib/plugins/Quartus.flw
+- lib/plugins/Modelsim.rb
+- lib/plugins/Modelsim.flw
 - tests/testsuite.rb
-test_files: []
-
+has_rdoc: false
+homepage: http://fhlow.lisuna.org
+post_install_message: 
 rdoc_options: []
 
-extra_rdoc_files: []
-
-executables: 
-- fhlow
-extensions: []
-
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
 requirements: []
 
-dependencies: []
+rubyforge_project: fhlow
+rubygems_version: 1.2.0
+signing_key: 
+specification_version: 2
+summary: A working environment that speeds up and structures the design process of technology independent digital chips.
+test_files: []
 

data/lib/module_config/configitems/complex.rb

@@ -1,71 +0,0 @@
-require 'item'
-require 'itemfactory'
-require 'configexception'
-
-module Config 
-
-    class ComplexFactory < ItemFactory
-
-
-        def ComplexFactory.match(_str)
-            _str.sub!(Complex.getRegex, '')
-            return $&
-        end
-
-        def ComplexFactory.create(*_args)
-            Complex.new(*_args)
-        end
-
-        def ComplexFactory.priority
-            11
-        end
-
-    end
-
-    class Complex < Item
-        @@regex = /(\w+)\s*=(\s*|[\n]*)\{((\s*.+[;][\s\n]*)*(\s*.+[;]*[\s\n]*))\}/
-        @@subitemregex = /\A.+\Z/
-
-        attr_reader :name
-        attr_reader :value
-
-        def initialize(_str)
-            
-
-            if _str =~ @@regex
-                @name = $1
-                @value = $3.strip.split(';').each do |item|
-                    item.strip!    
-                    raise ConfigWrongFormatException.new(self.class), "Configuration subitem <#{item}> of item <#{name}> has wrong format." unless item =~ @@subitemregex
-                end
-            else
-                raise ConfigWrongFormatException.new(self.class), "Configuration item <#{_str}> has wrong format."
-            end
-        end
-
-        def merge(_complexitem)
-            raise ConfigMergeException.new(self.class), "Merge: Configuration items do not fit! <#{_complexitem}> is not of type #{self.class.to_s}." unless _complexitem.instance_of?(self.class)
-            raise ConfigMergeException.new(self.class), "Merge: Configuration items do not have the same name! <#{_complexitem.name}> vs. <#{@name}>" unless _complexitem.name == @name
-
-            @value = _complexitem.value | @value
-        end
-
-        def each(&block)
-            @value.each(&block)
-        end
-
-        def print
-            puts "<Complex>"
-            puts "    #{@name} = {"
-            @value.each { |v| puts "        #{v};" }
-            puts "    }"
-        end
-        
-        def Complex.getRegex()
-            @@regex
-        end
-
-
-    end        
-
-end