X12 0.0.5

data/lib/X12/Composite.rb

@@ -0,0 +1,37 @@
+#--
+#     This file is part of the X12Parser library that provides tools to
+#     manipulate X12 messages using Ruby native syntax.
+#
+#     http://x12parser.rubyforge.org 
+#     
+#     Copyright (C) 2008 APP Design, Inc.
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+#
+module X12
+
+  # $Id: Composite.rb 35 2008-11-13 18:33:44Z ikk $
+  #
+  # Class implementing a composite field.
+
+  class Composite < Base
+
+    # Make a printable representation of the composite
+    def inspect
+      "Composite "+super.inspect
+    end
+  end
+end

data/lib/X12/Empty.rb

@@ -0,0 +1,43 @@
+#--
+#     This file is part of the X12Parser library that provides tools to
+#     manipulate X12 messages using Ruby native syntax.
+#
+#     http://x12parser.rubyforge.org 
+#     
+#     Copyright (C) 2008 APP Design, Inc.
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+#
+module X12
+
+  # $Id: Empty.rb 35 2008-11-13 18:33:44Z ikk $
+  #
+  # Class indicating the absense of any X12 element, be it loop, segment, or anything else like that.
+
+  class Empty < Base
+
+    # Create a new empty
+    def initialize
+      super(nil, [])
+    end
+
+    # Returns an empty string
+    def to_s
+      ''
+    end
+
+  end # Empty
+end # X12

data/lib/X12/Field.rb

@@ -0,0 +1,81 @@
+#--
+#     This file is part of the X12Parser library that provides tools to
+#     manipulate X12 messages using Ruby native syntax.
+#
+#     http://x12parser.rubyforge.org 
+#     
+#     Copyright (C) 2008 APP Design, Inc.
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+#
+module X12
+
+  # $Id: Field.rb 35 2008-11-13 18:33:44Z ikk $
+  #
+  # Class to represent a segment field. Please note, it's not a descendant of Base.
+
+  class Field
+    attr_reader :name, :type, :required, :min_length, :max_length, :validation
+    attr_writer :content
+
+    # Create a new field with given parameters
+    def initialize(name, type, required, min_length, max_length, validation)
+      @name       = name       
+      @type       = type       
+      @required   = required == 'R' ? true : false   
+      @min_length = min_length.to_i
+      @max_length = max_length.to_i 
+      @validation = validation
+      @content = nil
+    end
+
+    # Returns printable string with field's content
+    def inspect
+      "Field #{name}|#{type}|#{required}|#{min_length}-#{max_length}|#{validation} <#{@content}>"
+    end
+
+    # Synonym for 'render'
+    def to_s
+      render
+    end
+
+    def render
+      # FIXME - this is for debug only
+      @content || ''
+    end # render
+
+    # Check if it's been set yet
+    def has_content?
+      !@content.nil?
+    end
+
+    # Erase the content
+    def set_empty!
+      @content = nil
+    end
+
+#     def to_regexp
+#       r = case type
+#           when 'I' : "\\d{#{min_length},#{max_length}}"
+#           when 'S' : ".{#{min_length},#{max_length}}"
+#           when /C.*/ : 'composite'
+#           when /"(.*)"/ : $1
+#           else ''
+#           end # case
+#       Regexp.new("#{CONSTANT[:field]}#{r}")
+#     end
+  end
+end

data/lib/X12/Loop.rb

@@ -0,0 +1,74 @@
+#--
+#     This file is part of the X12Parser library that provides tools to
+#     manipulate X12 messages using Ruby native syntax.
+#
+#     http://x12parser.rubyforge.org 
+#     
+#     Copyright (C) 2008 APP Design, Inc.
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+#
+module X12
+
+  # $Id: Loop.rb 35 2008-11-13 18:33:44Z ikk $
+  #
+  # Implements nested loops of segments
+
+  class Loop < Base
+
+#     def regexp
+#       @regexp ||= 
+#         Regexp.new(inject(''){|s, i|
+#                      puts i.class
+#                      s += case i
+#                           when X12::Segment: "(#{i.regexp.source}){#{i.repeats.begin},#{i.repeats.end}}"
+#                           when X12::Loop:    "(.*?)"
+#                           else
+#                             ''
+#                           end
+#                    })
+#     end
+
+    # Parse a string and fill out internal structures with the pieces of it. Returns 
+    # an unparsed portion of the string or the original string if nothing was parsed out.
+    def parse(str)
+      #puts "Parsing loop #{name}: "+str
+      s = str
+      nodes.each{|i|
+        m = i.parse(s)
+        s = m if m
+      } 
+      if str == s
+        return nil
+      else
+        self.parsed_str = str[0..-s.length-1]
+        s = do_repeats(s)
+      end
+      #puts 'Parsed loop '+self.inspect
+      return s
+    end # parse
+
+    # Render all components of this loop as string suitable for EDI
+    def render
+      self.to_a.inject(''){|loop_str, i|
+        loop_str += i.nodes.inject(''){|nodes_str, j|
+          nodes_str += j.render
+        } 
+      }
+    end # render
+
+  end # Loop
+end # X12

data/lib/X12/Parser.rb

