stupidedi 1.3.21 → 1.3.22

data/lib/stupidedi/schema/loop_def.rb

@@ -142,7 +142,24 @@ module Stupidedi
           raise Exceptions::InvalidSchemaError,
             "first child must be a SegmentUse"
         elsif header.head.repeat_count.include?(2)
-          "first child must have RepeatCount.bounded(1)"
+          raise Exceptions::InvalidSchemaError,
+            "first child must have RepeatCount.bounded(1)"
+        end
+
+        trailer.each.with_index do |s, k|
+          unless s.segment?
+            if s.respond_to?(:pretty_inspect)
+              raise Exceptions::InvalidSchemaError,
+                "arguments after last child LoopDef (#{loop_defs.last.id}) " +
+                "must be segments, but #{k+1} arguments later is not a "  +
+                "SegmentUse: #{s.pretty_inspect}"
+            else
+              raise Exceptions::InvalidSchemaError,
+                "arguments after last child LoopDef (#{loop_defs.last.id}) " +
+                "must be segments, but #{k+1} arguments later is not a "  +
+                "SegmentUse: #{s.inspect}"
+            end
+          end
         end
 
         new(id, repeat_count, header, loop_defs, trailer, nil)

data/lib/stupidedi/schema/transaction_set_def.rb

@@ -84,6 +84,18 @@ module Stupidedi
 
       # @return [TransactionSetDef]
       def build(functional_group, id, name, *table_defs)
+        table_defs.each.with_index do |t, k|
+          unless t.table?
+            if t.respond_to?(:pretty_inspect)
+              raise Exceptions::InvalidSchemaError,
+                "argument #{k+4} is not a TableDef: #{t.pretty_inspect}"
+            else
+              raise Exceptions::InvalidSchemaError,
+                "argument #{k+4} is not a TableDef: #{t.inspect}"
+            end
+          end
+        end
+
         new(functional_group, id, name, table_defs)
       end
     end

data/lib/stupidedi/version.rb

@@ -1,5 +1,5 @@
 # frozen_string_literal: true
 
 module Stupidedi
-  VERSION = "1.3.21"
+  VERSION = "1.3.22"
 end

data/lib/stupidedi/versions/functional_groups/004010/transaction_set_defs/HP835.rb

@@ -20,21 +20,14 @@ module Stupidedi
               s::TRN.use(400, r::Optional,  d::RepeatCount.bounded(1)),
               s::CUR.use(500, r::Optional,  d::RepeatCount.bounded(1)),
               s::REF.use(600, r::Optional,  d::RepeatCount.bounded(1)),
-              s::REF.use(600, r::Optional,  d::RepeatCount.bounded(1)),
               s::DTM.use(700, r::Optional,  d::RepeatCount.bounded(1)),
 
