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

Timestamp:

May 1, 2008, 8:21:09 AM (16 years ago)

Author:

Tatsukawa, Akimichi

Message:

working on adl_parser semantic functions

File:

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

ruby/trunk/adl_parser/lib/parser.y

@@ -106 +106 @@
   { 
     assert_at(__FILE__,__LINE__){val[0].instance_of?(OpenEHR::AM::Archetype::Constraint_Model::C_COMPLEX_OBJECT)}
-                      
+    @@log.info("#{__FILE__}:#{__LINE__}: c_complex_object = #{val[0]} at #{@filename}:#{@lineno}")
     result = val[0]
   }
   | assertions
+  { 
+    result = val[0]
+  }
 #  | error
 
@@ -115 +118 @@
 c_complex_object: c_complex_object_head SYM_MATCHES START_REGEXP_BLOCK REGEXP_BODY END_REGEXP_BLOCK # added by akimichi
   { 
-    result = OpenEHR::AM::Archetype::Constraint_Model::C_COMPLEX_OBJECT.new
+    result = OpenEHR::AM::Archetype::Constraint_Model::C_COMPLEX_OBJECT.create(:attributes => val[3]) do |c_complex_object|
+      c_complex_object.node_id = val[0][:c_complex_object_id][:local_term_code_ref]
+      c_complex_object.rm_type_name = val[0][:c_complex_object_id][:type_identifier]
+      c_complex_object.occurrences = val[0][:c_occurrences]
+    end
   }
     | c_complex_object_head SYM_MATCHES SYM_START_CBLOCK c_complex_object_body SYM_END_CBLOCK
   { 
-    result = OpenEHR::AM::Archetype::Constraint_Model::C_COMPLEX_OBJECT.new(
-                                                                            :assumed_value => val[0],
-                                                                            :attributes => val[2]
-                                                                            )
+    result = OpenEHR::AM::Archetype::Constraint_Model::C_COMPLEX_OBJECT.create(:attributes => val[3]) do |c_complex_object|
+      c_complex_object.node_id = val[0][:c_complex_object_id][:local_term_code_ref]
+      c_complex_object.rm_type_name = val[0][:c_complex_object_id][:type_identifier]
+      c_complex_object.occurrences = val[0][:c_occurrences]
+    end
   }
 #    | c_complex_object_head error SYM_END_CBLOCK
@@ -128 +136 @@
 
 c_complex_object_head: c_complex_object_id c_occurrences
+  {
+    result = {:c_complex_object_id => val[0], :c_occurrences => val[1]}
+  }
 
 c_complex_object_id: type_identifier
   {
-    result = val[0]
+    result = {:type_identifier => val[0]}
   }
   | type_identifier V_LOCAL_TERM_CODE_REF
   {
-    result = {:c_complex_object_id => {:type_identifier => val[0], :V_LOCAL_TERM_CODE_REF => val[1]}}
+    result = {:type_identifier => val[0], :local_term_code_ref => val[1]}
   }
 
@@ -191 +202 @@
 
 v_c_domain_type: START_V_C_DOMAIN_TYPE_BLOCK dadl_section END_V_C_DOMAIN_TYPE_BLOCK
+  { 
+    result = val[1]
+  }
 
 # 'archetype_internal_ref' is a node that refers to a previously defined object node in the same archetype.
@@ -348 +362 @@
 arch_ontology: SYM_ONTOLOGY dadl_section
   { 
+    dadl_sections = val[1]
     result = OpenEHR::AM::Archetype::Ontology::ARCHETYPE_ONTOLOGY.new
   }
@@ -361 +376 @@
 
 attr_vals: attr_val
+  {
+    result = Array[val[0]]
+  }
   | attr_vals attr_val
+  {
+    result = (val[0] << val[1])
+  }
   | attr_vals Semicolon_code attr_val
-#  | attr_vals ';' attr_val
+  {
+    result = (val[0] << val[2])
+  }
 
 attr_val: attr_id SYM_EQ object_block
   {
     @@log.info("#{__FILE__}:#{__LINE__}: attr_id = #{val[0]}, object_block = #{val[2]} at #{@filename}:#{@lineno}")
+    result = {:attr_id => val[0], :object_block => val[2]}
   }
 
