Fixed several more parsing bugs.

Michael Meskes · Michael Meskes · commit 8a2aa79feede · 2003-06-17T07:28:22.000Z
diff --git a/src/interfaces/ecpg/ChangeLog b/src/interfaces/ecpg/ChangeLog
@@ -1492,6 +1492,10 @@ Sun Jun 15 11:18:58 CEST 2003
 
 	- Applied multi-threading patch by Lee Kindess <lkindness@csl.co.uk>
 	- Changed order of types in enum to make working with these easier.
+	
+Tue Jun 17 08:45:14 CEST 2003
+
+	- Fixed several parsing bugs.
 	- Set ecpg version to 3.0.0
 	- Set ecpg library to 4.0.0
 	- Set pgtypes library to 1.0.0
diff --git a/src/interfaces/ecpg/ecpglib/typename.c b/src/interfaces/ecpg/ecpglib/typename.c
@@ -1,4 +1,4 @@
-/* $Header: /cvsroot/pgsql/src/interfaces/ecpg/ecpglib/typename.c,v 1.4 2003/06/15 04:07:58 momjian Exp $ */
+/* $Header: /cvsroot/pgsql/src/interfaces/ecpg/ecpglib/typename.c,v 1.5 2003/06/17 07:28:22 meskes Exp $ */
 
 #define POSTGRES_ECPG_INTERNAL
 #include "postgres_fe.h"
@@ -49,13 +49,13 @@ ECPGtype_name(enum ECPGttype typ)
 		case ECPGt_char_variable:
 			return "char";
 		case ECPGt_numeric:
-			return "numeric";
+			return "Numeric";
 		case ECPGt_date:
-			return "date";
+			return "Date";
 		case ECPGt_timestamp:
-			return "timestamp";
+			return "Timestamp";
 		case ECPGt_interval:
-			return "interval";
+			return "Interval";
 		default:
 			abort();
 	}
diff --git a/src/interfaces/ecpg/preproc/pgc.l b/src/interfaces/ecpg/preproc/pgc.l
@@ -12,7 +12,7 @@
  *
  *
  * IDENTIFICATION
- *	  $Header: /cvsroot/pgsql/src/interfaces/ecpg/preproc/pgc.l,v 1.115 2003/06/16 16:58:10 meskes Exp $
+ *	  $Header: /cvsroot/pgsql/src/interfaces/ecpg/preproc/pgc.l,v 1.116 2003/06/17 07:28:22 meskes Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -231,7 +231,7 @@ ccomment		"//".*\n
 
 space			[ \t\n\r\f]
 horiz_space		[ \t\f]
-newline					[\n\r]
+newline			[\n\r]
 non_newline		[^\n\r]
 
 comment			("--"{non_newline}*)
@@ -613,7 +613,7 @@ cppline			{space}*#(.*\\{space})+.*
 			  else
 			  	return S_ANYTHING;
 			 }
