- Fixed order mismatch in processing "using" arguments.

- Fixed some minor things in test cases.
- Use defines for Informix error codes.

diff --git a/src/interfaces/ecpg/ChangeLog b/src/interfaces/ecpg/ChangeLog
index 8146eb0e09eafec0f9e982518566c1ea46d5765b..3ac58aae4c5af510f3a0e47b893de5a353be671f 100644 (file)
--- a/src/interfaces/ecpg/ChangeLog
+++ b/src/interfaces/ecpg/ChangeLog
@@ -1645,6 +1645,12 @@ Sat Sep 20 11:06:13 CEST 2003
        - Applied some bug fixing patches by Dave Cramer <dave@fastcrypt.com>.
        - Added protecting defines to include files.
        - Renamed my own strndup() function because of a name clash.
+       
+Mon Sep 22 15:13:02 CEST 2003
+
+       - Fixed order mismatch in processing "using" arguments.
+       - Fixed some minor things in test cases.
+       - Use defines for Informix error codes.
        - 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/compatlib/informix.c b/src/interfaces/ecpg/compatlib/informix.c
index 07b4dbb691e48ac797b484346d5b1b3a7a091cc6..e3559a7a4a869e26d5443433e91d8608c54626bd 100644 (file)
--- a/src/interfaces/ecpg/compatlib/informix.c
+++ b/src/interfaces/ecpg/compatlib/informix.c
@@ -20,26 +20,26 @@ deccall2(decimal * arg1, decimal * arg2, int (*ptr) (numeric *, numeric *))
        int                     i;
 
        if ((a1 = PGTYPESnumeric_new()) == NULL)
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
 
        if ((a2 = PGTYPESnumeric_new()) == NULL)
        {
                PGTYPESnumeric_free(a1);
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
        }
 
        if (PGTYPESnumeric_from_decimal(arg1, a1) != 0)
        {
                PGTYPESnumeric_free(a1);
                PGTYPESnumeric_free(a2);
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
        }
 
        if (PGTYPESnumeric_from_decimal(arg2, a2) != 0)
        {
                PGTYPESnumeric_free(a1);
                PGTYPESnumeric_free(a2);
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
        }
 
        i = (*ptr) (a1, a2);