-              d::LoopDef.build("1000A", d::RepeatCount.bounded(1),
+              d::LoopDef.build("1000", d::RepeatCount.bounded(200),
                 s:: N1.use( 800, r::Mandatory, d::RepeatCount.bounded(1)),
                 s:: N3.use(1000, r::Mandatory, d::RepeatCount.bounded(1)),
                 s:: N4.use(1100, r::Mandatory, d::RepeatCount.bounded(1)),
                 s::REF.use(1200, r::Optional,  d::RepeatCount.bounded(4)),
-                s::PER.use(1300, r::Optional,  d::RepeatCount.bounded(1))),
-
-              d::LoopDef.build("1000B", d::RepeatCount.bounded(1),
-                s:: N1.use( 800, r::Mandatory, d::RepeatCount.bounded(1)),
-                s:: N3.use(1000, r::Optional, d::RepeatCount.bounded(1)),
-                s:: N4.use(1100, r::Optional, d::RepeatCount.bounded(1)),
-                s::REF.use(1200, r::Optional, d::RepeatCount.unbounded))),
+                s::PER.use(1300, r::Optional,  d::RepeatCount.bounded(1)))),
 
             d::TableDef.detail("Table 2 - Detail",
               d::LoopDef.build("2000", d::RepeatCount.unbounded,
@@ -45,15 +38,9 @@ module Stupidedi
                 d::LoopDef.build("2100", d::RepeatCount.unbounded,
                   s::CLP.use(100, r::Mandatory, d::RepeatCount.bounded(1)),
                   s::CAS.use(200, r::Optional,  d::RepeatCount.bounded(99)),
-                  s::NM1.use(300, r::Mandatory, d::RepeatCount.bounded(1)),
-                  s::NM1.use(300, r::Optional,  d::RepeatCount.bounded(1)),
-                  s::NM1.use(300, r::Optional,  d::RepeatCount.bounded(1)),
-                  s::NM1.use(300, r::Optional,  d::RepeatCount.bounded(1)),
-                  s::NM1.use(300, r::Optional,  d::RepeatCount.bounded(1)),
-                  s::NM1.use(300, r::Optional,  d::RepeatCount.bounded(1)),
+                  s::NM1.use(300, r::Mandatory, d::RepeatCount.bounded(9)),
                   s::MIA.use(330, r::Optional,  d::RepeatCount.bounded(1)),
                   s::MOA.use(350, r::Optional,  d::RepeatCount.bounded(1)),
-                  s::REF.use(400, r::Optional,  d::RepeatCount.bounded(5)),
                   s::REF.use(400, r::Optional,  d::RepeatCount.bounded(10)),
                   s::DTM.use(500, r::Optional,  d::RepeatCount.bounded(4)),
                   s::PER.use(600, r::Optional,  d::RepeatCount.bounded(3)),
@@ -65,7 +52,6 @@ module Stupidedi
                     s::DTM.use( 800, r::Optional,  d::RepeatCount.bounded(3)),
                     s::CAS.use( 900, r::Optional,  d::RepeatCount.bounded(99)),
                     s::REF.use(1000, r::Optional,  d::RepeatCount.bounded(7)),
-                    s::REF.use(1000, r::Optional,  d::RepeatCount.bounded(10)),
                     s::AMT.use(1100, r::Optional,  d::RepeatCount.bounded(12)),
                     s::QTY.use(1200, r::Optional,  d::RepeatCount.bounded(6)),
                     s:: LQ.use(1300, r::Optional,  d::RepeatCount.bounded(99))))),

data/lib/stupidedi/versions/functional_groups/005010/element_types/time_val.rb

@@ -289,9 +289,10 @@ module Stupidedi
                 hour   = object.to_s.slice(0, 2).to_i
                 minute = object.to_s.slice(2, 2).try{|mm| mm.to_i unless mm.blank? }
                 second = object.to_s.slice(4, 2).try{|ss| ss.to_d unless ss.blank? }
+                decimal = object.to_s.slice(6..-1).try{|dd| dd.to_d unless dd.blank? }
 
-                if decimal = object.to_s.slice(6..-1)
-                  second += "0.#{decimal}".to_d
+                if decimal
+                  second += ("0.%02d" % decimal).to_d
                 end
 
                 self::NonEmpty.new(hour, minute, second, usage, position)

data/lib/stupidedi/versions/functional_groups/005010/segment_defs.rb

@@ -10,8 +10,8 @@ module Stupidedi
           autoload :AAA,
             "stupidedi/versions/functional_groups/005010/segment_defs/AAA"
 
-         autoload :ACT,
-           "stupidedi/versions/functional_groups/005010/segment_defs/ACT"
+          autoload :ACT,
+            "stupidedi/versions/functional_groups/005010/segment_defs/ACT"
 
           autoload :AK1,
             "stupidedi/versions/functional_groups/005010/segment_defs/AK1"
@@ -91,9 +91,12 @@ module Stupidedi
           autoload :DTP,
             "stupidedi/versions/functional_groups/005010/segment_defs/DTP"
 
- 	  autoload :EB,
+          autoload :EB,
             "stupidedi/versions/functional_groups/005010/segment_defs/EB"
 
+          autoload :EC,
+            "stupidedi/versions/functional_groups/005010/segment_defs/EC"
+
           autoload :EQ,
             "stupidedi/versions/functional_groups/005010/segment_defs/EQ"
 
