PostgreSQL Source Code git master
Macros | Functions | Variables
compat_informix-dec_test.c File Reference
#include <ecpglib.h>
#include <ecpgerrno.h>
#include <sqlca.h>
#include <ecpg_informix.h>
#include <stdio.h>
#include <stdlib.h>
#include <pgtypes_numeric.h>
#include <pgtypes_error.h>
#include <decimal.h>
#include <sqltypes.h>
Include dependency graph for compat_informix-dec_test.c:

Go to the source code of this file.

Macros

#define ECPGdebug(X, Y)   ECPGdebug((X)+100,(Y))
 
#define BUFSIZE   200
 

Functions

static void print_double (double x)
 
static void check_errno (void)
 
int main (void)
 

Variables

char * decs []
 

Macro Definition Documentation

◆ BUFSIZE

#define BUFSIZE   200

Definition at line 87 of file compat_informix-dec_test.c.

◆ ECPGdebug

#define ECPGdebug (   X,
  Y 
)    ECPGdebug((X)+100,(Y))

Definition at line 9 of file compat_informix-dec_test.c.

Function Documentation

◆ check_errno()

static void check_errno ( void  )
static

Definition at line 271 of file compat_informix-dec_test.c.

272{
273 switch(errno)
274 {
275 case 0:
276 printf("(no errno set) - ");
277 break;
278 case ECPG_INFORMIX_NUM_OVERFLOW:
279 printf("(errno == ECPG_INFORMIX_NUM_OVERFLOW) - ");
280 break;
281 case ECPG_INFORMIX_NUM_UNDERFLOW:
282 printf("(errno == ECPG_INFORMIX_NUM_UNDERFLOW) - ");
283 break;
284 case PGTYPES_NUM_OVERFLOW:
285 printf("(errno == PGTYPES_NUM_OVERFLOW) - ");
286 break;
287 case PGTYPES_NUM_UNDERFLOW:
288 printf("(errno == PGTYPES_NUM_UNDERFLOW) - ");
289 break;
290 case PGTYPES_NUM_BAD_NUMERIC:
291 printf("(errno == PGTYPES_NUM_BAD_NUMERIC) - ");
292 break;
293 case PGTYPES_NUM_DIVIDE_ZERO:
294 printf("(errno == PGTYPES_NUM_DIVIDE_ZERO) - ");
295 break;
296 default:
297 printf("(unknown errno (%d))\n", errno);
298 printf("(libc: (%s)) ", strerror(errno));
299 break;
300 }
301}
ECPG_INFORMIX_NUM_OVERFLOW
#define ECPG_INFORMIX_NUM_OVERFLOW
Definition: ecpg_informix.h:16
ECPG_INFORMIX_NUM_UNDERFLOW
#define ECPG_INFORMIX_NUM_UNDERFLOW
Definition: ecpg_informix.h:17
PGTYPES_NUM_BAD_NUMERIC
#define PGTYPES_NUM_BAD_NUMERIC
Definition: pgtypes_error.h:4
PGTYPES_NUM_OVERFLOW
#define PGTYPES_NUM_OVERFLOW
Definition: pgtypes_error.h:3
PGTYPES_NUM_UNDERFLOW
#define PGTYPES_NUM_UNDERFLOW
Definition: pgtypes_error.h:6
PGTYPES_NUM_DIVIDE_ZERO
#define PGTYPES_NUM_DIVIDE_ZERO
Definition: pgtypes_error.h:5
strerror
#define strerror
Definition: port.h:273
printf
#define printf(...)
Definition: port.h:266

References ECPG_INFORMIX_NUM_OVERFLOW, ECPG_INFORMIX_NUM_UNDERFLOW, PGTYPES_NUM_BAD_NUMERIC, PGTYPES_NUM_DIVIDE_ZERO, PGTYPES_NUM_OVERFLOW, PGTYPES_NUM_UNDERFLOW, printf, and strerror.

Referenced by main().

◆ main()

int main ( void  )

Definition at line 90 of file compat_informix-dec_test.c.