@@ -65,19 +65,19 @@ deccall3(decimal * arg1, decimal * arg2, decimal * result, int (*ptr) (numeric *
        }
 
        if ((a1 = PGTYPESnumeric_new()) == NULL)
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
 
        if ((a2 = PGTYPESnumeric_new()) == NULL)
        {
                PGTYPESnumeric_free(a1);
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
        }
 
        if ((nres = PGTYPESnumeric_new()) == NULL)
        {
                PGTYPESnumeric_free(a1);
                PGTYPESnumeric_free(a2);
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
        }
 
        if (PGTYPESnumeric_from_decimal(arg1, a1) != 0)
@@ -85,7 +85,7 @@ deccall3(decimal * arg1, decimal * arg2, decimal * result, int (*ptr) (numeric *
                PGTYPESnumeric_free(a1);
                PGTYPESnumeric_free(a2);
                PGTYPESnumeric_free(nres);
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
        }
 
        if (PGTYPESnumeric_from_decimal(arg2, a2) != 0)
@@ -93,7 +93,7 @@ deccall3(decimal * arg1, decimal * arg2, decimal * result, int (*ptr) (numeric *
                PGTYPESnumeric_free(a1);
                PGTYPESnumeric_free(a2);
                PGTYPESnumeric_free(nres);
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
        }
 
        i = (*ptr) (a1, a2, nres);
@@ -115,9 +115,9 @@ decadd(decimal * arg1, decimal * arg2, decimal * sum)
        deccall3(arg1, arg2, sum, PGTYPESnumeric_add);
 
        if (errno == PGTYPES_NUM_OVERFLOW)
-               return -1200;
+               return ECPG_INFORMIX_NUM_OVERFLOW;
        else if (errno != 0)
-               return -1201;
+               return ECPG_INFORMIX_NUM_UNDERFLOW;
        else
                return 0;
 }
@@ -166,7 +166,7 @@ deccvasc(char *cp, int len, decimal * np)
                return 0;
 
        if (!str)
-               ret = -1201;
+               ret = ECPG_INFORMIX_NUM_UNDERFLOW;
        else
        {
                result = PGTYPESnumeric_from_asc(str, NULL);
@@ -175,20 +175,20 @@ deccvasc(char *cp, int len, decimal * np)
                        switch (errno)
                        {
                                case PGTYPES_NUM_OVERFLOW:
-                                       ret = -1200;
+                                       ret = ECPG_INFORMIX_NUM_OVERFLOW;
                                        break;
                                case PGTYPES_NUM_BAD_NUMERIC:
-                                       ret = -1213;
+                                       ret = ECPG_INFORMIX_BAD_NUMERIC;
                                        break;
                                default:
-                                       ret = -1216;
+                                       ret = ECPG_INFORMIX_BAD_EXPONENT;
                                        break;
                        }
                }
                else
                {
                        if (PGTYPESnumeric_to_decimal(result, np) != 0)
-                               ret = -1200;
+                               ret = ECPG_INFORMIX_NUM_OVERFLOW;
 
                        free(result);
                }
@@ -209,7 +209,7 @@ deccvdbl(double dbl, decimal * np)
                return 0;
 
        if (nres == NULL)
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
 
        result = PGTYPESnumeric_from_double(dbl, nres);
        if (result == 0)
@@ -230,7 +230,7 @@ deccvint(int in, decimal * np)
                return 0;
 
        if (nres == NULL)
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
 
        result = PGTYPESnumeric_from_int(in, nres);
        if (result == 0)
@@ -251,7 +251,7 @@ deccvlong(long lng, decimal * np)
                return 0;
 
        if (nres == NULL)
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
 
        result = PGTYPESnumeric_from_long(lng, nres);
        if (result == 0)
@@ -270,13 +270,13 @@ decdiv(decimal * n1, decimal * n2, decimal * n3)
                switch (errno)
                {
                        case PGTYPES_NUM_DIVIDE_ZERO:
-                               return -1202;
+                               return ECPG_INFORMIX_DIVIDE_ZERO;
                                break;
                        case PGTYPES_NUM_OVERFLOW:
-                               return -1200;
+                               return ECPG_INFORMIX_NUM_OVERFLOW;
                                break;
                        default:
-                               return -1201;
+                               return ECPG_INFORMIX_NUM_UNDERFLOW;
                                break;
                }
 
@@ -292,10 +292,10 @@ decmul(decimal * n1, decimal * n2, decimal * n3)
                switch (errno)
                {
                        case PGTYPES_NUM_OVERFLOW:
-                               return -1200;
+                               return ECPG_INFORMIX_NUM_OVERFLOW;
                                break;
                        default:
-                               return -1201;
+                               return ECPG_INFORMIX_NUM_UNDERFLOW;
                                break;
                }
 
@@ -311,10 +311,10 @@ decsub(decimal * n1, decimal * n2, decimal * n3)
                switch (errno)
                {
                        case PGTYPES_NUM_OVERFLOW:
-                               return -1200;
+                               return ECPG_INFORMIX_NUM_OVERFLOW;
                                break;
                        default:
-                               return -1201;
+                               return ECPG_INFORMIX_NUM_UNDERFLOW;
                                break;
                }
 
@@ -328,14 +328,14 @@ dectoasc(decimal * np, char *cp, int len, int right)
        numeric    *nres = PGTYPESnumeric_new();
 
        if (nres == NULL)
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
 
        rsetnull(CSTRINGTYPE, (char *) cp);
        if (risnull(CDECIMALTYPE, (char *) np))
                return 0;
 
        if (PGTYPESnumeric_from_decimal(np, nres) != 0)
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
 
        if (right >= 0)
                str = PGTYPESnumeric_to_asc(nres, right);
@@ -363,10 +363,10 @@ dectodbl(decimal * np, double *dblp)
        int                     i;
 
        if (nres == NULL)
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
 
        if (PGTYPESnumeric_from_decimal(np, nres) != 0)
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
 
        i = PGTYPESnumeric_to_double(nres, dblp);
        PGTYPESnumeric_free(nres);
@@ -381,15 +381,15 @@ dectoint(decimal * np, int *ip)
        numeric    *nres = PGTYPESnumeric_new();
 
        if (nres == NULL)
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
 
        if (PGTYPESnumeric_from_decimal(np, nres) != 0)
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
 
        ret = PGTYPESnumeric_to_int(nres, ip);
 
        if (ret == PGTYPES_NUM_OVERFLOW)
-               ret = -1200;
+               ret = ECPG_INFORMIX_NUM_OVERFLOW;
 
        return ret;
 }
@@ -401,15 +401,15 @@ dectolong(decimal * np, long *lngp)
        numeric    *nres = PGTYPESnumeric_new();;
 
        if (nres == NULL)
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
 
        if (PGTYPESnumeric_from_decimal(np, nres) != 0)
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
 
        ret = PGTYPESnumeric_to_long(nres, lngp);
 
        if (ret == PGTYPES_NUM_OVERFLOW)
-               ret = -1200;
+               ret = ECPG_INFORMIX_NUM_OVERFLOW;
 
        return ret;
 }
