edifact_converter 2.0.13

data/lib/edifact_converter/configuration/json_configurator.rb

@@ -0,0 +1,91 @@
+require 'edifact_converter/configuration'
+require 'json'
+
+module EdifactConverter::Configuration
+
+  class JSONConfigurator
+
+    attr_accessor :default_ns, :binary_versions
+
+    def initialize
+      load
+    end
+
+    def edifact_rules(type, segment_group)
+      edifact_settings[type][segment_group]
+    end
+
+    def xml_rules(*args) #Either namespace or type and version
+      case args.size
+      when 1
+        xml_settings[args.first]
+      when 2
+        rules = xml_settings.find do |namespace, values|
+          values.versions && values.versions.include?(args[1])
+        end
+        rules &&= rules.last
+        rules || xml_settings[default_ns] 
+      else
+        raise RuntimeError "Wrong number of arguments #{args.size}"
+      end
+    end
+
+    def binary?(version)
+      binary_versions.include? version
+    end
+
+    private
+
+    def load_from_file(filename)
+      settings = JSON.load(File.open(filename) { |file| file.read })
+      settings['EDIFACT'].each do |type, segments|
+        rules_for_type = edifact_settings[type]
+        segments.each do |segment, rules|
+          rule = rules_for_type[segment]
+          rule.register_hidden rules['hidden']
+          rule.register_children rules['children']
+        end
+      end
+      settings['XML'].each do |namespace, values|
+        unless namespace == 'default'
+          values.values.each do |urls|
+            urls.map! do |url|
+              url % { gem_data: EdifactConverter.data}
+            end
+          end
+          xml_settings[namespace] = XMLRule.new values
+        else
+          self.default_ns = values
+        end
+      end
+      self.binary_versions = settings['binary_versions']
+    end
+
+    def load
+      load_from_file(
+        File.join(
+          EdifactConverter.data,
+          'configuration.json'
+        )
+      )
+    end
+
+    def edifact_settings
+      @edifact_settings ||= Hash.new do |letters, type| 
+        letters[type] = Hash.new do |segments, segment| 
+          segments[segment] = EdifactRule.new
+        end
+      end
+    end
+
+    def xml_settings
+      @xml_settings ||= Hash.new do |namespaces, namespace|
+        if namespace.nil? or namespace.empty?
+          namespaces[default_ns]
+        end
+      end 
+    end
+
+  end
+
+end

data/lib/edifact_converter/configuration/xml_rule.rb

@@ -0,0 +1,74 @@
+require 'edifact_converter/configuration'
+
+module EdifactConverter::Configuration
+
+  class XMLRule
+
+    ATTRIBUTES = [
+      :namespace,
+      :versions,
+      :schema,
+      :schema_urls,
+      :from_xml,
+      :from_xml_urls,
+      :to_xml,
+      :to_xml_urls,
+      :to_html,
+      :to_html_urls
+    ]
+
+    attr_accessor *ATTRIBUTES
+
+    def initialize(options)
+      options.each do |name, value|
+        if ATTRIBUTES.include? name.to_sym
+          send "#{name}=", value
+        end
+      end
+    end
+
+    def schema
+      @schema ||= begin
+        xmldoc = load_doc_from_urls schema_urls
+        Nokogiri::XML::Schema.from_document xmldoc
+      end
+    end
+
+    def from_xml
+      @from_xml ||= begin
+        xmldoc = load_doc_from_urls from_xml_urls
+        Nokogiri::XSLT::Stylesheet.parse_stylesheet_doc xmldoc
+      end
+    end
+
+    def to_xml
+      @to_xml ||= begin
+        xmldoc = load_doc_from_urls to_xml_urls
+        Nokogiri::XSLT::Stylesheet.parse_stylesheet_doc xmldoc
+      end
+    end
+
+    def to_html
+      @to_html ||= begin
+        xmldoc = load_doc_from_urls to_html_urls
+        Nokogiri::XSLT::Stylesheet.parse_stylesheet_doc xmldoc
+      end
+    end
+
+    private
+
+    def load_doc_from_urls(urls)
+      urls.each do |url|
+        begin
+          xmldoc = Nokogiri::XML(open(url), url)
+        rescue StandardError => error
+          $stderr.puts error
+          next
+        end
+        break xmldoc
+      end
+    end
+
+  end
+
+end

