[393] | 1 | # Ticket #71
|
---|
[380] | 2 | module OpenEHR
|
---|
| 3 | module AM
|
---|
| 4 | module Archetype
|
---|
[393] | 5 | module ConstraintModel
|
---|
| 6 | module Primitive
|
---|
| 7 | class CPrimitive
|
---|
| 8 | attr_reader :default_value
|
---|
| 9 | attr_accessor :assumed_value
|
---|
[380] | 10 |
|
---|
[393] | 11 | def initialize(args = { })
|
---|
| 12 | self.default_value = args[:default_value]
|
---|
| 13 | self.assumed_value = args[:assumed_value]
|
---|
| 14 | end
|
---|
[391] | 15 |
|
---|
[393] | 16 | def default_value=(default_value)
|
---|
| 17 | if default_value.nil?
|
---|
| 18 | raise ArgumentError, 'default_value is mandatory'
|
---|
| 19 | end
|
---|
| 20 | @default_value = default_value
|
---|
[391] | 21 | end
|
---|
[393] | 22 |
|
---|
| 23 | def has_assumed_value?
|
---|
| 24 | return !assumed_value.nil?
|
---|
| 25 | end
|
---|
[391] | 26 | end
|
---|
| 27 |
|
---|
[393] | 28 | class CBoolean < CPrimitive
|
---|
| 29 | attr_reader :true_valid, :false_valid
|
---|
| 30 |
|
---|
| 31 | def initialize(args = { })
|
---|
| 32 | binary_consistency(args[:true_valid], args[:false_valid])
|
---|
| 33 | @true_valid = args[:true_valid]
|
---|
| 34 | @false_valid = args[:false_valid]
|
---|
| 35 | super(args)
|
---|
| 36 | end
|
---|
| 37 |
|
---|
| 38 | def default_value=(default_value)
|
---|
| 39 | super
|
---|
| 40 | default_value_consistency(default_value)
|
---|
| 41 | end
|
---|
| 42 |
|
---|
| 43 | def true_valid=(true_valid)
|
---|
| 44 | binary_consistency(true_valid, @false_valid)
|
---|
| 45 | @true_valid = true_valid
|
---|
| 46 | end
|
---|
| 47 |
|
---|
| 48 | def false_valid=(false_valid)
|
---|
| 49 | binary_consistency(@true_valid, false_valid)
|
---|
| 50 | @false_valid = false_valid
|
---|
| 51 | end
|
---|
| 52 |
|
---|
| 53 | def true_valid?
|
---|
| 54 | return @true_valid
|
---|
| 55 | end
|
---|
| 56 |
|
---|
| 57 | def false_valid?
|
---|
| 58 | return @false_valid
|
---|
| 59 | end
|
---|
| 60 |
|
---|
| 61 | private
|
---|
| 62 | def binary_consistency(true_valid, false_valid)
|
---|
| 63 | if (true_valid == false) && (false_valid == false)
|
---|
| 64 | raise ArgumentError, 'true_valid or false_valid should be true'
|
---|
| 65 | end
|
---|
| 66 | end
|
---|
| 67 |
|
---|
| 68 | def default_value_consistency(default_value)
|
---|
| 69 | if (!@true_valid && default_value) || (!@false_valid && !default_value)
|
---|
| 70 | raise ArgumentError, 'default value inconsistency'
|
---|
| 71 | end
|
---|
| 72 | end
|
---|
[391] | 73 | end
|
---|
[394] | 74 |
|
---|
| 75 | class CString < CPrimitive
|
---|
| 76 | attr_reader :pattern, :list
|
---|
| 77 |
|
---|
| 78 | def initialize(args = { })
|
---|
| 79 | super
|
---|
| 80 | consistency(args[:pattern], args[:list])
|
---|
| 81 | @pattern = args[:pattern]
|
---|
| 82 | @list = args[:list]
|
---|
| 83 | end
|
---|
| 84 |
|
---|
| 85 | def pattern=(pattern)
|
---|
| 86 | consistency(pattern, @list)
|
---|
| 87 | @pattern = pattern
|
---|
| 88 | end
|
---|
| 89 |
|
---|
| 90 | def list=(list)
|
---|
| 91 | consistency(@pattern, list)
|
---|
| 92 | @list = list
|
---|
| 93 | end
|
---|
| 94 |
|
---|
| 95 | private
|
---|
| 96 | def consistency(pattern, list)
|
---|
| 97 | if pattern.nil? == list.nil?
|
---|
| 98 | raise ArgumentError, 'consistency invaild'
|
---|
| 99 | end
|
---|
| 100 | end
|
---|
| 101 | end
|
---|
[395] | 102 |
|
---|
| 103 | class CInteger < CPrimitive
|
---|
| 104 | attr_reader :list, :range
|
---|
| 105 |
|
---|
| 106 | def initialize(args = { })
|
---|
| 107 | super
|
---|
| 108 | consistency(args[:list], args[:range])
|
---|
| 109 | @list = args[:list]
|
---|
| 110 | @range = args[:range]
|
---|
| 111 | end
|
---|
| 112 |
|
---|
| 113 | def list=(list)
|
---|
| 114 | consistency(list, @range)
|
---|
| 115 | @list = list
|
---|
| 116 | end
|
---|
| 117 |
|
---|
| 118 | def range=(range)
|
---|
| 119 | consistency(@list, range)
|
---|
| 120 | @range = range
|
---|
| 121 | end
|
---|
| 122 |
|
---|
| 123 | private
|
---|
| 124 | def consistency(list, range)
|
---|
| 125 | if list.nil? == range.nil?
|
---|
| 126 | raise ArgumentError, 'consistency invalid'
|
---|
| 127 | end
|
---|
| 128 | end
|
---|
| 129 | end
|
---|
[393] | 130 | end # of Primitive
|
---|
| 131 | end # of CostraintModel
|
---|
[380] | 132 | end # of Archetype
|
---|
| 133 | end # of AM
|
---|
| 134 | end # of OpenEHR
|
---|