@@ -421,7 +421,7 @@ rdatestr(date d, char *str)
        char       *tmp = PGTYPESdate_to_asc(d);
 
        if (!tmp)
-               return -1210;
+               return ECPG_INFORMIX_DATE_CONVERT;
 
        /* move to user allocated buffer */
        strcpy(str, tmp);
@@ -436,7 +436,7 @@ rstrdate(char *str, date * d)
        date            dat = PGTYPESdate_from_asc(str, NULL);
 
        if (errno != PGTYPES_DATE_BAD_DATE && dat == 0)
-               return -1218;
+               return ECPG_INFORMIX_BAD_DATE;
 
        *d = dat;
        return 0;
@@ -473,16 +473,16 @@ rdefmtdate(date * d, char *fmt, char *str)
        switch (errno)
        {
                case PGTYPES_DATE_ERR_ENOSHORTDATE:
-                       return -1209;
+                       return ECPG_INFORMIX_ENOSHORTDATE;
                case PGTYPES_DATE_ERR_EARGS:
                case PGTYPES_DATE_ERR_ENOTDMY:
-                       return -1212;
+                       return ECPG_INFORMIX_ENOTDMY;
                case PGTYPES_DATE_BAD_DAY:
-                       return -1204;
+                       return ECPG_INFORMIX_BAD_DAY;
                case PGTYPES_DATE_BAD_MONTH:
-                       return -1205;
+                       return ECPG_INFORMIX_BAD_MONTH;
                default:
-                       return -1206;
+                       return ECPG_INFORMIX_BAD_YEAR;
        }
 }
 
@@ -493,9 +493,9 @@ rfmtdate(date d, char *fmt, char *str)
                return 0;
 
        if (errno == ENOMEM)
-               return -1211;
+               return ECPG_INFORMIX_OUT_OF_MEMORY;
 
-       return -1210;
+       return ECPG_INFORMIX_DATE_CONVERT;
 }
 
 int
@@ -538,7 +538,7 @@ dtcvasc(char *str, timestamp *ts)
        if (**endptr)
        {
                /* extra characters exist at the end */
-               return -1264;
+               return ECPG_INFORMIX_EXTRA_CHARS;
        }
 
        /* everything went fine */

diff --git a/src/interfaces/ecpg/include/ecpg_informix.h b/src/interfaces/ecpg/include/ecpg_informix.h
index aea118ef18d25890a3453140069f4b532576ab2c..102db4bc16d2e2cc78adce138bfe4f1feb68e6c1 100644 (file)
--- a/src/interfaces/ecpg/include/ecpg_informix.h
+++ b/src/interfaces/ecpg/include/ecpg_informix.h
@@ -11,6 +11,21 @@
 
 #define SQLNOTFOUND 100
 
