HDLRuby 2.4.27 → 2.6.2

data/lib/HDLRuby/hruby_low2high.rb

@@ -5,734 +5,516 @@ module HDLRuby::Low
 
 
 ##
-# Converts a HDLRuby::Low description to a HDLRuby::High text 
-# description
+# Converts a HDLRuby::Low description to HDLRuby::High description.
 #
 ########################################################################
     
-    ## Provides tools for converting HDLRuby::Low objects to HDLRuby::High.
-    module Low2High
 
-        ## Tells if an HDLRuby::Low +name+ syntax is compatible for
-        #  HDLRuby::High.
-        def self.high_name?(name)
-            return name =~ /^[a-zA-Z_][a-zA-Z_0-9]*$/
-        end
 
-        ## Converts a HDLRuby::Low +name+ for declaration to HDLRuby::High.
-        def self.high_decl_name(name)
-            if high_name?(name) then
-                # Compatible name return it as is.
-                return name.to_s
-            else
-                # Incompatible, use quotes.
-                return "\"#{name}\""
-            end
+    # Add the conversion to high.
+    class SystemT
+        # Creates a new high system type named +name+ with +scope+.
+        def to_high
+            # Create the high system type.
+            res = HDLRuby::High::SystemT.new(self.name,self.scope.to_high)
+            # Add the inputs.
+            self.each_input  { |i|  res.add_input(i.to_high) }
+            # Add the outputs.
+            self.each_output { |o|  res.add_output(o.to_high) }
+            # Add the inouts.
+            self.each_inout  { |io| res.add_inout(io.to_high) }
+            return res
         end
+    end
 
-        ## Converts a HDLRuby::Low +name+ for usage to HDLRuby::High.
-        def self.high_use_name(name)
-            if high_name?(name) then
-                # Compatible name return it as is.
-                return name.to_s
-            else
-                # Incompatible, use the HDLRuby::High "send" operator.
-                return "(+:\"#{name}\")"
-            end
+
+    # Add the conversion to high.
+    class Scope
+        # Creates a new high scope.
+        def to_high
+            # Create the high scope.
+            res = new HDLRuby::High::Scope.new(self.name)
+            # Add the local types.
+            self.each_type { |t| res.add_type(t.to_high) }
+            # Add the local system types.
+            self.each_systemT { |s| res.add_systemT(s.to_high) }
+            # Add the sub scopes.
+            self.each_scope { |s| res.add_scope(s.to_high) }
+            # Add the inner signals.
+            self.each_inner { |i| res.add_inner(i.to_high) }
+            # Add the system instances.
+            self.each_systemI { |s| res.add_systemI(s.to_high) }
+            # Add the non-HDLRuby cofe chunks.
+            self.each_code { |c| res.add_code(c.to_high) }
+            # Add the connections.
+            self.each_connection { |c| res.add_connection(c.to_high) }
+            # Add the behaviors.
+            self.each_behavior { |b| res.add_behavior(b.to_high) }
+            return res
         end
+    end
 
-        ## Convert a HDLRuby::Low +name+ for instantiation to HDLRuby::High
-        #  with args as argument.
-        def self.high_call_name(name,args)
-            if high_name?(name) then
-                # Compatible name return it as is.
-                return "#{name} #{[*args].join(",")}"
-            else
-                # Incompatible, use the HDLRuby::High "send" operator.
-                return "send(:\"#{name}\",#{[*args].join(",")})"
-            end
+    
+    # Add the conversion to high.
+    class Type
+        # Creates a new high type.
+        def to_high
+            return HDLRuby::High::Type.new(self.name)
         end
     end
 
 
+    # Add the conversion to high.
+    class TypeDef
+        # Creates a new high type definition.
+        def to_high
+            return HDLRuby::High::Typdef.new(self.name,self.type.to_high)
+        end
+    end
 
