Add, to types symbol table, string datatypes with limited length (my_string_type: STRING[33]) (Thanks Andreas!)
authorMario de Sousa <msousa@fe.up.pt>
Tue, 07 Feb 2012 17:40:19 +0000
changeset 433 1355adcdad58
parent 432 9c5ad4be30fd
child 434 c1278e52bcbc
Add, to types symbol table, string datatypes with limited length (my_string_type: STRING[33]) (Thanks Andreas!)
absyntax_utils/absyntax_utils.cc
absyntax_utils/type_initial_value.cc
absyntax_utils/type_initial_value.hh
--- a/absyntax_utils/absyntax_utils.cc	Tue Feb 07 12:17:00 2012 +0000
+++ b/absyntax_utils/absyntax_utils.cc	Tue Feb 07 17:40:19 2012 +0000
@@ -294,7 +294,17 @@
   }
   
   
-  
+  /*  string_type_name ':' elementary_string_type_name string_type_declaration_size string_type_declaration_init */
+  // SYM_REF4(string_type_declaration_c,	string_type_name,
+  //    					elementary_string_type_name,
+  //    					string_type_declaration_size,
+  //    					string_type_declaration_init) /* may be == NULL! */
+  void *visit(string_type_declaration_c *symbol)	{
+    TRACE("string_type_declaration_c");
+    type_symtable.insert(symbol->string_type_name, symbol);
+    return NULL;
+}
+
   /*********************/
   /* B 1.4 - Variables */
   /*********************/
--- a/absyntax_utils/type_initial_value.cc	Tue Feb 07 12:17:00 2012 +0000
+++ b/absyntax_utils/type_initial_value.cc	Tue Feb 07 17:40:19 2012 +0000
@@ -366,12 +366,10 @@
  * as would be expected!
  */
 /*  string_type_name ':' elementary_string_type_name string_type_declaration_size string_type_declaration_init */
-#if 0
-SYM_REF4(string_type_declaration_c,	string_type_name,
-					elementary_string_type_name,
-					string_type_declaration_size,
-					string_type_declaration_init) /* may be == NULL! */
-#endif
+// SYM_REF4(string_type_declaration_c,	string_type_name,
+// 					elementary_string_type_name,
+// 					string_type_declaration_size,
+// 					string_type_declaration_init) /* may be == NULL! */
 void *type_initial_value_c::visit(string_type_declaration_c *symbol)	{
   return handle_type_spec(symbol->elementary_string_type_name, symbol->string_type_declaration_init);
 }
--- a/absyntax_utils/type_initial_value.hh	Tue Feb 07 12:17:00 2012 +0000
+++ b/absyntax_utils/type_initial_value.hh	Tue Feb 07 17:40:19 2012 +0000
@@ -279,12 +279,10 @@
      * as would be expected!
      */
     /*  string_type_name ':' elementary_string_type_name string_type_declaration_size string_type_declaration_init */
-#if 0
-SYM_REF4(string_type_declaration_c,	string_type_name,
-					elementary_string_type_name,
-					string_type_declaration_size,
-					string_type_declaration_init) /* may be == NULL! */
-#endif
+     // SYM_REF4(string_type_declaration_c,	string_type_name,
+     //					elementary_string_type_name,
+     //					string_type_declaration_size,
+     // 				string_type_declaration_init) /* may be == NULL! */
     void *visit(string_type_declaration_c *symbol);
 }; // type_initial_value_c