+#define ECPG_INFORMIX_NUM_OVERFLOW     -1200
+#define ECPG_INFORMIX_NUM_UNDERFLOW    -1201
+#define ECPG_INFORMIX_DIVIDE_ZERO      -1202
+#define ECPG_INFORMIX_BAD_YEAR         -1204
+#define ECPG_INFORMIX_BAD_MONTH                -1205
+#define ECPG_INFORMIX_BAD_DAY          -1206
+#define ECPG_INFORMIX_ENOSHORTDATE     -1209
+#define ECPG_INFORMIX_DATE_CONVERT     -1210
+#define ECPG_INFORMIX_OUT_OF_MEMORY    -1211
+#define ECPG_INFORMIX_ENOTDMY          -1212
+#define ECPG_INFORMIX_BAD_NUMERIC      -1213
+#define ECPG_INFORMIX_BAD_EXPONENT     -1216
+#define ECPG_INFORMIX_BAD_DATE         -1218
+#define ECPG_INFORMIX_EXTRA_CHARS      -1264
+
 extern int     rdatestr(date, char *);
 extern void    rtoday(date *);
 extern int     rjulmdy(date, short *);

diff --git a/src/interfaces/ecpg/preproc/preproc.y b/src/interfaces/ecpg/preproc/preproc.y
index e74bfa231f2125ee71c1a5e688137b4eb35efe9a..eebd1930b9c71688ed149760e7efdca5674f170e 100644 (file)
--- 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.257 2003/09/19 14:13:16 meskes Exp $ */
+/* $Header: /cvsroot/pgsql/src/interfaces/ecpg/preproc/Attic/preproc.y,v 1.258 2003/09/22 13:19:39 meskes Exp $ */
 
 /* Copyright comment */
 %{
@@ -268,16 +268,16 @@ add_additional_variables(char *name, bool insert)
        }
        if (insert)
        {
-               /* add all those input variables that were given earlier */
+               /* add all those input variables that were given earlier 
+                * note that we have to append here but have to keep the existing order */
                for (p = ptr->argsinsert; p; p = p->next)
-                       add_variable(&argsinsert, p->variable, p->indicator);
-       }
-       else
-       {
-               /* add all those output variables that were given earlier */
-               for (p = ptr->argsresult; p; p = p->next)
-                       add_variable(&argsresult, p->variable, p->indicator);
+                       append_variable(&argsinsert, p->variable, p->indicator);
        }
+
+       /* add all those output variables that were given earlier */
+       for (p = ptr->argsresult; p; p = p->next)
+               add_variable(&argsresult, p->variable, p->indicator);
+       
        return ptr;
 }
 %}
@@ -5320,7 +5320,7 @@ UsingConst: AllConst
                                char *length = mm_alloc(32);
 
                                sprintf(length, "%d", (int) strlen($1));
-                               add_variable(&argsinsert, new_variable($1, ECPGmake_simple_type(ECPGt_const, length), 0), &no_indicator);
+                               append_variable(&argsinsert, new_variable($1, ECPGmake_simple_type(ECPGt_const, length), 0), &no_indicator);
                        }
                }
                ;
@@ -6168,7 +6168,7 @@ c_args: /*EMPTY*/         { $$ = EMPTY; }
 coutputvariable: CVARIABLE indicator
                        { add_variable(&argsresult, find_variable($1), find_variable($2)); }
                | CVARIABLE
-                       { add_variable(&argsresult, find_variable($1), &no_indicator); } 
+                       { add_variable(&argsresult, find_variable($1), &no_indicator); }
                ;
 
 

diff --git a/src/interfaces/ecpg/preproc/variable.c b/src/interfaces/ecpg/preproc/variable.c
index d13561ab0ca5e19480a2fc330a4e242d8a76264d..7a3875832ab132fd360c3417f70f61f0c76f7469 100644 (file)
--- a/src/interfaces/ecpg/preproc/variable.c
+++ b/src/interfaces/ecpg/preproc/variable.c
@@ -345,7 +345,9 @@ reset_variables(void)
        argsresult = NULL;
 }
 
