PostgreSQL Source Code git master
All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Pages
pgtypeslib-num_test2.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/* End of automatic include section */
7#define ECPGdebug(X,Y) ECPGdebug((X)+100,(Y))
8
9#line 1 "num_test2.pgc"
10#include <stdio.h>
11#include <stdlib.h>
12#include <pgtypes_numeric.h>
13#include <pgtypes_error.h>
14#include <decimal.h>
15
16
17#line 1 "regression.h"
18
19
20
21
22
23
24#line 7 "num_test2.pgc"
25
26
27
28#line 1 "printf_hack.h"
29/*
30 * print_double(x) has the same effect as printf("%g", x), but is intended
31 * to produce the same formatting across all platforms.
32 */
33static void
35{
36#ifdef WIN32
37 /* Change Windows' 3-digit exponents to look like everyone else's */
38 char convert[128];
39 int vallen;
40
41 sprintf(convert, "%g", x);
42 vallen = strlen(convert);
43
44 if (vallen >= 6 &&
45 convert[vallen - 5] == 'e' &&
46 convert[vallen - 3] == '0')
47 {
48 convert[vallen - 3] = convert[vallen - 2];
49 convert[vallen - 2] = convert[vallen - 1];
50 convert[vallen - 1] = '\0';
51 }
52
53 printf("%s", convert);
54#else
55 printf("%g", x);
56#endif
57}
58
59#line 9 "num_test2.pgc"
60
61
62
63char* nums[] = { "2E394", "-2", ".794", "3.44", "592.49E21", "-32.84e4",
64 "2E-394", ".1E-2", "+.0", "-592.49E-07", "+32.84e-4",
65 ".500001", "-.5000001",
66 "1234567890123456789012345678.91", /* 30 digits should fit
67 into decimal */
68 "1234567890123456789012345678.921", /* 31 digits should NOT
69 fit into decimal */
70 "not a number",
71 NULL};
72
73
74static void
75check_errno(void);
76
77int
78main(void)
79{
80 char *text="error\n";
81 char *endptr;
82 numeric *num, *nin;
83 decimal *dec;
84 long l;
85 int i, j, k, q, r, count = 0;
86 double d;
87 numeric **numarr = (numeric **) calloc(1, sizeof(numeric));
88
89 ECPGdebug(1, stderr);
90
91 for (i = 0; nums[i]; i++)
92 {
93 num = PGTYPESnumeric_from_asc(nums[i], &endptr);
94 if (!num) check_errno();
95 if (endptr != NULL)
96 {
97 printf("endptr of %d is not NULL\n", i);
98 if (*endptr != '\0')
99 printf("*endptr of %d is not \\0\n", i);
100 }
101 if (!num) continue;
102
103 numarr = realloc(numarr, sizeof(numeric *) * (count + 1));
104 numarr[count++] = num;
105
106 text = PGTYPESnumeric_to_asc(num, -1);
107 if (!text) check_errno();
108 printf("num[%d,1]: %s\n", i, text); PGTYPESchar_free(text);
109 text = PGTYPESnumeric_to_asc(num, 0);
110 if (!text) check_errno();
111 printf("num[%d,2]: %s\n", i, text); PGTYPESchar_free(text);
112 text = PGTYPESnumeric_to_asc(num, 1);
113 if (!text) check_errno();
114 printf("num[%d,3]: %s\n", i, text); PGTYPESchar_free(text);
115 text = PGTYPESnumeric_to_asc(num, 2);
116 if (!text) check_errno();
117 printf("num[%d,4]: %s\n", i, text); PGTYPESchar_free(text);
118
119 nin = PGTYPESnumeric_new();
120 text = PGTYPESnumeric_to_asc(nin, 2);
121 if (!text) check_errno();
122 printf("num[%d,5]: %s\n", i, text); PGTYPESchar_free(text);
123
124 r = PGTYPESnumeric_to_long(num, &l);
125 if (r) check_errno();
126 printf("num[%d,6]: %ld (r: %d)\n", i, r?0L:l, r);
127 if (r == 0)
128 {
129 r = PGTYPESnumeric_from_long(l, nin);
130 if (r) check_errno();
131 text = PGTYPESnumeric_to_asc(nin, 2);
132 q = PGTYPESnumeric_cmp(num, nin);
133 printf("num[%d,7]: %s (r: %d - cmp: %d)\n", i, text, r, q);
135 }
136
137 r = PGTYPESnumeric_to_int(num, &k);
138 if (r) check_errno();
139 printf("num[%d,8]: %d (r: %d)\n", i, r?0:k, r);
140 if (r == 0)
141 {
142 r = PGTYPESnumeric_from_int(k, nin);
143 if (r) check_errno();
144 text = PGTYPESnumeric_to_asc(nin, 2);
145 q = PGTYPESnumeric_cmp(num, nin);
146 printf("num[%d,9]: %s (r: %d - cmp: %d)\n", i, text, r, q);
148 }
149
150 if (i != 6)
151 {
152 /* underflow does not work reliable on several archs, so not testing it here */
153 /* this is a libc problem since we only call strtod() */
154
155 r = PGTYPESnumeric_to_double(num, &d);
156 if (r) check_errno();
157 printf("num[%d,10]: ", i);
158 print_double(r ? 0.0 : d);
159 printf(" (r: %d)\n", r);
160 }
161
162 /* do not test double to numeric because
163 * - extra digits are different on different architectures
164 * - PGTYPESnumeric_from_double internally calls PGTYPESnumeric_from_asc anyway
165 */
166
167 dec = PGTYPESdecimal_new();
168 r = PGTYPESnumeric_to_decimal(num, dec);
169 if (r) check_errno();
170 /* we have no special routine for outputting decimal, it would
171 * convert to a numeric anyway */
172 printf("num[%d,11]: - (r: %d)\n", i, r);
173 if (r == 0)
174 {
175 r = PGTYPESnumeric_from_decimal(dec, nin);
176 if (r) check_errno();
177 text = PGTYPESnumeric_to_asc(nin, 2);
178 q = PGTYPESnumeric_cmp(num, nin);
179 printf("num[%d,12]: %s (r: %d - cmp: %d)\n", i, text, r, q);
181 }
182
185 printf("\n");
186 }
187
188 for (i = 0; i < count; i++)
189 {
190 for (j = 0; j < count; j++)
191 {
196 r = PGTYPESnumeric_add(numarr[i], numarr[j], a);
197 if (r)
198 {
199 check_errno();
200 printf("r: %d\n", r);
201 }
202 else
203 {
205 printf("num[a,%d,%d]: %s\n", i, j, text);
207 }
208 r = PGTYPESnumeric_sub(numarr[i], numarr[j], s);
209 if (r)
210 {
211 check_errno();
212 printf("r: %d\n", r);
213 }
214 else
215 {
217 printf("num[s,%d,%d]: %s\n", i, j, text);
219 }
220 r = PGTYPESnumeric_mul(numarr[i], numarr[j], m);
221 if (r)
222 {
223 check_errno();
224 printf("r: %d\n", r);
225 }
226 else
227 {
229 printf("num[m,%d,%d]: %s\n", i, j, text);
231 }
232 r = PGTYPESnumeric_div(numarr[i], numarr[j], d);
233 if (r)
234 {
235 check_errno();
236 printf("r: %d\n", r);
237 }
238 else
239 {
241 printf("num[d,%d,%d]: %s\n", i, j, text);
243 }
244
249 }
250 }
251
252 for (i = 0; i < count; i++)
253 {
254 text = PGTYPESnumeric_to_asc(numarr[i], -1);
255 printf("%d: %s\n", i, text);
257 PGTYPESnumeric_free(numarr[i]);
258 }
259 free(numarr);
260
261 return 0;
262}
263
264static void
266{
267 switch(errno)
268 {
269 case 0:
270 printf("(no errno set) - ");
271 break;
273 printf("(errno == PGTYPES_NUM_OVERFLOW) - ");
274 break;
276 printf("(errno == PGTYPES_NUM_UNDERFLOW) - ");
277 break;
279 printf("(errno == PGTYPES_NUM_BAD_NUMERIC) - ");
280 break;
282 printf("(errno == PGTYPES_NUM_DIVIDE_ZERO) - ");
283 break;
284 default:
285 printf("(unknown errno (%d))\n", errno);
286 printf("(libc: (%s)) ", strerror(errno));
287 break;
288 }
289
290}
#define realloc(a, b)
Definition: header.h:60
#define calloc(a, b)
Definition: header.h:55
#define free(a)
Definition: header.h:65
int x
Definition: isn.c:70
int a
Definition: isn.c:68
int j
Definition: isn.c:73
int i
Definition: isn.c:72
void PGTYPESchar_free(char *ptr)
Definition: common.c:145
#define PGTYPES_NUM_BAD_NUMERIC
Definition: pgtypes_error.h:4
#define PGTYPES_NUM_OVERFLOW
Definition: pgtypes_error.h:3
#define PGTYPES_NUM_UNDERFLOW
Definition: pgtypes_error.h:6
#define PGTYPES_NUM_DIVIDE_ZERO
Definition: pgtypes_error.h:5
int PGTYPESnumeric_from_decimal(decimal *src, numeric *dst)
Definition: numeric.c:1570
numeric * PGTYPESnumeric_new(void)
Definition: numeric.c:42
int PGTYPESnumeric_to_decimal(numeric *src, decimal *dst)
Definition: numeric.c:1547
char * PGTYPESnumeric_to_asc(numeric *num, int dscale)
Definition: numeric.c:343
void PGTYPESdecimal_free(decimal *var)
Definition: numeric.c:392
int PGTYPESnumeric_mul(numeric *var1, numeric *var2, numeric *result)
Definition: numeric.c:896
int PGTYPESnumeric_to_long(numeric *nv, long *lp)
Definition: numeric.c:1518
int PGTYPESnumeric_to_double(numeric *nv, double *dp)
Definition: numeric.c:1483
int PGTYPESnumeric_from_long(signed long int long_val, numeric *var)
Definition: numeric.c:1318
int PGTYPESnumeric_to_int(numeric *nv, int *ip)
Definition: numeric.c:1494
int PGTYPESnumeric_from_int(signed int int_val, numeric *var)
Definition: numeric.c:1309
int PGTYPESnumeric_sub(numeric *var1, numeric *var2, numeric *result)
Definition: numeric.c:765
decimal * PGTYPESdecimal_new(void)
Definition: numeric.c:59
void PGTYPESnumeric_free(numeric *var)
Definition: numeric.c:385
int PGTYPESnumeric_cmp(numeric *var1, numeric *var2)
Definition: numeric.c:1281
int PGTYPESnumeric_div(numeric *var1, numeric *var2, numeric *result)
Definition: numeric.c:1053
int PGTYPESnumeric_add(numeric *var1, numeric *var2, numeric *result)
Definition: numeric.c:637
numeric * PGTYPESnumeric_from_asc(char *str, char **endptr)
Definition: numeric.c:321
static void check_errno(void)
int main(void)
char * nums[]
static void print_double(double x)
#define ECPGdebug(X, Y)
#define sprintf
Definition: port.h:240
#define strerror
Definition: port.h:251
#define printf(...)
Definition: port.h:244
Definition: c.h:644
static void convert(const int32 val, char *const buf)
Definition: zic.c:1992