- Accept output variables for FETCH in DECLARE statement.

- Synced parser.
- Allowed C variables to carry the name of prepared statements.
- Added Informix handling of datatype converion errors.

Author: Michael Meskes

src/interfaces/ecpg/ChangeLog

@@ -1622,6 +1622,19 @@ Tue Sep  9 12:13:51 CEST 2003
 Wed Sep 10 20:01:49 CEST 2003
 
 	- Some files still had uppercase typenames
+	
+Mon Sep 15 18:09:42 CEST 2003
+
+	- Accept output variables for FETCH in DECLARE statement.
+	
+Tue Sep 16 07:56:14 CEST 2003
+
+	- Synced parser.
+	- Allowed C variables to carry the name of prepared statements.
+	
+Thu Sep 18 14:54:47 CEST 2003
+
+	- Added Informix handling of datatype converion errors.
 	- Set ecpg version to 3.0.0
 	- Set ecpg library to 4.0.0
 	- Set pgtypes library to 1.0.0

src/interfaces/ecpg/ecpglib/data.c

@@ -1,4 +1,4 @@
-/* $Header: /cvsroot/pgsql/src/interfaces/ecpg/ecpglib/data.c,v 1.17 2003/09/09 10:46:37 meskes Exp $ */
+/* $Header: /cvsroot/pgsql/src/interfaces/ecpg/ecpglib/data.c,v 1.18 2003/09/18 13:12:23 meskes Exp $ */
 
 #define POSTGRES_ECPG_INTERNAL
 #include "postgres_fe.h"
@@ -390,6 +390,21 @@ ECPGget_data(const PGresult *results, int act_tuple, int act_field, int lineno,
 					else
 						nres = PGTYPESnumeric_from_asc(pval, &scan_length);
 
+					/* did we get an error? */
+					if (errno != 0)
+					{
+						if (INFORMIX_MODE(compat))
+						{
+							/* Informix wants its own NULL value here instead of an error */
+							ECPGset_informix_null(ECPGt_numeric, &nres);
+							return (true);
+						}
+						else
+						{
+							ECPGraise(lineno, ECPG_NUMERIC_FORMAT, ECPG_SQLSTATE_DATATYPE_MISMATCH, pval);
+							return (false);
+						}
+					}
 					if (isarray && *scan_length == '"')
 						scan_length++;
 
@@ -417,6 +432,21 @@ ECPGget_data(const PGresult *results, int act_tuple, int act_field, int lineno,
 					else
 						ires = PGTYPESinterval_from_asc(pval, &scan_length);
 
+					/* did we get an error? */
+					if (errno != 0)
+					{
+						if (INFORMIX_MODE(compat))
+						{
+							/* Informix wants its own NULL value here instead of an error */
+							ECPGset_informix_null(ECPGt_interval, &ires);
+							return (true);
+						}
+						else
+						{
+							ECPGraise(lineno, ECPG_INTERVAL_FORMAT, ECPG_SQLSTATE_DATATYPE_MISMATCH, pval);
+							return (false);
+						}
+					}
 					if (isarray && *scan_length == '"')
 						scan_length++;
 
@@ -440,6 +470,22 @@ ECPGget_data(const PGresult *results, int act_tuple, int act_field, int lineno,
 					else
 						ddres = PGTYPESdate_from_asc(pval, &scan_length);
 
+					/* did we get an error? */
+					if (errno != 0)
+					{
+						if (INFORMIX_MODE(compat))
+						{
+							/* Informix wants its own NULL value here instead of an error */
+							ECPGset_informix_null(ECPGt_date, &ddres);
+							return (true);
+						}
+						else
+						{
+							ECPGraise(lineno, ECPG_DATE_FORMAT, ECPG_SQLSTATE_DATATYPE_MISMATCH, pval);
+							return (false);
+						}
+					}
+					
 					if (isarray && *scan_length == '"')
 						scan_length++;
 
@@ -462,6 +508,21 @@ ECPGget_data(const PGresult *results, int act_tuple, int act_field, int lineno,
 					else
 						tres = PGTYPEStimestamp_from_asc(pval, &scan_length);
 
+					/* did we get an error? */
+					if (errno != 0)
+					{
+						if (INFORMIX_MODE(compat))
+						{
+							/* Informix wants its own NULL value here instead of an error */
+							ECPGset_informix_null(ECPGt_timestamp, &tres);
+							return (true);
+						}
+						else
+						{
+							ECPGraise(lineno, ECPG_TIMESTAMP_FORMAT, ECPG_SQLSTATE_DATATYPE_MISMATCH, pval);
+							return (false);
+						}
+					}
 					if (isarray && *scan_length == '"')
 						scan_length++;
 

src/interfaces/ecpg/ecpglib/execute.c

@@ -1,4 +1,4 @@
-/* $Header: /cvsroot/pgsql/src/interfaces/ecpg/ecpglib/execute.c,v 1.24 2003/09/09 10:46:37 meskes Exp $ */
+/* $Header: /cvsroot/pgsql/src/interfaces/ecpg/ecpglib/execute.c,v 1.25 2003/09/18 13:12:23 meskes Exp $ */
 
 /*
  * The aim is to get a simpler inteface to the database routines.
@@ -857,7 +857,7 @@ ECPGstore_input(const struct statement * stmt, const struct variable * var,
 							else
 								PGTYPESnumeric_from_decimal((decimal *) ((var + var->offset * element)->value), nval);
 
-							str = PGTYPESnumeric_to_asc(nval, 0);
+							str = PGTYPESnumeric_to_asc(nval, nval->dscale);
 							PGTYPESnumeric_free(nval);
 							slen = strlen(str);
 
@@ -879,7 +879,7 @@ ECPGstore_input(const struct statement * stmt, const struct variable * var,
 						else
 							PGTYPESnumeric_from_decimal((decimal *) (var->value), nval);
 
-						str = PGTYPESnumeric_to_asc(nval, 0);
+						str = PGTYPESnumeric_to_asc(nval, nval->dscale);
 
 						PGTYPESnumeric_free(nval);
 						slen = strlen(str);