data/lib/edifact_converter/configuration/yaml_configurator.rb

@@ -0,0 +1,91 @@
+require 'edifact_converter/configuration'
+require 'yaml'
+
+module EdifactConverter::Configuration
+
+  class YAMLConfigurator
+
+    attr_accessor :default_ns, :binary_versions
+
+    def initialize
+      load
+    end
+
+    def edifact_rules(type, segment_group)
+      edifact_settings[type][segment_group]
+    end
+
+    def xml_rules(*args) #Either namespace or type and version
+      case args.size
+      when 1
+        xml_settings[args.first]
+      when 2
+        rules = xml_settings.find do |namespace, values|
+          values.versions && values.versions.include?(args[1])
+        end
+        rules &&= rules.last
+        rules || xml_settings[default_ns] 
+      else
+        raise RuntimeError "Wrong number of arguments #{args.size}"
+      end
+    end
+
+    def binary?(version)
+      binary_versions.include? version
+    end
+
+    private
+
+    def load_from_file(filename)
+      settings = YAML.load_file(filename)
+      settings['EDIFACT'].each do |type, segments|
+        rules_for_type = edifact_settings[type]
+        segments.each do |segment, rules|
+          rule = rules_for_type[segment]
+          rule.register_hidden rules['hidden']
+          rule.register_children rules['children']
+        end
+      end
+      settings['XML'].each do |namespace, values|
+        unless namespace == 'default'
+          values.values.each do |urls|
+            urls.map! do |url|
+              url % { gem_data: EdifactConverter.data}
+            end
+          end
+          xml_settings[namespace] = XMLRule.new values
+        else
+          self.default_ns = values
+        end
+      end
+      self.binary_versions = settings['binary_versions']
+    end
+
+    def load
+      load_from_file(
+        File.join(
+          EdifactConverter.data,
+          'configuration.yaml'
+        )
+      )
+    end
+
+    def edifact_settings
+      @edifact_settings ||= Hash.new do |letters, type| 
+        letters[type] = Hash.new do |segments, segment| 
+          segments[segment] = EdifactRule.new
+        end
+      end
+    end
+
+    def xml_settings
+      @xml_settings ||= Hash.new do |namespaces, namespace|
+        if namespace.nil? or namespace.empty?
+          namespaces[default_ns]
+        end
+      end 
+    end
+
+  end
+
+end

data/lib/edifact_converter/configuration.rb

@@ -0,0 +1,42 @@
+require 'edifact_converter'
+require 'edifact_converter/configuration/edifact_rule'
+require 'edifact_converter/configuration/xml_rule'
+require 'edifact_converter/configuration/yaml_configurator'
+require 'edifact_converter/configuration/json_configurator'
+require 'open-uri'
+
+module EdifactConverter
+
+  module Configuration
+
+    class << self
+
+      attr_accessor :hide_position, :format_edi
+
+      alias :hide_position? :hide_position
+
+      def edifact_rules(type, segment_group)
+        configurator.edifact_rules(type, segment_group)
+      end
+
+      def xml_rules(*args) #Either namespace or type and version
+        configurator.xml_rules *args
+      end
+
+      def configurator
+        @configurator ||= JSONConfigurator.new
+      end
+
+      def configurator=(configurator)
+        @configurator = configurator
+      end
+
+      def binary?(version)
+        configurator.binary? version.to_s
+      end
+
+    end
+
+  end
+
+end

data/lib/edifact_converter/converter.rb

@@ -0,0 +1,50 @@
+require 'nokogiri'
+require 'edifact_converter'
+require 'edifact_converter/edi2xml11'
+
+module EdifactConverter
+
+  class Converter
+
+    def convert(text, &proc)
+      self.error_proc = proc || Proc.new { |msg| STDERR.puts msg }
+      xml = Nokogiri::XML(text)
+      if xml.errors.empty?
+        convert_xml(xml)
+      else
+        convert_edifact(text)
+      end
+    end
+
+    private
+
+    attr_accessor :error_proc
+
+    def convert_edifact(text)
+      handler = EdifactConverter::EDI2XML11::XmlHandler.new
+      reader = EdifactConverter::EDI2XML11::EdiReader.new handler
+      reader.parse_string text, properties
+      puts handler.xml
+    end
+
+    def convert_xml(xml)
+
+    end
+
+    def properties
+      @properties ||= Hash.new do |hash,key|
+        case key
+        when :errors
+          hash[key] = []
+        when :warnings
+          hash[key] = []
+        else
+          nil
+        end
+      end
+    end
+
+
+  end
+
+end

