retro_idl 0.0.1

data/lib/retro_idl/asn/bit_string.rb

@@ -0,0 +1,44 @@
+
+class RetroIDL::ASN::BITSTRING < BaseType
+
+    TAG_CLASS_NUMBER = 3
+    TAG_CLASS = :universal
+
+    def initialize(**opts)
+
+        super(**opts)
+        @bitList = nil
+        if opts[:bitList]
+            @bitList = ValueList.new(opts[:bitList], NamedNumber)
+        end
+
+    end
+
+    # @macro common_link
+    def link(mod, stack)
+
+        if @mod.nil? or @mod != mod
+            @mod = nil
+            if @bitList.nil? or @bitList.link(mod, [])
+                super(mod, stack)
+            end
+        else
+            @mod
+        end
+        
+    end
+
+    # @macro common_to_s
+    def to_s
+
+        result = "#{@tag} BIT STRING"
+        if @bitList
+            result << @bitList.to_s
+        end
+        result << " #{@constraint}"
+        
+    end
+        
+end
+
+

data/lib/retro_idl/asn/boolean.rb

@@ -0,0 +1,50 @@
+# Copyright (c) 2016 Cameron Harper
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy of
+# this software and associated documentation files (the "Software"), to deal in
+# the Software without restriction, including without limitation the rights to
+# use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+# the Software, and to permit persons to whom the Software is furnished to do so,
+# subject to the following conditions:
+#  
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+class RetroIDL::ASN::BOOLEAN < BaseType
+
+    TAG_CLASS_NUMBER = 1
+    TAG_CLASS = :universal
+
+    # @macro common_to_s
+    def to_s
+        "#{@tag} BOOLEAN #{@constraint}"
+    end
+
+    def evaluate(value)
+
+        if value.class != TrueClass and value.class != FalseClass
+            false
+        else
+            true
+        end
+
+    end
+
+    def evaluateConstraint(value)
+
+        if evaluate(value) and ( @constraint or @constraint.evaluate(value) )
+            true
+        else
+            false
+        end
+        
+    end
+
+end

data/lib/retro_idl/asn/builtin_value.rb

@@ -0,0 +1,51 @@
+# Copyright (c) 2016 Cameron Harper
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy of
+# this software and associated documentation files (the "Software"), to deal in
+# the Software without restriction, including without limitation the rights to
+# use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+# the Software, and to permit persons to whom the Software is furnished to do so,
+# subject to the following conditions:
+#  
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+# BuiltinValue aggregation
+#
+# X.680 section 17.2
+class RetroIDL::ASN::BuiltinValue
+
+    def initialize(**opts)
+
+        @location = opts[:location]
+        @mod = nil
+        @value = opts[:value]
+        
+    end
+
+    # return the Ruby native representation of this BuiltinType
+    #
+    # @return [Array, Hash, Numeric, String] native value
+    #
+    # @raise [ASNError] value cannot be returned if object is not linked
+    attr_reader :value
+
+    # @macro common_to_s
+    def to_s
+
+        "#{@value}"
+        
+    end
+
+    def link(mod, stack)
+        @mod = mod
+    end
+
+end

data/lib/retro_idl/asn/choice.rb

