PostgreSQL Source Code  git master
compat_informix-dec_test.c
Go to the documentation of this file.
1 /* Processed by ecpg (regression mode) */
2 /* These include files are added by the preprocessor */
3 #include <ecpglib.h>
4 #include <ecpgerrno.h>
5 #include <sqlca.h>
6 /* Needed for informix compatibility */
7 #include <ecpg_informix.h>
8 /* End of automatic include section */
9 #define ECPGdebug(X,Y) ECPGdebug((X)+100,(Y))
10 
11 #line 1 "dec_test.pgc"
12 #include <stdio.h>
13 #include <stdlib.h>
14 #include <pgtypes_numeric.h>
15 #include <pgtypes_error.h>
16 #include <decimal.h>
17 #include <sqltypes.h>
18 
19 
20 #line 1 "regression.h"
21 
22 
23 
24 
25 
26 
27 #line 8 "dec_test.pgc"
28 
29 
30 
31 #line 1 "printf_hack.h"
32 /*
33  * print_double(x) has the same effect as printf("%g", x), but is intended
34  * to produce the same formatting across all platforms.
35  */
36 static void
37 print_double(double x)
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 }
61 
62 #line 10 "dec_test.pgc"
63 
64 
65 
66 /*
67 TODO:
68  deccmp => DECUNKNOWN
69  decimal point: , and/or . ?
70  ECPG_INFORMIX_BAD_EXPONENT ?
71 */
72 
73 char* decs[] = { "2E394", "-2", ".794", "3.44", "592.49E21", "-32.84e4",
74  "2E-394", ".1E-2", "+.0", "-592.49E-07", "+32.84e-4",
75  ".500001", "-.5000001",
76  "1234567890123456789012345678.91", /* 30 digits should fit
77  into decimal */
78  "1234567890123456789012345678.921", /* 31 digits should NOT
79  fit into decimal */
80  "not a number",
81  NULL};
82 
83 
84 static void
85 check_errno(void);
86 
87 #define BUFSIZE 200
88 
89 int
90 main(void)
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  r = decadd(decarr[i], decarr[j], &a);
199  if (r)
200  {
201  check_errno();
202  printf("r: %d\n", r);
203  }
204  else
205  {
206  dectoasc(&a, buf, BUFSIZE-1, -1);
207  printf("dec[a,%d,%d]: %s\n", i, j, buf);
208  }
209 
210  r = decsub(decarr[i], decarr[j], &s);
211  if (r)
212  {
213  check_errno();
214  printf("r: %d\n", r);
215  }
216  else
217  {
218  dectoasc(&s, buf, BUFSIZE-1, -1);
219  printf("dec[s,%d,%d]: %s\n", i, j, buf);
220  }
221 
222  r = decmul(decarr[i], decarr[j], &m);
223  if (r)
224  {
225  check_errno();
226  printf("r: %d\n", r);
227  }
228  else
229  {
230  dectoasc(&m, buf, BUFSIZE-1, -1);
231  printf("dec[m,%d,%d]: %s\n", i, j, buf);
232  }
233 
234  r = decdiv(decarr[i], decarr[j], &d);
235  if (r)
236  {
237  check_errno();
238  printf("r: %d\n", r);
239  }
240  else
241  {
242  dectoasc(&d, buf, BUFSIZE-1, -1);
243  printf("dec[d,%d,%d]: %s\n", i, j, buf);
244  }
245  }
246  }
247 
248  for (i = 0; i < count; i++)
249  {
250  dectoasc(decarr[i], buf, BUFSIZE-1, -1);
251  printf("%d: %s\n", i, buf);
252 
253  PGTYPESdecimal_free(decarr[i]);
254  }
255  free(decarr);
256 
257  return 0;
258 }
259 
260 static void
262 {
263  switch(errno)
264  {
265  case 0:
266  printf("(no errno set) - ");
267  break;
269  printf("(errno == ECPG_INFORMIX_NUM_OVERFLOW) - ");
270  break;
272  printf("(errno == ECPG_INFORMIX_NUM_UNDERFLOW) - ");
273  break;
275  printf("(errno == PGTYPES_NUM_OVERFLOW) - ");
276  break;
278  printf("(errno == PGTYPES_NUM_UNDERFLOW) - ");
279  break;
281  printf("(errno == PGTYPES_NUM_BAD_NUMERIC) - ");
282  break;
284  printf("(errno == PGTYPES_NUM_DIVIDE_ZERO) - ");
285  break;
286  default:
287  printf("(unknown errno (%d))\n", errno);
288  printf("(libc: (%s)) ", strerror(errno));
289  break;
290  }
291 }
#define calloc(a, b)
Definition: header.h:55
int decsub(decimal *n1, decimal *n2, decimal *result)
Definition: informix.c:359
int dectolong(decimal *np, long *lngp)
Definition: informix.c:477
int risnull(int t, const char *ptr)
Definition: informix.c:1045
#define PGTYPES_NUM_DIVIDE_ZERO
Definition: pgtypes_error.h:5
decimal * PGTYPESdecimal_new(void)
Definition: numeric.c:144
#define printf(...)
Definition: port.h:198
static void print_double(double x)
#define ECPG_INFORMIX_NUM_OVERFLOW
Definition: ecpg_informix.h:16
int dectodbl(decimal *np, double *dblp)
Definition: informix.c:432
#define sprintf
Definition: port.h:194
int decdiv(decimal *n1, decimal *n2, decimal *result)
Definition: informix.c:312
#define ECPG_INFORMIX_NUM_UNDERFLOW
Definition: ecpg_informix.h:17
static void convert(const int32 val, char *const buf)
Definition: zic.c:1959
int deccvasc(const char *cp, int len, decimal *np)
Definition: informix.c:198
char * c
static char * buf
Definition: pg_test_fsync.c:68
#define CDECIMALTYPE
Definition: sqltypes.h:12
#define PGTYPES_NUM_OVERFLOW
Definition: pgtypes_error.h:3
int deccvint(int in, decimal *np)
Definition: informix.c:268
int dectoint(decimal *np, int *ip)
Definition: informix.c:453
int deccmp(decimal *arg1, decimal *arg2)
Definition: informix.c:167
#define PGTYPES_NUM_UNDERFLOW
Definition: pgtypes_error.h:6
#define free(a)
Definition: header.h:65
int decmul(decimal *n1, decimal *n2, decimal *result)
Definition: informix.c:337
static void check_errno(void)
int rsetnull(int t, char *ptr)
Definition: informix.c:1038
#define strerror
Definition: port.h:205
void PGTYPESdecimal_free(decimal *)
Definition: numeric.c:477
#define PGTYPES_NUM_BAD_NUMERIC
Definition: pgtypes_error.h:4
#define realloc(a, b)
Definition: header.h:60
int deccvlong(long lng, decimal *np)
Definition: informix.c:290
int dectoasc(decimal *np, char *cp, int len, int right)
Definition: informix.c:381
int main(void)
#define ECPGdebug(X, Y)
int i
#define BUFSIZE
int decadd(decimal *arg1, decimal *arg2, decimal *sum)
Definition: informix.c:151
char * decs[]