open_ehr 0.6.1 → 0.9.0

data/lib/open_ehr/parser/adl_grammar.tt

@@ -0,0 +1,155 @@
+require 'shared_token_grammar'
+require 'dadl_grammar'
+require 'cadl_grammar'
+require 'adl'
+
+module OpenEHR
+  module Parser
+    grammar ADLGrammar
+
+      include SharedToken
+      include DADLGrammar
+      include CADL
+
+      rule archetype 
+        arch_identification 
+        arch_specialisation?
+        arch_concept
+        arch_language?
+        arch_description?
+        arch_definition
+        arch_invariant?
+        arch_ontology {
+          def archetype_id
+            arch_identification.archetype_id
+          end
+
+          def adl_version
+            arch_identification.adl_version
+          end
+
+	  def concept
+	    arch_concept.value
+	  end
+
+	  def original_language
+            elements[3].original_language
+          end
+
+          def translations
+            elements[3].translations
+          end
+
+          def description
+            elements[4].values
+          end
+
+          def definition
+            arch_definition.value
+          end
+        }
+      end
+
+      rule arch_identification
+        head:arch_head V_ARCHETYPE_ID space {
+	  def archetype_id
+            elements[1].text_value
+	  end
+
+	  def adl_version
+	    head.adl_version
+	  end
+        }
+      end
+
+      rule arch_head
+        SYM_ARCHETYPE m:arch_meta_data? {
+	  def adl_version
+            m.adl_version
+	  end
+	}
+      end
+
+      rule arch_meta_data
+        '(' arch_meta_data_items ')' space {
+	   def adl_version
+             arch_meta_data_items.adl_version
+           end
+         }
+      end
+
+      rule arch_meta_data_items
+        item:arch_meta_data_item (';' other_item:arch_meta_data_item)* {
+          def adl_version
+  	    item.adl_version
+          end
+
+	  def is_controled?
+	    item.is_controled? or other_item.map {|i| i.is_controled}
+	  end
+        }
+      end
+
+      rule arch_meta_data_item
+        SYM_ADL_VERSION SYM_EQ V_VERSION_STRING space {
+	  def adl_version
+	    elements[2].text_value
+          end
+        }
+      / SYM_IS_CONTROLED space {
+          def is_controled?
+	    true if elements[0]
+          end
+        }
+      end
+
+      rule arch_specialisation
+        SYM_SPECIALIZE arch_id:V_ARCHETYPE_ID space {
+	  def specialised?
+	    true if elements[0]
+          end
+
+	  def archetype_id
+	    arch_id.text_value
+	  end
+        }
+      end
+
+      rule arch_concept
+        SYM_CONCEPT conc:V_LOCAL_TERM_CODE_REF space {
+	  def value
+            conc.text_value[1..-2]
+          end
+	}
+      end
+
+      rule arch_language
+        SYM_LANGUAGE lang:V_DADL_TEXT <ArchLanguage>
+      end
+
+      rule arch_description
+        SYM_DESCRIPTION desc:V_DADL_TEXT space {
+          def values
+            desc.value
+          end
+        }
+      end
+
+      rule arch_definition
+        SYM_DEFINITION definition:V_CADL_TEXT space {
+          def value
+            definition.value
+          end
+        }
+      end
+
+      rule arch_invariant
+        SYM_INVARIANT V_ASSERTION_TEXT space
+      end
+
+      rule arch_ontology
+        SYM_ONTOLOGY V_DADL_TEXT space
+      end
+    end
+  end
+end

data/lib/open_ehr/parser/adl_parser.rb

@@ -0,0 +1,48 @@
+$:.unshift(File.dirname(__FILE__)) unless
+  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+require 'polyglot'
+require 'treetop'
+
+include OpenEHR::Parser
+
+module OpenEHR
+  module Parser
+    class ADLParser < Base
+      def initialize(filename)
+        super(filename)
+        data = File.read(filename)
+        Treetop.load(File.dirname(__FILE__)+'/adl_grammar.tt')
+        ap = ADLGrammarParser.new
+        @result = ap.parse(data)
+        if @result.nil?
+          puts ap.failure_reason
+          puts ap.failure_line
+          puts ap.failure_column
+        end
+      end
+
+      def parse
+        archetype = ArchetypeMock.new(:archetype_id => @result.archetype_id,
+                                      :adl_version => @result.adl_version,
+                                      :concept => @result.concept,
+                                      :original_language => @result.original_language,
+                                      :translation => @result.translations,
+                                      :description => @result.description,
+                                      :definition => @result.definition)
+        return archetype
+      end
+
+# temporary class for parser building
+
+      class ArchetypeMock
+        def initialize(args = { })
+          @params = args
+        end
+
+        def method_missing(name)
+          @params[name]
+        end
+      end
+    end
+  end # of Parser
+end # of OpenEHR