@@ -0,0 +1,95 @@
+# Copyright (c) 2016 Cameron Harper
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy of
+# this software and associated documentation files (the "Software"), to deal in
+# the Software without restriction, including without limitation the rights to
+# use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+# the Software, and to permit persons to whom the Software is furnished to do so,
+# subject to the following conditions:
+#  
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+
+class RetroIDL::ASN::CHOICE < BaseType
+
+    def initialize(**opts)
+
+        super(**opts)
+
+        errors = false
+
+        @exception = opts[:exception]
+        @extensible = opts[:extensible]
+        @additional = nil
+
+        @root = TypeList.new(opts[:root], AlternativeType, self)
+
+        if opts[:additional]
+
+            @additional = TypeList.new(opts[:additional], AlternativeType, self)
+
+            @additional.list.each do |id, item|
+
+                if @root.list.keys.include? id
+
+                    ASN.putError(item.location, "duplicate EnumerationItem")
+                    errors = true
+
+                end
+
+            end
+
+        end
+
+        if errors
+
+            raise ASNError.new
+
+        end
+
+    end
+
+    # @macro common_link
+    def link(mod, stack)
+
+        if @mod.nil? or @mod != mod
+
+            @mod = nil
+
+            if @root.nil? or @root.link(mod, stack)
+
+                if @additional.nil? or @additional.link(mod, stack)
+
+
+                    super(mod, [])
+
+                end
+
+            end
+
+        end
+
+        @mod
+        
+    end
+
+    # @macro common_to_s
+    def to_s
+
+        result = "#{@tag} CHOICE { #{@root} "
+        if @extensible
+            result << ", ... "
+        end
+        result << "} #{@constraint}"       
+
+    end
+
+end

data/lib/retro_idl/asn/component_type.rb

@@ -0,0 +1,56 @@
+# Copyright (c) 2016 Cameron Harper
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy of
+# this software and associated documentation files (the "Software"), to deal in
+# the Software without restriction, including without limitation the rights to
+# use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+# the Software, and to permit persons to whom the Software is furnished to do so,
+# subject to the following conditions:
+#  
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+class RetroIDL::ASN::ComponentType
+
+    def initialize(**opts)
+
+        @optional = opts[:optional]
+        @type = RetroIDL::ASN.const_get(opts[:class]).new( **opts )
+
+    end
+
+    def link(mod, stack)
+
+        @type.link(mod, stack.push(self))
+
+    end
+
+    # @macro common_to_s
+    def to_s
+
+        @type.to_s
+
+    end
+
+    # @return [true] this component is optional
+    # @return [false] this component is not optional
+    def optional?
+
+        if @optional
+            true
+        else
+            false
+        end
+
+    end
+    
+end
+
+

data/lib/retro_idl/asn/constraint.rb

@@ -0,0 +1,162 @@
+# reduce a crazy syntax into a set of ranges and values (for an integer)
+# or for a size constraint...
+#
+#
+
+class RetroIDL::ASN::Constraint
+
+    def initialize(**opts)
+
+        @location = opts[:location]
+        @root = []
+        @mod = nil
+
+        opts[:rootElementSetSpec].each do |element|
+            @root << RetroIDL::ASN.const_get(element[:class]).new(parent, element)
+        end
+        
+    end
+
+    # @macro common_link
+    def link(mod, stack)
+
+        if @mod.nil? or @mod != mod
+            @mod = nil
+            @root.each do |element|
+                elem.link(@mod, [])
+            end
+        else
+            @mod
+        end
+
+    end
+
+    def to_s
+
+        out = "( "    
+        @root.each do |element|
+            puts element.class
+            out << element.to_s
+        end
+        out << " )"
+
+    end
+
+end
+
+class Element
+
+    def initialize(parent, opts)
+        @parent = parent
+        @location = opts[:location]                                
+    end
+
+    def link(mod, stack)                
+    end
+
+end
+
+class SingleValue < Element
+
+    def initialize(parent, opts)
+
+        super
+        @value = RetroIDL::ASN.const_get(opts[:value][:class]).new(opts[:value])
+
+    end
+
+    def link(mod, stack)
+        if @mod.nil? or @mod != mod
+            @mod = nil
+            if @value.link(mod, stack) == mod
+                if @parent.evaluate(@value)
+                    @mod = mod
+                end
+            end
+        end
+    end
+
+    def to_s
+        "#{@value}"            
+    end
+
+end
+
+class ValueRange < Element
+
+    def initialize(**opts)
+
+        super
+        @upper = RetroIDL::ASN.const_get(opts[:upper][:class]).new(opts[:upper])
+        @lower = RetroIDL::ASN.const_get(opts[:lower][:class]).new(opts[:lower])
+        
+    end
+
+    def link(mod, stack)
+        
+        if @mod.nil? or @mod != mod
+            @mod = nil
+            if @upper.link(mod, stack) == mod
+                if @lower.link(mod, stack) == mod
+                    if @parent.evaluate(@upper) and @parent.evaluate(@lower)
+                        @mod = mod
+                    end
+                end
+            end
+        end
+    end
+
+    def to_s
+        "#{@lower} ... #{@upper}"
+    end
+    
+end
+
+class SizeConstraint < Element
+
+    def initialize(**opts)
+
+        super
+        @constraint = Constraint.new(self, opts[:constraint])
+    
+    end
+
+    def link(mod)
+        @constraint.link(mod)
+    end
+
+    def to_s
+        "SIZE #{@constraint}"                
+    end
+
+    def evaluate
+
+        if @parent.class 
+
+    end
+
+end
+
+class UnionMark < Element
+    def to_s
+        "|"
+    end
+end
+
+class ALL < Element
+    def to_s
+        "ALL"
+    end        
+end
+
+class IntersectionMark < Element
+    def to_s
+        "^"
+    end
+end
+
+class EXCEPT < Element
+    def to_s
+        "EXCEPT"
+    end
+end