data/lib/edifact_converter/converter_methods.rb

@@ -0,0 +1,137 @@
+require 'edifact_converter'
+
+module EdifactConverter
+
+  module ConverterMethods
+
+    def convert
+      self.ast = build_ast if ast.nil?
+      self.edifact = build_edifact if edifact.nil?
+      self.xml = build_xml if xml.nil?
+    end
+
+    def format_edifact
+      if edifact
+        formatted = edifact.encode 'utf-8'
+        formatted.gsub! /[\n\r]/, ""
+        formatted.gsub! /([^?]{1}')/, "\\1\n"
+        formatted.gsub! /^\s*/, ""
+        formatted.encode 'iso8859-1'
+      else
+        build_edifact(true)
+      end
+    end
+
+    def html
+      if xml && xml.root && xml.root.namespace
+        rules = Configuration.xml_rules xml.root.namespace.href
+        if rules
+          rules.to_html.transform xml
+        else
+          "<html><head><title>Fejl</title></head><body><h1>Ukendt namespace</h1><b>#{xml.root.namespace}</b></body></html>"
+        end
+      else
+        "<html><head><title>Fejl</title></head><body><h1>Ingen xml tilgængelig</h1></body></html>"
+      end
+    end
+
+    def binary(id)
+      if xml
+        xml2 = Nokogiri::XML xml.to_s
+        xml2.remove_namespaces!
+        binary_object = xml2.root.at("//BinaryObject[ObjectIdentifier = '#{id}']")
+        Binary.from_element binary_object if binary_object
+      end
+    end
+
+    def verify
+      compare_xml11
+    end
+
+    private
+
+    def build_ast(from_source = source_format)
+      ast = case from_source
+      when :edifact
+        xml11 = parse_edifact (format_edifact)
+        if Configuration.binary? properties[:version]
+          self.properties = nil
+          xml11 = parse_edifact(edifact)
+        end
+        AbstractSyntaxTree.new xml11
+      when :xml
+        ast = AbstractSyntaxTree.new XML.xml_to_xml11(self.xml, properties)
+        ast.pack
+        ast.set_checksums
+        ast
+      end
+      ast.verify_segments_checksum &error_proc
+      ast
+    end
+
+    def build_edifact(pretty = false)
+      return nil if ast.nil?
+      Configuration.format_edi = pretty
+      parser = EdifactConverter::XML112EDI::XmlReader.new
+      parser.parse(ast.document, properties)
+    end
+
+    def build_xml
+      return nil if ast.nil?
+      XML.xml11_to_xml(ast.document, properties)
+    end
+
+    def parse_edifact(edifact_string)
+      parser = EdifactConverter::EDI2XML11::EdiReader.new
+      parser.parse_string(edifact_string, properties)
+    rescue EdifactConverter::EdifactError => error
+      properties[:errors] << error.to_message
+      Nokogiri::XML "<Edifact/>"
+    end
+
+    def compare_xml11
+      return if source_format != :edifact || ast.nil? || xml.nil?
+      ast_facit = AbstractSyntaxTree.new XML.xml_to_xml11(xml, properties)
+      ast_facit.pack
+      ast_facit.set_checksums
+      comparator = Comparator.new
+      comparator.compare_docs ast.document, ast_facit.document, &error_proc
+    end
+
+    def error_proc
+      @proc ||= Proc.new do |diff|
+        if diff.source
+          pos = EdifactConverter::EDI2XML11::Position.new diff.source["linie"], diff.source["position"]
+        end
+        text = comparison_error_text diff
+        properties[diff.type] << Message.new(position: pos, text: text)
+      end
+    end
+
+    def comparison_error_text(diff)
+      return diff.message if diff.message 
+      case diff.kind
+      when :added
+        "Der mangler et #{diff.facit.name} her"
+      when :removed
+        "Der er et #{diff.source.name} for meget her"
+      when :root
+        "Dokumenterne er for forskellige til sammenligning. Forventede #{diff.facit.name} men det var #{diff.source.name}"
+      when :text
+        "Teksten #{diff.source.text} skal være #{diff.facit.text}"
+      when :removed_children
+        "Dette element (#{diff.source.name}) burde ikke have noget indhold"
+      when :added_children
+        "Dette element (#{diff.source.name}) burde have følgende indhold: #{diff.facit.text}"
+      when :no_unt
+        "Denne besked mangler et UNT element"
+      when :unt
+        "Der er #{diff.facit} segmenter, men der er kun angivet #{diff.source.at("Elm[1]/SubElm/text()")}"
+      else
+        "Ukendt fejl(#{diff.kind})"
+      end
+    end
+
+  end
+
+end

data/lib/edifact_converter/debug_handler.rb

@@ -0,0 +1,50 @@
+require 'edifact_converter'
+
+module EdifactConverter
+
+  class DebugHandler < EmptyHandler
+
+    def startDocument
+      @level = 1
+      print 'Edifact'
+      super
+    end
+
+    def endDocument
+      p @level
+      #@level -= 1
+      #print 'Edifact'
+      super
+    end
+
+    def startSegmentGroup(name, position = nil, hidden = false)
+      @level += 1
+      print "Start Group #{name} #{position}"
+      super
+    end
+
+    def endSegmentGroup(name)
+      print "End Group #{name}"
+      @level -= 1
+      super
+    end
+
+    def startSegment(name, position = nil)
+      print "#{name} #{position}"
+      #@level += 1
+      super
+    end
+
+    def endSegment(name)
+      #@level -= 1
+      super
+    end
+
+    def print(name)
+      text = "  #{@level} - #{name}"
+      puts text
+    end
+
+  end
+
+end

data/lib/edifact_converter/difference.rb

@@ -0,0 +1,36 @@
+
+module EdifactConverter
+
+  class Difference
+
+    ATTRIBUTES = [:source, :facit, :kind, :type, :message]
+
+    ATTRIBUTES.each do |attribute|
+      attr_accessor attribute
+    end
+
+    def initialize(options)
+      options.fetch(:type) { |key| options[key] = :errors }
+      options.each do |name, value|
+        if ATTRIBUTES.include? name
+          send "#{name}=", value
+        end
+      end
+    end
+
+    def eql?(diff)
+      return false unless diff.kind == kind
+      if kind == :unt
+        diff.source == source && diff.facit == facit
+      else
+        diff.source.name == source.name && diff.facit.name == facit.name 
+      end
+    end
+
+    def to_s
+      "#{source.path} afviger fra #{facit.path} ved at #{kind} af typen #{type} og meddelelsen #{message}"
+    end
+
+  end
+
+end

data/lib/edifact_converter/edi2xml11/brev_handler.rb

@@ -0,0 +1,51 @@
+require 'edifact_converter'
+
+module EdifactConverter::EDI2XML11
+
+	class BrevHandler < EdifactConverter::EmptyHandler
+
+		attr_accessor :last_position, :brev, :indhold
+
+		def brev?
+			@brev ||= false
+		end
+
+		def indhold?
+			@indhold ||= false
+		end
+
+		def startDocument
+			self.brev = self.indhold = false
+			super
+		end
+
+		def startSegment(name)
+			case name
+			when 'UNH'
+				startSegmentGroup('Brev', true)
+				self.brev = true
+			when 'UNT'
+				endSegmentGroup 'BrevIndhold' if indhold?
+			end
+			super
+		end
+
+		def endSegment(name)
+			super
+			if brev?
+				case name
+				when 'UNT'
+					endSegmentGroup('Brev')
+					self.brev = false
+				when 'UNH'
+					unless indhold?
+						startSegmentGroup 'BrevIndhold', true
+						self.indhold = true
+					end
+				end
+			end
+		end
+
+	end
+
+end