-<C>{ccomment}		 { /* ignore */ }
+<C>{ccomment}		 { ECHO; }
 <C>{xch}			{
 						char* endptr;
 
diff --git a/src/interfaces/ecpg/preproc/preproc.y b/src/interfaces/ecpg/preproc/preproc.y
@@ -1,4 +1,4 @@
-/* $Header: /cvsroot/pgsql/src/interfaces/ecpg/preproc/Attic/preproc.y,v 1.232 2003/06/16 16:58:11 meskes Exp $ */
+/* $Header: /cvsroot/pgsql/src/interfaces/ecpg/preproc/Attic/preproc.y,v 1.233 2003/06/17 07:28:22 meskes Exp $ */
 
 /* Copyright comment */
 %{
@@ -4417,15 +4417,15 @@ single_vt_type: common_type
 			else if (strcmp($1, "numeric") == 0)
 			{
 				$$.type_enum = ECPGt_numeric;
-				$$.type_str = EMPTY;
+				$$.type_str = make_str("Numeric");
 				$$.type_dimension = make_str("-1");
 				$$.type_index = make_str("-1");
 				$$.type_sizeof = NULL;
 			}
 			else if (strcmp($1, "decimal") == 0)
 			{
 				$$.type_enum = ECPGt_numeric;
-				$$.type_str = EMPTY;
+				$$.type_str = make_str("Numeric");
 				$$.type_dimension = make_str("-1");
 				$$.type_index = make_str("-1");
 				$$.type_sizeof = NULL;
@@ -4457,7 +4457,7 @@ single_vt_type: common_type
 			else if (strcmp($1, "interval") == 0)
 			{
 				$$.type_enum = ECPGt_interval;
-				$$.type_str = EMPTY;
+				$$.type_str = make_str("Interval");
 				$$.type_dimension = make_str("-1");
 				$$.type_index = make_str("-1");
 				$$.type_sizeof = NULL;
@@ -4727,7 +4727,7 @@ common_type: simple_type
 				mmerror(PARSE_ERROR, ET_ERROR, "Only numeric/decimal have precision/scale argument");
 			
 			$$.type_enum = ECPGt_numeric;
-			$$.type_str = EMPTY;
+			$$.type_str = make_str("Numeric");
 			$$.type_dimension = make_str("-1");
 			$$.type_index = make_str("-1");
 			$$.type_sizeof = NULL;
@@ -4771,15 +4771,15 @@ var_type:	common_type
 			else if (strcmp($1, "numeric") == 0)
 			{
 				$$.type_enum = ECPGt_numeric;
-				$$.type_str = EMPTY;
+				$$.type_str = make_str("Numeric");
 				$$.type_dimension = make_str("-1");
 				$$.type_index = make_str("-1");
 				$$.type_sizeof = NULL;
 			}
 			else if (strcmp($1, "decimal") == 0)
 			{
 				$$.type_enum = ECPGt_numeric;
-				$$.type_str = EMPTY;
+				$$.type_str = make_str("Numeric");
 				$$.type_dimension = make_str("-1");
 				$$.type_index = make_str("-1");
 				$$.type_sizeof = NULL;
@@ -4803,7 +4803,7 @@ var_type:	common_type
 			else if (strcmp($1, "interval") == 0)
 			{
 				$$.type_enum = ECPGt_interval;
-				$$.type_str = EMPTY;
+				$$.type_str = make_str("Interval");
 				$$.type_dimension = make_str("-1");
 				$$.type_index = make_str("-1");
 				$$.type_sizeof = NULL;
@@ -5048,7 +5048,7 @@ variable: opt_pointer ECPGColLabelCommon opt_array_bounds opt_initializer
 					$$ = cat_str(4, $1, mm_strdup($2), $3.str, $4);
 					break;
 
-				case ECPGt_numeric:
+				/*case ECPGt_numeric:
 					if (atoi(dimension) < 0)
                                                 type = ECPGmake_simple_type(actual_type[struct_level].type_enum, length);
                                         else
@@ -5070,7 +5070,7 @@ variable: opt_pointer ECPGColLabelCommon opt_array_bounds opt_initializer
 						$$ = cat_str(4, mm_strdup(actual_storage[struct_level]), make_str("Interval"), mm_strdup($2), $4);
 					else
 						$$ = cat_str(5, mm_strdup(actual_storage[struct_level]), make_str("Interval"), mm_strdup($2), mm_strdup(dim), $4);
-					break;
+					break;*/
 					
 				default:
 					if (atoi(dimension) < 0)

Original file line number	Diff line number	Diff line change
`@@ -12,7 +12,7 @@`
`12`	`12`	`*`
`13`	`13`	`*`
`14`	`14`	`* IDENTIFICATION`
`15`		`- * $Header: /cvsroot/pgsql/src/interfaces/ecpg/preproc/pgc.l,v 1.115 2003/06/16 16:58:10 meskes Exp $`
	`15`	`+ * $Header: /cvsroot/pgsql/src/interfaces/ecpg/preproc/pgc.l,v 1.116 2003/06/17 07:28:22 meskes Exp $`
`16`	`16`	`*`
`17`	`17`	`*-------------------------------------------------------------------------`
`18`	`18`	`*/`
`@@ -231,7 +231,7 @@ ccomment "//".*\n`
`231`	`231`
`232`	`232`	`space [ \t\n\r\f]`
`233`	`233`	`horiz_space [ \t\f]`
`234`		`-newline [\n\r]`
	`234`	`+newline [\n\r]`
`235`	`235`	`non_newline [^\n\r]`
`236`	`236`
`237`	`237`	`comment ("--"{non_newline}*)`
`@@ -613,7 +613,7 @@ cppline {space}#(.\\{space})+.*`
`613`	`613`	`else`
`614`	`614`	`return S_ANYTHING;`
`615`	`615`	`}`
`616`		`-<C>{ccomment} { /* ignore */ }`
	`616`	`+<C>{ccomment} { ECHO; }`
`617`	`617`	`<C>{xch} {`
`618`	`618`	`char* endptr;`
`619`	`619`