Module: Stupidedi::Guides::FortyTen::GuideBuilder

Defined in:
lib/stupidedi/guides/004010/guide_builder.rb

Overview

GuideBuilder is a simple DSL for construction an implementation guide.

Element Constraints collapse

Definition Constructors collapse

Class Method Summary collapse

Class Method Details

.build(transaction_set_def, *table_defs) ⇒ Schema::TransactionSetDef


17
18
19
# File 'lib/stupidedi/guides/004010/guide_builder.rb', line 17

def build(transaction_set_def, *table_defs)
  transaction_set_def.copy(:table_defs => table_defs)
end

.Element(requirement, name, *constraints)


47
48
49
# File 'lib/stupidedi/guides/004010/guide_builder.rb', line 47

def Element(requirement, name, *constraints)
  [:Element, requirement, name, constraints]
end

.MaxLength(n)


30
31
32
# File 'lib/stupidedi/guides/004010/guide_builder.rb', line 30

def MaxLength(n)
  [:MaxLength, n]
end

.MaxPrecision(n)


35
36
37
# File 'lib/stupidedi/guides/004010/guide_builder.rb', line 35

def MaxPrecision(n)
  [:MaxPrecision, n]
end

.Segment(position, segment_def, name, requirement, repeat_count, *elements) ⇒ SegmentUse


52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
# File 'lib/stupidedi/guides/004010/guide_builder.rb', line 52

def Segment(position, segment_def, name, requirement, repeat_count, *elements)
  unless elements.length == segment_def.element_uses.length
    raise Exceptions::InvalidSchemaError,
      "segment #{segment_def.id} has #{segment_def.element_uses.length}" +
      " elements but #{elements.length} arguments were specified"
  end

  element_index = "00"
  element_uses  = elements.zip(segment_def.element_uses).map do |e, u|
    e_tag, e_requirement, e_name, e_arguments = e
    # element_index.succ!
    element_index = element_index.succ
    unless e_tag == :Element
      raise Exceptions::InvalidSchemaError,
        "given argument for #{segment_def.id}#{element_index} must be Element(...)"
    end

    if u.composite?
      e_repeat_count, e_arguments = e_arguments.partition{|x| x.is_a?(Schema::RepeatCount) }

      changes = Hash.new
      changes[:requirement] = e_requirement

      if e_repeat_count.length == 1
        changes[:repeat_count] = e_repeat_count.head
      elsif e_repeat_count.length > 1
        raise Exceptions::InvalidSchemaError,
          "more than one RepeatCount was specified"
      end

      unless e_requirement.forbidden?
        unless e_arguments.length == u.definition.component_uses.length
          raise Exceptions::InvalidSchemaError,
            "composite element #{u.definition.id} at #{segment_def.id}" +
            "#{element_index} has #{u.definition.component_uses.length}" +
            " component elements but #{e_arguments.length} were given"
        end

        # ComponentElementUses
        component_index = "00"
        component_uses  = e_arguments.zip(u.definition.component_uses).map do |e, c|
          c_tag, c_requirement, c_name, c_arguments = e
          # component_index.succ!
          component_index = component_index.succ

          unless c_tag == :Element
            raise Exceptions::InvalidSchemaError,
              "given argument for #{segment_def.id}#{element_index}" +
              "-#{component_index} must be Element(...)"
          end

          mod_element(c, c_requirement, c_name, c_arguments)
        end

        changes[:definition] = u.definition.copy(:name           => e_name,
                                                 :component_uses => component_uses)
      else
        changes[:definition] = u.definition.copy(:name => e_name)
      end

      u.copy(changes)
    else
      mod_element(u, e_requirement, e_name, e_arguments)
    end
  end

  segment_def.copy(:name => name).
    copy(:element_uses => element_uses).
    use(position, requirement, repeat_count)
end

.Values(*values)


25
26
27
# File 'lib/stupidedi/guides/004010/guide_builder.rb', line 25

def Values(*values)
  [:Values, values]
end