-    ## Extends the SystemT class with generation of HDLRuby::High text.
-    class SystemT
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # The resulting string.
-            res = ""
-            # Generate the header.
-            res << " " * (level*3)
-            res << "system :#{Low2High.high_decl_name(self.name)} do\n"
-            # Generate the interface.
-            # Inputs.
-            self.each_input do |input|
-                res << " " * ((level+1)*3)
-                res << input.type.to_high(level+1) 
-                res << ".input :" << Low2High.high_decl_name(input.name)
-                res << "\n"
-            end
-            # Outputs.
-            self.each_output do |output|
-                res << " " * ((level+1)*3)
-                res << output.type.to_high(level+1) 
-                res << ".output :" << Low2High.high_decl_name(output.name)
-                res << "\n"
-            end
-            # Inouts.
-            self.each_inout do |inout|
-                res << " " * ((level+1)*3)
-                res << inout.type.to_high(level+1) 
-                res << ".inout :" << Low2High.high_decl_name(inout.name)
-                res << "\n"
-            end
-            # Generate the scope.
-            res << " " * (level*3)
-            res << "\n"
-            res << self.scope.to_high(level+1,false)
-            # End of the system.
-            res << " " * (level*3)
-            res << "end\n\n"
-            # Return the result.
-            return res
+    # Add the conversion to high.
+    class TypeVector
+        # Creates a new high type vector.
+        def to_high
+            return HDLRuby::High::TypeVector.new(self.name,
+                                                     self.base.to_high,
+                                                     self.range)
         end
     end
 
 
-    ## Extends the Scope class with generation of HDLRuby::High text.
-    class Scope
-
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object and
-        # +header+ tells if the header is to generate or not.
-        def to_high(level = 0,header = true)
-            # The resulting string.
-            res = ""
-            # Generate the header if required.
-            if header then
-                res << (" " * (level*3)) << "sub "
-                unless self.name.empty? then
-                    res << ":" << Low2High.high_decl_name(self.name) << " "
-                end
-                res << "do\n"
-            end
-            level = level + 1 if header
-            # Generate the sub types.
-            # Assume the types are TypeDef.
-            self.each_type do |type|
-                res << " " * (level*3)
-                res << "typedef :#{type.name} do\n"
-                res << " " * ((level+1)*3) << type.def.to_high(level)
-                res << " " * (level*3) << "end\n"
-            end
-            # Generaste the sub system types.
-            self.each_systemT { |systemT| res << systemT.to_high(level) }
-            # Generate the inners declaration.
-            self.each_inner do |inner|
-                res << " " * (level*3)
-                res << inner.type.to_high(level) 
-                res << ".inner :" << Low2High.high_decl_name(inner.name) << "\n"
-            end
-            # Generate the instances.
-            res << "\n" if self.each_inner.any?
-            self.each_systemI do |systemI| 
-                res << " " * (level*3)
-                res << systemI.to_high(level) << "\n"
-            end
-            # Generate the sub scopes.
-            self.each_scope do |scope|
-                res << scope.to_high(level)
-            end
-            # Generate the connections.
-            res << "\n" if self.each_scope.any?
-            self.each_connection do |connection|
-                res << connection.to_high(level)
-            end
-            # Generate the behaviors.
-            res << "\n" if self.each_connection.any?
-            self.each_behavior do |behavior|
-                res << behavior.to_high(level)
-            end
-            # Close the scope if required.
-            if header then
-                res << " " * ((level-1)*3) << "end\n"
-            end
-            # Return the result.
-            return res
+    # Add the conversion to high.
+    class TypeSigned
+        # Creates a new high type signed.
+        def to_high
+            return HDLRuby::High::TypeSigned.new(self.name,self.range)
         end
     end
 
 
-    ## Extends the Type class with generation of HDLRuby::High text.
-    class Type
-
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            return Low2High.high_use_name(self.name)
+    # Add the conversion to high.
+    class TypeUnsigned
+        # Creates a new high type unsigned.
+        def to_high
+            return HDLRuby::High::TypeUnsigned.new(self.name,self.range)
         end
+
     end
 
-    ## Extends the TypeDef class with generation of HDLRuby::High text.
-    class TypeDef
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # Simply generates the redefined type.
-            self.def.to_high(level)
+    # Add the conversion to high.
+    class TypeTuple
+        # Creates a new high type tuple.
+        def to_high
+            return HDLRuby::High::TypeTuple.new(self.name,self.direction,
+                                *self.each_type.map { |typ| typ.to_high })
         end
     end
 
