openehr 1.1.0

data/lib/openehr/parser/cadl_node.rb

@@ -0,0 +1,44 @@
+module OpenEHR
+  module Parser
+    module CADL
+      class ArchetypeNode
+        attr_reader :parent
+        attr_accessor :path, :id
+
+        def initialize(parent = nil)
+          @parent = parent
+          @path = '/' if parent.nil?
+        end
+
+        def root?
+          return parent.nil?
+        end
+      end
+
+      class CDvQuantityItems < Treetop::Runtime::SyntaxNode
+        def value(node)
+          property = prop.value unless prop.empty?
+          list = ql.value(node) unless ql.empty?
+          av = aqv.value unless aqv.empty?
+          OpenEHR::AM::OpenEHRProfile::DataTypes::Quantity::CDvQuantity.new(
+            :path => node.path, :rm_type_name => 'DvQuantity',
+            :occurrences => OpenEHR::AssumedLibraryTypes::Interval.new(
+              :upper => 1, :lower => 1),
+            :property => property, :list => list, :assumed_value => av)
+        end
+      end
+
+      class AssumedValueItems < Treetop::Runtime::SyntaxNode
+        def value
+          magnitude, precision = nil
+          magnitude = mag.val.value unless mag.empty?
+          precision = prec.val.value unless prec.empty?
+          OpenEHR::RM::DataTypes::Quantity::DvQuantity.new(
+            :units => units.value,
+            :magnitude => magnitude,
+            :precision => precision)
+        end
+      end
+    end
+  end
+end

data/lib/openehr/parser/dadl.rb

@@ -0,0 +1,13 @@
+module OpenEHR
+  module Parser
+    module DADLGrammar
+      class Base < Treetop::Runtime::SyntaxNode
+      
+      end
+
+      class DADL < Base
+        
+      end
+    end
+  end
+end

data/lib/openehr/parser/dadl_grammar.tt

@@ -0,0 +1,358 @@
+require 'shared_token_grammar'
+require 'dadl'
+
+module OpenEHR
+  module Parser
+    grammar DADLGrammar
+
+      include SharedToken
+
+      rule V_DADL_TEXT
+        attr_vals space {
+          def value
+            attr_vals.value
+          end
+        }
+      / complex_object_block space {
+          def value
+            complex_object_block.value
+          end
+        }
+      end
+
+      rule attr_vals
+        first:attr_val second:(';'? space attr_val space)* {
+          def value
+            attrs.inject({ }) {|val, a| val.update a.value}
+          end
+
+          def attrs
+            [first] + second.elements.map {|e| e.attr_val}
+          end
+        }
+      end
+
+      rule attr_val
+        attr_id SYM_EQ object_block {
+          def value
+            {attr_id.value =>  object_block.value}
+          end
+        }
+      end
+
+      rule attr_id
+        id:V_ATTRIBUTE_IDENTIFIER white_space {
+          def value
+            id.value
+          end
+        }
+      end
+
+      rule object_block
+        complex_object_block space {
+	  def value
+            complex_object_block.value
+          end
+        }
+      / primitive_object_block space {
+          def value
+            primitive_object_block.value
+          end
+        }
+      end
+
+      rule complex_object_block
+        single_attr_object_block '' {
+          def value
+            single_attr_object_block.value
+          end
+        }
+      / multiple_attr_object_block '' {
+          def value
+            multiple_attr_object_block.value
+          end
+        }
+      end
+
+      rule multiple_attr_object_block
+        type_identifier? untyped_multiple_attr_object_block {
+          def value
+            untyped_multiple_attr_object_block.value
+          end
+        }
+      end
+
+      rule untyped_multiple_attr_object_block
+        multiple_attr_object_block_head keyed_objects SYM_END_DBLOCK {
+          def value
+            keyed_objects.value
+          end
+        }
+      end
+
+      rule multiple_attr_object_block_head
+        SYM_START_DBLOCK
+      end
+
+      rule keyed_objects
+        keyed_object+  {
+          def value
+            elements.inject({ }) {|val, e| val.update e.value}
+          end
+        }
+      end
+
+      rule keyed_object
+        object_key SYM_EQ object_block {
+          def value
+            {object_key.value => object_block.value}
+          end
+        }
+      end
+
+      rule object_key
+        '[' simple_value ']' white_space {
+           def value
+             simple_value.value
+           end
+        }
+      end
+
+      rule single_attr_object_block
+        type_identifier? untyped_single_attr_object_block {
+          def value
+            untyped_single_attr_object_block.value
+          end
+        }
+      end
+
+      rule untyped_single_attr_object_block
+        single_attr_object_complex_head attr_vals SYM_END_DBLOCK {
+           def value
+             elements[1].value
+	   end
+        }
+      / single_attr_object_complex_head SYM_END_DBLOCK {
+          def value
+            nil
+          end
+        }
+      end
+
+      rule single_attr_object_complex_head
+        SYM_START_DBLOCK
+      end
+
+      rule primitive_object_block
+        type_identifier? untyped_primitive_object_block {
+	  def value
+	    untyped_primitive_object_block.value
+          end
+        }
+      end
+
+      rule untyped_primitive_object_block
+        SYM_START_DBLOCK primitive_object_value SYM_END_DBLOCK {
+	  def value
+	    primitive_object_value.value
+          end
+	}
+      end
+
+      rule primitive_object_value
+        term_code_list_value '' {
+          def value
+            term_code_list_value.value
+          end
+        }
+      / term_code '' {
+          def value
+            term_code.value
+          end
+        }
+      / simple_list_value '' {
+          def value
+            simple_list_value.value
+          end
+        }
+      / simple_interval_value '' {
+          def value
+            simple_interval_value.value
+          end
+        }
+      / simple_value '' {
+          def value
+            simple_value.value
+          end
+        }
+      end
+
+      rule simple_value
+        integer_value '' {
+          def value
+            integer_value.value
+          end
+        }
+      / real_value '' {
+          def value
+            real_value.value
+          end
+        }
+      / boolean_value '' {
+          def value
+            boolean_value.value
+          end
+        }
+      / uri_value '' {
+          def value
+            uri_value.value
+          end
+        }
+      / date_value '' {
+          def value
+            date_value.value
+          end
+        }
+      / time_value '' {
+          def value
+            time_value.value
+          end
+        }
+      / date_time_value '' {
+          def value
+            date_time_value.value
+          end
+        }
+      / duration_value '' {
+          def value
+            duration_value.value
+          end
+        }
+      / string_value '' {
+          def value
+            string_value.value
+          end
+        }
+      / character_value '' {
+          def value
+            character_value.value
+          end
+        }
+      end
+
+      rule simple_list_value
+        integer_list_value '' {
+          def value
+            integer_list_value.value
+          end
+        }
+      / real_list_value '' {
+          def value
+            real_list_value.value
+          end
+        }
+      / boolean_list_value '' {
+          def value
+            boolean_list_value.value
+          end
+        }
+      / character_list_value '' {
+          def value
+            character_list_value.value
+          end
+        }
+      / date_list_value '' {
+          def value
+            date_list_value.value
+          end
+        }
+      / time_list_value '' {
+          def value
+            time_list_value.value
+          end
+        }
+      / date_time_list_value '' {
+          def value
+            date_time_list_value.value
+          end
+        }
+      / duration_list_value '' {
+          def value
+            duration_list_value.value
+          end
+        }
+      / string_list_value '' {
+          def value
+            string_list_value.value
+          end
+        }
+      end
+
+      rule simple_interval_value
+        integer_interval_value '' {
+          def value
+            integer_interval_value.value
+          end
+        }
+      / real_interval_value '' {
+          def value
+            real_interval_value.value
+          end
+        }
+      / date_interval_value '' {
+          def value
+            date_interval_value.value
+          end
+        }
+      / time_interval_value '' {
+          def value
+            time_interval_value.value
+          end
+        }
+      / date_time_interval_value '' {
+          def value
+            date_time_interval_value.value
+          end
+        }
+      / duration_interval_value '' {
+          def value
+            duration_interval_value.value
+          end
+        }
+      end
+
+      rule term_code
+        vtref:V_QUALIFIED_TERM_CODE_REF '' {
+          def value
+            vtref.value
+          end
+        }
+      end
+
+      rule term_code_list_value
+        first:term_code more:(',' term_code)+ {
+          def value
+            term_codes.map {|t| t.value}
+          end
+
+          def term_codes
+            [first] + more.elements.map {|e| e.term_code}
+          end
+        }
+      / term_code ',' SYM_LIST_CONTINUE {
+          def value
+            [term_code.value]
+          end
+        }
+      end
+
+      rule uri_value
+        uri:V_URI '' {
+          def value
+            uri.value
+          end
+        }
+      end
+    end
+  end
+end

