retro_idl 0.0.1

data/lib/retro_idl/asn/enumerated.rb

@@ -0,0 +1,127 @@
+# 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 20
+class RetroIDL::ASN::ENUMERATED < BaseType
+
+    TAG_CLASS_NUMBER = 10
+    TAG_CLASS = :universal
+
+    def initialize(**opts)
+
+        super(**opts)
+
+        errors = false
+        
+        @exception = opts[:exception]
+        @extensible = opts[:extensible]
+        @additional = nil
+
+        begin
+
+        @root = ValueList.new(opts[:root], EnumerationItem)
+
+        rescue ASNError
+
+        errors = true
+        
+        end
+
+        if opts[:additional]
+
+            begin
+
+            @additional = ValueList.new(opts[:additional], EnumerationItem)
+
+            rescue ASNError
+
+            errors = true
+
+            end
+
+            if @additional
+
+                @additional.list.each do |id, item|
+
+                    if @root.list.keys.include? id
+
+                        ASN.putError(item.location, "duplicate EnumerationItem")
+                        errors = true
+
+                    end
+
+                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.link(mod, stack)
+
+                if @additional.nil? or @additional.link(mod, stack)
+                
+                    super(mod, stack)
+
+                end
+                
+            end
+
+        end
+
+        @mod
+        
+    end
+
+    # @macro common_to_s
+    def to_s
+
+        result = "#{@tag} ENUMERATED { #{@root} "
+
+        if @extensible
+
+            result << ", ... "
+
+        end
+
+        result << "} #{@constraint}"
+
+    end
+
+    def evaluate(value)
+
+        false
+
+    end
+    
+end

data/lib/retro_idl/asn/enumeration_item.rb

@@ -0,0 +1,103 @@
+# 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.
+
+
+# An item within an ENUMERATED type
+#
+# X.680 section 20
+class RetroIDL::ASN::EnumerationItem
+
+    def initialize(**opts)
+
+        @id = opts[:id].to_s
+        @location = opts[:location]                
+        @mod = nil
+        @symbol = nil
+        @number = nil
+        
+        if RetroIDL::ASN.is_identifier?(@location, @id)
+            if opts[:number]
+                if opts[:number].is_a? String
+                    @symbol = opts[:number].to_s            
+                else
+                    @number = opts[:number].to_i
+                end
+            end
+        else
+            raise ASNError
+        end                
+
+    end
+
+    # @return [Hash] location record
+    attr_reader :location
+    
+    # @macro common_link
+    def link(mod, stack)
+
+        if @mod.nil? or @mod != mod
+
+            @mod = nil
+
+            if @symbol
+
+                if mod.symbols(@symbol)
+
+                    @mod = mod
+
+                else
+
+                    ASN.putError(@location, SYMBOL_UNDEFINED_ERROR)
+
+                end
+
+            else
+
+                @mod = mod
+
+            end
+
+        end
+
+        @mod
+
+    end
+
+    # @macro common_to_s
+    def to_s
+
+        if @symbol
+
+            "#{@id} (#{@symbol})"
+
+        elsif @number
+
+            "#{@id} (#{@number})"
+
+        else
+
+            "#{@id}"
+
+        end
+
+    end
+    
+end
+
+

data/lib/retro_idl/asn/integer.rb

@@ -0,0 +1,84 @@
+# 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 19
+class RetroIDL::ASN::INTEGER < BaseType
+
+    TAG_CLASS_NUMBER = 2
+    TAG_CLASS = :universal
+
+    # @see BaseType#initialize
+    #
+    # @param opts [Hash]
+    #
+    # @option opts [Array<Hash>] :numberList NamedNumberList
+    #
+    # @raise [ASNError]
+    #
+    def initialize(**opts)
+        super(**opts)
+        @numberList = nil
+        if opts[:numberList]
+            @numberList = ValueList.new(opts[:numberList], NamedNumber)
+        end
+    end
+
+    # @macro common_link
+    def link(mod, stack)
+
+        if @mod.nil? or @mod != mod
+
+            @mod = nil
+
+            if @numberList.nil? or @numberList.link(mod, [])
+
+                super(mod, stack)
+
+            end
+
+        end
+
+        @mod
+
+    end
+    
+    # @macro common_to_s
+    def to_s
+
+        result = "#{@tag} INTEGER"
+        if @numberList
+            result << @numberList.to_s
+        end
+        result << " #{@constraint}"
+
+    end
+
+    # @macro common_evaluate
+    def evaluate(value)
+        value.kind_of?(Integer)
+    end
+
+    def evaluateConstraint(value)
+        if evaluate(value) and ( @constrant.nil? or @constraint.evaluate(value) )
+            true
+        end
+    end
+
+end

data/lib/retro_idl/asn/location.rb