-    ## Extends the TypeVector class with generation of HDLRuby::High text.
-    class TypeVector
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # The resulting string.
-            res = ""
-            # Generate the base.
-            res << self.base.to_high(level)
-            # Generate the range.
-            res << "[" << self.range.first.to_high(level) << ".." <<
-            self.range.last.to_high(level) << "]"
-            # Return the result.
-            return res
+    # Add the conversion to high.
+    class TypeStruct
+        # Creates a new high type struct.
+        def to_high
+            return HDLRuby::High::TypeString.new(self.name,self.direction,
+                                    self.each {|name,typ| [name,typ.to_high]})
         end
     end
 
-    ## Extends the TypeTuple class with generation of HDLRuby::High text.
-    class TypeTuple
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # The resulting string.
-            res = "["
-            # Generate each sub type.
-            res << self.each_type.map { |type| type.to_high(level) }.join(", ")
-            # Close the tuple.
-            res << "]"
-            # Return the result.
+
+    # Add the conversion to high.
+    class Behavior
+        # Creates a new high behavior.
+        def to_high
+            # Create the resulting behavior.
+            res = HDLRuby::High::Behavior.new(self.block.to_high)
+            # Adds the events.
+            self.each_event { |ev| res.add_event(ev.to_high) }
             return res
         end
     end
 
-    ## Extends the TypeStruct class with generation of HDLRuby::High text.
-    class TypeStruct
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # The resulting string.
-            res = "{ "
-            # Generate each sub type.
-            res << self.each.map do |key,type|
-                "#{key}: " + type.to_high(level)
-            end.join(", ")
-            # Close the struct.
-            res << " }"
-            # Return the result.
+    # Add the conversion to high.
+    class TimeBehavior
+        # Creates a new high time behavior.
+        def to_high
+            # Create the resulting behavior.
+            res = HDLRuby::High::TimeBehavior.new(self.block.to_high)
+            # Adds the events.
+            self.each_event { |ev| res.add_event(ev.to_high) }
             return res
         end
     end
 
 
-    ## Extends the Behavior class with generation of HDLRuby::High text.
-    class Behavior
+    # Add the conversion to high.
+    class Event
+        # Creates a new high event.
+        def to_high
+            return HDLRuby::High::Event.new(self.type.to_high,self.ref.to_high)
+        end
+    end
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object and +timed+
-        # tells if the behavior is a time behavior or not.
-        def to_high(level = 0,timed = false)
-            # The resulting string.
-            res = " " * (level*3)
-            # Generate the header.
-            if timed then
-                res << "timed"
+
+    # Add the conversion to high.
+    class SignalI
+        # Creates a new high signal.
+        def to_high
+            # Is there an initial value?
+            if (self.value) then
+                # Yes, create a new high signal with it.
+                return HDLRuby::High::SignalI.new(self.name,self.type.to_high,
+                                              self.val.to_high)
             else
-                res << self.block.mode.to_s
-            end
-            if self.each_event.any? then
-                res << "( "
-                res << self.each_event.map do |event|
-                    event.to_high(level)
-                end.join(", ")
-                res << " )"
+                # No, create a new high signal with it.
+                return HDLRuby::High::SignalI.new(self.name,self.type.to_high)
             end
-            res << " do\n"
-            # Generate the content.
-            res << self.block.to_high(level+1,false)
-            # Close the behavior.
-            res << " " * (level*3) << "end\n"
-            # Return the result.
-            return res
         end
     end
 
-    ## Extends the TimeBehavior class with generation of HDLRuby::High text.
-    class TimeBehavior
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            super(level,true)
+    # Add the conversion to high.
+    class SignalC
+        # Creates a new high constant signal.
+        def to_high
+            # Is there an initial value?
+            if (self.value) then
+                # Yes, create a new high signal with it.
+                return HDLRuby::High::SignalC.new(self.name,self.type.to_high,
+                                              self.val.to_high)
+            else
+                # No, create a new high signal with it.
+                return HDLRuby::High::SignalC.new(self.name,self.type.to_high)
+            end
         end
     end
 
 