@@ -114,9 +117,9 @@ module Stupidedi
 
           autoload :HLH,
             "stupidedi/versions/functional_groups/005010/segment_defs/HLH"
-	    
-	  autoload :III,
-            "stupidedi/versions/functional_groups/005010/segment_defs/III"  
+
+          autoload :III,
+            "stupidedi/versions/functional_groups/005010/segment_defs/III"
 
           autoload :ICM,
             "stupidedi/versions/functional_groups/005010/segment_defs/ICM"

data/lib/stupidedi/versions/functional_groups/005010/transaction_set_defs/HB271.rb

@@ -11,6 +11,15 @@ module Stupidedi
           r = SegmentReqs
           s = SegmentDefs
 
+          # NOTE: This definition is not usable as-is, because it references
+          # segments that we don't have definitions for. The HB270 and HB271
+          # *standards* refer to these, but the *implementation guide* doesn't
+          # use or include definitions for these: LUI, VEH, PID, PDR, PDP, EM,
+          # SD1, PKD, PCT.
+          #
+          # Furthermore, the 2120 NM1 loop is in conflict with the 2100 NM1
+          # loop because both don't have any constraints (the implementation
+          # guides do have the necessary constraints).
           HB271 = d::TransactionSetDef.build("HB", "271",
             "Eligibility, Coverage, or Benefit Information",
 
@@ -25,6 +34,9 @@ module Stupidedi
                 s::AAA.use(250, r::Optional,  d::RepeatCount.bounded(9)),
 
                 d::LoopDef.build("2100", d::RepeatCount.unbounded,
+                  # This NM1 needs to have a constraint on NM1-01 to avoid
+                  # ambiguity with 2120 NM1, but the particular constraints
+                  # need to be specified in the implementation guide
                   s::NM1.use( 300, r::Mandatory, d::RepeatCount.bounded(1)),
                   s::REF.use( 400, r::Optional,  d::RepeatCount.bounded(9)),
                   s:: N2.use( 500, r::Optional,  d::RepeatCount.bounded(1)),
@@ -67,17 +79,21 @@ module Stupidedi
                         s::AMT.use(3100, r::Optional,  d::RepeatCount.bounded(5)))),
                       # s::PCT.use(3200, r::Optional,  d::RepeatCount.bounded(5)))),
 
-                    s:: LS.use(3300, r::Optional,  d::RepeatCount.bounded(1)),
+                    d::LoopDef.build("2120 LS", d::RepeatCount.bounded(1),
+                      s:: LS.use(3300, r::Optional,  d::RepeatCount.bounded(1)),
 
-                    d::LoopDef.build("2120", d::RepeatCount.unbounded,
-                      s::NM1.use(3400, r::Optional,  d::RepeatCount.bounded(1)),
-                      s:: N2.use(3500, r::Optional,  d::RepeatCount.bounded(1)),
-                      s:: N3.use(3600, r::Optional,  d::RepeatCount.bounded(1)),
-                      s:: N4.use(3700, r::Optional,  d::RepeatCount.bounded(1)),
-                      s::PER.use(3800, r::Optional,  d::RepeatCount.bounded(3)),
-                      s::PRV.use(3900, r::Optional,  d::RepeatCount.bounded(1))),
+                      # d::LoopDef.build("2120", d::RepeatCount.unbounded,
+                      #   # This NM1 needs to have a constraint on NM1-01 to avoid
+                      #   # ambiguity with 2100 NM1, but the particular constraints
+                      #   # need to be specified in the implementation guide
+                      #   s::NM1.use(3400, r::Optional,  d::RepeatCount.bounded(1)),
+                      #   s:: N2.use(3500, r::Optional,  d::RepeatCount.bounded(1)),
+                      #   s:: N3.use(3600, r::Optional,  d::RepeatCount.bounded(1)),
+                      #   s:: N4.use(3700, r::Optional,  d::RepeatCount.bounded(1)),
+                      #   s::PER.use(3800, r::Optional,  d::RepeatCount.bounded(3)),
+                      #   s::PRV.use(3900, r::Optional,  d::RepeatCount.bounded(1))),
 
-                    s:: LE.use(4000, r::Optional,  d::RepeatCount.bounded(1)))))),
+                      s:: LE.use(4000, r::Optional,  d::RepeatCount.bounded(1))))))),
 
             d::TableDef.summary("Table 3 - Summary",
               s:: SE.use(4100, r::Mandatory, d::RepeatCount.bounded(1))))

