stupidedi 1.1.0 → 1.2.1

data/lib/stupidedi/versions/functional_groups/002001/element_types/identifier_val.rb

@@ -0,0 +1,373 @@
+module Stupidedi
+  module Versions
+    module FunctionalGroups
+      module TwoThousandOne
+        module ElementTypes
+
+          class ID < SimpleElementDef
+
+            # @return [Schema::CodeList]
+            attr_reader :code_list
+
+            def initialize(id, name, min_length, max_length, code_list = nil, description = nil, parent = nil)
+              super(id, name, min_length, max_length, description, parent)
+              @code_list = code_list
+            end
+
+            def companion
+              IdentifierVal
+            end
+
+            # @return [ID]
+            def copy(changes = {})
+              ID.new \
+                changes.fetch(:id, @id),
+                changes.fetch(:name, @name),
+                changes.fetch(:min_length, @min_length),
+                changes.fetch(:max_length, @max_length),
+                changes.fetch(:code_list, @code_list),
+                changes.fetch(:description, @description),
+                changes.fetch(:parent, @parent)
+            end
+
+            # @return [SimpleElementUse]
+            def simple_use(requirement, repeat_count, parent = nil)
+              if @code_list.try(:internal?)
+                Schema::SimpleElementUse.new(self, requirement, repeat_count, Sets.absolute(@code_list.codes), parent)
+              else
+                Schema::SimpleElementUse.new(self, requirement, repeat_count, Sets.universal, parent)
+              end
+            end
+
+            # @return [ComponentElementUse]
+            def component_use(requirement, parent = nil)
+              if @code_list.try(:internal?)
+                Schema::ComponentElementUse.new(self, requirement, Sets.absolute(@code_list.codes), parent)
+              else
+                Schema::ComponentElementUse.new(self, requirement, Sets.universal, parent)
+              end
+            end
+
+            def code_lists(subset = Sets.universal)
+              if @code_list.present?
+                @code_list.code_lists(subset)
+              else
+                Sets.empty
+              end
+            end
+          end
+
+          #
+          # @see X222.pdf B.1.1.3.1.3 Identifier
+          #
+          class IdentifierVal < Values::SimpleElementVal
+
+            def id?
+              true
+            end
+
+            def too_long?
+              false
+            end
+
+            def too_short?
+              false
+            end
+
+            # @return [IdentifierVal]
+            def map
+              IdentifierVal.value(yield(value), usage, position)
+            end
+
+            class Invalid < IdentifierVal
+
+              # @return [Object]
+              attr_reader :value
+
+              def initialize(value, usage, position)
+                @value = value
+                super(usage, position)
+              end
+
+              def valid?
+                false
+              end
+
+              def empty?
+                false
+              end
+
+              # @return [IdentifierVal]
+              def map
+                IdentifierVal.value(yield(nil), usage, position)
+              end
+
+              # @return [String]
+              def inspect
+                id = definition.bind do |d|
+                  "[#{'% 5s' % d.id}: #{d.name}]".bind do |s|
+                    if usage.forbidden?
+                      ansi.forbidden(s)
+                    elsif usage.required?
+                      ansi.required(s)
+                    else
+                      ansi.optional(s)
+                    end
+                  end
+                end
+
+                ansi.element("ID.invalid#{id}") << "(#{ansi.invalid(@value.inspect)})"
+              end
+
+              # @return [String]
+              def to_s
+                ""
+              end
+
+              # @return [String]
+              def to_x12(truncate = true)
+                ""
+              end
+
+              # @return [Boolean]
+              def ==(other)
+                eql?(other) or other.nil?
+              end
+            end
+
+            #
+            # Empty identifier value. Shouldn't be directly instantiated --
+            # instead, use the {IdentifierVal.empty} and {IdentifierVal.value}
+            # constructors
+            #
+            class Empty < IdentifierVal
+              include Comparable
+
+              # (string any* -> any)
+              extend Forwardable
+              def_delegators :@value, :to_d, :to_s, :to_f, :to_c, :to_r, :to_sym, :to_str,
+                :hex, :oct, :ord, :sum, :length, :count, :index, :rindex,
+                :lines, :bytes, :chars, :each, :upto, :split, :scan, :unpack,
+                :=~, :match, :partition, :rpatition, :each, :split, :scan,
+                :unpack, :encoding, :count, :casecmp, :sum, :valid_enocding?,
+                :at, :empty?, :blank? 
+              
+              
+              # (string any* -> StringVal)
+              extend Operators::Wrappers
+              wrappers :%, :+, :*, :slice, :take, :drop, :[], :capitalize,
+                :center, :ljust, :rjust, :chomp, :delete, :tr, :tr_s,
+                :sub, :gsub, :encode, :force_encoding, :squeeze
+
+              # (string -> StringVal)
+              extend Operators::Unary
+              unary_operators :chr, :chop, :upcase, :downcase, :strip,
+                :lstrip, :rstrip, :dump, :succ, :next, :reverse, :swapcase
+
+              # (string string -> any)
+              extend Operators::Relational
+              relational_operators :==, :<=>, :start_with?, :end_with?,
+                :include?, :casecmp, :coerce => :to_s
+
+              # @return [IdentifierVal]
+              def copy(changes = {})
+                IdentifierVal.value \
+                  changes.fetch(:value, value),
+                  changes.fetch(:usage, usage),
+                  changes.fetch(:position, position)
+              end
+
+              def coerce(other)
+                # me, he = other.coerce(self)
+                # me <OP> he
+                if other.respond_to?(:to_str)
+                  return copy(:value => other.to_str), self
+                else
+                  raise TypeError,
+                    "cannot coerce IdentifierVal to #{other.class}"
+                end
+              end
+
+              def value
+                ""
+              end
+
+              def valid?
+                true
+              end
+
+              # @return [String]
+              def inspect
+                id = definition.bind do |d|
+                  "[#{'% 5s' % d.id}: #{d.name}]".bind do |s|
+                    if usage.forbidden?
+                      ansi.forbidden(s)
+                    elsif usage.required?
+                      ansi.required(s)
+                    else
+                      ansi.optional(s)
+                    end
+                  end
+                end
+
+                ansi.element("ID.empty#{id}")
+              end
+
+              # @return [String]
+              def to_s
+                ""
+              end
+
+              # @return [String]
+              def to_x12(truncate = true)
+                ""
+              end
+            end
+
+            #
+            # Non-empty identifier value. Shouldn't be directly instantiated --
+            # instead, use the {IdentifierVal.value} constructor
+            #
+            class NonEmpty < IdentifierVal
+              include Comparable
+
+              # @return [String]
+              attr_reader :value
+              # (string any* -> any)
+              extend Forwardable
+              def_delegators :value, :to_d, :to_s, :to_f, :to_c, :to_r, :to_sym, :to_str,
+                :hex, :oct, :ord, :sum, :length, :count, :index, :rindex,
+                :lines, :bytes, :chars, :each, :upto, :split, :scan, :unpack,
+                :=~, :match, :partition, :rpatition, :each, :split, :scan,
+                :unpack, :encoding, :count, :casecmp, :sum, :valid_enocding?,
+                :at, :empty?, :blank?
+              
+              
+
+              # (string any* -> StringVal)
+              extend Operators::Wrappers
+              wrappers :%, :+, :*, :slice, :take, :drop, :[], :capitalize,
+                :center, :ljust, :rjust, :chomp, :delete, :tr, :tr_s,
+                :sub, :gsub, :encode, :force_encoding, :squeeze
+
+              # (string -> StringVal)
+              extend Operators::Unary
+              unary_operators :chr, :chop, :upcase, :downcase, :strip,
+                :lstrip, :rstrip, :dump, :succ, :next, :reverse, :swapcase
+
+              # (string string -> any)
+              extend Operators::Relational
+              relational_operators :==, :<=>, :start_with?, :end_with?,
+                :include?, :casecmp, :coerce => :to_s
+
+              def initialize(value, usage, position)
+                @value = value
+                super(usage, position)
+              end
+
+              # @return [IdentifierVal]
+              def copy(changes = {})
+                IdentifierVal.value \
+                  changes.fetch(:value, @value),
+                  changes.fetch(:usage, usage),
+                  changes.fetch(:position, position)
+              end
+
+              def coerce(other)
+                # me, he = other.coerce(self)
+                # me <OP> he
+                if other.respond_to?(:to_str)
+                  return copy(:value => other.to_str), self
+                else
+                  raise TypeError,
+                    "cannot coerce IdentifierVal to #{other.class}"
+                end
+              end
+
+              def valid?
+                true
+              end
+
+              def too_long?
+                @value.length > definition.max_length
+              end
+
+              def too_short?
+                @value.length < definition.min_length
+              end
+
+              # @return [String]
+              def to_x12(truncate = true)
+                x12 = @value.ljust(definition.min_length, " ")
+                truncate ? x12.take(definition.max_length) : x12
+              end
+
+              # @return [String]
+              def inspect
+                id = definition.bind do |d|
+                  "[#{'% 5s' % d.id}: #{d.name}]".bind do |s|
+                    if usage.forbidden?
+                      ansi.forbidden(s)
+                    elsif usage.required?
+                      ansi.required(s)
+                    else
+                      ansi.optional(s)
+                    end
+                  end
+                end
+
+                codes = definition.code_list
+
+                if codes.try(&:internal?)
+                  if codes.defined_at?(@value)
+                    value = "#{@value}: " << ansi.dark(codes.at(@value))
+                  else
+                    value = ansi.red(@value)
+                  end
+                else
+                  value = @value
+                end
+
+                ansi.element("ID.value#{id}") << "(#{value})"
+              end
+            end
+
+          end
+
+          class << IdentifierVal
+            # @group Constructors
+            ###################################################################
+
+            # @return [IdentifierVal]
+            def empty(usage, position)
+              self::Empty.new(usage, position)
+            end
+
+            # @return [IdentifierVal]
+            def value(object, usage, position)
+              if object.blank?
+                self::Empty.new(usage, position)
+              elsif object.respond_to?(:to_s)
+                self::NonEmpty.new(object.to_s.rstrip, usage, position)
+              else
+                self::Invalid.new(object, usage, position)
+              end
+            rescue
+              self::Invalid.new(object, usage, position)
+            end
+
+            # @endgroup
+            ###################################################################
+          end
+
+          # Prevent direct instantiation of abstract class IdentifierVal
+          IdentifierVal.eigenclass.send(:protected, :new)
+          IdentifierVal::Empty.eigenclass.send(:public, :new)
+          IdentifierVal::Invalid.eigenclass.send(:public, :new)
+          IdentifierVal::NonEmpty.eigenclass.send(:public, :new)
+        end
+
+      end
+    end
+  end
+end