-    ## Extends the Event class with generation of HDLRuby::High text.
-    class Event
-
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            return self.ref.to_high(level) + ".#{self.type}"
+    # Add the conversion to high.
+    class SystemI
+        # Creates a new high system instance.
+        def to_high
+            return HDLRuby::High::SystemI.new(self.name,self.systemT.to_high)
         end
     end
 
 
-    ## Extends the SignalI class with generation of HDLRuby::High text.
-    class SignalI
-
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            return Low2High.high_use_name(self.name)
+    # Add the conversion to high.
+    class Chunk
+        # Creates a new high code chunk.
+        def to_high
+            return HDLRuby::High::Chunk.new(self.name,
+                                *self.each_lump { |lump| lump.to_high })
         end
     end
 
 
-    ## Extends the SystemI class with generation of HDLRuby::High text.
-    class SystemI
-
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            return Low2High.high_call_name(self.systemT.name,
-                   ":" + Low2High.high_decl_name(self.name))
+    # Add the conversion to high.
+    class Code
+        # Creates a new high code.
+        def to_high
+            # Create the new code.
+            res = HDLRuby::High::Code.new
+            # Add the events.
+            self.each_event { |ev| res.add_event(ev.to_high) }
+            # Add the code chunks.
+            self.each_chunk { |ch| res.add_chunk(ch.to_high) }
         end
     end
 
 
-    ## Extends the Statement class with generation of HDLRuby::High text.
+    # Add the conversion to high.
     class Statement
-
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # Should never be here.
-            raise AnyError, "Internal error: to_high should be implemented in class :#{self.class}"
+        # Creates a new high statement.
+        def to_high
+            raise AnyError,
+                  "Internal error: to_high is not defined for class: #{self.class}"
         end
     end
 
-    ## Extends the Transmit class with generation of HDLRuby::High text.
-    class Transmit
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            return " " * (level*3) + 
-                   self.left.to_high(level) + " <= " +
-                   self.right.to_high(level) + "\n"
+    # Add the conversion to high.
+    class Transmit
+        # Creates a new high transmit statement.
+        def to_high
+            return HDLRuby::High::Transmit.new(self.left.to_high,
+                                               self.right.to_high)
         end
     end
-    
-    ## Extends the If class with generation of HDLRuby::High text.
-    class If
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # The result string.
-            res = " " * (level*3)
-            # Generate the test.
-            res << "hif " << self.condition.to_high(level) << " do\n"
-            # Generate the yes part.
-            res << self.yes.to_high(level+1)
-            res << " " * (level*3) << "end\n"
-            # Generate the alternate if parts.
-            self.each_noif do |cond,stmnt|
-                res << " " * (level*3)
-                res << "helsif " << cond.to_high(level) << " do\n"
-                res << stmnt.to_high(level+1)
-                res << " " * (level*3) << "end\n"
-            end
-            # Generate the no part if any.
+
+    # Add the conversion to high.
+    class If
+        # Creates a new high if statement.
+        def to_high
+            # Is there a no?
             if self.no then
-                res << " " * (level*3)
-                res << "helse do\n" << self.no.to_high(level+1)
-                res << " " * (level*3) << "end\n"
+                # Yes, create a new if statement with it.
+                res = HDLRuby::High::If.new(self.condition.to_high,
+                                        self.yes.to_high,self.no.to_high)
+            else
+                # No, create a new if statement without it.
+                res = HDLRuby::High::If.new(self.condition.to_high,
+                                        self.yes.to_high)
+            end
+            # Add the noifs if any.
+            self.each_noif do |cond,stmnt| 
+                res.add_noif(cond.to_high,stmt.to_high)
             end
-            # Return the result.
             return res
         end
     end
 
-    ## Extends the When class with generation of HDLRuby::High text.
-    class When
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # The result string.
-            res = " " * (level*3)
-            # Generate the match.
-            res << "hwhen " << self.match.to_high(level+1) << " do\n"
-            # Generate the statement.
-            res << self.statement.to_high(level+1)
-            # Close the when.
-            res << " " * (level*3) << "end\n"
-            # Returns the result.
-            return res
+    # Add the conversion to high.
+    class When
+        # Creates a new high when.
+        def to_high
+            return HDLRuby::High::When.new(self.match.to_high,
+                                           self.statement.to_high)
         end
     end
 