data/lib/openehr/parser/exception.rb

@@ -0,0 +1,68 @@
+module OpenEHR
+  module Parser
+    module Exception
+      class Base < RuntimeError
+      end
+
+      module Scanner
+        class Base < RuntimeError
+        end
+      end
+
+      module Parser
+        class Base < RuntimeError
+        end
+
+        class Error < Base
+        end
+      end
+
+
+      #
+      #
+      # c.f. beale07:_archet_defin_languag,p.100
+      module Validation
+        class Base < RuntimeError
+        end
+
+        class VARID < Base
+          MESSAGE = "The archetype must have an identifier value for the archetype_id section. The identifier must conform to the published openEHR specification for archetype identifiers."
+        end
+
+        class VARCN < Base
+          MESSAGE = "The archetype must have an archetype term value in concept section. The term must exist in the archetype ontology."
+        end
+
+        class VARDF < Base
+          MESSAGE = "The archetype must have a definition section, expressed as a cADL syntax."
+        end
+
+        class VARON < Base
+          MESSAGE = "The archetype must have a ontology section, expressed as a dADL syntax."
+        end
+
+        class VARDT < Base
+          MESSAGE = "The topmost typename mentioned in the archetype definition section must match the type mentioned in the type-name slot of the first segment of the archetype id."
+        end
+
+        class VATDF < Base
+          MESSAGE = "Each archetype term used as a node identifier the archetype definition must be defined in the term_definitions part of the ontology."
+        end
+
+        class VACDF < Base
+          MESSAGE = "Each constraint code used in the archetype definition must be defined in the constraint_definition part of the ontology."
+        end
+
+        class VDFAI < Base
+          MESSAGE = "Any archetype identifier mentioned in an archetype slot in the definition section must conform to the published openEHR specification for archetype identifiers."
+        end
+
+        class VDFPT < Base
+          MESSAGE = "Any path mentioned in the definition section must be valid syntactically, and a valid path with respect to the hierarchical structure of the definition section."
+        end
+      end
+
+    end
+  end
+end
+