retro_idl 0.0.1

data/lib/retro_idl/asn/sequenceof.rb

@@ -0,0 +1,62 @@
+# 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::SEQUENCEOF < BaseType
+
+    TAG_CLASS_NUMBER = 16
+    TAG_CLASS = :universal
+
+    def initialize(**opts)
+
+        super(**opts)
+        @type = RetroIDL::ASN.const_get(opts[:type][:class]).new( **opts[:type] )
+
+    end
+
+    def link(mod, stack)
+
+        if @mod.nil? or @mod != mod
+
+            @mod = nil
+
+            if @type.link(mod, stack)
+
+                super(mod, stack)
+
+            end
+
+        else
+
+            @mod
+
+        end
+        
+    end
+
+    # @macro common_to_s
+    def to_s
+
+        "#{@tag} SEQUENCE #{@constraint} OF #{@type}"
+
+    end
+    
+end
+
+

data/lib/retro_idl/asn/single_value.rb

@@ -0,0 +1,26 @@
+# 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::SingleValue
+
+    def initialize(value)
+        @value = value    
+    end
+
+end

data/lib/retro_idl/asn/tag.rb

@@ -0,0 +1,163 @@
+# 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 31.2
+class RetroIDL::ASN::Tag
+
+    def initialize(**opts)
+
+        errors = false
+
+        @mod = nil
+        @tag = nil
+        @symbol = nil
+        @encodingReference = opts[:encodingReference]
+        @tagClass = opts[:class]
+        @location = opts[:location]
+        @tagType = opts[:type]
+        
+
+        if opts[:classNumber][:ref]
+
+            if RetroIDL::ASN.is_identifier?(@location, opts[:classNumber][:ref])
+
+                @symbol = opts[:classNumber][:ref]
+
+            else
+
+                errors = true
+
+            end
+
+        else
+
+            @tagClassNumber = opts[:classNumber][:number]
+
+            if @tagClassNumber < 0
+
+                ASN.putError(opts[:classNumber][:location], "ClassNumber must be an integer >= 0")
+                errors = true
+                
+            end
+            
+        end
+
+        if errors
+
+            raise ASNError.new
+
+        end
+
+    end
+
+    # @return [String] EncodingReference
+    attr_reader :encodingReference
+
+    # @return [:IMPLICIT, :EXPLICIT] tag 
+    attr_reader :tagClass
+
+    # Return the tag ClassNumber
+    #
+    # @return [Integer] ClassNumber
+    #
+    # @raise [ASNError] tag has not been linked
+    #
+    def tagClassNumber
+
+        if @mod
+
+            if @symbol
+
+                @symbol.value
+
+            else
+
+                @tagClassNumber
+
+            end
+
+        else
+            
+            raise ASNError.new LINK_ERROR
+
+        end
+
+    end
+
+    # @macro common_link
+    def link(mod, stack)
+
+        if @mod.nil? or @mod != mod
+
+            @mod = nil
+
+            if @symbol
+
+                if mod.symbols(@symbol).nil?
+
+                    ASN.putError(@location, SYMBOL_UNDEFINED_ERROR)
+
+                else
+
+                    @mod = mod.symbols(@symbol).link(mod, stack)
+
+                end
+
+            end
+
+        else
+
+            @mod
+
+        end
+
+    end
+
+    # @macro common_to_s
+    def to_s
+
+        result = "["
+
+        if @encodingReference
+
+            result << " #{@encodingReference} :"
+
+        end
+
+        if @tagClass
+
+            result << " #{@tagClass}"
+
+        end
+
+        if @symbol
+
+            result << " #{@symbol}"
+
+        else
+
+            result << " #{@tagClassNumber}"
+
+        end
+
+        result << " ] #{@tagType}"
+
+    end
+
+end

data/lib/retro_idl/asn/type_list.rb

@@ -0,0 +1,121 @@
+# 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::TypeList
+
+    def initialize(list, type)
+
+        @mod = nil
+        @parent = parent
+        errors = false
+
+        @list = {}
+
+        list.each do |item|
+
+            if @list[item[:id]].nil?
+
+                if RetroIDL::ASN.is_identifier?(item[:location], item[:id])
+
+                    begin
+
+                    @list[item[:id]] = type.new(item, self)
+                    
+                    rescue ASNError
+
+                    errors = true
+
+                    end
+
+                else
+
+                    errors = true
+
+                end
+
+            else
+
+                ASN.putError(item[:location], "duplicate identifier")
+                errors = true
+
+            end
+
+        end
+
+        if errors
+
+            raise ASNError.new
+
+        end
+
+    end
+
+    # return [Hash] type list
+    attr_reader :list
+
+    # @macro common_link
+    def link(mod, stack)
+
+        if @mod.nil? or @mod != mod
+
+            @mod = nil
+
+            @list.values.each do |item|
+
+                if item.link(mod, stack.dup).nil?
+
+                    return @mod
+                
+                end
+
+            end
+
+            @mod = mod
+
+        else
+
+            @mod
+
+        end
+        
+    end
+
+    # @macro common_to_s
+    def to_s
+
+        result = ""
+
+        @list.values.each do |item|
+        
+            result << "#{item}"
+
+            if item != @list.values.last
+
+                result << ", "
+
+            end
+
+        end
+
+        result
+
+    end
+
+end
+

data/lib/retro_idl/asn/value_assignment.rb