@@ -0,0 +1,98 @@
+#--
+#     This file is part of the X12Parser library that provides tools to
+#     manipulate X12 messages using Ruby native syntax.
+#
+#     http://x12parser.rubyforge.org 
+#     
+#     Copyright (C) 2008 APP Design, Inc.
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+#
+module X12
+
+  # $Id: Parser.rb 35 2008-11-13 18:33:44Z ikk $
+  #
+  # Main class for creating X12 parsers and factories.
+
+  class Parser
+
+    # Creates a parser out of a definition
+    def initialize(file_name)
+      str = File.open(file_name, 'r').read
+      treetop_parser = X12::X12syntaxParser.new
+      res = treetop_parser.parse(str)
+      throw Exception.new("Cannot parse X12 definition in #{file_name}") unless res
+      @x12_definition = res.get
+
+      # Populate fields in all segments found in all the loops
+      @x12_definition[X12::Loop].each_pair{|k, v|
+        #puts "Processing loop #{k}"
+        process_loop(v)
+      }
+#       @x12_definition.keys.each{|t|
+#         puts "**** #{t}"
+        
+#         case 
+#           when t==X12::Segment: @x12_definition[t].each{|i| puts i.inspect; puts i.regexp.source}
+#           when t==X12::Loop:    @x12_definition[t].each{|i| puts i.inspect.gsub(/\\*\"/, '"') ; puts i.regexp.source}
+#         else
+#           puts @x12_definition[t].inspect
+#         end
+#         puts "\n\n"
+#       }
+
+    end
+
+    # Parse a loop of a given name out of a string. Throws an exception if the loop name is not defined.
+    def parse(loop_name, str)
+      loop = @x12_definition[X12::Loop][loop_name]
+      throw Exception.new("Cannot find a definition for loop #{loop_name}") unless loop
+      loop = loop.dup
+      loop.parse(str)
+      return loop
+    end # parse
+
+    # Make an empty loop to be filled out with information
+    def factory(loop_name)
+      loop = @x12_definition[X12::Loop][loop_name]
+      throw Exception.new("Cannot find a definition for loop #{loop_name}") unless loop
+      loop = loop.dup
+      return loop
+    end # factory
+
+    # Recursively scan the loop and instantiate fields' definitions for all its
+    # segments
+    def process_loop(loop)
+      loop.nodes.each{|i|
+        case i
+          when X12::Loop: process_loop(i)
+          when X12::Segment: process_segment(i)
+          else return
+        end
+      }
+    end
+
+    # Instantiate segment's fields as previously defined
+    def process_segment(segment)
+      segment_definition = @x12_definition[X12::Segment][segment.name]
+      return unless segment_definition
+      segment_definition.nodes.each_index{|i|
+        segment.nodes[i] = segment_definition.nodes[i] 
+      }
+    end
+
+  end # Parser
+end

data/lib/X12/Segment.rb

@@ -0,0 +1,92 @@
+#--
+#     This file is part of the X12Parser library that provides tools to
+#     manipulate X12 messages using Ruby native syntax.
+#
+#     http://x12parser.rubyforge.org 
+#     
+#     Copyright (C) 2008 APP Design, Inc.
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+#
+module X12
+
+  # $Id: Segment.rb 35 2008-11-13 18:33:44Z ikk $
+  #
+  # Implements a segment containing fields or composites
+    
+  class Segment < Base
+
+    # Parses this segment out of a string, puts the match into value, returns the rest of the string - nil
+    # if cannot parse
+    def parse(str)
+      s = str
+      #puts "Parsing segment #{name} from #{s} with regexp [#{regexp.source}]"
+      m = regexp.match(s)
+      #puts "Matched #{m ? m[0] : 'nothing'}"
+      
+      return nil unless m
+
+      s = m.post_match
+      self.parsed_str = m[0]
+      s = do_repeats(s)
+
+      #puts "Parsed segment "+self.inspect
+      return s
+    end # parse
+
+    # Render all components of this segment as string suitable for EDI
+    def render
+      self.to_a.inject(''){|repeat_str, i|
+        if i.repeats.begin < 1 and !i.has_content?
+          # Skip optional empty segments
+          repeat_str
+        else
+          # Have to render no matter how empty
+          repeat_str += i.name+i.nodes.reverse.inject(''){|nodes_str, j|
+            field = j.render
+            (j.required or nodes_str != '' or field != '') ? field_separator+field+nodes_str : nodes_str
+          } + segment_separator
+        end
+      }
+    end # render
+
+    # Returns a regexp that matches this particular segment
+    def regexp
+      @regexp ||= Regexp.new("^#{name}#{Regexp.escape(field_separator)}[^#{Regexp.escape(segment_separator)}]*#{Regexp.escape(segment_separator)}")
+    end
+
+    # Finds a field in the segment. Returns EMPTY if not found.
+    def find_field(str)
+      #puts "Finding field [#{str}] in #{self.class} #{name}"
+      # If there is such a field to begin with
+      field_num = nil
+      self.nodes.each_index{|i|
+        field_num = i if str == self.nodes[i].name
+      }
+      return EMPTY if field_num.nil?
+      #puts field_num
+
+      # Parse the segment if not parsed already
+      unless @fields
+        @fields = self.to_s.chop.split(Regexp.new(Regexp.escape(field_separator)))
+        self.nodes.each_index{|i| self.nodes[i].content = @fields[i+1] }
+      end
+      #puts self.nodes[field_num].inspect
+      return self.nodes[field_num]
+    end
+
+  end # Segment
+end # X12

data/lib/X12/Table.rb

@@ -0,0 +1,44 @@
+#--
+#     This file is part of the X12Parser library that provides tools to
+#     manipulate X12 messages using Ruby native syntax.
+#
+#     http://x12parser.rubyforge.org 
+#     
+#     Copyright (C) 2008 APP Design, Inc.
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+#
+module X12
+
+  # $Id: Table.rb 35 2008-11-13 18:33:44Z ikk $
+  #
+  # This just a named hash to store validation tables.
+
+  class Table < Hash
+    attr_reader :name
+
+    # Create a new table with given name and hash content.
+    def initialize(name, name_values)
+      @name = name       
+      self.merge!(name_values)
+    end
+
+    # Return a printable string representing this table
+    def inspect
+      "Table #{name} -- #{super.inspect}"
+    end
+  end
+end