edifact_converter 2.0.13

data/data/xml/xmledi.properties

@@ -0,0 +1,171 @@
+
+schema.root-dir=/Schemas
+xslt.root-dir=/XSLTs
+
+* N A M E S P A C E S
+
+*NAMESPACE FOR XML FILER DER IKKE HAR ET NAMESPACE
+
+*namespace.default=rep.oio.dk/medcom.dk/xml/schemas/2004/06/01/
+*edifact.*.*.namespace=rep.oio.dk/medcom.dk/xml/schemas/2004/06/01/
+
+namespace.default=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2005/08/07/
+edifact.MEDPRE.LMS015.namespace=rep.oio.dk/medcom.dk/xml/schemas/2004/06/01/
+edifact.MEDDIS.D1034L.namespace=rep.oio.dk/medcom.dk/xml/schemas/2008/09/17/
+
+edifact.MEDDIS.D0633L.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2007/02/01/
+edifact.MEDDIS.D0733L.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2007/02/01/
+edifact.MEDDIS.D0833L.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2007/02/01/
+edifact.MEDDIS.D1033L.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2007/02/01/
+edifact.MEDDIS.D1630C.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2007/02/01/
+edifact.MEDDIS.D1830C.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2007/02/01/
+edifact.MEDREF.H0630R.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2007/02/01/
+edifact.MEDREF.H0730R.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2007/02/01/
+edifact.MEDREF.H1230R.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2007/02/01/
+edifact.MEDREF.H1030R.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2007/02/01/
+edifact.PRODAT.A0135Z.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2006/07/01/
+edifact.PRODAT.A0137Z.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2007/02/01/
+edifact.PRODAT.A0138Z.namespace=rep.oio.dk/medcom.dk/xml/schemas/2008/09/17/
+edifact.PRODAT.A0139Z.namespace=rep.oio.dk/medcom.dk/xml/schemas/2010/07/01/
+edifact.MEDRUC.U0131U.namespace=rep.oio.dk/medcom.dk/xml/schemas/2010/07/01/
+edifact.MEDRUC.U1031U.namespace=rep.oio.dk/medcom.dk/xml/schemas/2010/07/01/
+edifact.MEDRPT.R0130K.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2007/02/01/
+edifact.MEDRPT.R0230M.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2007/02/01/
+edifact.MEDREQ.Q0131K.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2006/07/01/
+edifact.MEDREQ.Q0131K.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2006/07/01/
+edifact.MEDDIS.D9134L.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2006/07/01/
+edifact.MEDDIS.D9034L.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2009/08/01/
+edifact.*.*.namespace=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2005/08/07/
+
+namespace.default=rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2005/08/07/
+
+*MAPNING AF NAMESPACE TIL SCHEMA- OG XSLT-FILER
+namespace.[rep.oio.dk/medcom.dk/xml/schemas/2004/06/01/].schema.filename=2004/06/01/EMessage.xsd 
+namespace.[rep.oio.dk/medcom.dk/xml/schemas/2004/06/01/].xslt.xml2edi.filename=2004/06/01/XML2EDI/Emessage_2_XML11.xslt
+namespace.[rep.oio.dk/medcom.dk/xml/schemas/2004/06/01/].xslt.edi2xml.filename=2004/06/01/EDI2XML/XML11_2_Emessage.xslt
+
+namespace.[rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2005/08/07/].schema.filename=2005/08/07/EMessage.xsd 
+namespace.[rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2005/08/07/].xslt.xml2edi.filename=2005/08/07/XML2EDI/Emessage_2_XML11.xslt
+namespace.[rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2005/08/07/].xslt.edi2xml.filename=2005/08/07/EDI2XML/XML11_2_Emessage.xslt
+namespace.[rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2006/07/01/].schema.filename=2006/07/01/EMessage.xsd 
+namespace.[rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2006/07/01/].xslt.xml2edi.filename=2006/07/01/XML2EDI/Emessage_2_XML11.xslt
+namespace.[rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2006/07/01/].xslt.edi2xml.filename=2006/07/01/EDI2XML/XML11_2_Emessage.xslt
+namespace.[rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2007/02/01/].schema.filename=2007/02/01/EMessage.xsd 
+namespace.[rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2007/02/01/].xslt.xml2edi.filename=2007/02/01/XML2EDI/Emessage_2_XML11.xslt
+namespace.[rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2007/02/01/].xslt.edi2xml.filename=2007/02/01/EDI2XML/XML11_2_Emessage.xslt
+
+namespace.[rep.oio.dk/medcom.dk/xml/schemas/2008/09/17/].schema.filename=2008/09/17/EMessage.xsd 
+namespace.[rep.oio.dk/medcom.dk/xml/schemas/2008/09/17/].xslt.xml2edi.filename=2008/09/17/XML2EDI/Emessage_2_XML11.xslt
+namespace.[rep.oio.dk/medcom.dk/xml/schemas/2008/09/17/].xslt.edi2xml.filename=2008/09/17/EDI2XML/XML11_2_Emessage.xslt
+
+namespace.[rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2009/08/01/].schema.filename=2009/08/01/EMessage.xsd 
+namespace.[rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2009/08/01/].xslt.xml2edi.filename=2009/08/01/XML2EDI/Emessage_2_XML11.xslt
+namespace.[rep.oio.dk/sundcom.dk/medcom.dk/xml/schemas/2009/08/01/].xslt.edi2xml.filename=2009/08/01/EDI2XML/XML11_2_Emessage.xslt
+
+namespace.[rep.oio.dk/medcom.dk/xml/schemas/2010/07/01/].schema.filename=2010/07/01/EMessage.xsd 
+namespace.[rep.oio.dk/medcom.dk/xml/schemas/2010/07/01/].xslt.xml2edi.filename=2010/07/01/XML2EDI/Emessage_2_XML11.xslt
+namespace.[rep.oio.dk/medcom.dk/xml/schemas/2010/07/01/].xslt.edi2xml.filename=2010/07/01/EDI2XML/XML11_2_Emessage.xslt
+
+
+* S T R U K T U R   A F    E D I F A C T E R
+
+*STRUKTUR AF MEDRPT (LABSVAR)
+
+edifact.MEDRPT.*.hiddengrp.S16.GIS=S18
+edifact.MEDRPT.*.hiddengrp.S18.GIS=S18
+edifact.MEDRPT.*.hiddengrp.S20.GIS=S18
+*hvis der ikke er en parent gruppe er det under brevindhold
+edifact.MEDRPT.*.parentgrp.S20=S18
+
+*STRUKTUR AF MEDPRE (RECEPT)
+
+edifact.MEDPRE.*.hiddengrp.BrevIndhold.PNA=S01
+edifact.MEDPRE.*.hiddengrp.S01.PNA=S01
+edifact.MEDPRE.*.hiddengrp.S01.DTM=S02
+edifact.MEDPRE.*.hiddengrp.S02.GIS=S03
+edifact.MEDPRE.*.hiddengrp.S02.LIN=S04
+edifact.MEDPRE.*.hiddengrp.S03.LIN=S04
+edifact.MEDPRE.*.hiddengrp.S04.LIN=S04
+edifact.MEDPRE.*.hiddengrp.S06.LIN=S04
+edifact.MEDPRE.*.hiddengrp.S07.LIN=S04
+edifact.MEDPRE.*.hiddengrp.S04.EQN=S06
+edifact.MEDPRE.*.hiddengrp.S04.DSG=S07
+edifact.MEDPRE.*.hiddengrp.S06.DSG=S07
+edifact.MEDPRE.*.hiddengrp.S04.TOD=S08
+edifact.MEDPRE.*.hiddengrp.S06.TOD=S08
+edifact.MEDPRE.*.hiddengrp.S07.TOD=S08
+
+edifact.MEDPRE.*.parentgrp.S06=S04
+edifact.MEDPRE.*.parentgrp.S07=S04
+
+*STRUKTUR AF MEDRUC
+
+edifact.MEDRUC.*.hiddengrp.BrevIndhold.MOA=S01
+edifact.MEDRUC.*.hiddengrp.S01.NAD=S02
+edifact.MEDRUC.*.hiddengrp.S02.CTI=S03
+edifact.MEDRUC.*.hiddengrp.S03.BUS=S05
+edifact.MEDRUC.*.hiddengrp.S05.PNA=S07
+edifact.MEDRUC.*.hiddengrp.S07.CTI=S10
+edifact.MEDRUC.*.hiddengrp.S10.PRC=S12
+edifact.MEDRUC.*.hiddengrp.S12.RCS=S14
+edifact.MEDRUC.*.hiddengrp.S14.NAD=S15
+edifact.MEDRUC.*.hiddengrp.S14.CLI=S17
+edifact.MEDRUC.*.hiddengrp.S15.CLI=S17
+edifact.MEDRUC.*.hiddengrp.S17.RCS=S19
+edifact.MEDRUC.*.hiddengrp.S19.CLI=S17
+edifact.MEDRUC.*.hiddengrp.S19.BUS=S05
+
+edifact.MEDRUC.*.parentgrp.S07=S05
+edifact.MEDRUC.*.parentgrp.S10=S05
+edifact.MEDRUC.*.parentgrp.S12=S05
+edifact.MEDRUC.*.parentgrp.S14=S05
+edifact.MEDRUC.*.parentgrp.S15=S05
+edifact.MEDRUC.*.parentgrp.S17=S05
+edifact.MEDRUC.*.parentgrp.S19=S17
+
+*STRUKTUR AF MEDREQ (REKVISITION)
+
+edifact.MEDREQ.*.hiddengrp.S15.GIS=S17
+edifact.MEDREQ.*.hiddengrp.S17.GIS=S17
+
+*STRUKTUR AF PRODAT
+
+edifact.PRODAT.*.hiddengrp.BrevIndhold.RFF=S03
+edifact.PRODAT.*.hiddengrp.S03.NAD=S04
+edifact.PRODAT.*.hiddengrp.S04.LIN=S08
+edifact.PRODAT.*.hiddengrp.S08.IMD=S09
+edifact.PRODAT.*.hiddengrp.S09.LIN=S08
+edifact.PRODAT.*.parentgrp.S09=S08
+
+* V A L I D E R I N G S    O P S Æ T N I N G E R
+
+*ELEMENTER DER SKAL SORTERES INDEN EN SAMMENLIGNING, DA KONVERTERINGEN 'GLEMMER' ORDENEN
+
+edifact.unordered.count=4
+edifact.unordered.1.select=Edifact/Brev[UNH/Elm[2]/SubElm[1]='MEDREF']/BrevIndhold/S12/FTX
+edifact.unordered.1.orderby=Elm[1]/SubElm[1]
+edifact.unordered.2.select=Edifact/Brev[UNH/Elm[2]/SubElm[1]='MEDPRE']/BrevIndhold/S02/FTX
+edifact.unordered.2.orderby=Elm[1]/SubElm[1]
+edifact.unordered.3.select=Edifact/Brev[UNH/Elm[2]/SubElm[1]='MEDPRE']/BrevIndhold/S04/IMD
+edifact.unordered.3.orderby=Elm[2]/SubElm[1]
+edifact.unordered.4.select=Edifact/Brev[UNH/Elm[2]/SubElm[1]='MEDPRE']/BrevIndhold/S04/MEA
+edifact.unordered.4.orderby=Elm[1]/SubElm[1]
+
+*ELEMENTER DER IKKE KAN SAMMENLIGNES EFTER KONVERTERINGEN AF DEN ENE ELLER ANDEN GRUND
+
+edifact.notcomparable.count=2
+edifact.notcomparable.1.select=Edifact/Brev[UNH/Elm[2]/SubElm[1]='MEDREF']/BrevIndhold/S01[1]/SPR/Elm[2]/SubElm[2]
+edifact.notcomparable.2.select=Edifact/Brev[UNH/Elm[2]/SubElm[1]='MEDREF']/BrevIndhold/S01[1]/SPR/Elm[2]/SubElm[3]
+edifact.notcomparable.3.select=Edifact/Brev[UNH/Elm[2]/SubElm[1]='MEDREF']/BrevIndhold/S02[1]/DTM/Elm/SubElm[2]
+edifact.notcomparable.4.select=Edifact/Brev[UNH/Elm[2]/SubElm[1]='MEDREF']/BrevIndhold/S12/FTX
+
+
+*TING DER ER KLIPPET UD AF OPSÆTNINGEN
+
+*namespace.[rep.oio.dk/medcom.dk/xml/schemas/2003/04/04].schema.filename=2003/04/04/x1.xsd 
+*namespace.[rep.oio.dk/medcom.dk/xml/schemas/2003/04/04].xslt.xml2edi.filename=2003/04/04/xml2edi/x1.xslt
+
+*edifact.MEDDIS.D0133L.namespace=rep.oio.dk/medcom.dk/xml/schemas/2003/05/02/
+*edifact.MEDDIS.*.namespace=rep.oio.dk/medcom.dk/xml/schemas/2003/05/02/
+
+