91{
92 decimal *dec, *din;
93 char buf[BUFSIZE];
94 long l;
95 int i, j, k, q, r, count = 0;
96 double dbl;
97 decimal **decarr = (decimal **) calloc(1, sizeof(decimal));
98
99 ECPGdebug(1, stderr);
100
101 for (i = 0; decs[i]; i++)
102 {
103 dec = PGTYPESdecimal_new();
104 r = deccvasc(decs[i], strlen(decs[i]), dec);
105 if (r)
106 {
107 check_errno();
108 printf("dec[%d,0]: r: %d\n", i, r);
109 PGTYPESdecimal_free(dec);
110 continue;
111 }
112 decarr = realloc(decarr, sizeof(decimal *) * (count + 1));
113 decarr[count++] = dec;
114
115 r = dectoasc(dec, buf, BUFSIZE-1, -1);
116 if (r < 0) check_errno();
117 printf("dec[%d,1]: r: %d, %s\n", i, r, buf);
118
119 r = dectoasc(dec, buf, BUFSIZE-1, 0);
120 if (r < 0) check_errno();
121 printf("dec[%d,2]: r: %d, %s\n", i, r, buf);
122 r = dectoasc(dec, buf, BUFSIZE-1, 1);
123 if (r < 0) check_errno();
124 printf("dec[%d,3]: r: %d, %s\n", i, r, buf);
125 r = dectoasc(dec, buf, BUFSIZE-1, 2);
126 if (r < 0) check_errno();
127 printf("dec[%d,4]: r: %d, %s\n", i, r, buf);
128
129 din = PGTYPESdecimal_new();
130 r = dectoasc(din, buf, BUFSIZE-1, 2);
131 if (r < 0) check_errno();
132 printf("dec[%d,5]: r: %d, %s\n", i, r, buf);
133
134 r = dectolong(dec, &l);
135 if (r) check_errno();
136 printf("dec[%d,6]: %ld (r: %d)\n", i, r?0L:l, r);
137 if (r == 0)
138 {
139 r = deccvlong(l, din);
140 if (r) check_errno();
141 dectoasc(din, buf, BUFSIZE-1, 2);
142 q = deccmp(dec, din);
143 printf("dec[%d,7]: %s (r: %d - cmp: %d)\n", i, buf, r, q);
144 }
145
146 r = dectoint(dec, &k);
147 if (r) check_errno();
148 printf("dec[%d,8]: %d (r: %d)\n", i, r?0:k, r);
149 if (r == 0)
150 {
151 r = deccvint(k, din);
152 if (r) check_errno();
153 dectoasc(din, buf, BUFSIZE-1, 2);
154 q = deccmp(dec, din);
155 printf("dec[%d,9]: %s (r: %d - cmp: %d)\n", i, buf, r, q);
156 }
157
158 if (i != 6)
159 {
160 /* underflow does not work reliable on several archs, so not testing it here */
161 /* this is a libc problem since we only call strtod() */
162 r = dectodbl(dec, &dbl);
163 if (r) check_errno();
164 printf("dec[%d,10]: ", i);
165 print_double(r ? 0.0 : dbl);
166 printf(" (r: %d)\n", r);
167 }
168
169 PGTYPESdecimal_free(din);
170 printf("\n");
171 }
172
173 /* add a NULL value */
174 dec = PGTYPESdecimal_new();
175 decarr = realloc(decarr, sizeof(decimal *) * (count + 1));
176 decarr[count++] = dec;
177
178 rsetnull(CDECIMALTYPE, (char *) decarr[count-1]);
179 printf("dec[%d]: %sNULL\n", count-1,
180 risnull(CDECIMALTYPE, (char *) decarr[count-1]) ? "" : "NOT ");
181 printf("dec[0]: %sNULL\n",
182 risnull(CDECIMALTYPE, (char *) decarr[0]) ? "" : "NOT ");
183
184 r = dectoasc(decarr[3], buf, -1, -1);
185 check_errno(); printf("dectoasc with len == -1: r: %d\n", r);
186 r = dectoasc(decarr[3], buf, 0, -1);
187 check_errno(); printf("dectoasc with len == 0: r: %d\n", r);
188
189 for (i = 0; i < count; i++)
190 {
191 for (j = 0; j < count; j++)
192 {
193 decimal a, s, m, d;
194 int c;
195 c = deccmp(decarr[i], decarr[j]);
196 printf("dec[c,%d,%d]: %d\n", i, j, c);
197
198 /*
199 * decarr[count-1] is risnull(), which makes these functions
200 * return 0 without changing the output parameter. Make that
201 * clear by initializing each output parameter.
202 */
203 deccvint(7654321, &a);
204 deccvint(7654321, &s);
205 deccvint(7654321, &m);
206 deccvint(7654321, &d);
207
208 r = decadd(decarr[i], decarr[j], &a);
209 if (r)
210 {
211 check_errno();
212 printf("r: %d\n", r);
213 }
214 else
215 {
216 dectoasc(&a, buf, BUFSIZE-1, -1);
217 printf("dec[a,%d,%d]: %s\n", i, j, buf);
218 }
219
220 r = decsub(decarr[i], decarr[j], &s);
221 if (r)
222 {
223 check_errno();
224 printf("r: %d\n", r);
225 }
226 else
227 {
228 dectoasc(&s, buf, BUFSIZE-1, -1);
229 printf("dec[s,%d,%d]: %s\n", i, j, buf);
230 }
231
232 r = decmul(decarr[i], decarr[j], &m);
233 if (r)
234 {
235 check_errno();
236 printf("r: %d\n", r);
237 }
238 else
239 {
240 dectoasc(&m, buf, BUFSIZE-1, -1);
241 printf("dec[m,%d,%d]: %s\n", i, j, buf);
242 }
243
244 r = decdiv(decarr[i], decarr[j], &d);
245 if (r)
246 {
247 check_errno();
248 printf("r: %d\n", r);
249 }
250 else
251 {
252 dectoasc(&d, buf, BUFSIZE-1, -1);
253 printf("dec[d,%d,%d]: %s\n", i, j, buf);
254 }
255 }
256 }
257
258 for (i = 0; i < count; i++)
259 {
260 dectoasc(decarr[i], buf, BUFSIZE-1, -1);
261 printf("%d: %s\n", i, buf);
262
263 PGTYPESdecimal_free(decarr[i]);
264 }
265 free(decarr);
266
267 return 0;
268}
check_errno
static void check_errno(void)
Definition: compat_informix-dec_test.c:271
print_double
static void print_double(double x)
Definition: compat_informix-dec_test.c:37
ECPGdebug
#define ECPGdebug(X, Y)
Definition: compat_informix-dec_test.c:9
BUFSIZE
#define BUFSIZE
Definition: compat_informix-dec_test.c:87
decs
char * decs[]
Definition: compat_informix-dec_test.c:73
realloc
#define realloc(a, b)
Definition: header.h:60
calloc
#define calloc(a, b)
Definition: header.h:55
free
#define free(a)
Definition: header.h:65
deccvasc
int deccvasc(const char *cp, int len, decimal *np)
Definition: informix.c:198
decadd
int decadd(decimal *arg1, decimal *arg2, decimal *sum)
Definition: informix.c:151
deccvlong
int deccvlong(long lng, decimal *np)
Definition: informix.c:290
deccvint
int deccvint(int in, decimal *np)
Definition: informix.c:268
dectoasc
int dectoasc(decimal *np, char *cp, int len, int right)
Definition: informix.c:381
dectoint
int dectoint(decimal *np, int *ip)
Definition: informix.c:453
decmul
int decmul(decimal *n1, decimal *n2, decimal *result)
Definition: informix.c:337
risnull
int risnull(int t, const char *ptr)
Definition: informix.c:1051
decsub
int decsub(decimal *n1, decimal *n2, decimal *result)
Definition: informix.c:359
dectolong
int dectolong(decimal *np, long *lngp)
Definition: informix.c:480
deccmp
int deccmp(decimal *arg1, decimal *arg2)
Definition: informix.c:167
decdiv
int decdiv(decimal *n1, decimal *n2, decimal *result)
Definition: informix.c:312
rsetnull
int rsetnull(int t, char *ptr)
Definition: informix.c:1044
dectodbl
int dectodbl(decimal *np, double *dblp)
Definition: informix.c:432
a
int a
Definition: isn.c:73
j
int j
Definition: isn.c:78
i
int i
Definition: isn.c:77
buf
static char * buf
Definition: pg_test_fsync.c:72
PGTYPESdecimal_free
void PGTYPESdecimal_free(decimal *var)
Definition: numeric.c:392
PGTYPESdecimal_new
decimal * PGTYPESdecimal_new(void)
Definition: numeric.c:59
c
char * c
Definition: preproc-cursor.c:31
CDECIMALTYPE
#define CDECIMALTYPE
Definition: sqltypes.h:12

