open_ehr 0.6.1 → 0.9.0

data/lib/open_ehr/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/open_ehr/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:(';'? attr_val)* {
+          def value
+            val = {first.id.to_sym => first.value}
+            second.elements.each do |e|
+              val[e.attr_val.id.to_sym] = e.attr_val.value
+            end
+            val
+          end    
+        }
+      end
+
+      rule attr_val
+        attr_id SYM_EQ object_block {
+          def id
+            attr_id.value
+          end
+
+          def 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
+            val = {}
+            elements.each do |e|
+              val[e.key.to_sym] = e.value
+            end
+            val
+          end
+        }
+      end
+
+      rule keyed_object
+        object_key SYM_EQ object_block {
+          def key
+            object_key.value
+          end
+
+          def 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 '' {
+          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
+        }
+      / term_code_list_value {
+          def value
+            term_code_list_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
+        }
+      / character_value '' {
+          def value
+            character_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
+        }
+      / uri_value '' {
+          def value
+            uri_value.value
+          end
+        }
+      / string_value '' {
+          def value
+            string_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
+        term_code (',' term_code)+ 
+      / term_code ',' SYM_LIST_CONTINUE
+      end
+
+      rule uri_value
+        V_URI '' {
+          def value
+            V_URI.value
+          end
+        }
+      end
+    end
+  end
+end

data/lib/open_ehr/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
+