data/edifact_converter.gemspec

@@ -0,0 +1,27 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'edifact_converter/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "edifact_converter"
+  spec.version       = EdifactConverter::VERSION
+  spec.authors       = ["Jacob Glasdam"]
+  spec.email         = ["jacob@medware.dk"]
+  spec.summary       = %q{Converts an edifact file to simple xml.}
+  spec.description   = %q{Converts an edifact file to simple xml and the other way.}
+  spec.homepage      = "http://www.medware.dk"
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files -z`.split("\x0")
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 1.5"
+  spec.add_development_dependency "rubycritic", '~> 1.3.0'
+  spec.add_development_dependency 'equivalent-xml', '~> 0.5', '>= 0.5.1'
+  spec.add_development_dependency 'rake', '~> 10.1', '>= 10.1.0'
+  spec.add_runtime_dependency 'nokogiri', '~> 1.6', '>= 1.6.1'
+  spec.add_runtime_dependency 'diffy', '~> 3.0.5', '>= 3.0.5'
+end

data/lib/edifact_converter/abstract_syntax_tree.rb

@@ -0,0 +1,97 @@
+require 'edifact_converter/comparator'
+
+module EdifactConverter
+
+  class AbstractSyntaxTree
+
+    attr_accessor :document
+
+    def initialize(document)
+      self.document = document
+      raise 'hell' unless document
+    end
+
+    def pack
+      pack_root(document.root) if document.root
+    end
+
+    def compare(document, &proc)
+      Comparator.new.compare_docs(self.document, document, &proc)
+    end
+
+    def verify_segments_checksum(&proc)
+      errors = []
+      proc ||= Proc.new { |n| errors << n }
+      document.xpath("//Brev").each do |brev|
+        sum = count_segments brev
+        unt = brev.at("UNT/Elm[1]/SubElm/text()") || '0'
+          if sum != unt.to_s.to_i
+            proc.call(
+              Difference.new(
+                source: brev.at("UNT"),
+                facit: sum,
+                kind: :unt
+              )
+            )
+          end
+      end
+      errors
+    end
+
+    def set_checksums
+      document.xpath("//Brev").each do |brev|
+        sum = count_segments(brev)
+        brev.xpath("UNT/Elm[1]/SubElm").each do |elm|
+          elm.content = sum
+        end
+      end
+    end
+
+    private
+
+    def pack_root(root)
+      root.elements.each do |segment|
+        pack_segment segment
+      end
+    end
+
+    def pack_element(element)
+      element.elements.reverse.each do |subelm|
+        if subelm.children.empty?
+          subelm.unlink
+        else
+          break
+        end
+      end
+    end
+
+    def pack_segment(segment)
+      if 'Elm' == last_child_name(segment)
+        segment.elements.each { |elm| pack_element elm }
+        segment.elements.reverse.each do |elm|
+          break if elm.elements.any?
+          elm.unlink
+        end
+      else
+        segment.elements.each do |child|
+          pack_segment(child)
+        end
+      end
+    end
+
+    def last_child_name(element)
+      element.last_element_child && element.last_element_child.name
+    end
+
+    def count_segments(letter)
+      sum = 0
+      letter.traverse do |elm|
+        next if not(elm.element?) || elm.name == "OBJ" || elm['hidden']
+        sum += 1 if elm.name =~ /[A-Z][A-Z0-9]{2}/
+      end
+      sum
+    end
+
+  end
+
+end

data/lib/edifact_converter/binary.rb

@@ -0,0 +1,69 @@
+require 'base64'
+
+module EdifactConverter
+
+  class Binary
+
+    MIME_TYPES = { 
+      "pcx" => 'image/x-pcx',
+      "tiff" => 'image/tiff',
+      "jpeg" => 'image/jpeg',
+      "gif" => 'image/gif',
+      "bmp" => 'image/bmp',
+      "png" => 'image/png',
+      "mpg" => 'video/mpeg',
+      "dcm" => 'application/dicom',
+      "scp" => 'application/dicom',
+      "txt" => 'text/plain',
+      "rtf" => 'text/rtf',
+      "doc" => 'application/msword',
+      "xls" => 'application/vnd.ms-excel',
+      "wpd" => 'application/wordperfect',
+      "exe" => 'application/octet-stream',
+      "pdf" => 'application/pdf',
+      "wav" => 'audio/wav',
+      "avi" => 'video/avi',
+      "mid" => 'audio/midi',
+      "rmi" => 'audio/mid',
+      "com" => 'application/octet-stream',
+      "zip" => 'application/zip',
+      'bin' => 'application/octet-stream',
+      'inh' => 'application/octet-stream',
+      'fnx' => 'application/zip'
+       }
+
+    ATTRIBUTES = [:base64, :code, :extension, :size, :identifier]
+
+    ATTRIBUTES.each do |attribute|
+      attr_accessor attribute
+    end
+
+    def initialize(options)
+      options.each do |name, value|
+        if ATTRIBUTES.include? name.to_sym
+          send "#{name}=", value
+        end
+      end
+    end
+
+    def binary
+      Base64.decode64 base64 
+    end
+
+    def mime_type
+      MIME_TYPES.fetch extension, "application/octet-stream" 
+    end
+
+    def self.from_element(element)
+      self.new(
+        base64: element.at("Object_Base64Encoded/text()").to_s,
+        code: element.at("ObjectCode/text()").to_s,
+        extension: element.at("ObjectExtensionCode/text()").to_s,
+        size: element.at("OriginalObjectSize/text()").to_s,
+        identifier: element.at("ObjectIdentifier/text()").to_s
+        )
+    end
+
+  end
+
+end

data/lib/edifact_converter/command_line_parser.rb

@@ -0,0 +1,72 @@
+require 'optparse'
+require 'pathname'
+
+module EdifactConverter
+  class CommandLineParser
+
+    class << self
+      attr_writer :options
+
+      def options
+        @options ||= {}
+      end
+
+      def parser
+        @parser ||= begin
+          OptionParser.new do|opts|
+            opts.banner = "Usage: #{$COMMAND_NAME} [options] file"
+            opts.on( '-x', '--xml', 'Convert from Edifact to XML' ) do
+              options[:source] = :edifact
+            end
+            opts.on( '-e', '--edi', 'Convert from XML to Edifact' ) do
+              options[:source] = :xml
+            end
+            opts.on( '-1', '--xml11', 'Only convert to XML 1-1') do
+              options[:xml11] = true
+            end
+            opts.on( '-f', '--format', 'Format edifact output with newlines') do
+              options[:format] = true
+            end
+            opts.on( '--html', 'Only convert to XML 1-1') do
+              options[:html] = true
+            end
+            opts.on( '-l', '--logfile FILE', 'Write log to FILE' ) do |file|
+              options[:logfile] = file
+            end
+            opts.on( '-o', '--output FILE', 'Write output to FILE' ) do |file|
+              options[:to_file] = file
+            end
+            opts.on( '-v', '--version', "Prints version of #{$COMMAND_NAME}") do
+              puts "#{$COMMAND_NAME} version #{VERSION}"
+              exit
+            end
+            opts.on( '-h', '--help', 'Display this screen' ) do
+              puts opts
+              exit
+            end
+          end
+        end
+
+      end
+
+      def parse
+        parser.parse!
+        if ARGV.size != 1
+          puts "Wrong number of arguments, run #{$COMMAND_NAME} -h for a list of possible arguments."
+          exit
+        end
+        options[:input] = Pathname.new ARGV.first
+        unless options[:source]
+          if options[:input].extname =~ /xml/
+            options[:source] = :xml
+          else
+            options[:source] = :edifact
+          end
+        end
+        options
+      end
+
+    end
+
+  end
+end

data/lib/edifact_converter/comparator.rb

@@ -0,0 +1,194 @@
+require "diffy"
+require "edifact_converter/difference"
+require "edifact_converter/ftx_text"
+
+module EdifactConverter
+
+  class Comparator
+
+    def initialize
+      self.errors = []
+    end
+
+    def compare_docs(source, result, &proc)
+      source = source.dup
+      result = result.dup
+      self.error_proc = proc || Proc.new { |n| :errors << n }
+      if source.root.name == result.root.name
+        order_s12_ftxs(source)
+        order_s12_ftxs(result)
+        verify_texts(source, result)
+        compare_children source.root, result.root
+      else
+        error_proc.call(
+          Difference.new(
+            source: source.root,
+            facit: result.root,
+            kind: :root,
+            type: only_warn ? :warnings : :errors
+          )
+        )
+      end
+      errors
+    end
+
+    private
+
+    attr_accessor :error_proc, :errors, :only_warn
+
+    def compare_elements(source, facit)
+      return unless children? source, facit
+      source_elms = source.element_children
+      facit_elms = facit.element_children
+      source_str = elms_to_s source_elms
+      facit_str = elms_to_s facit_elms
+      diff_str source_str, facit_str do |source_i, facit_i, kind|
+        source_elm = source_elms[source_i] || source_elms.last
+        facit_elm = facit_elms[facit_i] || facit_elms.last
+        if kind == :equal
+          compare_children source_elm, facit_elm
+        else
+          error_proc.call(
+            Difference.new(
+              source: source_elm,
+              facit: facit_elm,
+              kind: kind,
+              type: only_warn ? :warnings : :errors
+            )
+          )
+        end
+      end
+    end
+
+    def compare_subelms(source, facit)
+      unless source.text == facit.text
+        error_proc.call (
+          Difference.new(
+            source: source,
+            facit: facit,
+            kind: :text,
+            type: only_warn ? :warnings : :errors
+          )
+        )
+      end
+    end
+
+    def compare_children(source, facit)
+      case source.name
+      when 'SubElm'
+        compare_subelms(source, facit)
+      when 'FTX'
+        self.only_warn = true
+        compare_elements(source, facit)
+        self.only_warn = false
+      else
+        compare_elements(source, facit)
+      end
+    end
+
+    def diff_str(source, facit)
+      source_index = facit_index = 0
+      Diffy::Diff.new(source, facit, :allow_empty_diff => false).each do |line|
+        case line
+        when /^ /
+          yield source_index, facit_index, :equal
+        when /^\+/
+          yield source_index, facit_index, :added
+          source_index -= 1
+        when /^-/
+          yield source_index, facit_index, :removed
+          facit_index -= 1
+        end
+        facit_index += 1
+        source_index += 1
+      end
+    end
+
+    def children?(source, facit)
+      source_elms = source.element_children
+      result_elms = facit.element_children
+      case
+      when source_elms.empty? && result_elms.empty?
+        false
+      when source_elms.empty?
+        error_proc.call(
+          Difference.new(
+            source: source,
+            facit: facit,
+            kind: :added_children,
+            type: only_warn ? :warnings : :errors
+          )
+        )
+        false
+      when result_elms.empty?
+        error_proc.call(
+          Difference.new(
+            source: source,
+            facit: facit,
+            kind: :removed_children,
+            type: only_warn ? :warnings : :errors
+          )
+        )
+        false
+      else
+        true
+      end
+    end
+
+    def elms_to_s(elements)
+      str = elements.map { |element| element.name }.join("\n")
+      str << "\n"
+    end
+
+    def verify_texts(source, facit)
+      source_s14 = combine_ftxs source.xpath("//S14/FTX")
+      facit_s14 = combine_ftxs facit.xpath("//S14/FTX")
+      source_s12 = combine_ftxs source.xpath("//S12/FTX")
+      facit_s12 = combine_ftxs facit.xpath("//S12/FTX")
+      unless source_s14 == facit_s14
+        error_proc.call(
+          Difference.new(
+            kind: :text,
+            type: :errors,
+            message: "Tekst i segment gruppe 14 bliver ikke ens konverteret!"
+          )
+        )
+      end
+      unless source_s12 == facit_s12
+        error_proc.call(
+          Difference.new(
+            kind: :text,
+            type: :errors,
+            message: "Tekst i segment gruppe 12 bliver ikke ens konverteret!"
+          )
+        )
+      end
+    end
+
+    def combine_ftxs(ftxs)
+      chunked = ftxs.chunk { |ftx| ftx.xpath('Elm[1]/SubElm/text()').to_s }.to_a
+      chunked.map do |set|
+        [ set.first, FTXText.parse(set.last)]
+      end
+    end
+
+    def order_s12_ftxs(xml)
+      ftxs = xml.xpath("//S12/FTX")
+      return xml unless ftxs.any?
+      ftxs.each { |ftx| ftx.unlink }
+      s12s = xml.xpath("//S12")
+      s12s.each_with_index do |s12, index|
+        next if index == 0
+        s12.unlink
+      end
+      s12 = s12s.first
+      ftx_sets = ftxs.chunk { |ftx| ftx.xpath("Elm[1]/SubElm/text()").first.to_s }.to_a
+      ftx_sets = ftx_sets.sort_by { |set| set.first }
+      ftxs = ftx_sets.map { |set| set.last }.flatten
+      ftxs.each { |ftx| s12 << ftx }
+      xml
+    end
+
+  end
+
+end

data/lib/edifact_converter/configuration/edifact_rule.rb

@@ -0,0 +1,38 @@
+require 'edifact_converter/configuration'
+
+module EdifactConverter::Configuration
+
+  class EdifactRule
+
+    ATTRIBUTES = [:hidden, :children]
+
+    attr_accessor *ATTRIBUTES #:hidden, :children
+
+    def initialize(hidden = {}, children = [] )
+      self.hidden = hidden
+      self.children = children
+    end
+
+    def register_hidden(hidden)
+      self.hidden.merge! hidden if hidden
+    end
+
+    def register_child(child)
+      children << child if child
+    end
+
+    def register_children(children)
+      self.children.concat(children).uniq! if children
+    end
+
+    def hidden?(name)
+      hidden.has_key? name
+    end
+
+    def child?(name)
+      children.include? name
+    end
+
+  end
+
+end