data/lib/stupidedi/versions/functional_groups/005010/transaction_set_defs/HP835.rb

@@ -29,9 +29,9 @@ module Stupidedi
                 s:: N3.use(1000, r::Optional,  d::RepeatCount.unbounded),
                 s:: N4.use(1100, r::Optional,  d::RepeatCount.bounded(1)),
                 s::REF.use(1200, r::Optional,  d::RepeatCount.unbounded),
-                s::PER.use(1300, r::Optional,  d::RepeatCount.unbounded)),
+                s::PER.use(1300, r::Optional,  d::RepeatCount.unbounded),
                 s::RDM.use(1400, r::Optional,  d::RepeatCount.bounded(1)),
-                s::DTM.use(1500, r::Optional,  d::RepeatCount.bounded(1))),
+                s::DTM.use(1500, r::Optional,  d::RepeatCount.bounded(1)))),
 
             d::TableDef.detail("Table 2 - Detail",
               d::LoopDef.build("2000", d::RepeatCount.unbounded,

data/lib/stupidedi/zipper.rb

@@ -9,10 +9,29 @@ module Stupidedi
     autoload :EditedCursor,   "stupidedi/zipper/edited_cursor"
     autoload :MemoizedCursor, "stupidedi/zipper/memoized_cursor"
     autoload :RootCursor,     "stupidedi/zipper/root_cursor"
+    autoload :StackCursor,    "stupidedi/zipper/stack_cursor"
 
     autoload :AbstractPath, "stupidedi/zipper/path"
     autoload :Hole,         "stupidedi/zipper/path"
     autoload :Root,         "stupidedi/zipper/path"
+
+    # @todo
+    module Tree
+      class << self
+        def build(node)
+          Zipper::RootCursor.new(node)
+        end
+      end
+    end
+
+    # @todo
+    module Stack
+      class << self
+        def build(node)
+          Zipper::StackCursor.new(node, Zipper::Root, nil)
+        end
+      end
+    end
   end
 
   class << Zipper
@@ -22,7 +41,7 @@ module Stupidedi
 
     # @return [AbstractCursor]
     def build(node)
-      Zipper::RootCursor.new(node)
+      Zipper::Tree.build(node)
     end
   end
 

data/lib/stupidedi/zipper/memoized_cursor.rb

@@ -25,10 +25,12 @@ module Stupidedi
       # @group Querying the Tree Location
       #########################################################################
 
+      # (see AbstractCursor#leaf?)
       def leaf?
         @node.leaf? or @node.children.empty?
       end
 
+      # (see AbstractCursor#root?)
       def root?
         false
       end

data/lib/stupidedi/zipper/path.rb

@@ -7,6 +7,8 @@ module Stupidedi
 
     class AbstractPath
 
+      abstract :root?
+
       # @return [AbstractPath]
       abstract :parent
 
@@ -35,6 +37,10 @@ module Stupidedi
     # @private
     Root = Class.new(AbstractPath) do
 
+      def root?
+        true
+      end
+
       # @return self
       def parent
         self
@@ -93,6 +99,10 @@ module Stupidedi
           left, parent, right
       end
 
+      def root?
+        false
+      end
+
       # (see AbstractPath#last?)
       def last?
         @right.empty?

data/lib/stupidedi/zipper/root_cursor.rb

@@ -18,7 +18,7 @@ module Stupidedi
           node, Root
       end
 
-      # @group Query the Tree Location
+      # @group Querying the Tree Location
       #########################################################################
 
       # (see AbstractCursor#depth)

data/lib/stupidedi/zipper/stack_cursor.rb

@@ -0,0 +1,174 @@
+# frozen_string_literal: true
+
+module Stupidedi
+  using Refinements
+
+  module Zipper
+
+    class StackCursor < AbstractCursor
+
+      # @return [#leaf?, #children, #copy]
+      attr_reader :node
+
+      # @return [Hole]
+      attr_reader :path
+
+      # @private
+      # @return [AbstractCursor]
+      attr_reader :parent
+
+      def initialize(node, path, parent)
+        @node, @path, @parent =
+          node, path, parent
+      end
+
+      def copy(changes = {})
+        StackCursor.new \
+          changes.fetch(:node, @node),
+          changes.fetch(:path, @path),
+          changes.fetch(:parent, @parent)
+      end
+
+      # @group Querying the Tree Location
+      #########################################################################
+
+      # (see AbstractCursor#leaf?)
+      def leaf?
+        @node.leaf? or @node.children.empty?
+      end
+
+      # (see AbstractCursor#root?)
+      def root?
+        @path.root?
+      end
+
+      def between(other)
+        raise Exceptions::ZipperError,
+          "stack cursor doesn't support this method"
+      end
+
+      # @group Traversing the Tree
+      #########################################################################
+
+      # (see AbstractCursor#first)
+      def first
+        self
+      end
+
+      # (see AbstractCursor#last)
+      def last
+        self
+      end
+
+      # (see AbstractCursor#next)
+      # @return [void]
+      def next
+        raise Exceptions::ZipperError,
+          "stack cursor doesn't maintain siblings"
+      end
+
+      # (see AbstractCursor#prev)
+      # @return [void]
+      def prev
+        raise Exceptions::ZipperError,
+          "stack cursor doesn't maintain siblings"
+      end
+
+      # (see AbstractCursor#up)
+      def up
+        if root?
+          raise Exceptions::ZipperError,
+            "root node has no siblings"
+        end
+
+        @parent
+      end
+
+      # (see AbstractCursor#down)
+      def down
+        if leaf?
+          raise Exceptions::ZipperError,
+            "cannot descend into leaf node"
+        end
+
+        head, *tail = @node.children
+
+        unless tail.empty?
+          raise Exceptions::ZipperError,
+            "stack cursor doesn't support nodes with multiple children"
+        end
+
+        StackCursor.new(head, Hole.new([], @path, []), self)
+      end
+
+      # @group Editing the Tree
+      #########################################################################
+
+      # (see AbstractCursor#append)
+      # @return [void]
+      def append(node)
+        if root?
+          raise Exceptions::ZipperError,
+            "root node has no siblings"
+        end
+
+        replace(node)
+      end
+
+      # (see AbstractCursor#prepend)
+      # @return [void]
+      def prepend(node)
+        if root?
+          raise Exceptions::ZipperError,
+            "root node has no siblings"
+        end
+
+        replace(node)
+      end
+
+      def prepend_child(child)
+        StackCursor.new(child, Hole.new([], @path, []), self)
+      end
+
+      def append_child(child)
+        StackCursor.new(child, Hole.new([], @path, []), self)
+      end
+
+      # (see AbstractCursor#replace)
+      # @return [RootCursor]
+      def replace(node)
+        StackCursor.new(node, @path, @parent)
+      end
+
+      # (see AbstractCursor#delete)
+      # @return [void]
+      def delete
+        if root?
+          raise Exceptions::ZipperError,
+            "cannot delete root node"
+        end
+
+        @parent
+      end
+
+      def dangle
+        if leaf?
+          StackCursor.new(nil, Hole.new([], @path, []), self)
+        else
+          head, *tail = @node.children
+
+          unless tail.empty?
+            raise Exceptions::ZipperError,
+              "stack cursor doesn't support nodes with multiple children"
+          end
+
+          StackCursor.new(head, Hole.new([], @path, []), self)
+        end
+      end
+
+      # @endgroup
+      #########################################################################
+    end
+
+  end
+end