@@ -44,36 +44,31 @@ NOTE: This file has a different expect file for regression tests on MinGW32
44
44
ECPG_INFORMIX_BAD_EXPONENT ?
45
45
*/
46
46
47
- char * decs [] = {"2E394" , "-2" , ".794" , "3.44" , "592.49E21" , "-32.84e4" ,
48
- "2E-394" , ".1E-2" , "+.0" , "-592.49E-07" , "+32.84e-4" ,
49
- ".500001" , "-.5000001" ,
50
- "1234567890123456789012345678.91" , /* 30 digits should fit into decimal */
51
- "1234567890123456789012345678.921" , /* 31 digits should NOT fit into
52
- * decimal */
53
- "not a number" ,
54
- NULL };
47
+ char * decs [] = { "2E394" , "-2" , ".794" , "3.44" , "592.49E21" , "-32.84e4" ,
48
+ "2E-394" , ".1E-2" , "+.0" , "-592.49E-07" , "+32.84e-4" ,
49
+ ".500001" , "-.5000001" ,
50
+ "1234567890123456789012345678.91" , /* 30 digits should fit
51
+ into decimal */
52
+ "1234567890123456789012345678.921" , /* 31 digits should NOT
53
+ fit into decimal */
54
+ "not a number" ,
55
+ NULL };
55
56
56
57
57
58
static void
58
- check_errno (void );
59
+ check_errno (void );
59
60
60
61
#define BUFSIZE 200
61
62
62
63
int
63
64
main (void )
64
65
{
65
- decimal * dec ,
66
- * din ;
67
- char buf [BUFSIZE ];
68
- long l ;
69
- int i ,
70
- j ,
71
- k ,
72
- q ,
73
- r ,
74
- count = 0 ;
75
- double dbl ;
76
- decimal * * decarr = (decimal * * ) calloc (1 , sizeof (decimal ));
66
+ decimal * dec , * din ;
67
+ char buf [BUFSIZE ];
68
+ long l ;
69
+ int i , j , k , q , r , count = 0 ;
70
+ double dbl ;
71
+ decimal * * decarr = (decimal * * ) calloc (1 , sizeof (decimal ));
77
72
78
73
ECPGdebug (1 , stderr );
79
74
@@ -90,62 +85,52 @@ main(void)
90
85
decarr = realloc (decarr , sizeof (decimal * ) * (count + 1 ));
91
86
decarr [count ++ ] = dec ;
92
87
93
- r = dectoasc (dec , buf , BUFSIZE - 1 , -1 );
94
- if (r < 0 )
95
- check_errno ();
88
+ r = dectoasc (dec , buf , BUFSIZE - 1 , -1 );
89
+ if (r < 0 ) check_errno ();
96
90
printf ("dec[%d,1]: r: %d, %s\n" , i , r , buf );
97
91
98
- r = dectoasc (dec , buf , BUFSIZE - 1 , 0 );
99
- if (r < 0 )
100
- check_errno ();
92
+ r = dectoasc (dec , buf , BUFSIZE - 1 , 0 );
93
+ if (r < 0 ) check_errno ();
101
94
printf ("dec[%d,2]: r: %d, %s\n" , i , r , buf );
102
- r = dectoasc (dec , buf , BUFSIZE - 1 , 1 );
103
- if (r < 0 )
104
- check_errno ();
95
+ r = dectoasc (dec , buf , BUFSIZE - 1 , 1 );
96
+ if (r < 0 ) check_errno ();
105
97
printf ("dec[%d,3]: r: %d, %s\n" , i , r , buf );
106
- r = dectoasc (dec , buf , BUFSIZE - 1 , 2 );
107
- if (r < 0 )
108
- check_errno ();
98
+ r = dectoasc (dec , buf , BUFSIZE - 1 , 2 );
99
+ if (r < 0 ) check_errno ();
109
100
printf ("dec[%d,4]: r: %d, %s\n" , i , r , buf );
110
101
111
102
din = PGTYPESdecimal_new ();
112
- r = dectoasc (din , buf , BUFSIZE - 1 , 2 );
113
- if (r < 0 )
114
- check_errno ();
103
+ r = dectoasc (din , buf , BUFSIZE - 1 , 2 );
104
+ if (r < 0 ) check_errno ();
115
105
printf ("dec[%d,5]: r: %d, %s\n" , i , r , buf );
116
106
117
107
r = dectolong (dec , & l );
118
- if (r )
119
- check_errno ();
120
- printf ("dec[%d,6]: %ld (r: %d)\n" , i , r ? 0L : l , r );
108
+ if (r ) check_errno ();
109
+ printf ("dec[%d,6]: %ld (r: %d)\n" , i , r ?0L :l , r );
121
110
if (r == 0 )
122
111
{
123
112
r = deccvlong (l , din );
124
- if (r )
125
- check_errno ();
126
- dectoasc (din , buf , BUFSIZE - 1 , 2 );
113
+ if (r ) check_errno ();
114
+ dectoasc (din , buf , BUFSIZE - 1 , 2 );
127
115
q = deccmp (dec , din );
128
116
printf ("dec[%d,7]: %s (r: %d - cmp: %d)\n" , i , buf , r , q );
129
117
}
130
118
131
119
r = dectoint (dec , & k );
132
- if (r )
133
- check_errno ();
134
- printf ("dec[%d,8]: %d (r: %d)\n" , i , r ? 0 : k , r );
120
+ if (r ) check_errno ();
121
+ printf ("dec[%d,8]: %d (r: %d)\n" , i , r ?0 :k , r );
135
122
if (r == 0 )
136
123
{
137
124
r = deccvint (k , din );
138
- if (r )
139
- check_errno ();
140
- dectoasc (din , buf , BUFSIZE - 1 , 2 );
125
+ if (r ) check_errno ();
126
+ dectoasc (din , buf , BUFSIZE - 1 , 2 );
141
127
q = deccmp (dec , din );
142
128
printf ("dec[%d,9]: %s (r: %d - cmp: %d)\n" , i , buf , r , q );
143
129
}
144
130
145
131
r = dectodbl (dec , & dbl );
146
- if (r )
147
- check_errno ();
148
- printf ("dec[%d,10]: %g (r: %d)\n" , i , r ? 0.0 : dbl , r );
132
+ if (r ) check_errno ();
133
+ printf ("dec[%d,10]: %g (r: %d)\n" , i , r ?0.0 :dbl , r );
149
134
150
135
PGTYPESdecimal_free (din );
151
136
printf ("\n" );
@@ -156,29 +141,23 @@ main(void)
156
141
decarr = realloc (decarr , sizeof (decimal * ) * (count + 1 ));
157
142
decarr [count ++ ] = dec ;
158
143
159
- rsetnull (CDECIMALTYPE , (char * ) decarr [count - 1 ]);
160
- printf ("dec[%d]: %sNULL\n" , count - 1 ,
161
- risnull (CDECIMALTYPE , (char * ) decarr [count - 1 ]) ? "" : "NOT " );
144
+ rsetnull (CDECIMALTYPE , (char * ) decarr [count - 1 ]);
145
+ printf ("dec[%d]: %sNULL\n" , count - 1 ,
146
+ risnull (CDECIMALTYPE , (char * ) decarr [count - 1 ]) ? "" : "NOT " );
162
147
printf ("dec[0]: %sNULL\n" ,
163
- risnull (CDECIMALTYPE , (char * ) decarr [0 ]) ? "" : "NOT " );
148
+ risnull (CDECIMALTYPE , (char * ) decarr [0 ]) ? "" : "NOT " );
164
149
165
150
r = dectoasc (decarr [3 ], buf , -1 , -1 );
166
- check_errno ();
167
- printf ("dectoasc with len == -1: r: %d\n" , r );
151
+ check_errno (); printf ("dectoasc with len == -1: r: %d\n" , r );
168
152
r = dectoasc (decarr [3 ], buf , 0 , -1 );
169
- check_errno ();
170
- printf ("dectoasc with len == 0: r: %d\n" , r );
153
+ check_errno (); printf ("dectoasc with len == 0: r: %d\n" , r );
171
154
172
155
for (i = 0 ; i < count ; i ++ )
173
156
{
174
157
for (j = 0 ; j < count ; j ++ )
175
158
{
176
- decimal a ,
177
- s ,
178
- m ,
179
- d ;
180
- int c ;
181
-
159
+ decimal a , s , m , d ;
160
+ int c ;
182
161
c = deccmp (decarr [i ], decarr [j ]);
183
162
printf ("dec[c,%d,%d]: %d\n" , i , j , c );
184
163
@@ -190,7 +169,7 @@ main(void)
190
169
}
191
170
else
192
171
{
193
- dectoasc (& a , buf , BUFSIZE - 1 , -1 );
172
+ dectoasc (& a , buf , BUFSIZE - 1 , -1 );
194
173
printf ("dec[a,%d,%d]: %s\n" , i , j , buf );
195
174
}
196
175
@@ -202,7 +181,7 @@ main(void)
202
181
}
203
182
else
204
183
{
205
- dectoasc (& s , buf , BUFSIZE - 1 , -1 );
184
+ dectoasc (& s , buf , BUFSIZE - 1 , -1 );
206
185
printf ("dec[s,%d,%d]: %s\n" , i , j , buf );
207
186
}
208
187
@@ -214,7 +193,7 @@ main(void)
214
193
}
215
194
else
216
195
{
217
- dectoasc (& m , buf , BUFSIZE - 1 , -1 );
196
+ dectoasc (& m , buf , BUFSIZE - 1 , -1 );
218
197
printf ("dec[m,%d,%d]: %s\n" , i , j , buf );
219
198
}
220
199
@@ -226,15 +205,15 @@ main(void)
226
205
}
227
206
else
228
207
{
229
- dectoasc (& d , buf , BUFSIZE - 1 , -1 );
208
+ dectoasc (& d , buf , BUFSIZE - 1 , -1 );
230
209
printf ("dec[d,%d,%d]: %s\n" , i , j , buf );
231
210
}
232
211
}
233
212
}
234
213
235
214
for (i = 0 ; i < count ; i ++ )
236
215
{
237
- dectoasc (decarr [i ], buf , BUFSIZE - 1 , -1 );
216
+ dectoasc (decarr [i ], buf , BUFSIZE - 1 , -1 );
238
217
printf ("%d: %s\n" , i , buf );
239
218
}
240
219
@@ -244,7 +223,7 @@ main(void)
244
223
static void
245
224
check_errno (void )
246
225
{
247
- switch (errno )
226
+ switch (errno )
248
227
{
249
228
case 0 :
250
229
printf ("(no errno set) - " );
0 commit comments