-    ## Extends the Case class with generation of HDLRuby::High text.
-    class Case
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # The result string.
-            res = " " * (level*3)
-            # Generate the test.
-            res << "hcase " << self.value.to_high(level) << "\n"
-            # Generate the whens.
-            self.each_when do |w|
-                res << w.to_high(level)
-            end
-            # Generatethe default.
+    # Add the conversion to high.
+    class Case
+        # Creates a new high case statement.
+        def to_high
+            # Is there a default?
             if self.default then
-                res << " " * (level*3)
-                res << "helse do\n"
-                res << self.default.to_high(level+1)
-                res << " " * (level*3)
-                res << "end\n"
+                # Yes, create the new case statement with it.
+                return HDLRuby::High::Case.new(self.value.to_high,
+                                               self.default.to_high,
+                                     self.each_when.map { |w| w.to_high })
             end
-            # Return the resulting string.
-            return res
         end
     end
 
 
-    ## Extends the Delay class with generation of HDLRuby::High text.
+    # Add the conversion to high.
     class Delay
-
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            return self.value.to_high(level) + ".#{self.unit}"
+        # Creates a new high delay.
+        def to_high
+            return HDLRuby::High::Delay.new(self.value,self.unit)
         end
     end
 
 
-    ## Extends the TimeWait class with generation of HDLRuby::High text.
-    class TimeWait
-
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # The resulting string.
-            res = " " * (level*3)
-            # Generate the wait.
-            res << "wait " << self.delay.to_high(level) << "\n" 
-            # Return the resulting string.
-            return res
+    # Add the conversion to high.
+    class Print
+        # Creates a new high print statement.
+        def to_high
+            return HDLRuby::High::Print.new(
+                *self.each_arg.map {|arg| arg.to_high })
         end
     end
 
-    ## Extends the TimeRepeat class with generation of HDLRuby::High text.
-    class TimeRepeat
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # The resulting string.
-            res = " " * (level*3)
-            # Generate the header.
-            res << "repeat " << self.delay.to_high(level) << " do\n"
-            # Generate the statement to repeat.
-            res << self.statement.to_high(level+1)
-            # Close the repeat.
-            res << " " * (level*3) << "end\n"
-            # Return the resulting string.
-            return res
+    # Add the conversion to high.
+    class TimeWait
+        # Creates a new high wait statement.
+        def to_high
+            return HDLRuby::High::TimeWait.new(self.delay.to_high)
         end
     end
 
-    ## Extends the Block class with generation of HDLRuby::High text.
-    class Block
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        # +header+ tells if the header is to generate or not.
-        # +timed+ tells if its a timed block.
-        def to_high(level = 0, header = true, timed = false)
-            # The resulting string.
-            res = ""
-            # Generate the header if required.
-            if header then
-                if timed then
-                    res << " " * (level*3) << "timed "
-                else
-                    res << " " * (level*3) << "#{self.mode} "
-                end
-                unless self.name.empty? then
-                    res << ":" << Low2High.high_decl_name(self.name) << " "
-                end
-                res << "do\n"
-            end
-            level = level + 1 if header
-            # Generate the inners declaration.
-            self.each_inner do |inner|
-                res << " " * (level*3)
-                res << inner.type.to_high(level) 
-                res << ".inner :" << Low2High.high_decl_name(inner.name) << "\n"
-            end
-            # Generate the statements.
-            self.each_statement do |stmnt|
-                res << stmnt.to_high(level)
-            end
-            # Close the block.
-            if header then
-                res << " " * ((level-1)*3) << "end\n"
-            end
-            # Return the result.
-            return res
+    # Add the conversion to high.
+    class TimeRepeat
+        # Creates a new high repreat statement.
+        def to_high
+            return HDLRuby::High::TimeReapeat.new(self.delay.to_high,
+                                                  self.statement.to_high)
         end
     end
 
-    ## Extends the TimeBlock class with generation of HDLRuby::High text.
-    class TimeBlock
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0, header = true)
-            super(level,header,true)
+    # Add the conversion to high.
+    class Block
+        # Creates a new high block statement.
+        def to_high
+            # Create the new block statement.
+            res = HDLRuby::High::Block.new(self.mode,self.name)
+            # Add the statements.
+            self.each_statement { |stmnt| res.add_statement(stmnt.to_high) }
+            return res
         end
     end
 
 