@@ -0,0 +1,10 @@
+class RetroIDL::ASN::Location
+    attr_reader :fileName
+    def initialize(fileName, firstLine, lastLine, firstCol, lastCol)
+        @fileName = fileName
+        @firstLine = firstLine
+        @lastLine = lastLine
+        @firstCol = firstCol
+        @lastCol = lastCol
+    end
+end

data/lib/retro_idl/asn/named_number.rb

@@ -0,0 +1,83 @@
+# 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::NamedNumber
+
+    def initialize(**opts)
+
+        @id = opts[:id].to_s
+        @location = opts[:location]
+        @mod = nil
+        @number = nil
+        @symbol = nil
+        
+        if RetroIDL::ASN.is_identifier?(@location, @id)
+            if opts[:number].is_a? String
+                @symbol = opts[:number].to_s            
+            else
+                @number = opts[:number].to_i
+            end
+        else
+            raise ASNError
+        end
+
+    end
+
+    def link(mod, stack)
+
+        if @mod.nil? or @mod != mod
+
+            @mod = nil
+
+            if @symbol
+
+                if mod.symbols(@symbol)
+
+                    @mod = mod
+
+                end
+
+            else
+
+                @mod = mod
+
+            end
+
+        else
+
+            @mod
+
+        end
+
+    end
+
+
+    # @macro common_to_s
+    def to_s
+
+        if @symbol        
+            "#{@id} (#{@symbol})"
+        else
+            "#{@id} (#{@number})"
+        end
+
+    end
+
+end
+

data/lib/retro_idl/asn/null.rb

@@ -0,0 +1,41 @@
+# 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::NULL < BaseType
+
+    TAG_CLASS_NUMBER = 5
+    TAG_CLASS = :universal
+
+    # @macro common_to_s
+    def to_s
+
+        "#{@tag} NULL #{@constraint}"    
+
+    end
+
+    def evaluate(value)
+        value.nil?
+    end
+
+    def evaluateConstraint(value)
+        true
+    end
+
+end
+

data/lib/retro_idl/asn/octetstring.rb

@@ -0,0 +1,48 @@
+# 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::OCTETSTRING < BaseType
+
+    TAG_CLASS_NUMBER = 4
+    TAG_CLASS = :universal
+
+    # @macro common_to_s
+    def to_s
+
+        return "#{@tag} OCTET STRING #{@constraint}"
+
+    end
+
+    def evaluate(value)
+        value.kind_of?(String)
+    end
+
+    def evaluateConstraint(value)
+
+        if evaluate(value) and ( @constraint or @constraint.evaluate(value) )
+            true
+        else
+            false
+        end
+
+    end
+
+end
+

data/lib/retro_idl/asn/real.rb

@@ -0,0 +1,36 @@
+# 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::REAL < BaseType
+
+    TAG_CLASS_NUMBER = 9
+    TAG_CLASS = :universal
+
+    # @macro common_to_s
+    def to_s
+
+        "#{@tag} REAL #{@constraint}"
+
+    end
+
+    def evaluate(value)
+        value.kind_of?(Numeric)
+    end
+
+end

data/lib/retro_idl/asn/sequence.rb

@@ -0,0 +1,132 @@
+# 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::SEQUENCE < BaseType
+
+    TAG_CLASS_NUMBER = 16
+    TAG_CLASS = :universal
+
+    def initialize(**opts)
+
+        super(**opts)
+
+        errors = false
+
+        @exception = opts[:exception]
+        @extensible = opts[:extensible]
+        @head = nil
+        @tail = nil
+        @additional = nil
+        
+        if opts[:head]
+
+            begin
+        
+            @head = TypeList.new(opts[:head], ComponentType)
+
+            rescue ASNError
+
+            errors = true
+
+            end
+
+        end
+
+        if opts[:additional]
+
+            begin
+
+            @additional = TypeList.new(opts[:additional], ComponentType)
+
+            rescue ASNError
+
+            errors = true
+
+            end                    
+
+        end
+
+        if opts[:tail]
+
+            begin
+
+            @tail = TypeList.new(opts[:tail], ComponentType)
+
+            rescue ASNError
+
+            errors = true
+
+            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 @head.nil? or @head.link(mod, stack)
+
+                if @tail.nil? or @tail.link(mod, stack)
+
+                    if @additional.nil? or @additional.link(mod, stack)
+
+                        super(mod, [])
+
+                    end
+
+                end
+
+            end
+
+        else
+
+            @mod
+
+        end
+        
+    end
+
+    # @macro common_to_s
+    def to_s
+
+        result = "#{@tag} SEQUENCE { #{@head} "
+
+        if @extensible
+
+            result << ", ... "
+
+        end
+
+        result << "} #{@constraint}"
+
+    end
+
+end