@@ -397 +421 @@
 multiple_attr_object_block: untyped_multiple_attr_object_block
   { 
-    result = val[0]
+    result = {:untyped_multiple_attr_object_block => val[0]}
   }
   | type_identifier untyped_multiple_attr_object_block
   { 
-    result = val[0]
+    result = {:type_identifier => val[0], :untyped_multiple_attr_object_block => val[1]}
   }
 
 untyped_multiple_attr_object_block: multiple_attr_object_block_head keyed_objects SYM_END_DBLOCK
   { 
-    result = val[0]
+    result = {:multiple_attr_object_block_head => val[0], :keyed_objects => val[1]}
   }
 
@@ -416 +440 @@
 
 keyed_objects: keyed_object
+  { 
+    result = Array[val[0]]
+  }
   | keyed_objects keyed_object
+  { 
+    result = (val[0] << val[1])
+  }
 
 keyed_object: object_key SYM_EQ object_block
   {
     @@log.info("#{__FILE__}:#{__LINE__}: keyed_object = #{val[0]}, object_block = #{val[2]} at #{@filename}:#{@lineno}")
+    result = {:object_key => val[0], :object_block => val[1]}
   }
 
@@ -430 +461 @@
 
 single_attr_object_block: untyped_single_attr_object_block
+  {
+    result = {:untyped_single_attr_object_block => val[0]}
+  }
   | type_identifier untyped_single_attr_object_block
+  {
+    result = {:type_identifier => val[0], :untyped_single_attr_object_block => val[1]}
+  }
+
 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}")
-    result = val[0]
+    result = {:single_attr_object_complex_head => val[0]}
   }
   | single_attr_object_complex_head attr_vals SYM_END_DBLOCK
   {
     @@log.info("#{__FILE__}:#{__LINE__}: single_attr_object_complex_head = #{val[0]}, attr_vals = #{val[1]} at #{@filename}:#{@lineno}")
-    result = val[0]
+    result = {:single_attr_object_complex_head => val[0], :attr_vals => val[1]}
   }
 single_attr_object_complex_head: SYM_START_DBLOCK
@@ -445 +483 @@
   {
     @@log.info("#{__FILE__}:#{__LINE__}: untyped_primitive_object_block = #{val[0]} at #{@filename}:#{@lineno}")
-    result = val[0]
+    result = {:untyped_primitive_object_block => val[0]}
   }
   | type_identifier untyped_primitive_object_block
   {
     @@log.info("#{__FILE__}:#{__LINE__}: type_identifier = #{val[0]}, untyped_primitive_object_block = #{val[1]} at #{@filename}:#{@lineno}")
-    result = val[0]
+    result = {:type_identifier => val[0], :untyped_primitive_object_block => val[1]}
   }
 untyped_primitive_object_block: SYM_START_DBLOCK primitive_object_value SYM_END_DBLOCK
@@ -611 +649 @@
 
 real_value: V_REAL
+  {
+    begin
+      real = Float(val[0])
+    rescue
+      raise
+    end
+    result = real
+  }
   | Plus_code V_REAL
+  {
+    begin
+      real = Float(val[0])
+    rescue
+      raise
+    end
+    result = real
+  }
   | Minus_code V_REAL
-#  | '+' V_REAL
-#  | '-' V_REAL
+  {
+    begin
+      real = Float(val[0])
+    rescue
+      raise
+    end
+    result = - real
+  }
 
 real_list_value: real_value Comma_code real_value
@@ -632 +692 @@
 
 boolean_value: SYM_TRUE
+  { 
+    result = true
+  }
   | SYM_FALSE
+  { 
+    result = false
+  }
 
 boolean_list_value: boolean_value Comma_code boolean_value
@@ -854 +920 @@
 c_occurrences:  #-- default to 1..1
   | SYM_OCCURRENCES SYM_MATCHES SYM_START_CBLOCK occurrence_spec SYM_END_CBLOCK
+  { 
+    result = val[3]
+  }
   | SYM_OCCURRENCES error