RubyGems - vertigo_vhdl - Versions diffs - 0.8.2 - Mend

vertigo_vhdl 0.8.2

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (183) hide show

checksums.yaml +7 -0
data/bin/vertigo +7 -0
data/lib/vertigo.rb +4 -0
data/lib/vertigo/ast.rb +87 -0
data/lib/vertigo/ast_vertigo_rkgen.rb +607 -0
data/lib/vertigo/code.rb +57 -0
data/lib/vertigo/compiler.rb +61 -0
data/lib/vertigo/generic_lexer.rb +61 -0
data/lib/vertigo/generic_parser.rb +44 -0
data/lib/vertigo/indent.rb +20 -0
data/lib/vertigo/lexer.rb +172 -0
data/lib/vertigo/parser.rb +1458 -0
data/lib/vertigo/pretty_printer.rb +749 -0
data/lib/vertigo/runner.rb +115 -0
data/lib/vertigo/tb_generator.rb +81 -0
data/lib/vertigo/template.tb.vhd +72 -0
data/lib/vertigo/token.rb +67 -0
data/lib/vertigo/version.rb +3 -0
data/lib/vertigo/vertigo.rkg +354 -0
data/lib/vertigo/visitor_vertigo_rkgen.rb +447 -0
data/tests/ghdl_tests/fsm.vhd +98 -0
data/tests/ghdl_tests/fsm_synth.vhd +248 -0
data/tests/ghdl_tests/test_fsm.vhd +162 -0
data/tests/parser_tests/else.vhd +64 -0
data/tests/parser_tests/test_MUST_fail.vhd +1 -0
data/tests/parser_tests/test_accelerator.vhd +160 -0
data/tests/parser_tests/test_accelerator_pp.vhd +144 -0
data/tests/parser_tests/test_aggregate.vhd +17 -0
data/tests/parser_tests/test_aggregate_pp.vhd +15 -0
data/tests/parser_tests/test_archi_1.vhd +45 -0
data/tests/parser_tests/test_archi_1_pp.vhd +41 -0
data/tests/parser_tests/test_array_array_00.vhd +25 -0
data/tests/parser_tests/test_array_array_00_pp.vhd +25 -0
data/tests/parser_tests/test_array_urange.vhd +25 -0
data/tests/parser_tests/test_array_urange_pp.vhd +25 -0
data/tests/parser_tests/test_chu-1.vhd +80 -0
data/tests/parser_tests/test_chu-1_pp.vhd +104 -0
data/tests/parser_tests/test_concat.vhd +11 -0
data/tests/parser_tests/test_concat_pp.vhd +14 -0
data/tests/parser_tests/test_counter.vhd +35 -0
data/tests/parser_tests/test_counter_pp.vhd +35 -0
data/tests/parser_tests/test_de2.vhd +358 -0
data/tests/parser_tests/test_de2_pp.vhd +274 -0
data/tests/parser_tests/test_encode.vhd +2679 -0
data/tests/parser_tests/test_encode_pp.vhd +2549 -0
data/tests/parser_tests/test_fsm.vhd +162 -0
data/tests/parser_tests/test_fsm_pp.vhd +125 -0
data/tests/parser_tests/test_fsm_synth.vhd +248 -0
data/tests/parser_tests/test_fsm_synth_pp.vhd +197 -0
data/tests/parser_tests/test_function-01.vhd +33 -0
data/tests/parser_tests/test_function-01_pp.vhd +18 -0
data/tests/parser_tests/test_lfsr.vhd +75 -0
data/tests/parser_tests/test_lfsr_pp.vhd +44 -0
data/tests/parser_tests/test_microwatt_cache_ram.vhd +1 -0
data/tests/parser_tests/test_microwatt_cache_ram_pp.vhd +68 -0
data/tests/parser_tests/test_microwatt_common.vhd +1 -0
data/tests/parser_tests/test_microwatt_common_pp.vhd +336 -0
data/tests/parser_tests/test_microwatt_control.vhd +1 -0
data/tests/parser_tests/test_microwatt_control_pp.vhd +187 -0
data/tests/parser_tests/test_microwatt_core.vhd +1 -0
data/tests/parser_tests/test_microwatt_core_debug.vhd +1 -0
data/tests/parser_tests/test_microwatt_core_debug_pp.vhd +104 -0
data/tests/parser_tests/test_microwatt_core_pp.vhd +231 -0
data/tests/parser_tests/test_microwatt_core_tb.vhd +1 -0
data/tests/parser_tests/test_microwatt_core_tb_pp.vhd +43 -0
data/tests/parser_tests/test_microwatt_countzero.vhd +1 -0
data/tests/parser_tests/test_microwatt_countzero_pp.vhd +120 -0
data/tests/parser_tests/test_microwatt_countzero_tb.vhd +1 -0
data/tests/parser_tests/test_microwatt_countzero_tb_pp.vhd +70 -0
data/tests/parser_tests/test_microwatt_cr_file.vhd +1 -0
data/tests/parser_tests/test_microwatt_cr_file_pp.vhd +74 -0
data/tests/parser_tests/test_microwatt_cr_hazard.vhd +1 -0
data/tests/parser_tests/test_microwatt_cr_hazard_pp.vhd +51 -0
data/tests/parser_tests/test_microwatt_crhelpers.vhd +1 -0
data/tests/parser_tests/test_microwatt_crhelpers_pp.vhd +48 -0
data/tests/parser_tests/test_microwatt_dcache.vhd +1 -0
data/tests/parser_tests/test_microwatt_dcache_pp.vhd +481 -0
data/tests/parser_tests/test_microwatt_dcache_tb.vhd +1 -0
data/tests/parser_tests/test_microwatt_dcache_tb_pp.vhd +98 -0
data/tests/parser_tests/test_microwatt_decode1.vhd +1 -0
data/tests/parser_tests/test_microwatt_decode1_pp.vhd +138 -0
data/tests/parser_tests/test_microwatt_decode2.vhd +1 -0
data/tests/parser_tests/test_microwatt_decode2_pp.vhd +300 -0
data/tests/parser_tests/test_microwatt_decode_types.vhd +1 -0
data/tests/parser_tests/test_microwatt_decode_types_pp.vhd +67 -0
data/tests/parser_tests/test_microwatt_divider.vhd +1 -0
data/tests/parser_tests/test_microwatt_divider_pp.vhd +132 -0
data/tests/parser_tests/test_microwatt_divider_tb.vhd +1 -0
data/tests/parser_tests/test_microwatt_divider_tb_pp.vhd +95 -0
data/tests/parser_tests/test_microwatt_dmi_dtm_dummy.vhd +1 -0
data/tests/parser_tests/test_microwatt_dmi_dtm_dummy_pp.vhd +29 -0
data/tests/parser_tests/test_microwatt_dmi_dtm_tb.vhd +1 -0
data/tests/parser_tests/test_microwatt_dmi_dtm_tb_pp.vhd +197 -0
data/tests/parser_tests/test_microwatt_dmi_dtm_xilinx.vhd +1 -0
data/tests/parser_tests/test_microwatt_dmi_dtm_xilinx_pp.vhd +139 -0
data/tests/parser_tests/test_microwatt_execute1.vhd +1 -0
data/tests/parser_tests/test_microwatt_execute1_pp.vhd +689 -0
data/tests/parser_tests/test_microwatt_fetch1.vhd +1 -0
data/tests/parser_tests/test_microwatt_fetch1_pp.vhd +88 -0
data/tests/parser_tests/test_microwatt_fetch2.vhd +1 -0
data/tests/parser_tests/test_microwatt_fetch2_pp.vhd +79 -0
data/tests/parser_tests/test_microwatt_glibc_random.vhd +1 -0
data/tests/parser_tests/test_microwatt_glibc_random_helpers.vhd +1 -0
data/tests/parser_tests/test_microwatt_glibc_random_helpers_pp.vhd +25 -0
data/tests/parser_tests/test_microwatt_glibc_random_pp.vhd +41 -0
data/tests/parser_tests/test_microwatt_gpr_hazard.vhd +1 -0
data/tests/parser_tests/test_microwatt_gpr_hazard_pp.vhd +68 -0
data/tests/parser_tests/test_microwatt_helpers.vhd +1 -0
data/tests/parser_tests/test_microwatt_helpers_pp.vhd +153 -0
data/tests/parser_tests/test_microwatt_icache.vhd +1 -0
data/tests/parser_tests/test_microwatt_icache_pp.vhd +337 -0
data/tests/parser_tests/test_microwatt_icache_tb.vhd +1 -0
data/tests/parser_tests/test_microwatt_icache_tb_pp.vhd +104 -0
data/tests/parser_tests/test_microwatt_insn_helpers.vhd +1 -0
data/tests/parser_tests/test_microwatt_insn_helpers_pp.vhd +208 -0
data/tests/parser_tests/test_microwatt_loadstore1.vhd +1 -0
data/tests/parser_tests/test_microwatt_loadstore1_pp.vhd +222 -0
data/tests/parser_tests/test_microwatt_logical.vhd +1 -0
data/tests/parser_tests/test_microwatt_logical_pp.vhd +87 -0
data/tests/parser_tests/test_microwatt_multiply.vhd +1 -0
data/tests/parser_tests/test_microwatt_multiply_pp.vhd +84 -0
data/tests/parser_tests/test_microwatt_multiply_tb.vhd +1 -0
data/tests/parser_tests/test_microwatt_multiply_tb_pp.vhd +75 -0
data/tests/parser_tests/test_microwatt_plru.vhd +1 -0
data/tests/parser_tests/test_microwatt_plru_pp.vhd +46 -0
data/tests/parser_tests/test_microwatt_plru_tb.vhd +1 -0
data/tests/parser_tests/test_microwatt_plru_tb_pp.vhd +93 -0
data/tests/parser_tests/test_microwatt_ppc_fx_insns.vhd +1 -0
data/tests/parser_tests/test_microwatt_ppc_fx_insns_pp.vhd +665 -0
data/tests/parser_tests/test_microwatt_register_file.vhd +1 -0
data/tests/parser_tests/test_microwatt_register_file_pp.vhd +86 -0
data/tests/parser_tests/test_microwatt_rotator.vhd +1 -0
data/tests/parser_tests/test_microwatt_rotator_pp.vhd +149 -0
data/tests/parser_tests/test_microwatt_rotator_tb.vhd +1 -0
data/tests/parser_tests/test_microwatt_rotator_tb_pp.vhd +134 -0
data/tests/parser_tests/test_microwatt_sim_bram.vhd +1 -0
data/tests/parser_tests/test_microwatt_sim_bram_helpers.vhd +1 -0
data/tests/parser_tests/test_microwatt_sim_bram_helpers_pp.vhd +52 -0
data/tests/parser_tests/test_microwatt_sim_bram_pp.vhd +53 -0
data/tests/parser_tests/test_microwatt_sim_console.vhd +1 -0
data/tests/parser_tests/test_microwatt_sim_console_pp.vhd +43 -0
data/tests/parser_tests/test_microwatt_sim_jtag.vhd +1 -0
data/tests/parser_tests/test_microwatt_sim_jtag_pp.vhd +64 -0
data/tests/parser_tests/test_microwatt_sim_jtag_socket.vhd +1 -0
data/tests/parser_tests/test_microwatt_sim_jtag_socket_pp.vhd +36 -0
data/tests/parser_tests/test_microwatt_sim_uart.vhd +1 -0
data/tests/parser_tests/test_microwatt_sim_uart_pp.vhd +90 -0
data/tests/parser_tests/test_microwatt_soc.vhd +1 -0
data/tests/parser_tests/test_microwatt_soc_pp.vhd +195 -0
data/tests/parser_tests/test_microwatt_utils.vhd +1 -0
data/tests/parser_tests/test_microwatt_utils_pp.vhd +39 -0
data/tests/parser_tests/test_microwatt_wishbone_arbiter.vhd +1 -0
data/tests/parser_tests/test_microwatt_wishbone_arbiter_pp.vhd +54 -0
data/tests/parser_tests/test_microwatt_wishbone_bram_tb.vhd +1 -0
data/tests/parser_tests/test_microwatt_wishbone_bram_tb_pp.vhd +157 -0
data/tests/parser_tests/test_microwatt_wishbone_bram_wrapper.vhd +1 -0
data/tests/parser_tests/test_microwatt_wishbone_bram_wrapper_pp.vhd +62 -0
data/tests/parser_tests/test_microwatt_wishbone_debug_master.vhd +1 -0
data/tests/parser_tests/test_microwatt_wishbone_debug_master_pp.vhd +124 -0
data/tests/parser_tests/test_microwatt_wishbone_types.vhd +1 -0
data/tests/parser_tests/test_microwatt_wishbone_types_pp.vhd +38 -0
data/tests/parser_tests/test_microwatt_writeback.vhd +1 -0
data/tests/parser_tests/test_microwatt_writeback_pp.vhd +87 -0
data/tests/parser_tests/test_package-1.vhd +68 -0
data/tests/parser_tests/test_package-1_pp.vhd +53 -0
data/tests/parser_tests/test_precedence.vhd +13 -0
data/tests/parser_tests/test_precedence_pp.vhd +16 -0
data/tests/parser_tests/test_selected_sig.vhd +14 -0
data/tests/parser_tests/test_selected_sig_pp.vhd +10 -0
data/tests/parser_tests/test_slice.vhd +15 -0
data/tests/parser_tests/test_slice_pp.vhd +16 -0
data/tests/parser_tests/test_tb-00.vhd +94 -0
data/tests/parser_tests/test_tb-00_pp.vhd +71 -0
data/tests/parser_tests/test_type_decl_02.vhd +9 -0
data/tests/parser_tests/test_type_decl_02_pp.vhd +11 -0
data/tests/parser_tests/test_use.vhd +7 -0
data/tests/parser_tests/test_use_pp.vhd +10 -0
data/tests/parser_tests/test_while_1.vhd +38 -0
data/tests/parser_tests/test_while_1_pp.vhd +26 -0
data/tests/parser_tests/test_with-00.vhd +21 -0
data/tests/parser_tests/test_with-00_pp.vhd +12 -0
data/tests/tb_gen_tests/test_accelerator.vhd +160 -0
metadata +224 -0