@@ -0,0 +1,21 @@
+
+class RetroIDL::ASN::ValueAssignment
+
+    def initialize(**opts)
+
+        @parent = parent
+        @location = opts[:location]
+        @mod = nil
+        @id = opts[:id]
+        @governor = RetroIDL::ASN.const_get(opts[:governor][:class]).new(**opts[:governor])
+        @value = RetroIDL::ASN.const_get(opts[:value][:class]).new(**opts[:governor])
+
+        if !RetroIDL::ASN.is_identifier?(@location, @id)
+            raise ASNError                    
+        end
+
+    end
+    
+end
+
+

data/lib/retro_idl/asn/value_list.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::ValueList < TypeList
+
+    # @macro common_link
+    def link(mod, stack)
+
+        if @mod.nil? or @mod != mod
+
+            @mod = nil
+            ok = true
+
+            @list.values.each do |item|
+                if item.link(mod, []).nil?
+                    ok = false                        
+                end                    
+            end
+
+            if ok
+                @mod = mod
+            else
+                @mod
+            end
+
+        else
+            @mod
+        end                
+
+    end
+
+end

data/lib/retro_idl.rb

@@ -0,0 +1,20 @@
+# 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.
+
+require 'retro_idl/asn/asn'

data/rakefile

@@ -0,0 +1,33 @@
+require 'rake/testtask'
+require 'rake/extensiontask'
+
+DIR_SRC = "ext/retro_idl/asn/ext_parser"
+DIR_ETC = "etc/retro_idl/asn/ext_parser"
+
+Rake::ExtensionTask.new  do |ext|
+    ext.name = "ext_parser"
+    ext.ext_dir = "ext/retro_idl/asn/ext_parser"
+    ext.lib_dir = "lib/retro_idl/asn"
+end
+
+desc "ext_parser (only) tests"
+Rake::TestTask.new do |t|
+    t.name = :test_ext_parser
+    t.libs << "lib"
+    t.test_files = FileList["test/asn/ext_parser/tc_*.rb"]
+end
+
+desc "parser tests"
+Rake::TestTask.new do |t|
+    t.name = :test_parser
+    t.libs << "lib"
+    t.test_files = FileList["test/asn/parser/tc_*.rb"]
+end
+
+task :default => :test
+
+desc "run flex-bison"
+task :flexbison do    
+    system "flex --outfile=#{DIR_SRC}/lexer.c --header-file=#{DIR_SRC}/lexer.h #{DIR_SRC}/ext_parser.l"
+    system "bison -d #{DIR_SRC}/ext_parser.y --output=#{DIR_SRC}/parser.c --report=all --report-file=#{DIR_SRC}/report.txt"    
+end

data/test/asn/ext_parser/capture_stderr.rb

@@ -0,0 +1,20 @@
+require 'stringio'
+ 
+module Kernel
+ 
+  def capture_stderr
+
+    err = StringIO.new
+    $stderr = err
+
+    yield
+
+    return err
+
+    ensure
+
+    $stderr = STDERR
+        
+  end
+ 
+end

data/test/asn/ext_parser/tc_ext_parser.rb

@@ -0,0 +1,94 @@
+module RetroIDL
+    module ASN
+    end
+end
+
+require_relative "capture_stderr"
+require "test/unit"
+require "retro_idl/asn/location"
+require "retro_idl/asn/ext_parser"
+
+inputs = {}
+root = "test/asn/input"
+
+# generate TestParserCore at runtime with one test per input file
+testClass = Class.new(Test::Unit::TestCase) do
+
+    include RetroIDL::ASN
+
+    class << self
+
+        attr_accessor :inputs
+
+    end
+
+    Dir.foreach(root) do |filename|
+
+        next if filename == ".." or filename == "."
+
+        test_name = "test_#{filename.sub(".asn1", "")}"
+        inputs[test_name.to_sym] = {:fileName => filename, :buffer => File.new("#{root}/#{filename}", "r").read}
+
+        # positive tests
+        if filename[/^pos_.*\.asn1$/]
+
+            define_method( test_name ) do
+
+                # run stage 1 and intercept stderr output
+                err = capture_stderr do
+
+                    output = parseFileBuffer(inputs[__method__])
+                
+                end
+
+                # there should have been no messages to stderr
+                assert_equal("", err.string, "unexpected error messages")
+
+                # if there were messages, forward them to stderr
+                if err.string != ""
+
+                    STDERR.puts err.string
+
+                end
+
+            end
+
+        end
+
+        # negative tests
+        if filename[/^neg_.*\.asn1$/]
+
+            define_method( test_name ) do
+
+                # run stage 1 and intercept stderr output
+                err = capture_stderr do
+
+                    output = parseFileBuffer(inputs[__method__])
+                
+                end
+
+                # there should have been some messages to stderr
+                assert_not_equal("", err.string, "expecting error messages but got none")
+
+                # if there were messages, forward them to stderr
+                if err.string != ""
+
+                    STDERR.puts err.string
+
+                end
+
+            end
+
+        end
+
+
+    end
+
+end
+
+# set inputs as a class variable
+testClass.inputs = inputs
+
+# name the dynamic test class
+Object.const_set("TestParserCore", testClass)
+

data/test/asn/parser/capture_stderr.rb

@@ -0,0 +1,20 @@
+require 'stringio'
+ 
+module Kernel
+ 
+  def capture_stderr
+
+    err = StringIO.new
+    $stderr = err
+
+    yield
+
+    return err
+
+    ensure
+
+    $stderr = STDERR
+        
+  end
+ 
+end