References a, buf, BUFSIZE, calloc, CDECIMALTYPE, check_errno(), decadd(), deccmp(), deccvasc(), deccvint(), deccvlong(), decdiv(), decmul(), decs, decsub(), dectoasc(), dectodbl(), dectoint(), dectolong(), ECPGdebug, free, i, j, PGTYPESdecimal_free(), PGTYPESdecimal_new(), print_double(), printf, realloc, risnull(), and rsetnull().

◆ print_double()

static void print_double ( double  x)
static

Definition at line 37 of file compat_informix-dec_test.c.

38{
39#ifdef WIN32
40 /* Change Windows' 3-digit exponents to look like everyone else's */
41 char convert[128];
42 int vallen;
43
44 sprintf(convert, "%g", x);
45 vallen = strlen(convert);
46
47 if (vallen >= 6 &&
48 convert[vallen - 5] == 'e' &&
49 convert[vallen - 3] == '0')
50 {
51 convert[vallen - 3] = convert[vallen - 2];
52 convert[vallen - 2] = convert[vallen - 1];
53 convert[vallen - 1] = '\0';
54 }
55
56 printf("%s", convert);
57#else
58 printf("%g", x);
59#endif
60}
x
int x
Definition: isn.c:75
sprintf
#define sprintf
Definition: port.h:262
convert
static void convert(const int_fast32_t val, char *const buf)
Definition: zic.c:1980

References convert(), printf, sprintf, and x.

Referenced by main().

Variable Documentation

◆ decs

char* decs[]
Initial value:
= { "2E394", "-2", ".794", "3.44", "592.49E21", "-32.84e4",
"2E-394", ".1E-2", "+.0", "-592.49E-07", "+32.84e-4",
".500001", "-.5000001",
"1234567890123456789012345678.91",
"1234567890123456789012345678.921",
"not a number",
NULL}

Definition at line 73 of file compat_informix-dec_test.c.

Referenced by main().