Line data Source code
1 : /* src/interfaces/ecpg/ecpglib/execute.c */
2 :
3 : /*
4 : * The aim is to get a simpler interface to the database routines.
5 : * All the tedious messing around with tuples is supposed to be hidden
6 : * by this function.
7 : */
8 : /* Author: Linus Tolke
9 : (actually most if the code is "borrowed" from the distribution and just
10 : slightly modified)
11 : */
12 :
13 : /* Taken over as part of PostgreSQL by Michael Meskes <meskes@postgresql.org>
14 : on Feb. 5th, 1998 */
15 :
16 : #define POSTGRES_ECPG_INTERNAL
17 : #include "postgres_fe.h"
18 :
19 : #include <math.h>
20 :
21 : #include "catalog/pg_type_d.h"
22 : #include "ecpgerrno.h"
23 : #include "ecpglib.h"
24 : #include "ecpglib_extern.h"
25 : #include "ecpgtype.h"
26 : #include "pgtypes_date.h"
27 : #include "pgtypes_interval.h"
28 : #include "pgtypes_numeric.h"
29 : #include "pgtypes_timestamp.h"
30 : #include "sql3types.h"
31 : #include "sqlca.h"
32 : #include "sqlda-compat.h"
33 : #include "sqlda-native.h"
34 :
35 : /*
36 : * This function returns a newly malloced string that has ' and \
37 : * escaped.
38 : */
39 : static char *
40 2260 : quote_postgres(char *arg, bool quote, int lineno)
41 : {
42 : char *res;
43 : size_t length;
44 : size_t escaped_len;
45 : size_t buffer_len;
46 :
47 : /*
48 : * if quote is false we just need to store things in a descriptor they
49 : * will be quoted once they are inserted in a statement
50 : */
51 2260 : if (!quote)
52 2260 : return arg;
53 : else
54 : {
55 0 : length = strlen(arg);
56 0 : buffer_len = 2 * length + 1;
57 0 : res = ecpg_alloc(buffer_len + 3, lineno);
58 0 : if (!res)
59 0 : return res;
60 0 : escaped_len = PQescapeString(res + 1, arg, buffer_len);
61 0 : if (length == escaped_len)
62 : {
63 0 : res[0] = res[escaped_len + 1] = '\'';
64 0 : res[escaped_len + 2] = '\0';
65 : }
66 : else
67 : {
68 : /*
69 : * We don't know if the target database is using
70 : * standard_conforming_strings, so we always use E'' strings.
71 : */
72 0 : memmove(res + 2, res + 1, escaped_len);
73 0 : res[0] = ESCAPE_STRING_SYNTAX;
74 0 : res[1] = res[escaped_len + 2] = '\'';
75 0 : res[escaped_len + 3] = '\0';
76 : }
77 0 : ecpg_free(arg);
78 0 : return res;
79 : }
80 : }
81 :
82 : static void
83 21236 : free_variable(struct variable *var)
84 : {
85 : struct variable *var_next;
86 :
87 33808 : while (var)
88 : {
89 12572 : var_next = var->next;
90 12572 : ecpg_free(var);
91 12572 : var = var_next;
92 : }
93 21236 : }
94 :
95 : static void
96 10618 : free_statement(struct statement *stmt)
97 : {
98 10618 : if (stmt == NULL)
99 0 : return;
100 10618 : free_variable(stmt->inlist);
101 10618 : free_variable(stmt->outlist);
102 10618 : ecpg_free(stmt->command);
103 10618 : ecpg_free(stmt->name);
104 : #ifndef HAVE_USELOCALE
105 : ecpg_free(stmt->oldlocale);
106 : #endif
107 10618 : ecpg_free(stmt);
108 : }
109 :
110 : static int
111 17946 : next_insert(char *text, int pos, bool questionmarks, bool std_strings)
112 : {
113 17946 : bool string = false;
114 17946 : int p = pos;
115 :
116 479154 : for (; text[p] != '\0'; p++)
117 : {
118 468556 : if (string && !std_strings && text[p] == '\\') /* escape character */
119 16 : p++;
120 468540 : else if (text[p] == '\'')
121 7836 : string = string ? false : true;
122 460704 : else if (!string)
123 : {
124 430730 : if (text[p] == '$' && isdigit((unsigned char) text[p + 1]))
125 0 : {
126 : /* this can be either a dollar quote or a variable */
127 : int i;
128 :
129 14700 : for (i = p + 1; isdigit((unsigned char) text[i]); i++)
130 : /* empty loop body */ ;
131 7348 : if (!isalpha((unsigned char) text[i]) &&
132 7348 : isascii((unsigned char) text[i]) && text[i] != '_')
133 : /* not dollar delimited quote */
134 7348 : return p;
135 : }
136 423382 : else if (questionmarks && text[p] == '?')
137 : {
138 : /* also allow old style placeholders */
139 0 : return p;
140 : }
141 : }
142 : }
143 :
144 10598 : return -1;
145 : }
146 :
147 : static bool
148 10168 : ecpg_type_infocache_push(struct ECPGtype_information_cache **cache, int oid, enum ARRAY_TYPE isarray, int lineno)
149 : {
150 : struct ECPGtype_information_cache *new_entry
151 10168 : = (struct ECPGtype_information_cache *) ecpg_alloc(sizeof(struct ECPGtype_information_cache), lineno);
152 :
153 10168 : if (new_entry == NULL)
154 0 : return false;
155 :
156 10168 : new_entry->oid = oid;
157 10168 : new_entry->isarray = isarray;
158 10168 : new_entry->next = *cache;
159 10168 : *cache = new_entry;
160 10168 : return true;
161 : }
162 :
163 : static enum ARRAY_TYPE
164 5012 : ecpg_is_type_an_array(int type, const struct statement *stmt, const struct variable *var)
165 : {
166 : char *array_query;
167 5012 : enum ARRAY_TYPE isarray = ECPG_ARRAY_NOT_SET;
168 : PGresult *query;
169 : struct ECPGtype_information_cache *cache_entry;
170 :
171 5012 : if ((stmt->connection->cache_head) == NULL)
172 : {
173 : /*
174 : * Text like types are not an array for ecpg, but postgres counts them
175 : * as an array. This define reminds you to not 'correct' these values.
176 : */
177 : #define not_an_array_in_ecpg ECPG_ARRAY_NONE
178 :
179 : /* populate cache with well known types to speed things up */
180 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), BOOLOID, ECPG_ARRAY_NONE, stmt->lineno))
181 0 : return ECPG_ARRAY_ERROR;
182 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), BYTEAOID, ECPG_ARRAY_NONE, stmt->lineno))
183 0 : return ECPG_ARRAY_ERROR;
184 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), CHAROID, ECPG_ARRAY_NONE, stmt->lineno))
185 0 : return ECPG_ARRAY_ERROR;
186 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), NAMEOID, not_an_array_in_ecpg, stmt->lineno))
187 0 : return ECPG_ARRAY_ERROR;
188 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), INT8OID, ECPG_ARRAY_NONE, stmt->lineno))
189 0 : return ECPG_ARRAY_ERROR;
190 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), INT2OID, ECPG_ARRAY_NONE, stmt->lineno))
191 0 : return ECPG_ARRAY_ERROR;
192 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), INT2VECTOROID, ECPG_ARRAY_VECTOR, stmt->lineno))
193 0 : return ECPG_ARRAY_ERROR;
194 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), INT4OID, ECPG_ARRAY_NONE, stmt->lineno))
195 0 : return ECPG_ARRAY_ERROR;
196 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), REGPROCOID, ECPG_ARRAY_NONE, stmt->lineno))
197 0 : return ECPG_ARRAY_ERROR;
198 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), TEXTOID, ECPG_ARRAY_NONE, stmt->lineno))
199 0 : return ECPG_ARRAY_ERROR;
200 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), OIDOID, ECPG_ARRAY_NONE, stmt->lineno))
201 0 : return ECPG_ARRAY_ERROR;
202 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), TIDOID, ECPG_ARRAY_NONE, stmt->lineno))
203 0 : return ECPG_ARRAY_ERROR;
204 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), XIDOID, ECPG_ARRAY_NONE, stmt->lineno))
205 0 : return ECPG_ARRAY_ERROR;
206 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), CIDOID, ECPG_ARRAY_NONE, stmt->lineno))
207 0 : return ECPG_ARRAY_ERROR;
208 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), OIDVECTOROID, ECPG_ARRAY_VECTOR, stmt->lineno))
209 0 : return ECPG_ARRAY_ERROR;
210 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), POINTOID, ECPG_ARRAY_VECTOR, stmt->lineno))
211 0 : return ECPG_ARRAY_ERROR;
212 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), LSEGOID, ECPG_ARRAY_VECTOR, stmt->lineno))
213 0 : return ECPG_ARRAY_ERROR;
214 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), PATHOID, ECPG_ARRAY_NONE, stmt->lineno))
215 0 : return ECPG_ARRAY_ERROR;
216 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), BOXOID, ECPG_ARRAY_VECTOR, stmt->lineno))
217 0 : return ECPG_ARRAY_ERROR;
218 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), POLYGONOID, ECPG_ARRAY_NONE, stmt->lineno))
219 0 : return ECPG_ARRAY_ERROR;
220 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), LINEOID, ECPG_ARRAY_VECTOR, stmt->lineno))
221 0 : return ECPG_ARRAY_ERROR;
222 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), FLOAT4OID, ECPG_ARRAY_NONE, stmt->lineno))
223 0 : return ECPG_ARRAY_ERROR;
224 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), FLOAT8OID, ECPG_ARRAY_NONE, stmt->lineno))
225 0 : return ECPG_ARRAY_ERROR;
226 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), UNKNOWNOID, ECPG_ARRAY_NONE, stmt->lineno))
227 0 : return ECPG_ARRAY_ERROR;
228 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), CIRCLEOID, ECPG_ARRAY_NONE, stmt->lineno))
229 0 : return ECPG_ARRAY_ERROR;
230 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), MONEYOID, ECPG_ARRAY_NONE, stmt->lineno))
231 0 : return ECPG_ARRAY_ERROR;
232 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), INETOID, ECPG_ARRAY_NONE, stmt->lineno))
233 0 : return ECPG_ARRAY_ERROR;
234 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), CIDROID, ECPG_ARRAY_NONE, stmt->lineno))
235 0 : return ECPG_ARRAY_ERROR;
236 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), BPCHAROID, ECPG_ARRAY_NONE, stmt->lineno))
237 0 : return ECPG_ARRAY_ERROR;
238 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), VARCHAROID, ECPG_ARRAY_NONE, stmt->lineno))
239 0 : return ECPG_ARRAY_ERROR;
240 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), DATEOID, ECPG_ARRAY_NONE, stmt->lineno))
241 0 : return ECPG_ARRAY_ERROR;
242 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), TIMEOID, ECPG_ARRAY_NONE, stmt->lineno))
243 0 : return ECPG_ARRAY_ERROR;
244 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), TIMESTAMPOID, ECPG_ARRAY_NONE, stmt->lineno))
245 0 : return ECPG_ARRAY_ERROR;
246 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), TIMESTAMPTZOID, ECPG_ARRAY_NONE, stmt->lineno))
247 0 : return ECPG_ARRAY_ERROR;
248 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), INTERVALOID, ECPG_ARRAY_NONE, stmt->lineno))
249 0 : return ECPG_ARRAY_ERROR;
250 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), TIMETZOID, ECPG_ARRAY_NONE, stmt->lineno))
251 0 : return ECPG_ARRAY_ERROR;
252 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), BITOID, ECPG_ARRAY_NONE, stmt->lineno))
253 0 : return ECPG_ARRAY_ERROR;
254 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), VARBITOID, ECPG_ARRAY_NONE, stmt->lineno))
255 0 : return ECPG_ARRAY_ERROR;
256 260 : if (!ecpg_type_infocache_push(&(stmt->connection->cache_head), NUMERICOID, ECPG_ARRAY_NONE, stmt->lineno))
257 0 : return ECPG_ARRAY_ERROR;
258 : }
259 :
260 159812 : for (cache_entry = (stmt->connection->cache_head); cache_entry != NULL; cache_entry = cache_entry->next)
261 : {
262 159784 : if (cache_entry->oid == type)
263 4984 : return cache_entry->isarray;
264 : }
265 :
266 28 : array_query = ecpg_alloc(strlen("select typlen from pg_type where oid= and typelem<>0") + 11, stmt->lineno);
267 28 : if (array_query == NULL)
268 0 : return ECPG_ARRAY_ERROR;
269 :
270 28 : sprintf(array_query, "select typlen from pg_type where oid=%d and typelem<>0", type);
271 28 : query = PQexec(stmt->connection->connection, array_query);
272 28 : ecpg_free(array_query);
273 28 : if (!ecpg_check_PQresult(query, stmt->lineno, stmt->connection->connection, stmt->compat))
274 0 : return ECPG_ARRAY_ERROR;
275 28 : else if (PQresultStatus(query) == PGRES_TUPLES_OK)
276 : {
277 28 : if (PQntuples(query) == 0)
278 8 : isarray = ECPG_ARRAY_NONE;
279 : else
280 : {
281 20 : isarray = (atoi(PQgetvalue(query, 0, 0)) == -1) ? ECPG_ARRAY_ARRAY : ECPG_ARRAY_VECTOR;
282 40 : if (ecpg_dynamic_type(type) == SQL3_CHARACTER ||
283 20 : ecpg_dynamic_type(type) == SQL3_CHARACTER_VARYING)
284 : {
285 : /*
286 : * arrays of character strings are not yet implemented
287 : */
288 0 : isarray = ECPG_ARRAY_NONE;
289 : }
290 : }
291 28 : PQclear(query);
292 : }
293 : else
294 0 : return ECPG_ARRAY_ERROR;
295 :
296 28 : ecpg_type_infocache_push(&(stmt->connection->cache_head), type, isarray, stmt->lineno);
297 28 : ecpg_log("ecpg_is_type_an_array on line %d: type (%d); C (%d); array (%s)\n", stmt->lineno, type, var->type, ECPG_IS_ARRAY(isarray) ? "yes" : "no");
298 28 : return isarray;
299 : }
300 :
301 :
302 : bool
303 5012 : ecpg_store_result(const PGresult *results, int act_field,
304 : const struct statement *stmt, struct variable *var)
305 : {
306 : enum ARRAY_TYPE isarray;
307 : int act_tuple,
308 5012 : ntuples = PQntuples(results);
309 5012 : bool status = true;
310 :
311 5012 : if ((isarray = ecpg_is_type_an_array(PQftype(results, act_field), stmt, var)) == ECPG_ARRAY_ERROR)
312 : {
313 0 : ecpg_raise(stmt->lineno, ECPG_OUT_OF_MEMORY, ECPG_SQLSTATE_ECPG_OUT_OF_MEMORY, NULL);
314 0 : return false;
315 : }
316 :
317 5012 : if (isarray == ECPG_ARRAY_NONE)
318 : {
319 : /*
320 : * if we don't have enough space, we cannot read all tuples
321 : */
322 4988 : if ((var->arrsize > 0 && ntuples > var->arrsize) || (var->ind_arrsize > 0 && ntuples > var->ind_arrsize))
323 : {
324 0 : ecpg_log("ecpg_store_result on line %d: incorrect number of matches; %d don't fit into array of %ld\n",
325 0 : stmt->lineno, ntuples, var->arrsize);
326 0 : ecpg_raise(stmt->lineno, INFORMIX_MODE(stmt->compat) ? ECPG_INFORMIX_SUBSELECT_NOT_ONE : ECPG_TOO_MANY_MATCHES, ECPG_SQLSTATE_CARDINALITY_VIOLATION, NULL);
327 0 : return false;
328 : }
329 : }
330 : else
331 : {
332 : /*
333 : * since we read an array, the variable has to be an array too
334 : */
335 24 : if (var->arrsize == 0)
336 : {
337 0 : ecpg_raise(stmt->lineno, ECPG_NO_ARRAY, ECPG_SQLSTATE_DATATYPE_MISMATCH, NULL);
338 0 : return false;
339 : }
340 : }
341 :
342 : /*
343 : * allocate memory for NULL pointers
344 : */
345 5012 : if ((var->arrsize == 0 || var->varcharsize == 0) && var->value == NULL)
346 : {
347 3304 : int len = 0;
348 :
349 3304 : if (!PQfformat(results, act_field))
350 : {
351 3300 : switch (var->type)
352 : {
353 3284 : case ECPGt_char:
354 : case ECPGt_unsigned_char:
355 : case ECPGt_string:
356 3284 : if (!var->varcharsize && !var->arrsize)
357 : {
358 : /* special mode for handling char**foo=0 */
359 6500 : for (act_tuple = 0; act_tuple < ntuples; act_tuple++)
360 3272 : len += strlen(PQgetvalue(results, act_tuple, act_field)) + 1;
361 3228 : len *= var->offset; /* should be 1, but YMNK */
362 3228 : len += (ntuples + 1) * sizeof(char *);
363 : }
364 : else
365 : {
366 56 : var->varcharsize = 0;
367 : /* check strlen for each tuple */
368 112 : for (act_tuple = 0; act_tuple < ntuples; act_tuple++)
369 : {
370 56 : int slen = strlen(PQgetvalue(results, act_tuple, act_field)) + 1;
371 :
372 56 : if (slen > var->varcharsize)
373 56 : var->varcharsize = slen;
374 : }
375 56 : var->offset *= var->varcharsize;
376 56 : len = var->offset * ntuples;
377 : }
378 3284 : break;
379 0 : case ECPGt_varchar:
380 0 : len = ntuples * (var->varcharsize + sizeof(int));
381 0 : break;
382 16 : default:
383 16 : len = var->offset * ntuples;
384 16 : break;
385 : }
386 : }
387 : else
388 : {
389 8 : for (act_tuple = 0; act_tuple < ntuples; act_tuple++)
390 4 : len += PQgetlength(results, act_tuple, act_field);
391 : }
392 :
393 3304 : ecpg_log("ecpg_store_result on line %d: allocating memory for %d tuples\n", stmt->lineno, ntuples);
394 3304 : var->value = ecpg_auto_alloc(len, stmt->lineno);
395 3304 : if (!var->value)
396 0 : return false;
397 3304 : *((char **) var->pointer) = var->value;
398 : }
399 :
400 : /* allocate indicator variable if needed */
401 5012 : if ((var->ind_arrsize == 0 || var->ind_varcharsize == 0) && var->ind_value == NULL && var->ind_pointer != NULL)
402 : {
403 40 : int len = var->ind_offset * ntuples;
404 :
405 40 : var->ind_value = ecpg_auto_alloc(len, stmt->lineno);
406 40 : if (!var->ind_value)
407 0 : return false;
408 40 : *((char **) var->ind_pointer) = var->ind_value;
409 : }
410 :
411 : /* fill the variable with the tuple(s) */
412 5012 : if (!var->varcharsize && !var->arrsize &&
413 3228 : (var->type == ECPGt_char || var->type == ECPGt_unsigned_char || var->type == ECPGt_string))
414 3228 : {
415 : /* special mode for handling char**foo=0 */
416 :
417 : /* filling the array of (char*)s */
418 3228 : char **current_string = (char **) var->value;
419 :
420 : /* storing the data (after the last array element) */
421 3228 : char *current_data_location = (char *) ¤t_string[ntuples + 1];
422 :
423 6500 : for (act_tuple = 0; act_tuple < ntuples && status; act_tuple++)
424 : {
425 3272 : int len = strlen(PQgetvalue(results, act_tuple, act_field)) + 1;
426 :
427 3272 : if (!ecpg_get_data(results, act_tuple, act_field, stmt->lineno,
428 : var->type, var->ind_type, current_data_location,
429 3272 : var->ind_value, len, 0, var->ind_offset, isarray, stmt->compat, stmt->force_indicator))
430 0 : status = false;
431 : else
432 : {
433 3272 : *current_string = current_data_location;
434 3272 : current_data_location += len;
435 3272 : current_string++;
436 : }
437 : }
438 :
439 : /* terminate the list */
440 3228 : *current_string = NULL;
441 : }
442 : else
443 : {
444 3904 : for (act_tuple = 0; act_tuple < ntuples && status; act_tuple++)
445 : {
446 2120 : if (!ecpg_get_data(results, act_tuple, act_field, stmt->lineno,
447 2120 : var->type, var->ind_type, var->value,
448 2120 : var->ind_value, var->varcharsize, var->offset, var->ind_offset, isarray, stmt->compat, stmt->force_indicator))
449 24 : status = false;
450 : }
451 : }
452 5012 : return status;
453 : }
454 :
455 : static void
456 24 : sprintf_double_value(char *ptr, double value, const char *delim)
457 : {
458 24 : if (isnan(value))
459 4 : sprintf(ptr, "%s%s", "NaN", delim);
460 20 : else if (isinf(value))
461 : {
462 8 : if (value < 0)
463 4 : sprintf(ptr, "%s%s", "-Infinity", delim);
464 : else
465 4 : sprintf(ptr, "%s%s", "Infinity", delim);
466 : }
467 : else
468 12 : sprintf(ptr, "%.15g%s", value, delim);
469 24 : }
470 :
471 : static void
472 4 : sprintf_float_value(char *ptr, float value, const char *delim)
473 : {
474 4 : if (isnan(value))
475 0 : sprintf(ptr, "%s%s", "NaN", delim);
476 4 : else if (isinf(value))
477 : {
478 0 : if (value < 0)
479 0 : sprintf(ptr, "%s%s", "-Infinity", delim);
480 : else
481 0 : sprintf(ptr, "%s%s", "Infinity", delim);
482 : }
483 : else
484 4 : sprintf(ptr, "%.15g%s", value, delim);
485 4 : }
486 :
487 : static char *
488 0 : convert_bytea_to_string(char *from_data, int from_len, int lineno)
489 : {
490 : char *to_data;
491 0 : int to_len = ecpg_hex_enc_len(from_len) + 4 + 1; /* backslash + 'x' +
492 : * quote + quote */
493 :
494 0 : to_data = ecpg_alloc(to_len, lineno);
495 0 : if (!to_data)
496 0 : return NULL;
497 :
498 0 : strcpy(to_data, "'\\x");
499 0 : ecpg_hex_encode(from_data, from_len, to_data + 3);
500 0 : strcpy(to_data + 3 + ecpg_hex_enc_len(from_len), "\'");
501 :
502 0 : return to_data;
503 : }
504 :
505 : bool
506 7384 : ecpg_store_input(const int lineno, const bool force_indicator, const struct variable *var,
507 : char **tobeinserted_p, bool quote)
508 : {
509 7384 : char *mallocedval = NULL;
510 7384 : char *newcopy = NULL;
511 :
512 : /*
513 : * arrays are not possible unless the column is an array, too FIXME: we do
514 : * not know if the column is an array here array input to singleton column
515 : * will result in a runtime error
516 : */
517 :
518 : /*
519 : * Some special treatment is needed for records since we want their
520 : * contents to arrive in a comma-separated list on insert (I think).
521 : */
522 :
523 7384 : *tobeinserted_p = "";
524 :
525 : /* check for null value and set input buffer accordingly */
526 7384 : switch (var->ind_type)
527 : {
528 0 : case ECPGt_short:
529 : case ECPGt_unsigned_short:
530 0 : if (*(short *) var->ind_value < 0)
531 0 : *tobeinserted_p = NULL;
532 0 : break;
533 20 : case ECPGt_int:
534 : case ECPGt_unsigned_int:
535 20 : if (*(int *) var->ind_value < 0)
536 12 : *tobeinserted_p = NULL;
537 20 : break;
538 0 : case ECPGt_long:
539 : case ECPGt_unsigned_long:
540 0 : if (*(long *) var->ind_value < 0L)
541 0 : *tobeinserted_p = NULL;
542 0 : break;
543 0 : case ECPGt_long_long:
544 : case ECPGt_unsigned_long_long:
545 0 : if (*(long long int *) var->ind_value < (long long) 0)
546 0 : *tobeinserted_p = NULL;
547 0 : break;
548 7320 : case ECPGt_NO_INDICATOR:
549 7320 : if (force_indicator == false)
550 : {
551 68 : if (ECPGis_noind_null(var->type, var->value))
552 36 : *tobeinserted_p = NULL;
553 : }
554 7320 : break;
555 44 : default:
556 44 : break;
557 : }
558 7384 : if (*tobeinserted_p != NULL)
559 : {
560 7336 : int asize = var->arrsize ? var->arrsize : 1;
561 :
562 7336 : switch (var->type)
563 : {
564 : int element;
565 :
566 16 : case ECPGt_short:
567 16 : if (!(mallocedval = ecpg_alloc(asize * 20, lineno)))
568 0 : return false;
569 :
570 16 : if (asize > 1)
571 : {
572 8 : strcpy(mallocedval, "{");
573 :
574 88 : for (element = 0; element < asize; element++)
575 80 : sprintf(mallocedval + strlen(mallocedval), "%hd,", ((short *) var->value)[element]);
576 :
577 8 : strcpy(mallocedval + strlen(mallocedval) - 1, "}");
578 : }
579 : else
580 8 : sprintf(mallocedval, "%hd", *((short *) var->value));
581 :
582 16 : *tobeinserted_p = mallocedval;
583 16 : break;
584 :
585 5100 : case ECPGt_int:
586 5100 : if (!(mallocedval = ecpg_alloc(asize * 20, lineno)))
587 0 : return false;
588 :
589 5100 : if (asize > 1)
590 : {
591 0 : strcpy(mallocedval, "{");
592 :
593 0 : for (element = 0; element < asize; element++)
594 0 : sprintf(mallocedval + strlen(mallocedval), "%d,", ((int *) var->value)[element]);
595 :
596 0 : strcpy(mallocedval + strlen(mallocedval) - 1, "}");
597 : }
598 : else
599 5100 : sprintf(mallocedval, "%d", *((int *) var->value));
600 :
601 5100 : *tobeinserted_p = mallocedval;
602 5100 : break;
603 :
604 0 : case ECPGt_unsigned_short:
605 0 : if (!(mallocedval = ecpg_alloc(asize * 20, lineno)))
606 0 : return false;
607 :
608 0 : if (asize > 1)
609 : {
610 0 : strcpy(mallocedval, "{");
611 :
612 0 : for (element = 0; element < asize; element++)
613 0 : sprintf(mallocedval + strlen(mallocedval), "%hu,", ((unsigned short *) var->value)[element]);
614 :
615 0 : strcpy(mallocedval + strlen(mallocedval) - 1, "}");
616 : }
617 : else
618 0 : sprintf(mallocedval, "%hu", *((unsigned short *) var->value));
619 :
620 0 : *tobeinserted_p = mallocedval;
621 0 : break;
622 :
623 0 : case ECPGt_unsigned_int:
624 0 : if (!(mallocedval = ecpg_alloc(asize * 20, lineno)))
625 0 : return false;
626 :
627 0 : if (asize > 1)
628 : {
629 0 : strcpy(mallocedval, "{");
630 :
631 0 : for (element = 0; element < asize; element++)
632 0 : sprintf(mallocedval + strlen(mallocedval), "%u,", ((unsigned int *) var->value)[element]);
633 :
634 0 : strcpy(mallocedval + strlen(mallocedval) - 1, "}");
635 : }
636 : else
637 0 : sprintf(mallocedval, "%u", *((unsigned int *) var->value));
638 :
639 0 : *tobeinserted_p = mallocedval;
640 0 : break;
641 :
642 20 : case ECPGt_long:
643 20 : if (!(mallocedval = ecpg_alloc(asize * 20, lineno)))
644 0 : return false;
645 :
646 20 : if (asize > 1)
647 : {
648 0 : strcpy(mallocedval, "{");
649 :
650 0 : for (element = 0; element < asize; element++)
651 0 : sprintf(mallocedval + strlen(mallocedval), "%ld,", ((long *) var->value)[element]);
652 :
653 0 : strcpy(mallocedval + strlen(mallocedval) - 1, "}");
654 : }
655 : else
656 20 : sprintf(mallocedval, "%ld", *((long *) var->value));
657 :
658 20 : *tobeinserted_p = mallocedval;
659 20 : break;
660 :
661 0 : case ECPGt_unsigned_long:
662 0 : if (!(mallocedval = ecpg_alloc(asize * 20, lineno)))
663 0 : return false;
664 :
665 0 : if (asize > 1)
666 : {
667 0 : strcpy(mallocedval, "{");
668 :
669 0 : for (element = 0; element < asize; element++)
670 0 : sprintf(mallocedval + strlen(mallocedval), "%lu,", ((unsigned long *) var->value)[element]);
671 :
672 0 : strcpy(mallocedval + strlen(mallocedval) - 1, "}");
673 : }
674 : else
675 0 : sprintf(mallocedval, "%lu", *((unsigned long *) var->value));
676 :
677 0 : *tobeinserted_p = mallocedval;
678 0 : break;
679 :
680 0 : case ECPGt_long_long:
681 0 : if (!(mallocedval = ecpg_alloc(asize * 30, lineno)))
682 0 : return false;
683 :
684 0 : if (asize > 1)
685 : {
686 0 : strcpy(mallocedval, "{");
687 :
688 0 : for (element = 0; element < asize; element++)
689 0 : sprintf(mallocedval + strlen(mallocedval), "%lld,", ((long long int *) var->value)[element]);
690 :
691 0 : strcpy(mallocedval + strlen(mallocedval) - 1, "}");
692 : }
693 : else
694 0 : sprintf(mallocedval, "%lld", *((long long int *) var->value));
695 :
696 0 : *tobeinserted_p = mallocedval;
697 0 : break;
698 :
699 0 : case ECPGt_unsigned_long_long:
700 0 : if (!(mallocedval = ecpg_alloc(asize * 30, lineno)))
701 0 : return false;
702 :
703 0 : if (asize > 1)
704 : {
705 0 : strcpy(mallocedval, "{");
706 :
707 0 : for (element = 0; element < asize; element++)
708 0 : sprintf(mallocedval + strlen(mallocedval), "%llu,", ((unsigned long long int *) var->value)[element]);
709 :
710 0 : strcpy(mallocedval + strlen(mallocedval) - 1, "}");
711 : }
712 : else
713 0 : sprintf(mallocedval, "%llu", *((unsigned long long int *) var->value));
714 :
715 0 : *tobeinserted_p = mallocedval;
716 0 : break;
717 :
718 4 : case ECPGt_float:
719 4 : if (!(mallocedval = ecpg_alloc(asize * 25, lineno)))
720 0 : return false;
721 :
722 4 : if (asize > 1)
723 : {
724 0 : strcpy(mallocedval, "{");
725 :
726 0 : for (element = 0; element < asize; element++)
727 0 : sprintf_float_value(mallocedval + strlen(mallocedval), ((float *) var->value)[element], ",");
728 :
729 0 : strcpy(mallocedval + strlen(mallocedval) - 1, "}");
730 : }
731 : else
732 4 : sprintf_float_value(mallocedval, *((float *) var->value), "");
733 :
734 4 : *tobeinserted_p = mallocedval;
735 4 : break;
736 :
737 24 : case ECPGt_double:
738 24 : if (!(mallocedval = ecpg_alloc(asize * 25, lineno)))
739 0 : return false;
740 :
741 24 : if (asize > 1)
742 : {
743 0 : strcpy(mallocedval, "{");
744 :
745 0 : for (element = 0; element < asize; element++)
746 0 : sprintf_double_value(mallocedval + strlen(mallocedval), ((double *) var->value)[element], ",");
747 :
748 0 : strcpy(mallocedval + strlen(mallocedval) - 1, "}");
749 : }
750 : else
751 24 : sprintf_double_value(mallocedval, *((double *) var->value), "");
752 :
753 24 : *tobeinserted_p = mallocedval;
754 24 : break;
755 :
756 8 : case ECPGt_bool:
757 8 : if (!(mallocedval = ecpg_alloc(var->arrsize + sizeof("{}"), lineno)))
758 0 : return false;
759 :
760 8 : if (var->arrsize > 1)
761 : {
762 0 : strcpy(mallocedval, "{");
763 :
764 0 : for (element = 0; element < asize; element++)
765 0 : sprintf(mallocedval + strlen(mallocedval), "%c,", (((bool *) var->value)[element]) ? 't' : 'f');
766 :
767 0 : strcpy(mallocedval + strlen(mallocedval) - 1, "}");
768 : }
769 : else
770 : {
771 8 : if (var->offset == sizeof(char))
772 8 : sprintf(mallocedval, "%c", (*((char *) var->value)) ? 't' : 'f');
773 0 : else if (var->offset == sizeof(int))
774 0 : sprintf(mallocedval, "%c", (*((int *) var->value)) ? 't' : 'f');
775 : else
776 0 : ecpg_raise(lineno, ECPG_CONVERT_BOOL, ECPG_SQLSTATE_DATATYPE_MISMATCH, NULL);
777 : }
778 :
779 8 : *tobeinserted_p = mallocedval;
780 8 : break;
781 :
782 1828 : case ECPGt_char:
783 : case ECPGt_unsigned_char:
784 : case ECPGt_string:
785 : {
786 : /* set slen to string length if type is char * */
787 1828 : int slen = (var->varcharsize == 0) ? strlen((char *) var->value) : (unsigned int) var->varcharsize;
788 :
789 1828 : if (!(newcopy = ecpg_alloc(slen + 1, lineno)))
790 0 : return false;
791 :
792 1828 : strncpy(newcopy, (char *) var->value, slen);
793 1828 : newcopy[slen] = '\0';
794 :
795 1828 : mallocedval = quote_postgres(newcopy, quote, lineno);
796 1828 : if (!mallocedval)
797 : {
798 0 : ecpg_free(newcopy);
799 0 : return false;
800 : }
801 :
802 1828 : *tobeinserted_p = mallocedval;
803 : }
804 1828 : break;
805 148 : case ECPGt_const:
806 : case ECPGt_char_variable:
807 : {
808 148 : int slen = strlen((char *) var->value);
809 :
810 148 : if (!(mallocedval = ecpg_alloc(slen + 1, lineno)))
811 0 : return false;
812 :
813 148 : strncpy(mallocedval, (char *) var->value, slen);
814 148 : mallocedval[slen] = '\0';
815 :
816 148 : *tobeinserted_p = mallocedval;
817 : }
818 148 : break;
819 :
820 52 : case ECPGt_bytea:
821 : {
822 52 : struct ECPGgeneric_bytea *variable =
823 : (struct ECPGgeneric_bytea *) (var->value);
824 :
825 52 : if (!(mallocedval = ecpg_alloc(variable->len, lineno)))
826 0 : return false;
827 :
828 52 : memcpy(mallocedval, variable->arr, variable->len);
829 52 : *tobeinserted_p = mallocedval;
830 : }
831 52 : break;
832 :
833 52 : case ECPGt_varchar:
834 : {
835 52 : struct ECPGgeneric_varchar *variable =
836 : (struct ECPGgeneric_varchar *) (var->value);
837 :
838 52 : if (!(newcopy = ecpg_alloc(variable->len + 1, lineno)))
839 0 : return false;
840 :
841 52 : strncpy(newcopy, variable->arr, variable->len);
842 52 : newcopy[variable->len] = '\0';
843 :
844 52 : mallocedval = quote_postgres(newcopy, quote, lineno);
845 52 : if (!mallocedval)
846 : {
847 0 : ecpg_free(newcopy);
848 0 : return false;
849 : }
850 :
851 52 : *tobeinserted_p = mallocedval;
852 : }
853 52 : break;
854 :
855 28 : case ECPGt_decimal:
856 : case ECPGt_numeric:
857 : {
858 28 : char *str = NULL;
859 : int slen;
860 : numeric *nval;
861 :
862 28 : if (var->arrsize > 1)
863 12 : mallocedval = ecpg_strdup("{", lineno, NULL);
864 : else
865 16 : mallocedval = ecpg_strdup("", lineno, NULL);
866 :
867 28 : if (!mallocedval)
868 0 : return false;
869 :
870 164 : for (element = 0; element < asize; element++)
871 : {
872 : int result;
873 :
874 136 : nval = PGTYPESnumeric_new();
875 136 : if (!nval)
876 : {
877 0 : ecpg_free(mallocedval);
878 0 : return false;
879 : }
880 :
881 136 : if (var->type == ECPGt_numeric)
882 128 : result = PGTYPESnumeric_copy(&(((numeric *) (var->value))[element]), nval);
883 : else
884 8 : result = PGTYPESnumeric_from_decimal(&(((decimal *) (var->value))[element]), nval);
885 :
886 136 : if (result != 0)
887 : {
888 0 : PGTYPESnumeric_free(nval);
889 0 : ecpg_free(mallocedval);
890 0 : return false;
891 : }
892 :
893 136 : str = PGTYPESnumeric_to_asc(nval, nval->dscale);
894 136 : slen = strlen(str);
895 136 : PGTYPESnumeric_free(nval);
896 :
897 136 : if (!(newcopy = ecpg_realloc(mallocedval, strlen(mallocedval) + slen + 2, lineno)))
898 : {
899 0 : ecpg_free(mallocedval);
900 0 : ecpg_free(str);
901 0 : return false;
902 : }
903 136 : mallocedval = newcopy;
904 :
905 : /* also copy trailing '\0' */
906 136 : memcpy(mallocedval + strlen(mallocedval), str, slen + 1);
907 136 : if (var->arrsize > 1)
908 120 : strcpy(mallocedval + strlen(mallocedval), ",");
909 :
910 136 : ecpg_free(str);
911 : }
912 :
913 28 : if (var->arrsize > 1)
914 12 : strcpy(mallocedval + strlen(mallocedval) - 1, "}");
915 :
916 28 : *tobeinserted_p = mallocedval;
917 : }
918 28 : break;
919 :
920 12 : case ECPGt_interval:
921 : {
922 12 : char *str = NULL;
923 : int slen;
924 :
925 12 : if (var->arrsize > 1)
926 12 : mallocedval = ecpg_strdup("{", lineno, NULL);
927 : else
928 0 : mallocedval = ecpg_strdup("", lineno, NULL);
929 :
930 12 : if (!mallocedval)
931 0 : return false;
932 :
933 132 : for (element = 0; element < asize; element++)
934 : {
935 120 : str = quote_postgres(PGTYPESinterval_to_asc(&(((interval *) (var->value))[element])), quote, lineno);
936 120 : if (!str)
937 : {
938 0 : ecpg_free(mallocedval);
939 0 : return false;
940 : }
941 :
942 120 : slen = strlen(str);
943 :
944 120 : if (!(newcopy = ecpg_realloc(mallocedval, strlen(mallocedval) + slen + 2, lineno)))
945 : {
946 0 : ecpg_free(mallocedval);
947 0 : ecpg_free(str);
948 0 : return false;
949 : }
950 120 : mallocedval = newcopy;
951 :
952 : /* also copy trailing '\0' */
953 120 : memcpy(mallocedval + strlen(mallocedval), str, slen + 1);
954 120 : if (var->arrsize > 1)
955 120 : strcpy(mallocedval + strlen(mallocedval), ",");
956 :
957 120 : ecpg_free(str);
958 : }
959 :
960 12 : if (var->arrsize > 1)
961 12 : strcpy(mallocedval + strlen(mallocedval) - 1, "}");
962 :
963 12 : *tobeinserted_p = mallocedval;
964 : }
965 12 : break;
966 :
967 20 : case ECPGt_date:
968 : {
969 20 : char *str = NULL;
970 : int slen;
971 :
972 20 : if (var->arrsize > 1)
973 12 : mallocedval = ecpg_strdup("{", lineno, NULL);
974 : else
975 8 : mallocedval = ecpg_strdup("", lineno, NULL);
976 :
977 20 : if (!mallocedval)
978 0 : return false;
979 :
980 148 : for (element = 0; element < asize; element++)
981 : {
982 128 : str = quote_postgres(PGTYPESdate_to_asc(((date *) (var->value))[element]), quote, lineno);
983 128 : if (!str)
984 : {
985 0 : ecpg_free(mallocedval);
986 0 : return false;
987 : }
988 :
989 128 : slen = strlen(str);
990 :
991 128 : if (!(newcopy = ecpg_realloc(mallocedval, strlen(mallocedval) + slen + 2, lineno)))
992 : {
993 0 : ecpg_free(mallocedval);
994 0 : ecpg_free(str);
995 0 : return false;
996 : }
997 128 : mallocedval = newcopy;
998 :
999 : /* also copy trailing '\0' */
1000 128 : memcpy(mallocedval + strlen(mallocedval), str, slen + 1);
1001 128 : if (var->arrsize > 1)
1002 120 : strcpy(mallocedval + strlen(mallocedval), ",");
1003 :
1004 128 : ecpg_free(str);
1005 : }
1006 :
1007 20 : if (var->arrsize > 1)
1008 12 : strcpy(mallocedval + strlen(mallocedval) - 1, "}");
1009 :
1010 20 : *tobeinserted_p = mallocedval;
1011 : }
1012 20 : break;
1013 :
1014 24 : case ECPGt_timestamp:
1015 : {
1016 24 : char *str = NULL;
1017 : int slen;
1018 :
1019 24 : if (var->arrsize > 1)
1020 12 : mallocedval = ecpg_strdup("{", lineno, NULL);
1021 : else
1022 12 : mallocedval = ecpg_strdup("", lineno, NULL);
1023 :
1024 24 : if (!mallocedval)
1025 0 : return false;
1026 :
1027 156 : for (element = 0; element < asize; element++)
1028 : {
1029 132 : str = quote_postgres(PGTYPEStimestamp_to_asc(((timestamp *) (var->value))[element]), quote, lineno);
1030 132 : if (!str)
1031 : {
1032 0 : ecpg_free(mallocedval);
1033 0 : return false;
1034 : }
1035 :
1036 132 : slen = strlen(str);
1037 :
1038 132 : if (!(newcopy = ecpg_realloc(mallocedval, strlen(mallocedval) + slen + 2, lineno)))
1039 : {
1040 0 : ecpg_free(mallocedval);
1041 0 : ecpg_free(str);
1042 0 : return false;
1043 : }
1044 132 : mallocedval = newcopy;
1045 :
1046 : /* also copy trailing '\0' */
1047 132 : memcpy(mallocedval + strlen(mallocedval), str, slen + 1);
1048 132 : if (var->arrsize > 1)
1049 120 : strcpy(mallocedval + strlen(mallocedval), ",");
1050 :
1051 132 : ecpg_free(str);
1052 : }
1053 :
1054 24 : if (var->arrsize > 1)
1055 12 : strcpy(mallocedval + strlen(mallocedval) - 1, "}");
1056 :
1057 24 : *tobeinserted_p = mallocedval;
1058 : }
1059 24 : break;
1060 :
1061 0 : case ECPGt_descriptor:
1062 : case ECPGt_sqlda:
1063 0 : break;
1064 :
1065 0 : default:
1066 : /* Not implemented yet */
1067 0 : ecpg_raise(lineno, ECPG_UNSUPPORTED, ECPG_SQLSTATE_ECPG_INTERNAL_ERROR, ecpg_type_name(var->type));
1068 0 : return false;
1069 : break;
1070 : }
1071 : }
1072 7384 : return true;
1073 : }
1074 :
1075 : static void
1076 6960 : print_param_value(char *value, int len, int is_binary, int lineno, int nth)
1077 : {
1078 : char *value_s;
1079 6960 : bool malloced = false;
1080 :
1081 6960 : if (value == NULL)
1082 48 : value_s = "null";
1083 6912 : else if (!is_binary)
1084 6860 : value_s = value;
1085 : else
1086 : {
1087 52 : value_s = ecpg_alloc(ecpg_hex_enc_len(len) + 1, lineno);
1088 52 : if (value_s != NULL)
1089 : {
1090 52 : ecpg_hex_encode(value, len, value_s);
1091 52 : value_s[ecpg_hex_enc_len(len)] = '\0';
1092 52 : malloced = true;
1093 : }
1094 : else
1095 0 : value_s = "no memory for logging of parameter";
1096 : }
1097 :
1098 6960 : ecpg_log("ecpg_free_params on line %d: parameter %d = %s\n",
1099 : lineno, nth, value_s);
1100 :
1101 6960 : if (malloced)
1102 52 : ecpg_free(value_s);
1103 6960 : }
1104 :
1105 : void
1106 10618 : ecpg_free_params(struct statement *stmt, bool print)
1107 : {
1108 : int n;
1109 :
1110 17578 : for (n = 0; n < stmt->nparams; n++)
1111 : {
1112 6960 : if (print)
1113 6960 : print_param_value(stmt->paramvalues[n], stmt->paramlengths[n],
1114 6960 : stmt->paramformats[n], stmt->lineno, n + 1);
1115 6960 : ecpg_free(stmt->paramvalues[n]);
1116 : }
1117 10618 : ecpg_free(stmt->paramvalues);
1118 10618 : ecpg_free(stmt->paramlengths);
1119 10618 : ecpg_free(stmt->paramformats);
1120 10618 : stmt->paramvalues = NULL;
1121 10618 : stmt->paramlengths = NULL;
1122 10618 : stmt->paramformats = NULL;
1123 10618 : stmt->nparams = 0;
1124 10618 : }
1125 :
1126 : static bool
1127 388 : insert_tobeinserted(int position, int ph_len, struct statement *stmt, char *tobeinserted)
1128 : {
1129 : char *newcopy;
1130 :
1131 388 : if (!(newcopy = ecpg_alloc(strlen(stmt->command) + strlen(tobeinserted) + 1, stmt->lineno)))
1132 : {
1133 0 : ecpg_free(tobeinserted);
1134 0 : return false;
1135 : }
1136 :
1137 388 : strcpy(newcopy, stmt->command);
1138 388 : strcpy(newcopy + position - 1, tobeinserted);
1139 :
1140 : /*
1141 : * The strange thing in the second argument is the rest of the string from
1142 : * the old string
1143 : */
1144 388 : strcat(newcopy,
1145 388 : stmt->command
1146 : + position
1147 388 : + ph_len - 1);
1148 :
1149 388 : ecpg_free(stmt->command);
1150 388 : stmt->command = newcopy;
1151 :
1152 388 : ecpg_free(tobeinserted);
1153 388 : return true;
1154 : }
1155 :
1156 : static bool
1157 52 : store_input_from_desc(struct statement *stmt, struct descriptor_item *desc_item,
1158 : char **tobeinserted)
1159 : {
1160 : struct variable var;
1161 :
1162 : /*
1163 : * In case of binary data, only allocate memory and memcpy because binary
1164 : * data have been already stored into desc_item->data with
1165 : * ecpg_store_input() at ECPGset_desc().
1166 : */
1167 52 : if (desc_item->is_binary)
1168 : {
1169 8 : if (!(*tobeinserted = ecpg_alloc(desc_item->data_len, stmt->lineno)))
1170 0 : return false;
1171 8 : memcpy(*tobeinserted, desc_item->data, desc_item->data_len);
1172 8 : return true;
1173 : }
1174 :
1175 44 : var.type = ECPGt_char;
1176 44 : var.varcharsize = strlen(desc_item->data);
1177 44 : var.value = desc_item->data;
1178 44 : var.pointer = &(desc_item->data);
1179 44 : var.arrsize = 1;
1180 44 : var.offset = 0;
1181 :
1182 44 : if (!desc_item->indicator)
1183 : {
1184 36 : var.ind_type = ECPGt_NO_INDICATOR;
1185 36 : var.ind_value = var.ind_pointer = NULL;
1186 36 : var.ind_varcharsize = var.ind_arrsize = var.ind_offset = 0;
1187 : }
1188 : else
1189 : {
1190 8 : var.ind_type = ECPGt_int;
1191 8 : var.ind_value = &(desc_item->indicator);
1192 8 : var.ind_pointer = &(var.ind_value);
1193 8 : var.ind_varcharsize = var.ind_arrsize = 1;
1194 8 : var.ind_offset = 0;
1195 : }
1196 :
1197 44 : if (!ecpg_store_input(stmt->lineno, stmt->force_indicator, &var, tobeinserted, false))
1198 0 : return false;
1199 :
1200 44 : return true;
1201 : }
1202 :
1203 : /*
1204 : * ecpg_build_params
1205 : * Build statement parameters
1206 : *
1207 : * The input values are taken from user variables, and the results are stored
1208 : * in arrays which can be used by PQexecParams().
1209 : */
1210 : bool
1211 10618 : ecpg_build_params(struct statement *stmt)
1212 : {
1213 : struct variable *var;
1214 10618 : int desc_counter = 0;
1215 10618 : int position = 0;
1216 : const char *value;
1217 10618 : bool std_strings = false;
1218 :
1219 : /* Get standard_conforming_strings setting. */
1220 10618 : value = PQparameterStatus(stmt->connection->connection, "standard_conforming_strings");
1221 10618 : if (value && strcmp(value, "on") == 0)
1222 10582 : std_strings = true;
1223 :
1224 : /*
1225 : * If the type is one of the fill in types then we take the argument and
1226 : * enter it to our parameter array at the first position. Then if there
1227 : * are any more fill in types we add more parameters.
1228 : */
1229 10618 : var = stmt->inlist;
1230 17966 : while (var)
1231 : {
1232 : char *tobeinserted;
1233 7348 : int counter = 1;
1234 : bool binary_format;
1235 : int binary_length;
1236 :
1237 :
1238 7348 : tobeinserted = NULL;
1239 7348 : binary_length = 0;
1240 7348 : binary_format = false;
1241 :
1242 : /*
1243 : * A descriptor is a special case since it contains many variables but
1244 : * is listed only once.
1245 : */
1246 7348 : if (var->type == ECPGt_descriptor)
1247 : {
1248 : /*
1249 : * We create an additional variable list here, so the same logic
1250 : * applies.
1251 : */
1252 : struct descriptor *desc;
1253 : struct descriptor_item *desc_item;
1254 :
1255 52 : desc = ecpg_find_desc(stmt->lineno, var->pointer);
1256 52 : if (desc == NULL)
1257 0 : return false;
1258 :
1259 52 : desc_counter++;
1260 80 : for (desc_item = desc->items; desc_item; desc_item = desc_item->next)
1261 : {
1262 80 : if (desc_item->num != desc_counter)
1263 28 : continue;
1264 :
1265 52 : if (!store_input_from_desc(stmt, desc_item, &tobeinserted))
1266 0 : return false;
1267 :
1268 52 : if (desc_item->is_binary)
1269 : {
1270 8 : binary_length = desc_item->data_len;
1271 8 : binary_format = true;
1272 : }
1273 52 : break;
1274 : }
1275 52 : if (desc->count == desc_counter)
1276 28 : desc_counter = 0;
1277 : }
1278 7296 : else if (var->type == ECPGt_sqlda)
1279 : {
1280 16 : if (INFORMIX_MODE(stmt->compat))
1281 8 : {
1282 8 : struct sqlda_compat *sqlda = *(struct sqlda_compat **) var->pointer;
1283 : struct variable desc_inlist;
1284 : int i;
1285 :
1286 8 : if (sqlda == NULL)
1287 0 : return false;
1288 :
1289 8 : desc_counter++;
1290 8 : for (i = 0; i < sqlda->sqld; i++)
1291 : {
1292 8 : if (i + 1 == desc_counter)
1293 : {
1294 8 : desc_inlist.type = sqlda->sqlvar[i].sqltype;
1295 8 : desc_inlist.value = sqlda->sqlvar[i].sqldata;
1296 8 : desc_inlist.pointer = &(sqlda->sqlvar[i].sqldata);
1297 8 : switch (desc_inlist.type)
1298 : {
1299 0 : case ECPGt_char:
1300 : case ECPGt_varchar:
1301 0 : desc_inlist.varcharsize = strlen(sqlda->sqlvar[i].sqldata);
1302 0 : break;
1303 8 : default:
1304 8 : desc_inlist.varcharsize = 0;
1305 8 : break;
1306 : }
1307 8 : desc_inlist.arrsize = 1;
1308 8 : desc_inlist.offset = 0;
1309 8 : if (sqlda->sqlvar[i].sqlind)
1310 : {
1311 0 : desc_inlist.ind_type = ECPGt_short;
1312 : /* ECPG expects indicator value < 0 */
1313 0 : if (*(sqlda->sqlvar[i].sqlind))
1314 0 : *(sqlda->sqlvar[i].sqlind) = -1;
1315 0 : desc_inlist.ind_value = sqlda->sqlvar[i].sqlind;
1316 0 : desc_inlist.ind_pointer = &(sqlda->sqlvar[i].sqlind);
1317 0 : desc_inlist.ind_varcharsize = desc_inlist.ind_arrsize = 1;
1318 0 : desc_inlist.ind_offset = 0;
1319 : }
1320 : else
1321 : {
1322 8 : desc_inlist.ind_type = ECPGt_NO_INDICATOR;
1323 8 : desc_inlist.ind_value = desc_inlist.ind_pointer = NULL;
1324 8 : desc_inlist.ind_varcharsize = desc_inlist.ind_arrsize = desc_inlist.ind_offset = 0;
1325 : }
1326 8 : if (!ecpg_store_input(stmt->lineno, stmt->force_indicator, &desc_inlist, &tobeinserted, false))
1327 0 : return false;
1328 :
1329 8 : break;
1330 : }
1331 : }
1332 8 : if (sqlda->sqld == desc_counter)
1333 8 : desc_counter = 0;
1334 : }
1335 : else
1336 : {
1337 8 : struct sqlda_struct *sqlda = *(struct sqlda_struct **) var->pointer;
1338 : struct variable desc_inlist;
1339 : int i;
1340 :
1341 8 : if (sqlda == NULL)
1342 0 : return false;
1343 :
1344 8 : desc_counter++;
1345 8 : for (i = 0; i < sqlda->sqln; i++)
1346 : {
1347 8 : if (i + 1 == desc_counter)
1348 : {
1349 8 : desc_inlist.type = sqlda->sqlvar[i].sqltype;
1350 8 : desc_inlist.value = sqlda->sqlvar[i].sqldata;
1351 8 : desc_inlist.pointer = &(sqlda->sqlvar[i].sqldata);
1352 8 : switch (desc_inlist.type)
1353 : {
1354 0 : case ECPGt_char:
1355 : case ECPGt_varchar:
1356 0 : desc_inlist.varcharsize = strlen(sqlda->sqlvar[i].sqldata);
1357 0 : break;
1358 8 : default:
1359 8 : desc_inlist.varcharsize = 0;
1360 8 : break;
1361 : }
1362 8 : desc_inlist.arrsize = 1;
1363 8 : desc_inlist.offset = 0;
1364 8 : if (sqlda->sqlvar[i].sqlind)
1365 : {
1366 0 : desc_inlist.ind_type = ECPGt_short;
1367 : /* ECPG expects indicator value < 0 */
1368 0 : if (*(sqlda->sqlvar[i].sqlind))
1369 0 : *(sqlda->sqlvar[i].sqlind) = -1;
1370 0 : desc_inlist.ind_value = sqlda->sqlvar[i].sqlind;
1371 0 : desc_inlist.ind_pointer = &(sqlda->sqlvar[i].sqlind);
1372 0 : desc_inlist.ind_varcharsize = desc_inlist.ind_arrsize = 1;
1373 0 : desc_inlist.ind_offset = 0;
1374 : }
1375 : else
1376 : {
1377 8 : desc_inlist.ind_type = ECPGt_NO_INDICATOR;
1378 8 : desc_inlist.ind_value = desc_inlist.ind_pointer = NULL;
1379 8 : desc_inlist.ind_varcharsize = desc_inlist.ind_arrsize = desc_inlist.ind_offset = 0;
1380 : }
1381 8 : if (!ecpg_store_input(stmt->lineno, stmt->force_indicator, &desc_inlist, &tobeinserted, false))
1382 0 : return false;
1383 :
1384 8 : break;
1385 : }
1386 : }
1387 8 : if (sqlda->sqln == desc_counter)
1388 8 : desc_counter = 0;
1389 : }
1390 : }
1391 : else
1392 : {
1393 7280 : if (!ecpg_store_input(stmt->lineno, stmt->force_indicator, var, &tobeinserted, false))
1394 0 : return false;
1395 :
1396 7280 : if (var->type == ECPGt_bytea)
1397 : {
1398 44 : binary_length = ((struct ECPGgeneric_bytea *) (var->value))->len;
1399 44 : binary_format = true;
1400 : }
1401 : }
1402 :
1403 : /*
1404 : * now tobeinserted points to an area that contains the next
1405 : * parameter; now find the position in the string where it belongs
1406 : */
1407 7348 : if ((position = next_insert(stmt->command, position, stmt->questionmarks, std_strings) + 1) == 0)
1408 : {
1409 : /*
1410 : * We have an argument but we don't have the matched up
1411 : * placeholder in the string
1412 : */
1413 0 : ecpg_raise(stmt->lineno, ECPG_TOO_MANY_ARGUMENTS,
1414 : ECPG_SQLSTATE_USING_CLAUSE_DOES_NOT_MATCH_PARAMETERS,
1415 : NULL);
1416 0 : ecpg_free_params(stmt, false);
1417 0 : ecpg_free(tobeinserted);
1418 0 : return false;
1419 : }
1420 :
1421 : /*
1422 : * if var->type=ECPGt_char_variable we have a dynamic cursor we have
1423 : * to simulate a dynamic cursor because there is no backend
1424 : * functionality for it
1425 : */
1426 7348 : if (var->type == ECPGt_char_variable)
1427 : {
1428 84 : int ph_len = (stmt->command[position] == '?') ? strlen("?") : strlen("$1");
1429 :
1430 84 : if (!insert_tobeinserted(position, ph_len, stmt, tobeinserted))
1431 : {
1432 0 : ecpg_free_params(stmt, false);
1433 0 : return false;
1434 : }
1435 84 : tobeinserted = NULL;
1436 : }
1437 :
1438 : /*
1439 : * if the placeholder is '$0' we have to replace it on the client side
1440 : * this is for places we want to support variables at that are not
1441 : * supported in the backend
1442 : */
1443 7264 : else if (stmt->command[position] == '0')
1444 : {
1445 248 : if (stmt->statement_type == ECPGst_prepare ||
1446 228 : stmt->statement_type == ECPGst_exec_with_exprlist)
1447 : {
1448 : /* Need to double-quote the inserted statement name. */
1449 56 : char *str = ecpg_alloc(strlen(tobeinserted) + 2 + 1,
1450 : stmt->lineno);
1451 :
1452 56 : if (!str)
1453 : {
1454 0 : ecpg_free(tobeinserted);
1455 0 : ecpg_free_params(stmt, false);
1456 0 : return false;
1457 : }
1458 56 : sprintf(str, "\"%s\"", tobeinserted);
1459 56 : ecpg_free(tobeinserted);
1460 56 : tobeinserted = str;
1461 : }
1462 :
1463 248 : if (!insert_tobeinserted(position, 2, stmt, tobeinserted))
1464 : {
1465 0 : ecpg_free_params(stmt, false);
1466 0 : return false;
1467 : }
1468 248 : tobeinserted = NULL;
1469 : }
1470 7016 : else if (stmt->statement_type == ECPGst_exec_with_exprlist)
1471 : {
1472 56 : if (binary_format)
1473 : {
1474 0 : char *p = convert_bytea_to_string(tobeinserted,
1475 : binary_length,
1476 : stmt->lineno);
1477 :
1478 0 : ecpg_free(tobeinserted);
1479 0 : if (!p)
1480 : {
1481 0 : ecpg_free_params(stmt, false);
1482 0 : return false;
1483 : }
1484 0 : tobeinserted = p;
1485 : }
1486 :
1487 56 : if (!insert_tobeinserted(position, 2, stmt, tobeinserted))
1488 : {
1489 0 : ecpg_free_params(stmt, false);
1490 0 : return false;
1491 : }
1492 56 : tobeinserted = NULL;
1493 : }
1494 : else
1495 : {
1496 6960 : bool realloc_failed = false;
1497 : char **newparamvalues;
1498 : int *newparamlengths;
1499 : int *newparamformats;
1500 :
1501 : /* enlarge all the param arrays */
1502 6960 : if ((newparamvalues = (char **) ecpg_realloc(stmt->paramvalues, sizeof(char *) * (stmt->nparams + 1), stmt->lineno)))
1503 6960 : stmt->paramvalues = newparamvalues;
1504 : else
1505 0 : realloc_failed = true;
1506 :
1507 6960 : if ((newparamlengths = (int *) ecpg_realloc(stmt->paramlengths, sizeof(int) * (stmt->nparams + 1), stmt->lineno)))
1508 6960 : stmt->paramlengths = newparamlengths;
1509 : else
1510 0 : realloc_failed = true;
1511 :
1512 6960 : if ((newparamformats = (int *) ecpg_realloc(stmt->paramformats, sizeof(int) * (stmt->nparams + 1), stmt->lineno)))
1513 6960 : stmt->paramformats = newparamformats;
1514 : else
1515 0 : realloc_failed = true;
1516 :
1517 6960 : if (realloc_failed)
1518 : {
1519 0 : ecpg_free_params(stmt, false);
1520 0 : ecpg_free(tobeinserted);
1521 0 : return false;
1522 : }
1523 :
1524 : /* only now can we assign ownership of "tobeinserted" to stmt */
1525 6960 : stmt->paramvalues[stmt->nparams] = tobeinserted;
1526 6960 : stmt->paramlengths[stmt->nparams] = binary_length;
1527 6960 : stmt->paramformats[stmt->nparams] = (binary_format ? 1 : 0);
1528 6960 : stmt->nparams++;
1529 :
1530 : /* let's see if this was an old style placeholder */
1531 6960 : if (stmt->command[position] == '?')
1532 : {
1533 : /* yes, replace with new style */
1534 0 : int buffersize = sizeof(int) * CHAR_BIT * 10 / 3; /* a rough guess of the
1535 : * size we need */
1536 :
1537 0 : if (!(tobeinserted = ecpg_alloc(buffersize, stmt->lineno)))
1538 : {
1539 0 : ecpg_free_params(stmt, false);
1540 0 : return false;
1541 : }
1542 :
1543 0 : snprintf(tobeinserted, buffersize, "$%d", counter++);
1544 :
1545 0 : if (!insert_tobeinserted(position, 2, stmt, tobeinserted))
1546 : {
1547 0 : ecpg_free_params(stmt, false);
1548 0 : return false;
1549 : }
1550 0 : tobeinserted = NULL;
1551 : }
1552 : }
1553 :
1554 7348 : if (desc_counter == 0)
1555 7324 : var = var->next;
1556 : }
1557 :
1558 : /*
1559 : * Check if there are unmatched things left. PREPARE AS has no parameter.
1560 : * Check other statement.
1561 : */
1562 21216 : if (stmt->statement_type != ECPGst_prepare &&
1563 10598 : next_insert(stmt->command, position, stmt->questionmarks, std_strings) >= 0)
1564 : {
1565 0 : ecpg_raise(stmt->lineno, ECPG_TOO_FEW_ARGUMENTS,
1566 : ECPG_SQLSTATE_USING_CLAUSE_DOES_NOT_MATCH_PARAMETERS, NULL);
1567 0 : ecpg_free_params(stmt, false);
1568 0 : return false;
1569 : }
1570 :
1571 10618 : return true;
1572 : }
1573 :
1574 : /*
1575 : * ecpg_autostart_transaction
1576 : * If we are in non-autocommit mode, automatically start a transaction.
1577 : */
1578 : bool
1579 10618 : ecpg_autostart_transaction(struct statement *stmt)
1580 : {
1581 10618 : if (PQtransactionStatus(stmt->connection->connection) == PQTRANS_IDLE && !stmt->connection->autocommit)
1582 : {
1583 370 : stmt->results = PQexec(stmt->connection->connection, "begin transaction");
1584 370 : if (!ecpg_check_PQresult(stmt->results, stmt->lineno, stmt->connection->connection, stmt->compat))
1585 : {
1586 0 : ecpg_free_params(stmt, false);
1587 0 : return false;
1588 : }
1589 370 : PQclear(stmt->results);
1590 370 : stmt->results = NULL;
1591 : }
1592 10618 : return true;
1593 : }
1594 :
1595 : /*
1596 : * ecpg_execute
1597 : * Execute the SQL statement.
1598 : */
1599 : bool
1600 10618 : ecpg_execute(struct statement *stmt)
1601 : {
1602 10618 : ecpg_log("ecpg_execute on line %d: query: %s; with %d parameter(s) on connection %s\n", stmt->lineno, stmt->command, stmt->nparams, stmt->connection->name);
1603 10618 : if (stmt->statement_type == ECPGst_execute)
1604 : {
1605 6656 : stmt->results = PQexecPrepared(stmt->connection->connection,
1606 3328 : stmt->name,
1607 : stmt->nparams,
1608 3328 : (const char *const *) stmt->paramvalues,
1609 3328 : (const int *) stmt->paramlengths,
1610 3328 : (const int *) stmt->paramformats,
1611 : 0);
1612 3328 : ecpg_log("ecpg_execute on line %d: using PQexecPrepared for \"%s\"\n", stmt->lineno, stmt->command);
1613 : }
1614 : else
1615 : {
1616 7290 : if (stmt->nparams == 0)
1617 : {
1618 5458 : stmt->results = PQexec(stmt->connection->connection, stmt->command);
1619 5458 : ecpg_log("ecpg_execute on line %d: using PQexec\n", stmt->lineno);
1620 : }
1621 : else
1622 : {
1623 3664 : stmt->results = PQexecParams(stmt->connection->connection,
1624 1832 : stmt->command, stmt->nparams, NULL,
1625 1832 : (const char *const *) stmt->paramvalues,
1626 1832 : (const int *) stmt->paramlengths,
1627 1832 : (const int *) stmt->paramformats,
1628 : 0);
1629 :
1630 1832 : ecpg_log("ecpg_execute on line %d: using PQexecParams\n", stmt->lineno);
1631 : }
1632 :
1633 7290 : if (stmt->statement_type == ECPGst_prepare)
1634 : {
1635 20 : if (!ecpg_register_prepared_stmt(stmt))
1636 : {
1637 0 : ecpg_free_params(stmt, true);
1638 0 : return false;
1639 : }
1640 : }
1641 : }
1642 :
1643 10618 : ecpg_free_params(stmt, true);
1644 :
1645 10618 : if (!ecpg_check_PQresult(stmt->results, stmt->lineno, stmt->connection->connection, stmt->compat))
1646 52 : return false;
1647 :
1648 10566 : return true;
1649 : }
1650 :
1651 : /*-------
1652 : * ecpg_process_output
1653 : *
1654 : * Process the statement result and store it into application variables. This
1655 : * function can be called repeatedly during the same statement in case cursor
1656 : * readahead is used and the application does FETCH N which overflows the
1657 : * readahead window.
1658 : *
1659 : * Parameters
1660 : * stmt statement structure holding the PGresult and
1661 : * the list of output variables
1662 : * clear_result
1663 : * PQclear() the result upon returning from this function
1664 : *
1665 : * Returns success as boolean. Also an SQL error is raised in case of failure.
1666 : *-------
1667 : */
1668 : bool
1669 10566 : ecpg_process_output(struct statement *stmt, bool clear_result)
1670 : {
1671 : struct variable *var;
1672 10566 : bool status = false;
1673 : char *cmdstat;
1674 : PGnotify *notify;
1675 10566 : struct sqlca_t *sqlca = ECPGget_sqlca();
1676 : int nfields,
1677 : ntuples,
1678 : act_field;
1679 :
1680 10566 : if (sqlca == NULL)
1681 : {
1682 0 : ecpg_raise(stmt->lineno, ECPG_OUT_OF_MEMORY,
1683 : ECPG_SQLSTATE_ECPG_OUT_OF_MEMORY, NULL);
1684 0 : return false;
1685 : }
1686 :
1687 10566 : var = stmt->outlist;
1688 10566 : switch (PQresultStatus(stmt->results))
1689 : {
1690 4192 : case PGRES_TUPLES_OK:
1691 4192 : nfields = PQnfields(stmt->results);
1692 4192 : sqlca->sqlerrd[2] = ntuples = PQntuples(stmt->results);
1693 :
1694 4192 : ecpg_log("ecpg_process_output on line %d: correctly got %d tuples with %d fields\n", stmt->lineno, ntuples, nfields);
1695 4192 : status = true;
1696 :
1697 4192 : if (ntuples < 1)
1698 : {
1699 80 : if (ntuples)
1700 0 : ecpg_log("ecpg_process_output on line %d: incorrect number of matches (%d)\n",
1701 : stmt->lineno, ntuples);
1702 80 : ecpg_raise(stmt->lineno, ECPG_NOT_FOUND, ECPG_SQLSTATE_NO_DATA, NULL);
1703 80 : status = false;
1704 80 : break;
1705 : }
1706 :
1707 4112 : if (var != NULL && var->type == ECPGt_descriptor)
1708 28 : {
1709 28 : struct descriptor *desc = ecpg_find_desc(stmt->lineno, var->pointer);
1710 :
1711 28 : if (desc == NULL)
1712 0 : status = false;
1713 : else
1714 : {
1715 28 : PQclear(desc->result);
1716 28 : desc->result = stmt->results;
1717 28 : clear_result = false;
1718 28 : ecpg_log("ecpg_process_output on line %d: putting result (%d tuples) into descriptor %s\n",
1719 28 : stmt->lineno, PQntuples(stmt->results), (const char *) var->pointer);
1720 : }
1721 28 : var = var->next;
1722 : }
1723 4084 : else if (var != NULL && var->type == ECPGt_sqlda)
1724 : {
1725 68 : if (INFORMIX_MODE(stmt->compat))
1726 32 : {
1727 32 : struct sqlda_compat **_sqlda = (struct sqlda_compat **) var->pointer;
1728 32 : struct sqlda_compat *sqlda = *_sqlda;
1729 : struct sqlda_compat *sqlda_new;
1730 : int i;
1731 :
1732 : /*
1733 : * If we are passed in a previously existing sqlda (chain)
1734 : * then free it.
1735 : */
1736 48 : while (sqlda)
1737 : {
1738 16 : sqlda_new = sqlda->desc_next;
1739 16 : free(sqlda);
1740 16 : sqlda = sqlda_new;
1741 : }
1742 32 : *_sqlda = sqlda = sqlda_new = NULL;
1743 64 : for (i = ntuples - 1; i >= 0; i--)
1744 : {
1745 : /*
1746 : * Build a new sqlda structure. Note that only
1747 : * fetching 1 record is supported
1748 : */
1749 32 : sqlda_new = ecpg_build_compat_sqlda(stmt->lineno, stmt->results, i, stmt->compat);
1750 :
1751 32 : if (!sqlda_new)
1752 : {
1753 : /* cleanup all SQLDAs we created up */
1754 0 : while (sqlda)
1755 : {
1756 0 : sqlda_new = sqlda->desc_next;
1757 0 : free(sqlda);
1758 0 : sqlda = sqlda_new;
1759 : }
1760 0 : *_sqlda = NULL;
1761 :
1762 0 : ecpg_log("ecpg_process_output on line %d: out of memory allocating a new sqlda\n", stmt->lineno);
1763 0 : status = false;
1764 0 : break;
1765 : }
1766 : else
1767 : {
1768 32 : ecpg_log("ecpg_process_output on line %d: new sqlda was built\n", stmt->lineno);
1769 :
1770 32 : *_sqlda = sqlda_new;
1771 :
1772 32 : ecpg_set_compat_sqlda(stmt->lineno, _sqlda, stmt->results, i, stmt->compat);
1773 32 : ecpg_log("ecpg_process_output on line %d: putting result (1 tuple %d fields) into sqlda descriptor\n",
1774 32 : stmt->lineno, PQnfields(stmt->results));
1775 :
1776 32 : sqlda_new->desc_next = sqlda;
1777 32 : sqlda = sqlda_new;
1778 : }
1779 : }
1780 : }
1781 : else
1782 : {
1783 36 : struct sqlda_struct **_sqlda = (struct sqlda_struct **) var->pointer;
1784 36 : struct sqlda_struct *sqlda = *_sqlda;
1785 : struct sqlda_struct *sqlda_new;
1786 : int i;
1787 :
1788 : /*
1789 : * If we are passed in a previously existing sqlda (chain)
1790 : * then free it.
1791 : */
1792 52 : while (sqlda)
1793 : {
1794 16 : sqlda_new = sqlda->desc_next;
1795 16 : free(sqlda);
1796 16 : sqlda = sqlda_new;
1797 : }
1798 36 : *_sqlda = sqlda = sqlda_new = NULL;
1799 88 : for (i = ntuples - 1; i >= 0; i--)
1800 : {
1801 : /*
1802 : * Build a new sqlda structure. Note that only
1803 : * fetching 1 record is supported
1804 : */
1805 52 : sqlda_new = ecpg_build_native_sqlda(stmt->lineno, stmt->results, i, stmt->compat);
1806 :
1807 52 : if (!sqlda_new)
1808 : {
1809 : /* cleanup all SQLDAs we created up */
1810 0 : while (sqlda)
1811 : {
1812 0 : sqlda_new = sqlda->desc_next;
1813 0 : free(sqlda);
1814 0 : sqlda = sqlda_new;
1815 : }
1816 0 : *_sqlda = NULL;
1817 :
1818 0 : ecpg_log("ecpg_process_output on line %d: out of memory allocating a new sqlda\n", stmt->lineno);
1819 0 : status = false;
1820 0 : break;
1821 : }
1822 : else
1823 : {
1824 52 : ecpg_log("ecpg_process_output on line %d: new sqlda was built\n", stmt->lineno);
1825 :
1826 52 : *_sqlda = sqlda_new;
1827 :
1828 52 : ecpg_set_native_sqlda(stmt->lineno, _sqlda, stmt->results, i, stmt->compat);
1829 52 : ecpg_log("ecpg_process_output on line %d: putting result (1 tuple %d fields) into sqlda descriptor\n",
1830 52 : stmt->lineno, PQnfields(stmt->results));
1831 :
1832 52 : sqlda_new->desc_next = sqlda;
1833 52 : sqlda = sqlda_new;
1834 : }
1835 : }
1836 : }
1837 :
1838 68 : var = var->next;
1839 : }
1840 : else
1841 8924 : for (act_field = 0; act_field < nfields && status; act_field++)
1842 : {
1843 4908 : if (var != NULL)
1844 : {
1845 4900 : status = ecpg_store_result(stmt->results, act_field, stmt, var);
1846 4900 : var = var->next;
1847 : }
1848 8 : else if (!INFORMIX_MODE(stmt->compat))
1849 : {
1850 0 : ecpg_raise(stmt->lineno, ECPG_TOO_FEW_ARGUMENTS, ECPG_SQLSTATE_USING_CLAUSE_DOES_NOT_MATCH_TARGETS, NULL);
1851 0 : return false;
1852 : }
1853 : }
1854 :
1855 4112 : if (status && var != NULL)
1856 : {
1857 0 : ecpg_raise(stmt->lineno, ECPG_TOO_MANY_ARGUMENTS, ECPG_SQLSTATE_USING_CLAUSE_DOES_NOT_MATCH_TARGETS, NULL);
1858 0 : status = false;
1859 : }
1860 :
1861 4112 : break;
1862 6370 : case PGRES_COMMAND_OK:
1863 6370 : status = true;
1864 6370 : cmdstat = PQcmdStatus(stmt->results);
1865 6370 : sqlca->sqlerrd[1] = PQoidValue(stmt->results);
1866 6370 : sqlca->sqlerrd[2] = atol(PQcmdTuples(stmt->results));
1867 6370 : ecpg_log("ecpg_process_output on line %d: OK: %s\n", stmt->lineno, cmdstat);
1868 6370 : if (stmt->compat != ECPG_COMPAT_INFORMIX_SE &&
1869 6370 : !sqlca->sqlerrd[2] &&
1870 934 : (strncmp(cmdstat, "UPDATE", 6) == 0
1871 930 : || strncmp(cmdstat, "INSERT", 6) == 0
1872 926 : || strncmp(cmdstat, "DELETE", 6) == 0))
1873 16 : ecpg_raise(stmt->lineno, ECPG_NOT_FOUND, ECPG_SQLSTATE_NO_DATA, NULL);
1874 6370 : break;
1875 4 : case PGRES_COPY_OUT:
1876 : {
1877 : char *buffer;
1878 : int res;
1879 :
1880 4 : ecpg_log("ecpg_process_output on line %d: COPY OUT data transfer in progress\n", stmt->lineno);
1881 16 : while ((res = PQgetCopyData(stmt->connection->connection,
1882 16 : &buffer, 0)) > 0)
1883 : {
1884 12 : printf("%s", buffer);
1885 12 : PQfreemem(buffer);
1886 : }
1887 4 : if (res == -1)
1888 : {
1889 : /* COPY done */
1890 4 : PQclear(stmt->results);
1891 4 : stmt->results = PQgetResult(stmt->connection->connection);
1892 4 : if (PQresultStatus(stmt->results) == PGRES_COMMAND_OK)
1893 4 : ecpg_log("ecpg_process_output on line %d: got PGRES_COMMAND_OK after PGRES_COPY_OUT\n", stmt->lineno);
1894 : else
1895 0 : ecpg_log("ecpg_process_output on line %d: got error after PGRES_COPY_OUT: %s", stmt->lineno, PQresultErrorMessage(stmt->results));
1896 : }
1897 4 : break;
1898 : }
1899 0 : default:
1900 :
1901 : /*
1902 : * execution should never reach this code because it is already
1903 : * handled in ecpg_check_PQresult()
1904 : */
1905 0 : ecpg_log("ecpg_process_output on line %d: unknown execution status type\n",
1906 : stmt->lineno);
1907 0 : ecpg_raise_backend(stmt->lineno, stmt->results, stmt->connection->connection, stmt->compat);
1908 0 : status = false;
1909 0 : break;
1910 : }
1911 :
1912 10566 : if (clear_result)
1913 : {
1914 10538 : PQclear(stmt->results);
1915 10538 : stmt->results = NULL;
1916 : }
1917 :
1918 : /* check for asynchronous returns */
1919 10566 : PQconsumeInput(stmt->connection->connection);
1920 10566 : while ((notify = PQnotifies(stmt->connection->connection)) != NULL)
1921 : {
1922 0 : ecpg_log("ecpg_process_output on line %d: asynchronous notification of \"%s\" from backend PID %d received\n",
1923 : stmt->lineno, notify->relname, notify->be_pid);
1924 0 : PQfreemem(notify);
1925 0 : PQconsumeInput(stmt->connection->connection);
1926 : }
1927 :
1928 10566 : return status;
1929 : }
1930 :
1931 : /*
1932 : * ecpg_do_prologue
1933 : *
1934 : * Initialize various infrastructure elements for executing the statement:
1935 : *
1936 : * - create the statement structure
1937 : * - set the C numeric locale for communicating with the backend
1938 : * - preprocess the variable list of input/output parameters into
1939 : * linked lists
1940 : */
1941 : bool
1942 10642 : ecpg_do_prologue(int lineno, const int compat, const int force_indicator,
1943 : const char *connection_name, const bool questionmarks,
1944 : enum ECPG_statement_type statement_type, const char *query,
1945 : va_list args, struct statement **stmt_out)
1946 : {
1947 10642 : struct statement *stmt = NULL;
1948 : struct connection *con;
1949 : enum ECPGttype type;
1950 : struct variable **list;
1951 : char *prepname;
1952 : bool is_prepared_name_set;
1953 :
1954 10642 : *stmt_out = NULL;
1955 :
1956 10642 : if (!query)
1957 : {
1958 0 : ecpg_raise(lineno, ECPG_EMPTY, ECPG_SQLSTATE_ECPG_INTERNAL_ERROR, NULL);
1959 0 : return false;
1960 : }
1961 :
1962 10642 : ecpg_pthreads_init();
1963 :
1964 10642 : con = ecpg_get_connection(connection_name);
1965 :
1966 10642 : if (!ecpg_init(con, connection_name, lineno))
1967 24 : return false;
1968 :
1969 10618 : stmt = (struct statement *) ecpg_alloc(sizeof(struct statement), lineno);
1970 :
1971 10618 : if (stmt == NULL)
1972 0 : return false;
1973 :
1974 : /*
1975 : * Make sure we do NOT honor the locale for numeric input/output since the
1976 : * database wants the standard decimal point. If available, use
1977 : * uselocale() for this because it's thread-safe. Windows doesn't have
1978 : * that, but it does have _configthreadlocale().
1979 : */
1980 : #ifdef HAVE_USELOCALE
1981 :
1982 : /*
1983 : * Since ecpg_init() succeeded, we have a connection. Any successful
1984 : * connection initializes ecpg_clocale.
1985 : */
1986 : Assert(ecpg_clocale);
1987 10618 : stmt->oldlocale = uselocale(ecpg_clocale);
1988 10618 : if (stmt->oldlocale == (locale_t) 0)
1989 : {
1990 0 : ecpg_do_epilogue(stmt);
1991 0 : return false;
1992 : }
1993 : #else
1994 : #ifdef WIN32
1995 : stmt->oldthreadlocale = _configthreadlocale(_ENABLE_PER_THREAD_LOCALE);
1996 : if (stmt->oldthreadlocale == -1)
1997 : {
1998 : ecpg_do_epilogue(stmt);
1999 : return false;
2000 : }
2001 : #endif
2002 : stmt->oldlocale = ecpg_strdup(setlocale(LC_NUMERIC, NULL), lineno,
2003 : NULL);
2004 : if (stmt->oldlocale == NULL)
2005 : {
2006 : ecpg_do_epilogue(stmt);
2007 : return false;
2008 : }
2009 : setlocale(LC_NUMERIC, "C");
2010 : #endif
2011 :
2012 : /*
2013 : * If statement type is ECPGst_prepnormal we are supposed to prepare the
2014 : * statement before executing them
2015 : */
2016 10618 : if (statement_type == ECPGst_prepnormal)
2017 : {
2018 32 : if (!ecpg_auto_prepare(lineno, connection_name, compat, &prepname, query))
2019 : {
2020 0 : ecpg_do_epilogue(stmt);
2021 0 : return false;
2022 : }
2023 :
2024 : /*
2025 : * statement is now prepared, so instead of the query we have to
2026 : * execute the name
2027 : */
2028 32 : stmt->command = prepname;
2029 32 : statement_type = ECPGst_execute;
2030 : }
2031 : else
2032 : {
2033 10586 : stmt->command = ecpg_strdup(query, lineno, NULL);
2034 10586 : if (!stmt->command)
2035 : {
2036 0 : ecpg_do_epilogue(stmt);
2037 0 : return false;
2038 : }
2039 : }
2040 :
2041 10618 : stmt->name = NULL;
2042 :
2043 10618 : if (statement_type == ECPGst_execute)
2044 : {
2045 : /* if we have an EXECUTE command, only the name is send */
2046 3328 : char *command = ecpg_prepared(stmt->command, con);
2047 :
2048 3328 : if (command)
2049 : {
2050 3328 : stmt->name = stmt->command;
2051 3328 : stmt->command = ecpg_strdup(command, lineno, NULL);
2052 3328 : if (!stmt->command)
2053 : {
2054 0 : ecpg_do_epilogue(stmt);
2055 0 : return false;
2056 : }
2057 : }
2058 : else
2059 : {
2060 0 : ecpg_raise(lineno, ECPG_INVALID_STMT, ECPG_SQLSTATE_INVALID_SQL_STATEMENT_NAME, stmt->command);
2061 0 : ecpg_do_epilogue(stmt);
2062 0 : return false;
2063 : }
2064 : }
2065 : /* name of PREPARE AS will be set in loop of inlist */
2066 :
2067 10618 : stmt->connection = con;
2068 10618 : stmt->lineno = lineno;
2069 10618 : stmt->compat = compat;
2070 10618 : stmt->force_indicator = force_indicator;
2071 10618 : stmt->questionmarks = questionmarks;
2072 10618 : stmt->statement_type = statement_type;
2073 :
2074 : /*------
2075 : * create a list of variables
2076 : *
2077 : * The variables are listed with input variables preceding output
2078 : * variables. The end of each group is marked by an end marker.
2079 : * Per variable we list:
2080 : *
2081 : * type - as defined in ecpgtype.h
2082 : * value - where to store the data
2083 : * varcharsize - length of string in case we have a stringvariable, else 0
2084 : * arraysize - 0 for pointer (we don't know the size of the array), 1 for
2085 : * simple variable, size for arrays
2086 : * offset - offset between ith and (i+1)th entry in an array, normally
2087 : * that means sizeof(type)
2088 : * ind_type - type of indicator variable
2089 : * ind_pointer - pointer to indicator variable
2090 : * ind_varcharsize - empty
2091 : * ind_arrsize - arraysize of indicator array
2092 : * ind_offset - indicator offset
2093 : *------
2094 : */
2095 :
2096 10618 : is_prepared_name_set = false;
2097 :
2098 10618 : list = &(stmt->inlist);
2099 :
2100 10618 : type = va_arg(args, enum ECPGttype);
2101 :
2102 33808 : while (type != ECPGt_EORT)
2103 : {
2104 23190 : if (type == ECPGt_EOIT)
2105 10618 : list = &(stmt->outlist);
2106 : else
2107 : {
2108 : struct variable *var,
2109 : *ptr;
2110 :
2111 12572 : if (!(var = (struct variable *) ecpg_alloc(sizeof(struct variable), lineno)))
2112 : {
2113 0 : ecpg_do_epilogue(stmt);
2114 0 : return false;
2115 : }
2116 :
2117 12572 : var->type = type;
2118 12572 : var->pointer = va_arg(args, char *);
2119 :
2120 12572 : var->varcharsize = va_arg(args, long);
2121 12572 : var->arrsize = va_arg(args, long);
2122 12572 : var->offset = va_arg(args, long);
2123 :
2124 : /*
2125 : * Unknown array size means pointer to an array. Unknown
2126 : * varcharsize usually also means pointer. But if the type is
2127 : * character and the array size is known, it is an array of
2128 : * pointers to char, so use var->pointer as it is.
2129 : */
2130 12572 : if (var->arrsize == 0 ||
2131 9236 : (var->varcharsize == 0 && ((var->type != ECPGt_char && var->type != ECPGt_unsigned_char) || (var->arrsize <= 1))))
2132 3528 : var->value = *((char **) (var->pointer));
2133 : else
2134 9044 : var->value = var->pointer;
2135 :
2136 : /*
2137 : * negative values are used to indicate an array without given
2138 : * bounds
2139 : */
2140 : /* reset to zero for us */
2141 12572 : if (var->arrsize < 0)
2142 56 : var->arrsize = 0;
2143 12572 : if (var->varcharsize < 0)
2144 0 : var->varcharsize = 0;
2145 :
2146 12572 : var->next = NULL;
2147 :
2148 12572 : var->ind_type = va_arg(args, enum ECPGttype);
2149 12572 : var->ind_pointer = va_arg(args, char *);
2150 12572 : var->ind_varcharsize = va_arg(args, long);
2151 12572 : var->ind_arrsize = va_arg(args, long);
2152 12572 : var->ind_offset = va_arg(args, long);
2153 :
2154 12572 : if (var->ind_type != ECPGt_NO_INDICATOR
2155 448 : && (var->ind_arrsize == 0 || var->ind_varcharsize == 0))
2156 0 : var->ind_value = *((char **) (var->ind_pointer));
2157 : else
2158 12572 : var->ind_value = var->ind_pointer;
2159 :
2160 : /*
2161 : * negative values are used to indicate an array without given
2162 : * bounds
2163 : */
2164 : /* reset to zero for us */
2165 12572 : if (var->ind_arrsize < 0)
2166 56 : var->ind_arrsize = 0;
2167 12572 : if (var->ind_varcharsize < 0)
2168 0 : var->ind_varcharsize = 0;
2169 :
2170 : /* if variable is NULL, the statement hasn't been prepared */
2171 12572 : if (var->pointer == NULL)
2172 : {
2173 0 : ecpg_raise(lineno, ECPG_INVALID_STMT, ECPG_SQLSTATE_INVALID_SQL_STATEMENT_NAME, NULL);
2174 0 : ecpg_free(var);
2175 0 : ecpg_do_epilogue(stmt);
2176 0 : return false;
2177 : }
2178 :
2179 13852 : for (ptr = *list; ptr && ptr->next; ptr = ptr->next)
2180 : ;
2181 :
2182 12572 : if (ptr == NULL)
2183 9620 : *list = var;
2184 : else
2185 2952 : ptr->next = var;
2186 :
2187 12572 : if (!is_prepared_name_set && stmt->statement_type == ECPGst_prepare)
2188 : {
2189 20 : stmt->name = ecpg_strdup(var->value, lineno, NULL);
2190 20 : if (!stmt->name)
2191 : {
2192 0 : ecpg_do_epilogue(stmt);
2193 0 : return false;
2194 : }
2195 20 : is_prepared_name_set = true;
2196 : }
2197 : }
2198 :
2199 23190 : type = va_arg(args, enum ECPGttype);
2200 : }
2201 :
2202 : /* are we connected? */
2203 10618 : if (con == NULL || con->connection == NULL)
2204 : {
2205 0 : ecpg_raise(lineno, ECPG_NOT_CONN, ECPG_SQLSTATE_ECPG_INTERNAL_ERROR, (con) ? con->name : ecpg_gettext("<empty>"));
2206 0 : ecpg_do_epilogue(stmt);
2207 0 : return false;
2208 : }
2209 :
2210 10618 : if (!is_prepared_name_set && stmt->statement_type == ECPGst_prepare)
2211 : {
2212 0 : ecpg_raise(lineno, ECPG_TOO_FEW_ARGUMENTS, ECPG_SQLSTATE_ECPG_INTERNAL_ERROR, (con) ? con->name : ecpg_gettext("<empty>"));
2213 0 : ecpg_do_epilogue(stmt);
2214 0 : return false;
2215 : }
2216 :
2217 : /* initialize auto_mem struct */
2218 10618 : ecpg_clear_auto_mem();
2219 :
2220 10618 : *stmt_out = stmt;
2221 :
2222 10618 : return true;
2223 : }
2224 :
2225 : /*
2226 : * ecpg_do_epilogue
2227 : * Restore the application locale and free the statement structure.
2228 : */
2229 : void
2230 10642 : ecpg_do_epilogue(struct statement *stmt)
2231 : {
2232 10642 : if (stmt == NULL)
2233 24 : return;
2234 :
2235 : #ifdef HAVE_USELOCALE
2236 10618 : if (stmt->oldlocale != (locale_t) 0)
2237 10618 : uselocale(stmt->oldlocale);
2238 : #else
2239 : if (stmt->oldlocale)
2240 : {
2241 : setlocale(LC_NUMERIC, stmt->oldlocale);
2242 : #ifdef WIN32
2243 : _configthreadlocale(stmt->oldthreadlocale);
2244 : #endif
2245 : }
2246 : #endif
2247 :
2248 10618 : free_statement(stmt);
2249 : }
2250 :
2251 : /*
2252 : * Execute SQL statements in the backend.
2253 : * The input/output parameters (variable argument list) are passed
2254 : * in a va_list, so other functions can use this interface.
2255 : */
2256 : bool
2257 10642 : ecpg_do(const int lineno, const int compat, const int force_indicator, const char *connection_name, const bool questionmarks, const int st, const char *query, va_list args)
2258 : {
2259 10642 : struct statement *stmt = NULL;
2260 :
2261 10642 : if (!ecpg_do_prologue(lineno, compat, force_indicator, connection_name,
2262 : questionmarks, (enum ECPG_statement_type) st,
2263 : query, args, &stmt))
2264 24 : goto fail;
2265 :
2266 10618 : if (!ecpg_build_params(stmt))
2267 0 : goto fail;
2268 :
2269 10618 : if (!ecpg_autostart_transaction(stmt))
2270 0 : goto fail;
2271 :
2272 10618 : if (!ecpg_execute(stmt))
2273 52 : goto fail;
2274 :
2275 10566 : if (!ecpg_process_output(stmt, true))
2276 108 : goto fail;
2277 :
2278 10458 : ecpg_do_epilogue(stmt);
2279 10458 : return true;
2280 :
2281 184 : fail:
2282 184 : ecpg_do_epilogue(stmt);
2283 184 : return false;
2284 : }
2285 :
2286 : /*
2287 : * Execute SQL statements in the backend.
2288 : * The input/output parameters are passed as variable-length argument list.
2289 : */
2290 : bool
2291 10642 : ECPGdo(const int lineno, const int compat, const int force_indicator, const char *connection_name, const bool questionmarks, const int st, const char *query,...)
2292 : {
2293 : va_list args;
2294 : bool ret;
2295 :
2296 10642 : va_start(args, query);
2297 10642 : ret = ecpg_do(lineno, compat, force_indicator, connection_name,
2298 : questionmarks, st, query, args);
2299 10642 : va_end(args);
2300 :
2301 10642 : return ret;
2302 : }
2303 :
2304 : /* old descriptor interface */
2305 : bool
2306 0 : ECPGdo_descriptor(int line, const char *connection,
2307 : const char *descriptor, const char *query)
2308 : {
2309 0 : return ECPGdo(line, ECPG_COMPAT_PGSQL, true, connection, '\0', 0, query, ECPGt_EOIT,
2310 : ECPGt_descriptor, descriptor, 0L, 0L, 0L,
2311 : ECPGt_NO_INDICATOR, NULL, 0L, 0L, 0L, ECPGt_EORT);
2312 : }
|
