# HG changeset patch
# User Mario de Sousa <msousa@fe.up.pt>
# Date 1328636419 0
# Node ID 1355adcdad58fecd29f66d844227c6660d59e1a4
# Parent  9c5ad4be30fd44cb1f27e9f961d944c0ce048476
Add, to types symbol table, string datatypes with limited length (my_string_type: STRING[33]) (Thanks Andreas!)

diff -r 9c5ad4be30fd -r 1355adcdad58 absyntax_utils/absyntax_utils.cc
--- 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 */
   /*********************/
diff -r 9c5ad4be30fd -r 1355adcdad58 absyntax_utils/type_initial_value.cc
--- 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);
 }
diff -r 9c5ad4be30fd -r 1355adcdad58 absyntax_utils/type_initial_value.hh
--- 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