Changeset 257 for ruby/trunk/lib/adl_parser/lib/parser.y

Timestamp:

Sep 13, 2009, 12:58:21 AM (15 years ago)

Author:

Tatsukawa, Akimichi

Message:

generated openehr_models_0.0.3 gem and working on bridge between adl and rm

File:

• ruby/trunk/lib/adl_parser/lib/parser.y (modified) (9 diffs)

ruby/trunk/lib/adl_parser/lib/parser.y

@@ -40 +40 @@
     
     archetype_id = val[0][:archetype_id]
+    parent_archtype_id = val[1][:parent_archtype_id] if val[1]
     adl_version = val[0][:arch_head][:arch_meta_data][:adl_version]
     concept = val[2]
@@ -45 +46 @@
     archetype = OpenEHR::AM::Archetype::ARCHETYPE.create(
                                                          :archetype_id => archetype_id,
+                                                         :parent_archtype_id => parent_archtype_id,
                                                          :adl_version => adl_version,
                                                          :concept => concept,
@@ -104 +106 @@
 arch_specialisation: #-- empty is ok
   | SYM_SPECIALIZE V_ARCHETYPE_ID
+  {
+    result = {:parent_archtype_id => val[1]}
+  }
   | SYM_SPECIALIZE error
 
@@ -548 +553 @@
   }
 
-untyped_single_attr_object_block: single_attr_object_complex_head SYM_END_DBLOCK # <>
+untyped_single_attr_object_block: single_attr_object_complex_head SYM_END_DBLOCK # >
   {
     @@log.info("#{__FILE__}:#{__LINE__}: single_attr_object_complex_head = #{val[0]} at #{@filename}:#{@lineno}")
@@ -1171 +1176 @@
 $:.unshift File.join(File.dirname(__FILE__))
 require 'logger'
-#require 'lib/util.rb'
-#require 'lib/scanner.rb'
-require 'lib/adl_parser.rb'
+#require 'lib/adl_parser.rb'
 require 'rubygems'
+require 'adl_parser.rb'
 require 'am.rb'
-$DEBUG = false
+require 'rm.rb'
 
 
@@ -1308 +1312 @@
       when /\A[A-Z][a-zA-Z0-9_]*/
         yield :V_TYPE_IDENTIFIER, $&
-      when /\A[a-zA-Z][a-zA-Z0-9_-]+\.[a-zA-Z][a-zA-Z0-9_-]+\.[a-zA-Z0-9]+/   #V_ARCHETYPE_ID
-        yield :V_ARCHETYPE_ID, $&
+#      when /\A[a-zA-Z][a-zA-Z0-9_-]+\.[a-zA-Z][a-zA-Z0-9_-]+\.[a-zA-Z0-9]+/   #V_ARCHETYPE_ID
+      when /\A(\w+)-(\w+)-(\w+)\.(\w+)(-\w+)?\.(v[0-9]+)/   #V_ARCHETYPE_ID
+        object_id, rm_originator, rm_name, rm_entity, concept_name, specialisation, version_id = $&, $1, $2, $3, $4, $5, $6
+        archetype_id = OpenEHR::RM::Support::Identification::Archetype_ID.new(object_id, concept_name, rm_name, rm_entity, rm_originator, specialisation, version_id)
+#        yield :V_ARCHETYPE_ID, $&
+        yield :V_ARCHETYPE_ID, archetype_id
       when /\A[a-z][a-zA-Z0-9_]*/
 #        word = $&.downcase
@@ -1391 +1399 @@
         yield :Question_mark_code, :Question_mark_code
       when /\A[0-9]+\.[0-9]+(\.[0-9]+)*/   # ?
-        yield :V_VERSION_STRING, :V_VERSION_STRING
+        yield :V_VERSION_STRING, $&
       when /\A\|/   # |
         if @in_interval
@@ -1409 +1417 @@
         yield :Right_bracket_code, :Right_bracket_code
 
+      when /\A"([^"]*)"/m #V_STRING
+        yield :V_STRING, $1
       when /\A\[[a-zA-Z0-9._\- ]+::[a-zA-Z0-9._\- ]+\]/   #ERR_V_QUALIFIED_TERM_CODE_REF
         yield :ERR_V_QUALIFIED_TERM_CODE_REF, $&
@@ -1426 +1436 @@
         yield :V_REAL, $&
         #    when /\A"((?:[^"\\]+|\\.)*)"/ #V_STRING
-      when /\A"([^"]*)"/m #V_STRING
-        yield :V_STRING, $1
       when /\A[a-z]+:\/\/[^<>|\\{}^~"\[\] ]*/ #V_URI
         yield :V_URI, $&