data/lib/retro_idl/asn/defined_type.rb

@@ -0,0 +1,61 @@
+# Copyright (c) 2016 Cameron Harper
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy of
+# this software and associated documentation files (the "Software"), to deal in
+# the Software without restriction, including without limitation the rights to
+# use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+# the Software, and to permit persons to whom the Software is furnished to do so,
+# subject to the following conditions:
+#  
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+class RetroIDL::ASN::DefinedType < BaseType
+
+    def initialize(**opts)
+
+        super(**opts)
+
+        if ASN.is_typereference?(@location, opts[:ref])                
+            @symbol = opts[:ref]
+        else
+            raise ASNError
+        end
+
+    end
+
+    # @macro common_link
+    def link(mod, stack)
+
+        if @mod.nil? or @mod != mod
+
+            @mod = nil
+
+            if mod.symbols(@symbol)
+
+                if mod.symbols(@symbol).link(mod, stack)
+
+                    super(mod, stack)
+
+                end
+                
+            else
+
+                ASN.putError(@location, "symbol is undefined")
+                
+            end
+
+        end
+
+        @mod
+
+    end
+    
+end

data/lib/retro_idl/asn/defined_value.rb

@@ -0,0 +1,82 @@
+# Copyright (c) 2016 Cameron Harper
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy of
+# this software and associated documentation files (the "Software"), to deal in
+# the Software without restriction, including without limitation the rights to
+# use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+# the Software, and to permit persons to whom the Software is furnished to do so,
+# subject to the following conditions:
+#  
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+
+# X.680 section 17.3
+class RetroIDL::ASN::DefinedValue
+
+    def initialize(**opts)
+
+        @location = opts[:location]
+        @mod = nil
+
+        if RetroIDL::ASN.is_identifier?(@location, **opts[:ref])                
+            @symbol = opts[:ref].to_s
+        else
+            raise ASNError
+        end
+        
+    end
+
+    # @macro common_link
+    def link(mod, stack)
+
+        if @mod.nil? or @mod != mod
+
+            @mod = nil
+
+            if mod.symbol(@symbol)
+
+                if mod.symbol(@symbol).link(mod, [])
+
+                    super(mod, stack)
+
+                end
+                
+            else
+
+                ASN.putError(@location, "DefinedValue governing type is not defined")
+
+            end
+
+        end
+
+        @mod
+
+    end
+
+    # return the Ruby native representation of this DefinedType
+    #
+    # @return [Array, Hash, Numeric, String] native value
+    #
+    # @raise [ASNError] value cannot be returned if object is not linked
+    def value
+
+        @mod.symbol(@symbol).value
+
+    end
+
+    # @macro common_to_s
+    def to_s
+
+        "#{@symbol}"
+        
+    end
+
+end