data/lib/stupidedi/versions/functional_groups/002001/element_types/operators.rb

@@ -0,0 +1,117 @@
+module Stupidedi
+  module Versions
+    module FunctionalGroups
+      module TwoThousandOne
+        module ElementTypes
+
+          module Operators
+
+            module Unary
+              def unary_operators(*ops)
+                file, line, = Stupidedi.caller
+
+                ops.each do |op|
+                  class_eval(<<-RUBY, file, line.to_i - 1)
+                    def #{op}(&block)
+                      copy(:value => value.__send__(:#{op}, &block))
+                    end
+                  RUBY
+                end
+              end
+            end
+
+            module Binary
+              def binary_operators(*ops)
+                file, line, = Stupidedi.caller
+
+                if ops.last.is_a?(Hash)
+                  options = ops.pop
+
+                  case options[:coerce]
+                  when String, Symbol
+                    coerce = options[:coerce]
+                  else
+                    raise ArgumentError,
+                      "must pass :coerce => :method"
+                  end
+                else
+                  raise ArgumentError,
+                    "must pass :coerce => :method"
+                end
+
+                ops.each do |op|
+                  class_eval(<<-RUBY, file, line.to_i - 1)
+                    def #{op}(other, &block)
+                      if other.respond_to?(:#{coerce})
+                        copy(:value => value.__send__(:#{op}, other.#{coerce}, &block))
+                      elsif other.respond_to?(:coerce)
+                        me, he = other.coerce(self)
+                        copy(:value => me.__send__(:#{op}, he, &block).#{coerce})
+                      else
+                        raise TypeError,
+                          "cannot coerce \#{other.class} to \#{self.class}"
+                      end
+                    end
+                  RUBY
+                end
+              end
+            end
+
+            module Relational
+              def relational_operators(*ops)
+                file, line, = Stupidedi.caller
+
+                if ops.last.is_a?(Hash)
+                  options = ops.pop
+
+                  case options[:coerce]
+                  when String, Symbol
+                    coerce = options[:coerce]
+                  else
+                    raise ArgumentError,
+                      "must pass :coerce => :method"
+                  end
+                else
+                  raise ArgumentError,
+                    "must pass :coerce => :method"
+                end
+
+                ops.each do |op|
+                  class_eval(<<-RUBY, file, line.to_i - 1)
+                    def #{op}(other, &block)
+                      if other.respond_to?(:#{coerce})
+                        value.__send__(:#{op}, other.#{coerce}, &block)
+                      elsif other.respond_to?(:coerce)
+                        me, he = other.coerce(self)
+                        me.__send__(:#{op}, he, &block)
+                      else
+                        raise TypeError,
+                          "cannot coerce \#{other.class} to \#{self.class}"
+                      end
+                    end
+                  RUBY
+                end
+              end
+            end
+
+            module Wrappers
+              def wrappers(*ops)
+                file, line, = Stupidedi.caller
+
+                ops.each do |op|
+                  class_eval(<<-RUBY, file, line.to_i - 1)
+                    def #{op}(*args, &block)
+                      copy(:value => value.__send__(:#{op}, *args, &block))
+                    end
+                  RUBY
+                end
+              end
+            end
+
+          end
+
+        end
+      end
+    end
+  end
+end