-/* Insert a new variable into our request list. */
+/* Insert a new variable into our request list. 
+ * Note: The list is dumped from the end,
+ * so we have to add new entries at the beginning */
 void
 add_variable(struct arguments ** list, struct variable * var, struct variable * ind)
 {

diff --git a/src/interfaces/ecpg/test/num_test.pgc b/src/interfaces/ecpg/test/num_test.pgc
index 3b0a1dba15a59ec5755f74b00720fbd3ed1d9e21..03de51e0cc753581a7dc8749eb42987628577ae2 100644 (file)
--- a/src/interfaces/ecpg/test/num_test.pgc
+++ b/src/interfaces/ecpg/test/num_test.pgc
@@ -22,18 +22,18 @@ main()
        
        value1 = PGTYPESnumeric_new();
        PGTYPESnumeric_from_int(1407, value1);
-       text = PGTYPESnumeric_to_asc(value1, 0);
+       text = PGTYPESnumeric_to_asc(value1, -1);
        printf("long = %s\n", text);
                
        value1 = PGTYPESnumeric_from_asc("2369.7", NULL);
        value2 = PGTYPESnumeric_from_asc("10.0", NULL);
        res = PGTYPESnumeric_new();
        PGTYPESnumeric_add(value1, value2, res);
-       text = PGTYPESnumeric_to_asc(res, 0);
+       text = PGTYPESnumeric_to_asc(res, -1);
        printf("add = %s\n", text);
        
        PGTYPESnumeric_sub(res, value2, res);
-       text = PGTYPESnumeric_to_asc(res, 0);
+       text = PGTYPESnumeric_to_asc(res, -1);
        printf("sub = %s\n", text);
                
        PGTYPESnumeric_copy(res, &des);
@@ -45,12 +45,12 @@ main()
        exec sql select num into :des from test where text = 'test';
        
        PGTYPESnumeric_mul(res, &des, res);
-       text = PGTYPESnumeric_to_asc(res, 0);
+       text = PGTYPESnumeric_to_asc(res, -1);
        printf("mul = %s\n", text);
 
        value2 = PGTYPESnumeric_from_asc("10000", NULL);
        PGTYPESnumeric_div(res, value2, res);
-       text = PGTYPESnumeric_to_asc(res, 0);
+       text = PGTYPESnumeric_to_asc(res, -1);
        PGTYPESnumeric_to_double(res, &d);
        printf("div = %s %e\n", text, d);
 

diff --git a/src/interfaces/ecpg/test/test_informix.pgc b/src/interfaces/ecpg/test/test_informix.pgc
index a502ad623f90ef206a56554da14e258736be1f82..e71f34b38e1eb24a6812797df0de13b69c938524 100644 (file)
--- a/src/interfaces/ecpg/test/test_informix.pgc
+++ b/src/interfaces/ecpg/test/test_informix.pgc
@@ -20,13 +20,13 @@ int main()
        $commit;
        
        $insert into test (i, j) values (7, 2);
-       printf("%ld: %s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
+       printf("INSERT: %ld=%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
        if (sqlca.sqlcode != 0) $rollback;
 
        $insert into test (i, j) values (:i, 1);
 
        $select i from test where j=(select j from test);
-       printf("%ld: %s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
+       printf("SELECT: %ld=%s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
        if (sqlca.sqlcode != 0) $rollback;
 
        $declare c cursor for select * from test where i <= :i;
@@ -55,7 +55,7 @@ int main()
        deccvint(14, &m);
        decadd(&j, &m, &n);
        $delete from test where i=:n;
-       printf("delete: %ld\n", sqlca.sqlcode);
+       printf("DELETE: %ld\n", sqlca.sqlcode);
 
        $select 1 from test where i=14;
        printf("Exists: %ld\n", sqlca.sqlcode);