Class: ActiveFacts::CQL::Compiler::ValueType
- Inherits:
-
ObjectType
- Object
- Definition
- ObjectType
- ActiveFacts::CQL::Compiler::ValueType
- Defined in:
- lib/activefacts/cql/compiler/value_type.rb
Instance Attribute Summary
Attributes inherited from ObjectType
Attributes inherited from Definition
#constellation, #tree, #vocabulary
Instance Method Summary collapse
- #compile ⇒ Object
-
#initialize(name, base, parameters, unit, value_constraint, pragmas, context_note) ⇒ ValueType
constructor
A new instance of ValueType.
- #to_s ⇒ Object
Methods inherited from Definition
#all_bindings_in_clauses, #build_all_steps, #build_steps, #build_variables, #source
Constructor Details
#initialize(name, base, parameters, unit, value_constraint, pragmas, context_note) ⇒ ValueType
Returns a new instance of ValueType.
90 91 92 93 94 95 96 97 98 |
# File 'lib/activefacts/cql/compiler/value_type.rb', line 90 def initialize name, base, parameters, unit, value_constraint, pragmas, context_note super name @base_type_name = base @parameters = parameters @unit = unit @value_constraint = value_constraint @pragmas = pragmas @context_note = context_note end |
Instance Method Details
#compile ⇒ Object
100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 |
# File 'lib/activefacts/cql/compiler/value_type.rb', line 100 def compile length, scale = *@parameters # Create the base type unless it already exists: base_type = nil if (@base_type_name != @name) unless base_type = @vocabulary.valid_value_type_name(@base_type_name) base_type = @constellation.ValueType(@vocabulary, @base_type_name, :concept => :new) return base_type if @base_type_name == @name end end # Create and initialise the ValueType: vt = @vocabulary.valid_value_type_name(@name) || @constellation.ValueType(@vocabulary, @name, :concept => :new) vt.is_independent = true if (@pragmas.include? 'independent') vt.supertype = base_type if base_type vt.length = length if length vt.scale = scale if scale unless @unit.empty? unit_name, exponent = *@unit[0] unit = @constellation.Name[unit_name].unit || @constellation.Name[unit_name].unit_as_plural_name raise "Unit #{unit_name} for value type #{@name} is not defined" unless unit if exponent != 1 base_unit = unit unit_name = base_unit.name+"^#{exponent}" unless unit = @constellation.Unit.detect{|k,v| v.name == unit_name } # Define a derived unit (these are skipped on output) unit = @constellation.Unit(:new, :vocabulary => @vocabulary, :name => unit_name, :is_fundamental => false ) @constellation.Derivation(unit, base_unit).exponent = exponent end end vt.unit = unit end if @value_constraint @value_constraint.constellation = @constellation vt.value_constraint = @value_constraint.compile end if @context_note @context_note.compile(@constellation, vt) end vt end |
#to_s ⇒ Object
153 154 155 156 157 158 159 160 161 162 163 164 165 |
# File 'lib/activefacts/cql/compiler/value_type.rb', line 153 def to_s "ValueType: #{super} is written as #{ @base_type_name }#{ @parameters.size > 0 ? "(#{ @parameters.map{|p|p.to_s}*', ' })" : '' }#{ @unit && @unit.length > 0 ? " in #{@unit.inspect}" : '' }#{ @value_constraint ? " "+@value_constraint.to_s : '' }#{ @pragmas.size > 0 ? ", pragmas [#{@pragmas*','}]" : '' };" end |