static void dump_sqlda(sqlda_t *sqlda) { int i; if (sqlda == NULL) { printf("dump_sqlda called with NULL sqlda\n"); return; } for (i = 0; i < sqlda->sqld; i++) { if (sqlda->sqlvar[i].sqlind && *(sqlda->sqlvar[i].sqlind) == -1) printf("name sqlda descriptor: '%s' value NULL'\n", sqlda->sqlvar[i].sqlname); else switch (sqlda->sqlvar[i].sqltype) { case SQLCHAR: printf("name sqlda descriptor: '%s' value '%s'\n", sqlda->sqlvar[i].sqlname, sqlda->sqlvar[i].sqldata); break; case SQLINT: printf("name sqlda descriptor: '%s' value %d\n", sqlda->sqlvar[i].sqlname, *(int *)sqlda->sqlvar[i].sqldata); break; case SQLFLOAT: printf("name sqlda descriptor: '%s' value %lf\n", sqlda->sqlvar[i].sqlname, *(double *)sqlda->sqlvar[i].sqldata); break; case SQLDECIMAL: { char val[64]; dectoasc((decimal *)sqlda->sqlvar[i].sqldata, val, 64, -1); printf("name sqlda descriptor: '%s' value DECIMAL '%s'\n", sqlda->sqlvar[i].sqlname, val); break; } } } }
int main(void) { decimal *dec, *din; char buf[BUFSIZE]; long l; int i, j, k, q, r, count = 0; double dbl; decimal **decarr = (decimal **) calloc(1, sizeof(decimal)); ECPGdebug(1, stderr); for (i = 0; decs[i]; i++) { dec = PGTYPESdecimal_new(); r = deccvasc(decs[i], strlen(decs[i]), dec); if (r) { check_errno(); printf("dec[%d,0]: r: %d\n", i, r); PGTYPESdecimal_free(dec); continue; } decarr = realloc(decarr, sizeof(decimal *) * (count + 1)); decarr[count++] = dec; r = dectoasc(dec, buf, BUFSIZE-1, -1); if (r < 0) check_errno(); printf("dec[%d,1]: r: %d, %s\n", i, r, buf); r = dectoasc(dec, buf, BUFSIZE-1, 0); if (r < 0) check_errno(); printf("dec[%d,2]: r: %d, %s\n", i, r, buf); r = dectoasc(dec, buf, BUFSIZE-1, 1); if (r < 0) check_errno(); printf("dec[%d,3]: r: %d, %s\n", i, r, buf); r = dectoasc(dec, buf, BUFSIZE-1, 2); if (r < 0) check_errno(); printf("dec[%d,4]: r: %d, %s\n", i, r, buf); din = PGTYPESdecimal_new(); r = dectoasc(din, buf, BUFSIZE-1, 2); if (r < 0) check_errno(); printf("dec[%d,5]: r: %d, %s\n", i, r, buf); r = dectolong(dec, &l); if (r) check_errno(); printf("dec[%d,6]: %ld (r: %d)\n", i, r?0L:l, r); if (r == 0) { r = deccvlong(l, din); if (r) check_errno(); dectoasc(din, buf, BUFSIZE-1, 2); q = deccmp(dec, din); printf("dec[%d,7]: %s (r: %d - cmp: %d)\n", i, buf, r, q); } r = dectoint(dec, &k); if (r) check_errno(); printf("dec[%d,8]: %d (r: %d)\n", i, r?0:k, r); if (r == 0) { r = deccvint(k, din); if (r) check_errno(); dectoasc(din, buf, BUFSIZE-1, 2); q = deccmp(dec, din); printf("dec[%d,9]: %s (r: %d - cmp: %d)\n", i, buf, r, q); } if (i != 6) { /* underflow does not work reliable on several archs, so not testing it here */ /* this is a libc problem since we only call strtod() */ r = dectodbl(dec, &dbl); if (r) check_errno(); printf("dec[%d,10]: %g (r: %d)\n", i, r?0.0:dbl, r); } PGTYPESdecimal_free(din); printf("\n"); } /* add a NULL value */ dec = PGTYPESdecimal_new(); decarr = realloc(decarr, sizeof(decimal *) * (count + 1)); decarr[count++] = dec; rsetnull(CDECIMALTYPE, (char *) decarr[count-1]); printf("dec[%d]: %sNULL\n", count-1, risnull(CDECIMALTYPE, (char *) decarr[count-1]) ? "" : "NOT "); printf("dec[0]: %sNULL\n", risnull(CDECIMALTYPE, (char *) decarr[0]) ? "" : "NOT "); r = dectoasc(decarr[3], buf, -1, -1); check_errno(); printf("dectoasc with len == -1: r: %d\n", r); r = dectoasc(decarr[3], buf, 0, -1); check_errno(); printf("dectoasc with len == 0: r: %d\n", r); for (i = 0; i < count; i++) { for (j = 0; j < count; j++) { decimal a, s, m, d; int c; c = deccmp(decarr[i], decarr[j]); printf("dec[c,%d,%d]: %d\n", i, j, c); r = decadd(decarr[i], decarr[j], &a); if (r) { check_errno(); printf("r: %d\n", r); } else { dectoasc(&a, buf, BUFSIZE-1, -1); printf("dec[a,%d,%d]: %s\n", i, j, buf); } r = decsub(decarr[i], decarr[j], &s); if (r) { check_errno(); printf("r: %d\n", r); } else { dectoasc(&s, buf, BUFSIZE-1, -1); printf("dec[s,%d,%d]: %s\n", i, j, buf); } r = decmul(decarr[i], decarr[j], &m); if (r) { check_errno(); printf("r: %d\n", r); } else { dectoasc(&m, buf, BUFSIZE-1, -1); printf("dec[m,%d,%d]: %s\n", i, j, buf); } r = decdiv(decarr[i], decarr[j], &d); if (r) { check_errno(); printf("r: %d\n", r); } else { dectoasc(&d, buf, BUFSIZE-1, -1); printf("dec[d,%d,%d]: %s\n", i, j, buf); } } } for (i = 0; i < count; i++) { dectoasc(decarr[i], buf, BUFSIZE-1, -1); printf("%d: %s\n", i, buf); PGTYPESdecimal_free(decarr[i]); } free(decarr); return 0; }