-    ## Extends the Code class with generation of HDLRuby::High text.
-    class Code
-
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            return self.content.to_s
+    # Add the conversion to high.
+    class TimeBlock
+        # Creates a new high time block statement.
+        def to_high
+            # Create the new block statement.
+            res = HDLRuby::High::TimeBlock.new(self.mode,self.name)
+            # Add the statements.
+            self.each_statement { |stmnt| res.add_statement(stmnt.to_high) }
+            return res
         end
     end
 
-    ## Extends the Connection class with generation of HDLRuby::High text.
+
+    # Add the conversion to high.
     class Connection
-        # Nothing required, Transmit is generated identically.
+        # Creates a new high connection.
+        def to_high
+            return HDLRuby::High::Connection.new(self.left.to_high,
+                                                 self.right.to_high)
+        end
     end
 
 
-    ## Extends the Expression class with generation of HDLRuby::High text.
+    # Add the conversion to high.
     class Expression
-
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # Should never be here.
-            raise AnyError, "Internal error: to_high should be implemented in class :#{self.class}"
+        # Creates a new high expression.
+        def to_high
+            raise AnyError,
+                  "Internal error: to_high is not defined for class: #{self.class}"
         end
     end
 
-    ## Extends the Value class with generation of HDLRuby::High text.
+    
+    # Add the conversion to high.
     class Value
-
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            if self.content.is_a?(HDLRuby::BitString) then
-                return "_#{self.content}"
+        # Creates a new high value expression.
+        def to_high
+            # Is there a content?
+            if (self.content) then
+                # Yes, use it for creating the new value.
+                return HDLRuby::High::Value.new(self.type.to_high,
+                                                self.content.to_high)
             else
-                return self.content.to_s
+                # puts "Self.type.name=#{self.type.name}"
+                # No (this should be a void value).
+                return HDLRuby::High::Value.new(self.type.to_high,nil)
             end
         end
     end
 
-    ## Extends the Cast class with generation of HDLRuby::High text.
-    class Cast
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            return self.child.to_high(level) + 
-                ".as(" + self.type.to_high(level) + ")"
+    # Add the conversion to high.
+    class Cast
+        # Creates a new high cast expression.
+        def to_high
+            return HDLRuby::High::Cast(self.type.to_high, self.child.to_high)
         end
     end
 
-    ## Extends the Operation class with generation of HDLRuby::High text.
-    class Operation
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # Should never be here.
-            raise AnyError, "Internal error: to_high should be implemented in class :#{self.class}"
-        end
+    # Add the conversion to high.
+    class Operation
     end
 
-    ## Extends the Unary class with generation of HDLRuby::High text.
-    class Unary
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            return "(#{self.operator.to_s[0]}" + self.child.to_high(level) + ")"
+    # Add the conversion to high.
+    class Unary
+        # Creates a new high unary expression.
+        def to_high
+            return HDLRuby::High::Unary.new(self.type.to_high,self.operator,
+                                            self.child.to_high)
         end
     end
 
-    ## Extends the Binary class with generation of HDLRuby::High text.
-    class Binary
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            return "(" + self.left.to_high(level) + self.operator.to_s + 
-                         self.right.to_high(level) + ")"
+    # Add the conversion to high.
+    class Binary
+        # Creates a new high binary expression.
+        def to_high
+            return HDLRuby::High::Binary.new(self.type.to_high,self.operator,
+                                             self.left.to_high,
+                                             self.right.to_high)
         end
     end
 
-    ## Extends the Select class with generation of HDLRuby::High text.
-    class Select
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # The resulting string.
-            res = ""
-            # Generate the header.
-            res << "mux(" + self.select.to_high(level) << ", "
-            # Generate the choices
-            res << self.each_choice.map do |choice|
-                choice.to_high(level+1)
-            end.join(", ")
-            # Close the select.
-            res << ")"
-            # Return the resulting string.
-            return res
+    # Add the conversion to high.
+    class Select
+        # Creates a new high select expression.
+        def to_high
+            return HDLRuby::High::Select(self.type.to_high,self.operator,
+                                         self.select.to_high,
+                                    self.each_choice.map { |ch| ch.to_high })
         end
     end
 