data/lib/vertigo/pretty_printer.rb ADDED Viewed

@@ -0,0 +1,749 @@
+require_relative 'code'
+module Vertigo
+  class PrettyPrinter
+    def print ast
+      code=Code.new
+      code << "-- generated by Vertigo VHDL tool"
+      code << ast.accept(self)
+      code
+    end
+    def visitRoot(root,args=nil)
+      code=Code.new
+      root.design_units.each{|design_unit_| code << design_unit_.accept(self,args)}
+      code
+    end
+    def visitToken token,args=nil
+      token.val
+    end
+    def visitComment(comment_,args=nil)
+      "-- #{comment_.str}"
+    end
+    def visitLibrary(library,args=nil)vhdl=Code.new
+      name=library.name.accept(self,args)
+      "library #{name};"
+    end
+    def visitUse(use,args=nil)
+      library=use.library.accept(self,args)
+      package=use.package.accept(self,args)
+      element=use.element.accept(self,args)
+      "use #{library}.#{package}.#{element};"
+    end
+    def visitEntity(entity,args=nil)
+      code=Code.new
+      name=entity.name.accept(self,args)
+      code.newline
+      code << "entity #{name} is"
+      code.indent=2
+      if entity.generics.any?
+        code << "generic("
+        code.indent=4
+        entity.generics.each{|generic_| code << generic_.accept(self,args)}
+        code.indent=2
+        code << ");"
+      end
+      if entity.ports.any?
+        code << "port("
+        code.indent=4
+        entity.ports.each{|port_| code << port_.accept(self,args)}
+        code.indent=2
+        code << ");"
+      end
+      code.indent=0
+      code << "end entity #{name};"
+      code.newline
+      code
+    end
+    def visitGeneric(generic,args=nil)
+      name=generic.name.accept(self,args)
+      type=generic.type.accept(self,args)
+      init=generic.init.accept(self,args) if generic.init
+      init+=" := #{init}" if init
+      "#{name} : #{type}#{init};"
+    end
+    def visitInput(input,args=nil)
+      name=input.name.accept(self,args)
+      type=input.type.accept(self,args)
+      init=input.init.accept(self,args) if input.init
+      "#{name} : in #{type}#{init};"
+    end
+    def visitOutput(output,args=nil)
+      name=output.name.accept(self,args)
+      type=output.type.accept(self,args)
+      init=output.init.accept(self,args) if output.init
+      "#{name} : out #{type}#{init};"
+    end
+    def visitInOut(inout,args=nil)
+      name=inout.name.accept(self,args)
+      type=inout.type.accept(self,args)
+      init=inout.init.accept(self,args) if inout.init
+      "#{name} : inout #{type}#{init};"
+    end
+    # ====================================================
+    def visitPackage package_,args=nil
+      name=package_.name.accept(self,args)
+      code=Code.new
+      code.newline
+      code << "package #{name} is"
+      code.indent=2
+      package_.decls.each{|decl_| code << decl_.accept(self,args)}
+      code.indent=0
+      code.newline
+      code << "end #{name};"
+      code.newline
+      code
+    end
+    def visitPackageBody(packagebody_,args=nil)
+      name=packagebody_.name.accept(self,args)
+      code=Code.new
+      code << "package body #{name} is"
+      code.indent=2
+      packagebody_.decls.each{|decl_| code << decl_.accept(self,args)}
+      code.indent=0
+      code << "end #{name};"
+      code
+    end
+    def visitProcedureDecl(proceduredecl_,args=nil)
+      name=proceduredecl_.name.accept(self,args)
+      code=Code.new
+      code.newline
+      code << "procedure #{name}("
+      code.indent=2
+      proceduredecl_.formal_args.map{|formal_arg_| code << formal_arg_.accept(self,args)+";"}
+      code.indent=0
+      code.last << ")"
+      if proceduredecl_.decls.any? or !proceduredecl_.body.nil?
+        code.last << " is"
+        decls=proceduredecl_.decls.each{|decl_| decl_.accept(self,args)}
+        body =proceduredecl_.body.accept(self,args) if proceduredecl_.body
+        code.indent=2
+        code << decls
+        code.indent=0
+        code << "begin"
+        code.indent=2
+        code << body
+        code.indent=0
+        code << "end #{name};"
+      else
+        code.last << ";"
+      end
+      code
+    end
+    def visitFormalArg formalarg_,args=nil
+      sig =formalarg_.signal.accept(self,args) if formalarg_.signal
+      dir =formalarg_.direction.accept(self,args) if formalarg_.direction
+      dir+=" " if dir
+      name=formalarg_.name.accept(self,args)
+      type=formalarg_.type.accept(self,args)
+      "#{sig}#{name} : #{dir}#{type}"
+    end
+    def visitProcedureCall(procedurecall_,args=nil)
+      name=procedurecall_.name.accept(self,args)
+      args=name=procedurecall_.actual_args.map{|actual_arg_| actual_arg_.accept(self,args)}.join(',')
+      args="(#{args})" if args
+      "#{name}#{args}"
+    end
+    # ====================================================
+    def visitArchitecture(architecture,args=nil)
+      code=Code.new
+      name=architecture.name.accept(self,args)
+      entity_name=architecture.entity_name.accept(self,args)
+      body=architecture.body.accept(self,args) if architecture.body
+      code << "architecture #{name} of #{entity_name} is"
+      code.indent=2
+      architecture.decls.each{|decl_| code << decl_.accept(self,args)}
+      code.indent=0
+      code << "begin"
+      code.newline
+      code.indent=2
+      code << body
+      code.indent=0
+      code << "end #{name};"
+      code
+    end
+    def visitTypeDecl type_decl,args=nil
+      name=type_decl.name.accept(self)
+      type_spec=type_decl.spec.accept(self)
+      code=Code.new
+      code.newline
+      code << "type #{name} is #{type_spec};"
+      code.newline
+      code
+    end
+    def visitSubTypeDecl sub_type_decl,args=nil
+      name=sub_type_decl.name.accept(self)
+      type_spec=sub_type_decl.spec.accept(self)
+      code=Code.new
+      code.newline
+      code << "subtype #{name} is #{type_spec};"
+      code.newline
+      code
+    end
+    def visitEnumDecl enum,args=nil
+      elems=enum.elements.map{|e| e.accept(self)}
+      "(#{elems.join(',')})"
+    end
+    def visitRecordDecl rec,args=nil
+      code=Code.new
+      code << "record"
+      code.indent=4
+      rec.elements.map{|e| code << e.accept(self)}
+      code.indent=2
+      code << "end record"
+      code.finalize
+    end
+    def visitRecordItem ri,args=nil
+      name=ri.name.accept(self)
+      type=ri.type.accept(self)
+      "#{name} : #{type};"
+    end
+    def visitArrayDecl(arraydecl_,args=nil)
+      ranges=arraydecl_.dim_decls.map{|dim_decl_| dim_decl_.accept(self,args)}
+      type=arraydecl_.type.accept(self)
+      "array(#{ranges.join(',')}) of #{type}"
+    end
+    def visitArrayDimDecl(arraydimdecl_,args=nil)
+      type_mark=arraydimdecl_.type_mark.accept(self)+" " if arraydimdecl_.type_mark
+      type_mark_range="#{type_mark}range " if arraydimdecl_.type_mark
+      range=arraydimdecl_.range.accept(self,args)
+      "#{type_mark_range}#{range}"
+    end
+    def visitConstant cst,args=nil
+      name=cst.name.accept(self)
+      type=cst.type.accept(self)
+      expr=cst.expr.accept(self)
+      "constant #{name} : #{type} := #{expr};"
+    end
+    def visitSignal signal,args=nil
+      name=signal.name.accept(self)
+      type=signal.type.accept(self)
+      init=signal.init.accept(self) if signal.init
+      init=" := #{init}" if init
+      "signal #{name} : #{type}#{init};"
+    end
+    def visitVariable variable,args=nil
+      name=variable.name.accept(self)
+      type=variable.type.accept(self)
+      init=variable.init.accept(self) if variable.init
+      init=" := #{init}" if init
+      "variable #{name} : #{type}#{init};"
+    end
+    def visitAlias(alias_,args=nil)
+      designator= alias_.designator.accept(self,args)
+      type      = alias_.type.accept(self,args)
+      name      = alias_.name.accept(self,args)
+      signature = alias_.signature.accept(self,args) if alias_.signature
+      "alias #{designator} : #{type} is #{name} #{};"
+    end
+    def visitBody(body,args=nil)
+      code=Code.new
+      body.elements.each{|element_| code << element_.accept(self,args)}
+      code
+    end
+    def visitLabel label,args=nil
+      id=label.ident.accept(self)
+      "#{id} : "
+    end
+    def visitIf if_,args=nil
+      label=if_.label.accept(self) if if_.label
+      cond=if_.cond.accept(self)
+      body=if_.body.accept(self)
+      elsifs_=if_.elsifs.map{|elsif_| elsif_.accept(self)} if if_.elsifs.any?
+      else_=if_.else_.accept(self) if if_.else_
+      code=Code.new
+      code << "#{label}if #{cond} then"
+      code.indent=2
+      code << body
+      code.indent=0
+      if if_.elsifs.any?
+        elsifs_.each{|elsif_| code << elsif_}
+      end
+      if if_.else_
+        code << else_
+      end
+      code << "end if;"
+      code
+    end
+    def visitElsif elsif_,args=nil
+      cond=elsif_.cond.accept(self)
+      body=elsif_.body.accept(self)
+      code=Code.new
+      code << "elsif #{cond} then"
+      code.indent=2
+      code << body
+      code.indent=0
+      code
+    end
+    def visitElse else_,args=nil
+      body=else_.body.accept(self)
+      code=Code.new
+      code << "else"
+      code.indent=2
+      code << body
+      code.indent=0
+      code
+    end
+    def visitCase case_,args=nil
+      expr=case_.expr.accept(self)
+      whens=case_.whens.map{|when_| when_.accept(self)}
+      code=Code.new
+      code << "case #{expr} is"
+      code.indent=2
+      case_.whens.map{|when_| code << when_.accept(self)}
+      code.indent=0
+      code << "end case;"
+      code
+    end
+    def visitCaseWhen cwhen,args=nil
+      expr=cwhen.expr.accept(self)
+      body=cwhen.body.accept(self)
+      code=Code.new
+      code << "when #{expr} =>"
+      code.indent=2
+      code << body
+      code.indent=0
+      code
+    end
+    def visitAlternative(alternative_,args=nil)
+      alternative_.elements.map{|element_| element_.accept(self,args)}.join(" | ")
+    end
+    def visitNullStmt null_,args=nil
+      "null;"
+    end
+    def visitAssert assert,args=nil
+      cond=assert.cond.accept(self)
+      repo=assert.report.accept(self) if assert.report
+      code=Code.new
+      code << "assert #{cond}"
+      code.indent=2
+      code << repo if repo
+      code.indent=0
+      code.last << ";"
+      code
+    end
+    def visitReport report,args=nil
+      expr=report.expr.accept(self)
+      sevr=report.severity.accept(self) if report.severity
+      severity=" severity #{sevr}" if sevr
+      "report #{expr}#{severity};"
+    end
+     def visitReturn(return_,args=nil)
+       expr=return_.expr.accept(self,args) if return_.expr
+       expr=" #{expr}" if expr
+       "return#{expr};"
+     end
+    def visitWithSelect(withselect_,args=nil)
+      expr=withselect_.with_expr.accept(self,args)
+      assigned=withselect_.assigned.accept(self,args)
+      code=Code.new
+      code << "with #{expr} select #{assigned} <="
+      code.indent=2
+      withselect_.selected_whens.each{|selected_when_| code << selected_when_.accept(self,args)+","}
+      code.indent=0
+      code.last << ";"
+      code
+    end
+    def visitSelectedWhen(selectedwhen_,args=nil)
+      lhs=selectedwhen_.lhs.accept(self,args)
+      rhs=selectedwhen_.rhs.accept(self,args)
+      "#{lhs} when #{rhs}"
+    end
+    def visitIfGenerate(ifgenerate_,args=nil)
+      cond=ifgenerate_.cond.accept(self,args)
+      body=ifgenerate_.body.accept(self,args)
+      code=Code.new
+      code << "if #{cond} generate"
+      code.indent=2
+      code << body
+      code.indent=0
+      code << "end generate;"
+      code
+    end
+    def visitForGenerate(forgenerate_,args=nil)
+      idx  =forgenerate_.index.accept(self,args)
+      range=forgenerate_.range.accept(self,args)
+      decls=forgenerate_.decls.each{|decl_| decl_.accept(self,args)} if forgenerate_.decls
+      body =forgenerate_.body.accept(self,args)
+      code=Code.new
+      code << "for #{idx} in #{range} generate"
+      code.indent=2
+      code << decls if decls
+      code << body
+      code.indent=0
+      code << "end generate;"
+      code
+    end
+    #====================================
+    def visitEntityInstance inst,args=nil
+      code=Code.new
+      label=inst.label.accept(self) if inst.label
+      full_name=inst.full_name.accept(self)
+      arch_name=inst.arch_name.accept(self) if inst.arch_name
+      gen_map  =inst.generic_map.accept(self) if inst.generic_map
+      port_map =inst.port_map.accept(self) if inst.port_map
+      code << "#{label}entity #{full_name}#{arch_name}"
+      code.indent=2
+      code << port_map
+      code.indent=0
+      code.newline
+      code
+    end
+    def visitPortMap port_map,args=nil
+      code=Code.new
+      code << "port map("
+      code.indent=2
+      port_map.elements.each{|e| code << e.accept(self)+","}
+      code.indent=0
+      code << ");"
+      code
+    end
+    def visitMap map,args=nil
+      lhs=map.lhs.accept(self)
+      rhs=map.rhs.accept(self) if map.rhs
+      rhs=" => #{rhs}" if rhs
+      "#{lhs}#{rhs}"
+    end
+    def visitAttributeDecl(attributedecl_,args=nil)
+      name=attributedecl_.name.accept(self,args)
+      type=attributedecl_.type.accept(self,args)
+      "attribute #{name} : #{type};"
+    end
+    def visitAttributeSpec(attributespec_,args=nil)
+      name       =attributespec_.name.accept(self,args)
+      entity_spec=attributespec_.entity_spec.accept(self,args)
+      expr       =attributespec_.expr.accept(self,args)
+      "attribute #{name} of #{entity_spec} is #{expr};"
+    end
+    def visitEntitySpec(entityspec_,args=nil)
+      elements=entityspec_.elements.map{|element_| element_.accept(self,args)}
+      entity_class=entityspec_.entity_class.accept(self,args)
+      "#{elements.join(',')} : #{entity_class}"
+    end
+    def visitGenericMap generic_map,args=nil
+      code=Code.new
+      code << "generic map("
+      code.indent=2
+      generic_map.elements.each{|e| code << e.accept(self)+","}
+      code.indent=0
+      code << ");"
+      code
+    end
+    def visitProcess(process,args=nil)
+      code=Code.new
+      code.newline
+      label=process.label.accept(self) if process.label
+      sensitity=process.sensitivity.accept(self,args) if process.sensitivity
+      sensitity="(#{sensitity})" if sensitity
+      body=process.body.accept(self,args) if process.body
+      code << "#{label}process#{sensitity}"
+      code.indent=2
+      process.decls.each{|decl_| code << decl_.accept(self,args)}
+      code.indent=0
+      code << "begin"
+      code.indent=2
+      code << body
+      code.indent=0
+      code << "end process;"
+      code
+    end
+    def visitSensitivity(sensitivity,args=nil)
+      list=sensitivity.elements.map{|element_| element_.accept(self,args)}
+      list.join(',')
+    end
+    def visitComponentDecl(componentdecl_,args=nil)
+      name=componentdecl_.name.accept(self,args)
+      code=Code.new
+      code << "component #{name} is"
+      code.indent=2
+      if componentdecl_.generics.any?
+        code.indent=4
+        code << "generic("
+        code.indent=6
+        componentdecl_.generics.map{|generic_| code << generic_.accept(self,args)}
+        code.indent=4
+        code << ");"
+        code.indent=2
+      end
+      code << "port("
+      code.indent=6
+      componentdecl_.ports.each{|port_| code << port_.accept(self,args)}
+      code.indent=4
+      code << ");"
+      code.indent=0
+      code << "end component;"
+      code
+    end
+    def visitComponentInstance(componentinstance_,args=nil)
+      label    = componentinstance_.label.accept(self) if componentinstance_.label
+      name     = componentinstance_.name.accept(self,args)
+      gen_map  = componentinstance_.generic_map.accept(self,args) if componentinstance_.generic_map
+      port_map = componentinstance_.port_map.accept(self,args)
+      code=Code.new
+      code << "#{label}component #{name}"
+      code.indent=2
+      code << gen_map if gen_map
+      code << port_map
+      code.indent=0
+      code.newline
+      code
+    end
+    def visitSigAssign(sigassign,args=nil)
+      #pp sigassign
+      lhs=sigassign.lhs.accept(self,args)
+      rhs=sigassign.rhs.accept(self,args)
+      "#{lhs} <= #{rhs};"
+    end
+    def visitVarAssign(varassign,args=nil)
+      lhs=varassign.lhs.accept(self,args)
+      rhs=varassign.rhs.accept(self,args)
+      "#{lhs} := #{rhs};"
+    end
+    def visitWait(wait,args=nil)
+      expr=wait.until_.accept(self,args) if wait.until_
+      expr=wait.for_.accept(self,args) if wait.for_
+      "wait #{expr};"
+    end
+    def visitStdType(stdtype,args=nil)
+      stdtype.ident.accept(self,args)
+    end
+    def visitRangedType(rangedtype_,args=nil)
+      type=rangedtype_.type.accept(self,args)
+      range=rangedtype_.range.accept(self,args)
+      "#{type} range #{range}"
+    end
+    def visitNamedType(namedtype,args=nil)
+      namedtype.ident.accept(self,args)
+    end
+    def visitArrayType(arraytype,args=nil)
+      name=arraytype.name.accept(self,args)
+      ranges=[]
+      arraytype.discrete_ranges.each{|discrete_range_| ranges << discrete_range_.accept(self,args)}
+      "#{name}(#{ranges.join(',')})"
+    end
+    def visitDiscreteRange(discreterange,args=nil)
+      lhs=discreterange.lhs.accept(self,args)
+      dir=discreterange.dir.accept(self,args)
+      rhs=discreterange.rhs.accept(self,args)
+      "#{lhs} #{dir} #{rhs}"
+    end
+    def visitWaveform(waveform,args=nil)
+      elements=waveform.elements.map{|element_| element_.accept(self,args)}
+      elements.join(',')
+    end
+    def visitCondExpr(condexpr,args=nil)
+      code=Code.new
+      whens=condexpr.whens.map{|when_| when_.accept(self,args)}
+      else_=condexpr.else_.accept(self,args)
+      code << "#{whens.join} #{else_}"
+      code.finalize
+    end
+    def visitWhen(when_,args=nil)
+      expr=when_.expr.accept(self,args)
+      cond=when_.cond.accept(self,args)
+      "#{expr} when #{cond} else "
+    end
+    def visitBinary(binary_,args=nil)
+      lhs=binary_.lhs.accept(self,args)
+      op=binary_.op.accept(self,args)
+      rhs=binary_.rhs.accept(self,args)
+      "#{lhs} #{op} #{rhs}"
+    end
+    def visitIdent(ident,args=nil)
+      ident.tok.accept(self,args)
+    end
+    def visitIntLit(intlit,args=nil)
+      intlit.tok.accept(self,args)
+    end
+    def visitCharLit(lit,args=nil)
+      lit.tok.accept(self,args)
+    end
+    def visitBoolLit(boollit_,args=nil)
+      boollit_.tok.accept(self,args)
+    end
+    def visitSelectedName(selectedname,args=nil)
+      lhs=selectedname.lhs.accept(self,args)
+      rhs=selectedname.rhs.accept(self,args)
+      "#{lhs}.#{rhs}"
+    end
+    def visitAfter after,args=nil
+      lhs=after.lhs.accept(self,args)
+      rhs=after.rhs.accept(self,args)
+      "#{lhs} after #{rhs}"
+    end
+    def visitTimed(timed,args=nil)
+      lhs=timed.lhs.accept(self,args)
+      rhs=timed.rhs.accept(self,args)
+      "#{lhs} #{rhs}"
+    end
+    def visitAttributed(attributed_,args=nil)
+      lhs=attributed_.lhs.accept(self,args)
+      rhs=attributed_.rhs.accept(self,args)
+      "#{lhs}#{rhs}"
+    end
+    def visitConcat(concat_,args=nil)
+      lhs=concat_.lhs.accept(self,args)
+      rhs=concat_.rhs.accept(self,args)
+      "#{lhs} & #{rhs}"
+    end
+    def visitQualified(qualified_,args=nil)
+      lhs=qualified_.lhs.accept(self,args)
+      rhs=qualified_.rhs.accept(self,args)
+      "#{lhs}'#{rhs}"
+    end
+    def visitSliced(sliced_,args=nil)
+      exp=sliced_.expr.accept(self,args)
+      lhs=sliced_.lhs.accept(self,args)
+      dir=sliced_.dir.accept(self,args)
+      rhs=sliced_.rhs.accept(self,args)
+      "#{exp}(#{lhs} #{dir} #{rhs})"
+    end
+    def visitFuncProtoDecl(funcprotodecl_,args=nil)
+      name=funcprotodecl_.name.accept(self,args)
+      args=funcprotodecl_.formal_args.map{|formal_arg_| formal_arg_.accept(self,args)}.join(";")
+      type=funcprotodecl_.return_type.accept(self)
+      args="(#{args})" if args
+      "function #{name}#{args} return #{type}"
+    end
+    def visitFuncDecl(funcdecl_,args=nil)
+      name=funcdecl_.name.accept(self,args)
+      args=funcdecl_.formal_args.map{|formal_arg_| formal_arg_.accept(self,args)}.join(";")
+      type=funcdecl_.return_type.accept(self)
+      args="(#{args})" if args
+      code=Code.new
+      code.newline
+      code << "function #{name}#{args} return #{type} is"
+      code.indent=2
+      funcdecl_.decls.each{|decl| code << decl.accept(self)}
+      code.indent=0
+      code << "begin"
+      code.indent=2
+      code << funcdecl_.body.accept(self)
+      code.indent=0
+      code << "end function #{name};"
+      code
+    end
+    def visitFuncCall funcall,args=nil
+      name=funcall.name.accept(self)
+      args=funcall.actual_args.map{|arg| arg.accept(self)}.join(',')
+      "#{name}(#{args})"
+    end
+    def visitParenth parenth,args=nil
+      expr=parenth.expr.accept(self)
+      "(#{expr})"
+    end
+    def visitAggregate aggregate,args=nil
+      elems=(elements=aggregate.elements).map{|e| e.accept(self)}
+      # here we prototype a multiline method, for long aggregates
+      ret="\n\t(\n\t#{elems.join(',')})"
+      if ret.size>5
+        klasses=elements.map{|e| e.class}
+        #if klasses.include?(Aggregate)
+          code=Code.new
+          code << '('
+          code.indent=col=5
+          elements.each{|e|
+            code << e.accept(self)+","
+          }
+          code.indent=col-2
+          code.newline
+          code << ")"
+          ret=code.finalize
+        #end
+      end
+      ret
+    end
+    def visitAssoc assoc,args=nil
+      lhs=assoc.lhs.accept(self)
+      rhs=assoc.rhs.accept(self)
+      "(#{lhs} => #{rhs})"
+    end
+  end
+end