-    ## Extends the Concat class with generation of HDLRuby::High text.
-    class Concat
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # The resulting string.
-            res = ""
-            # Generate the header.
-            res << "[ "
-            # Generate the expressions.
-            res << self.each_expression.map do |expression|
-                expression.to_high(level+1)
-            end.join(", ")
-            # Close the select.
-            res << " ]"
-            # Return the resulting string.
-            return res
+    # Add the conversion to high.
+    class Concat
+        # Creates a new high concat expression.
+        def to_high
+            return HDLRuby::High::Concat.new(self.type.to_high,
+                                self.each_expression.map { |ex| ex.to_high })
         end
     end
 
 
-    ## Extends the Ref class with generation of HDLRuby::High text.
+    # Add the conversion to high.
     class Ref
-
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # Should never be here.
-            raise AnyError, "Internal error: to_high should be implemented in class :#{self.class}"
-        end
     end
 
-    ## Extends the RefConcat class with generation of HDLRuby::High text.
-    class RefConcat
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # The resulting string.
-            res = ""
-            # Generate the header.
-            res << "[ "
-            # Generate the references.
-            res << self.each_ref.map do |ref|
-                ref.to_high(level+1)
-            end.join(", ")
-            # Close the select.
-            res << " ]"
-            # Return the resulting string.
-            return res
+    # Add the conversion to high.
+    class RefConcat
+        # Creates a new high concat reference.
+        def to_high
+            return HDLRuby::High::Ref.new(self.type.to_high,
+                                    self.each_ref.map { |ref| ref.to_high })
         end
     end
 
-    ## Extends the RefIndex class with generation of HDLRuby::High text.
-    class RefIndex
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            return self.ref.to_high(level) + "[#{self.index.to_high(level)}]"
+    # Add the conversion to high.
+    class RefIndex
+        # Creates a new high index reference.
+        def to_high
+            return HDLRuby::High::RefIndex.new(self.type.to_high,
+                                               self.ref.to_high,
+                                               self.index.to_high)
         end
     end
 
-    ## Extends the RefRange class with generation of HDLRuby::High text.
-    class RefRange
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            return self.ref.to_high(level) +
-                "[(#{self.range.first.to_high(level)})..(#{self.range.last.to_high(level)})]"
+    # Add the conversion to high.
+    class RefRange
+        # Creates a new high range reference.
+        def to_high
+            return HDLRuby::High::RefRange.new(self.type.to_high,
+                                               self.ref.to_high,
+                            self.range.first.to_high..self.range.last.to_high)
         end
     end
 
-    ## Extends the RefName class with generation of HDLRuby::High text.
-    class RefName
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            # The resulting string.
-            res = ""
-            # Generates the sub reference if any.
-            res << self.ref.to_high(level) << "." unless self.ref.is_a?(RefThis)
-            # Generates the current reference.
-            res << Low2High.high_use_name(self.name)
-            # Returns the resulting string.
-            return res
+    # Add the conversion to high.
+    class RefName
+        # Creates a new high range reference.
+        def to_high
+            return HDLRuby::High::RefName.new(self.type.to_high,
+                                              self.ref.to_high,
+                                              self.name)
         end
     end
 
-    ## Extends the RefThis class with generation of HDLRuby::High text.
-    class RefThis 
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            return ""
+    # Add the conversion to high.
+    class RefThis
+        # Creates a new high ref this.
+        def to_high
+            return HDLRuby::High::RefThis.new
         end
     end
 
-    ## Extends the Numeric class with generation of HDLRuby::High text.
-    class ::Numeric
 
-        # Generates the text of the equivalent HDLRuby::High code.
-        # +level+ is the hierachical level of the object.
-        def to_high(level = 0)
-            return self.to_s
+    # Add the conversion to high.
+    class StringE
+        # Creates a new high string expression.
+        def to_high
+            return HDLRuby::High::StringE.new(self.content,
+                                *self.each_arg.map {|arg| arg.to_high })
         end
     end
-
 end