Age Owner Branch data TLA Line data Source code
1 : : /* src/interfaces/ecpg/preproc/type.c */
2 : :
3 : : #include "postgres_fe.h"
4 : :
5 : : #include "preproc_extern.h"
6 : :
7 : : #define indicator_set ind_type != NULL && ind_type->type != ECPGt_NO_INDICATOR
8 : :
9 : : static struct ECPGstruct_member struct_no_indicator = {"no_indicator", &ecpg_no_indicator, NULL};
10 : :
11 : : /* duplicate memberlist */
12 : : struct ECPGstruct_member *
3051 tgl@sss.pgh.pa.us 13 :CBC 89 : ECPGstruct_member_dup(struct ECPGstruct_member *rm)
14 : : {
9919 bruce@momjian.us 15 : 89 : struct ECPGstruct_member *new = NULL;
16 : :
17 [ + + ]: 287 : while (rm)
18 : : {
19 : : struct ECPGtype *type;
20 : :
8710 meskes@postgresql.or 21 [ + - + ]: 198 : switch (rm->type->type)
22 : : {
9919 bruce@momjian.us 23 : 6 : case ECPGt_struct:
24 : : case ECPGt_union:
5754 meskes@postgresql.or 25 : 6 : type = ECPGmake_struct_type(rm->type->u.members, rm->type->type, rm->type->type_name, rm->type->struct_sizeof);
9919 bruce@momjian.us 26 : 6 : break;
9919 bruce@momjian.us 27 :UBC 0 : case ECPGt_array:
28 : :
29 : : /*
30 : : * if this array does contain a struct again, we have to
31 : : * create the struct too
32 : : */
5689 meskes@postgresql.or 33 [ # # # # ]: 0 : if (rm->type->u.element->type == ECPGt_struct || rm->type->u.element->type == ECPGt_union)
5754 34 : 0 : type = ECPGmake_struct_type(rm->type->u.element->u.members, rm->type->u.element->type, rm->type->u.element->type_name, rm->type->u.element->struct_sizeof);
35 : : else
5712 36 : 0 : type = ECPGmake_array_type(ECPGmake_simple_type(rm->type->u.element->type, rm->type->u.element->size, rm->type->u.element->counter), rm->type->size);
9919 bruce@momjian.us 37 : 0 : break;
9919 bruce@momjian.us 38 :CBC 192 : default:
5712 meskes@postgresql.or 39 : 192 : type = ECPGmake_simple_type(rm->type->type, rm->type->size, rm->type->counter);
9919 bruce@momjian.us 40 : 192 : break;
41 : : }
42 : :
43 : 198 : ECPGmake_struct_member(rm->name, type, &new);
44 : :
45 : 198 : rm = rm->next;
46 : : }
47 : :
2994 peter_e@gmx.net 48 : 89 : return new;
49 : : }
50 : :
51 : : /* The NAME argument is copied. The type argument is preserved as a pointer. */
52 : : void
2919 53 : 252 : ECPGmake_struct_member(const char *name, struct ECPGtype *type, struct ECPGstruct_member **start)
54 : : {
55 : : struct ECPGstruct_member *ptr,
56 : : *ne =
893 tgl@sss.pgh.pa.us 57 : 252 : (struct ECPGstruct_member *) mm_alloc(sizeof(struct ECPGstruct_member));
58 : :
6642 meskes@postgresql.or 59 : 252 : ne->name = mm_strdup(name);
8710 60 : 252 : ne->type = type;
10106 bruce@momjian.us 61 : 252 : ne->next = NULL;
62 : :
63 [ + + + + ]: 354 : for (ptr = *start; ptr && ptr->next; ptr = ptr->next);
64 : :
65 [ + + ]: 252 : if (ptr)
66 : 152 : ptr->next = ne;
67 : : else
68 : 100 : *start = ne;
10127 scrappy@hub.org 69 : 252 : }
70 : :
71 : : struct ECPGtype *
379 tgl@sss.pgh.pa.us 72 : 821 : ECPGmake_simple_type(enum ECPGttype type, const char *size, int counter)
73 : : {
10106 bruce@momjian.us 74 : 821 : struct ECPGtype *ne = (struct ECPGtype *) mm_alloc(sizeof(struct ECPGtype));
75 : :
8710 meskes@postgresql.or 76 : 821 : ne->type = type;
5754 77 : 821 : ne->type_name = NULL;
379 tgl@sss.pgh.pa.us 78 : 821 : ne->size = mm_strdup(size);
7688 neilc@samurai.com 79 : 821 : ne->u.element = NULL;
8710 meskes@postgresql.or 80 : 821 : ne->struct_sizeof = NULL;
2444 81 : 821 : ne->counter = counter; /* only needed for varchar and bytea */
82 : :
10106 bruce@momjian.us 83 : 821 : return ne;
84 : : }
85 : :
86 : : struct ECPGtype *
379 tgl@sss.pgh.pa.us 87 : 72 : ECPGmake_array_type(struct ECPGtype *type, const char *size)
88 : : {
6650 meskes@postgresql.or 89 : 72 : struct ECPGtype *ne = ECPGmake_simple_type(ECPGt_array, size, 0);
90 : :
8710 91 : 72 : ne->u.element = type;
92 : :
10106 bruce@momjian.us 93 : 72 : return ne;
94 : : }
95 : :
96 : : struct ECPGtype *
335 tgl@sss.pgh.pa.us 97 : 35 : ECPGmake_struct_type(struct ECPGstruct_member *rm, enum ECPGttype type,
98 : : const char *type_name, const char *struct_sizeof)
99 : : {
379 100 : 35 : struct ECPGtype *ne = ECPGmake_simple_type(type, "1", 0);
101 : :
5754 meskes@postgresql.or 102 : 35 : ne->type_name = mm_strdup(type_name);
9747 scrappy@hub.org 103 : 35 : ne->u.members = ECPGstruct_member_dup(rm);
335 tgl@sss.pgh.pa.us 104 : 35 : ne->struct_sizeof = mm_strdup(struct_sizeof);
105 : :
10106 bruce@momjian.us 106 : 35 : return ne;
107 : : }
108 : :
109 : : static const char *
8710 meskes@postgresql.or 110 : 606 : get_type(enum ECPGttype type)
111 : : {
112 [ + - + - : 606 : switch (type)
+ - + - -
- + + + +
+ - + + +
+ + - - +
+ + - ]
113 : : {
8769 bruce@momjian.us 114 : 195 : case ECPGt_char:
2994 peter_e@gmx.net 115 : 195 : return "ECPGt_char";
116 : : break;
9919 bruce@momjian.us 117 :UBC 0 : case ECPGt_unsigned_char:
2994 peter_e@gmx.net 118 : 0 : return "ECPGt_unsigned_char";
119 : : break;
9919 bruce@momjian.us 120 :CBC 32 : case ECPGt_short:
2994 peter_e@gmx.net 121 : 32 : return "ECPGt_short";
122 : : break;
9919 bruce@momjian.us 123 :UBC 0 : case ECPGt_unsigned_short:
2994 peter_e@gmx.net 124 : 0 : return "ECPGt_unsigned_short";
125 : : break;
9919 bruce@momjian.us 126 :CBC 212 : case ECPGt_int:
2994 peter_e@gmx.net 127 : 212 : return "ECPGt_int";
128 : : break;
9919 bruce@momjian.us 129 :UBC 0 : case ECPGt_unsigned_int:
2994 peter_e@gmx.net 130 : 0 : return "ECPGt_unsigned_int";
131 : : break;
9919 bruce@momjian.us 132 :CBC 12 : case ECPGt_long:
2994 peter_e@gmx.net 133 : 12 : return "ECPGt_long";
134 : : break;
9919 bruce@momjian.us 135 :UBC 0 : case ECPGt_unsigned_long:
2994 peter_e@gmx.net 136 : 0 : return "ECPGt_unsigned_long";
137 : : break;
9170 meskes@postgresql.or 138 : 0 : case ECPGt_long_long:
2994 peter_e@gmx.net 139 : 0 : return "ECPGt_long_long";
140 : : break;
9170 meskes@postgresql.or 141 : 0 : case ECPGt_unsigned_long_long:
2994 peter_e@gmx.net 142 : 0 : return "ECPGt_unsigned_long_long";
143 : : break;
9919 bruce@momjian.us 144 :CBC 6 : case ECPGt_float:
2994 peter_e@gmx.net 145 : 6 : return "ECPGt_float";
146 : : break;
9919 bruce@momjian.us 147 : 16 : case ECPGt_double:
2994 peter_e@gmx.net 148 : 16 : return "ECPGt_double";
149 : : break;
9919 bruce@momjian.us 150 : 13 : case ECPGt_bool:
2994 peter_e@gmx.net 151 : 13 : return "ECPGt_bool";
152 : : break;
9919 bruce@momjian.us 153 : 20 : case ECPGt_varchar:
2994 peter_e@gmx.net 154 : 20 : return "ECPGt_varchar";
2444 meskes@postgresql.or 155 : 21 : case ECPGt_bytea:
156 : 21 : return "ECPGt_bytea";
3051 tgl@sss.pgh.pa.us 157 :UBC 0 : case ECPGt_NO_INDICATOR: /* no indicator */
2994 peter_e@gmx.net 158 : 0 : return "ECPGt_NO_INDICATOR";
159 : : break;
3051 tgl@sss.pgh.pa.us 160 :CBC 20 : case ECPGt_char_variable: /* string that should not be quoted */
2994 peter_e@gmx.net 161 : 20 : return "ECPGt_char_variable";
162 : : break;
8166 meskes@postgresql.or 163 : 16 : case ECPGt_const: /* constant string quoted */
2994 peter_e@gmx.net 164 : 16 : return "ECPGt_const";
165 : : break;
8155 meskes@postgresql.or 166 : 6 : case ECPGt_decimal:
2994 peter_e@gmx.net 167 : 6 : return "ECPGt_decimal";
168 : : break;
8262 meskes@postgresql.or 169 : 9 : case ECPGt_numeric:
2994 peter_e@gmx.net 170 : 9 : return "ECPGt_numeric";
171 : : break;
8251 meskes@postgresql.or 172 : 4 : case ECPGt_interval:
2994 peter_e@gmx.net 173 : 4 : return "ECPGt_interval";
174 : : break;
8805 meskes@postgresql.or 175 :UBC 0 : case ECPGt_descriptor:
2994 peter_e@gmx.net 176 : 0 : return "ECPGt_descriptor";
177 : : break;
5775 meskes@postgresql.or 178 : 0 : case ECPGt_sqlda:
2994 peter_e@gmx.net 179 : 0 : return "ECPGt_sqlda";
180 : : break;
8258 meskes@postgresql.or 181 :CBC 10 : case ECPGt_date:
2994 peter_e@gmx.net 182 : 10 : return "ECPGt_date";
183 : : break;
8258 meskes@postgresql.or 184 : 13 : case ECPGt_timestamp:
2994 peter_e@gmx.net 185 : 13 : return "ECPGt_timestamp";
186 : : break;
5926 meskes@postgresql.or 187 : 1 : case ECPGt_string:
2994 peter_e@gmx.net 188 : 1 : return "ECPGt_string";
189 : : break;
9919 bruce@momjian.us 190 :UBC 0 : default:
6122 peter_e@gmx.net 191 : 0 : mmerror(PARSE_ERROR, ET_ERROR, "unrecognized variable type code %d", type);
192 : : }
193 : :
9739 scrappy@hub.org 194 : 0 : return NULL;
195 : : }
196 : :
197 : : /* Dump a type.
198 : : The type is dumped as:
199 : : type-tag <comma> - enum ECPGttype
200 : : reference-to-variable <comma> - char *
201 : : size <comma> - long size of this field (if varchar)
202 : : arrsize <comma> - long number of elements in the arr
203 : : offset <comma> - offset to the next element
204 : : Where:
205 : : type-tag is one of the simple types or varchar.
206 : : reference-to-variable can be a reference to a struct element.
207 : : arrsize is the size of the array in case of array fetches. Otherwise 0.
208 : : size is the maxsize in case it is a varchar. Otherwise it is the size of
209 : : the variable (required to do array fetches of structs).
210 : : */
211 : : static void ECPGdump_a_simple(FILE *o, const char *name, enum ECPGttype type,
212 : : char *varcharsize,
213 : : char *arrsize, const char *size, const char *prefix, int counter);
214 : : static void ECPGdump_a_struct(FILE *o, const char *name, const char *ind_name, char *arrsize,
215 : : struct ECPGtype *type, struct ECPGtype *ind_type, const char *prefix, const char *ind_prefix);
216 : :
217 : : void
3051 tgl@sss.pgh.pa.us 218 :CBC 617 : ECPGdump_a_type(FILE *o, const char *name, struct ECPGtype *type, const int brace_level,
219 : : const char *ind_name, struct ECPGtype *ind_type, const int ind_brace_level,
220 : : const char *prefix, const char *ind_prefix,
221 : : char *arr_str_size, const char *struct_sizeof,
222 : : const char *ind_struct_sizeof)
223 : : {
224 : : struct variable *var;
225 : :
5689 meskes@postgresql.or 226 [ + + + + ]: 617 : if (type->type != ECPGt_descriptor && type->type != ECPGt_sqlda &&
5345 heikki.linnakangas@i 227 [ + + + + : 570 : type->type != ECPGt_char_variable && type->type != ECPGt_const &&
+ + ]
228 : : brace_level >= 0)
229 : : {
230 : : char *str;
231 : :
5689 meskes@postgresql.or 232 : 498 : str = mm_strdup(name);
233 : 498 : var = find_variable(str);
234 : 498 : free(str);
235 : :
236 [ + - ]: 498 : if ((var->type->type != type->type) ||
237 [ + + + - ]: 498 : (var->type->type_name && !type->type_name) ||
238 [ + + + - ]: 498 : (!var->type->type_name && type->type_name) ||
5054 peter_e@gmx.net 239 [ + + + - : 498 : (var->type->type_name && type->type_name && strcmp(var->type->type_name, type->type_name) != 0))
- + ]
5687 peter_e@gmx.net 240 :UBC 0 : mmerror(PARSE_ERROR, ET_ERROR, "variable \"%s\" is hidden by a local variable of a different type", name);
5689 meskes@postgresql.or 241 [ - + ]:CBC 498 : else if (var->brace_level != brace_level)
5687 peter_e@gmx.net 242 :UBC 0 : mmerror(PARSE_ERROR, ET_WARNING, "variable \"%s\" is hidden by a local variable", name);
243 : :
5689 meskes@postgresql.or 244 [ + + + - :CBC 498 : if (ind_name && ind_type && ind_type->type != ECPGt_NO_INDICATOR && ind_brace_level >= 0)
+ + + - ]
245 : : {
246 : 32 : str = mm_strdup(ind_name);
247 : 32 : var = find_variable(str);
248 : 32 : free(str);
249 : :
250 [ + - ]: 32 : if ((var->type->type != ind_type->type) ||
251 [ + + + - ]: 32 : (var->type->type_name && !ind_type->type_name) ||
252 [ + + + - ]: 32 : (!var->type->type_name && ind_type->type_name) ||
5054 peter_e@gmx.net 253 [ + + + - : 32 : (var->type->type_name && ind_type->type_name && strcmp(var->type->type_name, ind_type->type_name) != 0))
- + ]
5687 peter_e@gmx.net 254 :UBC 0 : mmerror(PARSE_ERROR, ET_ERROR, "indicator variable \"%s\" is hidden by a local variable of a different type", ind_name);
5689 meskes@postgresql.or 255 [ - + ]:CBC 32 : else if (var->brace_level != ind_brace_level)
5687 peter_e@gmx.net 256 :UBC 0 : mmerror(PARSE_ERROR, ET_WARNING, "indicator variable \"%s\" is hidden by a local variable", ind_name);
257 : : }
258 : : }
259 : :
8710 meskes@postgresql.or 260 [ + + - + :CBC 617 : switch (type->type)
+ + ]
261 : : {
8769 bruce@momjian.us 262 : 83 : case ECPGt_array:
8710 meskes@postgresql.or 263 [ + + + + : 83 : if (indicator_set && ind_type->type != ECPGt_array)
- + ]
4368 peter_e@gmx.net 264 :UBC 0 : mmfatal(INDICATOR_NOT_ARRAY, "indicator for array/pointer has to be array/pointer");
8710 meskes@postgresql.or 265 [ - + + ]:CBC 83 : switch (type->u.element->type)
266 : : {
8769 bruce@momjian.us 267 :UBC 0 : case ECPGt_array:
5983 268 : 0 : mmerror(PARSE_ERROR, ET_ERROR, "nested arrays are not supported (except strings)"); /* array of array */
9739 scrappy@hub.org 269 : 0 : break;
9739 scrappy@hub.org 270 :CBC 8 : case ECPGt_struct:
271 : : case ECPGt_union:
8188 meskes@postgresql.or 272 [ + - ]: 16 : ECPGdump_a_struct(o, name,
273 : : ind_name,
274 : : type->size,
275 : : type->u.element,
7016 276 [ + - ]: 8 : (ind_type == NULL) ? NULL : ((ind_type->type == ECPGt_NO_INDICATOR) ? ind_type : ind_type->u.element),
277 : : prefix, ind_prefix);
9739 scrappy@hub.org 278 : 8 : break;
9653 bruce@momjian.us 279 : 75 : default:
8710 meskes@postgresql.or 280 [ + - + + : 75 : if (!IS_SIMPLE_TYPE(type->u.element->type))
+ - - + ]
2069 peter@eisentraut.org 281 :UBC 0 : base_yyerror("internal error: unknown datatype, please report this to <" PACKAGE_BUGREPORT ">");
282 : :
8188 meskes@postgresql.or 283 :CBC 75 : ECPGdump_a_simple(o, name,
8121 bruce@momjian.us 284 : 75 : type->u.element->type,
4220 meskes@postgresql.or 285 : 75 : type->u.element->size, type->size, struct_sizeof ? struct_sizeof : NULL,
286 : 75 : prefix, type->u.element->counter);
287 : :
8710 288 [ + + ]: 75 : if (ind_type != NULL)
289 : : {
290 [ + + ]: 55 : if (ind_type->type == ECPGt_NO_INDICATOR)
291 : : {
4193 bruce@momjian.us 292 : 53 : char *str_neg_one = mm_strdup("-1");
293 : :
4259 sfrost@snowman.net 294 : 53 : ECPGdump_a_simple(o, ind_name, ind_type->type, ind_type->size, str_neg_one, NULL, ind_prefix, 0);
295 : 53 : free(str_neg_one);
296 : : }
297 : : else
298 : : {
8188 meskes@postgresql.or 299 : 2 : ECPGdump_a_simple(o, ind_name, ind_type->u.element->type,
6650 300 : 2 : ind_type->u.element->size, ind_type->size, NULL, ind_prefix, 0);
301 : : }
302 : : }
303 : : }
9919 bruce@momjian.us 304 : 83 : break;
305 : 6 : case ECPGt_struct:
306 : : {
4193 307 : 6 : char *str_one = mm_strdup("1");
308 : :
4259 sfrost@snowman.net 309 [ + - + + : 6 : if (indicator_set && ind_type->type != ECPGt_struct)
- + ]
4259 sfrost@snowman.net 310 :UBC 0 : mmfatal(INDICATOR_NOT_STRUCT, "indicator for struct has to be a struct");
311 : :
4259 sfrost@snowman.net 312 :CBC 6 : ECPGdump_a_struct(o, name, ind_name, str_one, type, ind_type, prefix, ind_prefix);
313 : 6 : free(str_one);
314 : : }
9919 bruce@momjian.us 315 : 6 : break;
9653 bruce@momjian.us 316 :UBC 0 : case ECPGt_union: /* cannot dump a complete union */
6374 peter_e@gmx.net 317 : 0 : base_yyerror("type of union has to be specified");
9739 scrappy@hub.org 318 : 0 : break;
9739 scrappy@hub.org 319 :CBC 20 : case ECPGt_char_variable:
320 : : {
321 : : /*
322 : : * Allocate for each, as there are code-paths where the values
323 : : * get stomped on.
324 : : */
4193 bruce@momjian.us 325 : 20 : char *str_varchar_one = mm_strdup("1");
326 : 20 : char *str_arr_one = mm_strdup("1");
327 : 20 : char *str_neg_one = mm_strdup("-1");
328 : :
4259 sfrost@snowman.net 329 [ + - - + : 20 : if (indicator_set && (ind_type->type == ECPGt_struct || ind_type->type == ECPGt_array))
- - - - ]
4259 sfrost@snowman.net 330 :UBC 0 : mmfatal(INDICATOR_NOT_SIMPLE, "indicator for simple data type has to be simple");
331 : :
3150 peter_e@gmx.net 332 [ + - - + ]:CBC 20 : ECPGdump_a_simple(o, name, type->type, str_varchar_one, (arr_str_size && strcmp(arr_str_size, "0") != 0) ? arr_str_size : str_arr_one, struct_sizeof, prefix, 0);
4259 sfrost@snowman.net 333 [ + - ]: 20 : if (ind_type != NULL)
3150 peter_e@gmx.net 334 [ + - - + ]: 20 : ECPGdump_a_simple(o, ind_name, ind_type->type, ind_type->size, (arr_str_size && strcmp(arr_str_size, "0") != 0) ? arr_str_size : str_neg_one, ind_struct_sizeof, ind_prefix, 0);
335 : :
4259 sfrost@snowman.net 336 : 20 : free(str_varchar_one);
337 : 20 : free(str_arr_one);
338 : 20 : free(str_neg_one);
339 : : }
9739 scrappy@hub.org 340 : 20 : break;
8805 meskes@postgresql.or 341 : 22 : case ECPGt_descriptor:
342 : : {
343 : : /*
344 : : * Allocate for each, as there are code-paths where the values
345 : : * get stomped on.
346 : : */
4193 bruce@momjian.us 347 : 22 : char *str_neg_one = mm_strdup("-1");
348 : 22 : char *ind_type_neg_one = mm_strdup("-1");
349 : :
4259 sfrost@snowman.net 350 [ + - - + : 22 : if (indicator_set && (ind_type->type == ECPGt_struct || ind_type->type == ECPGt_array))
- - - - ]
4259 sfrost@snowman.net 351 :UBC 0 : mmfatal(INDICATOR_NOT_SIMPLE, "indicator for simple data type has to be simple");
352 : :
4259 sfrost@snowman.net 353 :CBC 22 : ECPGdump_a_simple(o, name, type->type, NULL, str_neg_one, NULL, prefix, 0);
354 [ + - ]: 22 : if (ind_type != NULL)
355 : 22 : ECPGdump_a_simple(o, ind_name, ind_type->type, ind_type->size, ind_type_neg_one, NULL, ind_prefix, 0);
356 : :
357 : 22 : free(str_neg_one);
358 : 22 : free(ind_type_neg_one);
359 : : }
8805 meskes@postgresql.or 360 : 22 : break;
9919 bruce@momjian.us 361 : 486 : default:
362 : : {
363 : : /*
364 : : * Allocate for each, as there are code-paths where the values
365 : : * get stomped on.
366 : : */
4193 367 : 486 : char *str_neg_one = mm_strdup("-1");
368 : 486 : char *ind_type_neg_one = mm_strdup("-1");
369 : :
4259 sfrost@snowman.net 370 [ + + + + : 486 : if (indicator_set && (ind_type->type == ECPGt_struct || ind_type->type == ECPGt_array))
+ - - + ]
4259 sfrost@snowman.net 371 :UBC 0 : mmfatal(INDICATOR_NOT_SIMPLE, "indicator for simple data type has to be simple");
372 : :
3150 peter_e@gmx.net 373 [ + - + + ]:CBC 486 : ECPGdump_a_simple(o, name, type->type, type->size, (arr_str_size && strcmp(arr_str_size, "0") != 0) ? arr_str_size : str_neg_one, struct_sizeof, prefix, type->counter);
4259 sfrost@snowman.net 374 [ + + ]: 486 : if (ind_type != NULL)
3150 peter_e@gmx.net 375 [ + - + + ]: 440 : ECPGdump_a_simple(o, ind_name, ind_type->type, ind_type->size, (arr_str_size && strcmp(arr_str_size, "0") != 0) ? arr_str_size : ind_type_neg_one, ind_struct_sizeof, ind_prefix, 0);
376 : :
4259 sfrost@snowman.net 377 : 486 : free(str_neg_one);
378 : 486 : free(ind_type_neg_one);
379 : : }
9919 bruce@momjian.us 380 : 486 : break;
381 : : }
10127 scrappy@hub.org 382 : 617 : }
383 : :
384 : :
385 : : /* If size is NULL, then the offset is 0, if not use size as a
386 : : string, it represents the offset needed if we are in an array of structs. */
387 : : static void
8710 meskes@postgresql.or 388 : 1140 : ECPGdump_a_simple(FILE *o, const char *name, enum ECPGttype type,
389 : : char *varcharsize,
390 : : char *arrsize,
391 : : const char *size,
392 : : const char *prefix,
393 : : int counter)
394 : : {
395 [ + + ]: 1140 : if (type == ECPGt_NO_INDICATOR)
9919 bruce@momjian.us 396 : 487 : fprintf(o, "\n\tECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ");
8710 meskes@postgresql.or 397 [ + + ]: 653 : else if (type == ECPGt_descriptor)
398 : : /* remember that name here already contains quotes (if needed) */
4310 399 : 22 : fprintf(o, "\n\tECPGt_descriptor, %s, 1L, 1L, 1L, ", name);
5775 400 [ + + ]: 631 : else if (type == ECPGt_sqlda)
401 : 25 : fprintf(o, "\n\tECPGt_sqlda, &%s, 0L, 0L, 0L, ", name);
402 : : else
403 : : {
5983 bruce@momjian.us 404 [ + + ]: 606 : char *variable = (char *) mm_alloc(strlen(name) + ((prefix == NULL) ? 0 : strlen(prefix)) + 4);
405 : 606 : char *offset = (char *) mm_alloc(strlen(name) + strlen("sizeof(struct varchar_)") + 1 + strlen(varcharsize) + sizeof(int) * CHAR_BIT * 10 / 3);
406 : : char *struct_name;
407 : :
8710 meskes@postgresql.or 408 [ + + + + : 606 : switch (type)
+ + + + ]
409 : : {
410 : : /*
411 : : * we have to use the & operator except for arrays and
412 : : * pointers
413 : : */
414 : :
9919 bruce@momjian.us 415 : 41 : case ECPGt_varchar:
416 : : case ECPGt_bytea:
417 : :
418 : : /*
419 : : * we have to use the pointer except for arrays with given
420 : : * bounds
421 : : */
8121 422 [ + + ]: 41 : if (((atoi(arrsize) > 0) ||
423 [ + + - + : 41 : (atoi(arrsize) == 0 && strcmp(arrsize, "0") != 0)) &&
+ + ]
424 : : size == NULL)
9337 meskes@postgresql.or 425 [ - + ]: 2 : sprintf(variable, "(%s%s)", prefix ? prefix : "", name);
426 : : else
427 [ + + ]: 39 : sprintf(variable, "&(%s%s)", prefix ? prefix : "", name);
428 : :
429 : : /*
430 : : * If we created a varchar structure automatically, counter is
431 : : * greater than 0.
432 : : */
2444 433 [ + + ]: 41 : if (type == ECPGt_varchar)
434 : 20 : struct_name = "struct varchar";
435 : : else
436 : 21 : struct_name = "struct bytea";
437 : :
5712 438 [ + + ]: 41 : if (counter)
2444 439 : 40 : sprintf(offset, "sizeof(%s_%d)", struct_name, counter);
440 : : else
441 : 1 : sprintf(offset, "sizeof(%s)", struct_name);
9919 bruce@momjian.us 442 : 41 : break;
443 : 216 : case ECPGt_char:
444 : : case ECPGt_unsigned_char:
445 : : case ECPGt_char_variable:
446 : : case ECPGt_string:
447 : : {
4193 448 : 216 : char *sizeof_name = "char";
449 : :
450 : : /*
451 : : * we have to use the pointer except for arrays with given
452 : : * bounds, ecpglib will distinguish between * and []
453 : : */
454 [ + + ]: 216 : if ((atoi(varcharsize) > 1 ||
455 [ + + ]: 85 : (atoi(arrsize) > 0) ||
456 [ + - + + ]: 59 : (atoi(varcharsize) == 0 && strcmp(varcharsize, "0") != 0) ||
457 [ + + - + ]: 51 : (atoi(arrsize) == 0 && strcmp(arrsize, "0") != 0))
3150 peter_e@gmx.net 458 [ + + ]: 165 : && size == NULL)
459 : : {
4193 bruce@momjian.us 460 [ - + ]: 158 : sprintf(variable, "(%s%s)", prefix ? prefix : "", name);
461 [ + + - + ]: 158 : if ((type == ECPGt_char || type == ECPGt_unsigned_char) &&
462 [ - + ]: 137 : strcmp(varcharsize, "0") == 0)
463 : : {
464 : : /*
465 : : * If this is an array of char *, the offset would
466 : : * be sizeof(char *) and not sizeof(char).
467 : : */
4193 bruce@momjian.us 468 :UBC 0 : sizeof_name = "char *";
469 : : }
470 : : }
471 : : else
4193 bruce@momjian.us 472 [ + + ]:CBC 58 : sprintf(variable, "&(%s%s)", prefix ? prefix : "", name);
473 : :
474 [ + + ]: 216 : sprintf(offset, "(%s)*sizeof(%s)", strcmp(varcharsize, "0") == 0 ? "1" : varcharsize, sizeof_name);
475 : 216 : break;
476 : : }
8262 meskes@postgresql.or 477 : 9 : case ECPGt_numeric:
478 : :
479 : : /*
480 : : * we have to use a pointer here
481 : : */
482 [ - + ]: 9 : sprintf(variable, "&(%s%s)", prefix ? prefix : "", name);
8085 483 : 9 : sprintf(offset, "sizeof(numeric)");
8251 484 : 9 : break;
485 : 4 : case ECPGt_interval:
486 : :
487 : : /*
488 : : * we have to use a pointer here
489 : : */
490 [ - + ]: 4 : sprintf(variable, "&(%s%s)", prefix ? prefix : "", name);
8085 491 : 4 : sprintf(offset, "sizeof(interval)");
8262 492 : 4 : break;
8258 493 : 10 : case ECPGt_date:
494 : :
495 : : /*
496 : : * we have to use a pointer and translate the variable type
497 : : */
498 [ - + ]: 10 : sprintf(variable, "&(%s%s)", prefix ? prefix : "", name);
8085 499 : 10 : sprintf(offset, "sizeof(date)");
8258 500 : 10 : break;
501 : 13 : case ECPGt_timestamp:
502 : :
503 : : /*
504 : : * we have to use a pointer and translate the variable type
505 : : */
506 [ - + ]: 13 : sprintf(variable, "&(%s%s)", prefix ? prefix : "", name);
8085 507 : 13 : sprintf(offset, "sizeof(timestamp)");
8258 508 : 13 : break;
8166 509 : 16 : case ECPGt_const:
510 : :
511 : : /*
512 : : * just dump the const as string
513 : : */
514 : 16 : sprintf(variable, "\"%s\"", name);
515 : 16 : sprintf(offset, "strlen(\"%s\")", name);
516 : 16 : break;
9919 bruce@momjian.us 517 : 297 : default:
518 : :
519 : : /*
520 : : * we have to use the pointer except for arrays with given
521 : : * bounds
522 : : */
8121 523 [ + + ]: 297 : if (((atoi(arrsize) > 0) ||
524 [ + + + + : 297 : (atoi(arrsize) == 0 && strcmp(arrsize, "0") != 0)) &&
+ + ]
525 : : size == NULL)
9337 meskes@postgresql.or 526 [ - + ]: 18 : sprintf(variable, "(%s%s)", prefix ? prefix : "", name);
527 : : else
528 [ + + ]: 279 : sprintf(variable, "&(%s%s)", prefix ? prefix : "", name);
529 : :
6600 530 : 297 : sprintf(offset, "sizeof(%s)", ecpg_type_name(type));
9919 bruce@momjian.us 531 : 297 : break;
532 : : }
533 : :
534 : : /*
535 : : * Array size would be -1 for addresses of members within structure,
536 : : * when pointer to structure is being dumped.
537 : : */
3150 peter_e@gmx.net 538 [ + + + + ]: 606 : if (atoi(arrsize) < 0 && !size)
8203 meskes@postgresql.or 539 : 445 : strcpy(arrsize, "1");
540 : :
541 : : /*
542 : : * If size i.e. the size of structure of which this variable is part
543 : : * of, that gives the offset to the next element, if required
544 : : */
3150 peter_e@gmx.net 545 [ + + + + ]: 606 : if (size == NULL || strlen(size) == 0)
8203 meskes@postgresql.or 546 : 545 : fprintf(o, "\n\t%s,%s,(long)%s,(long)%s,%s, ", get_type(type), variable, varcharsize, arrsize, offset);
547 : : else
3150 peter_e@gmx.net 548 : 61 : fprintf(o, "\n\t%s,%s,(long)%s,(long)%s,%s, ", get_type(type), variable, varcharsize, arrsize, size);
549 : :
9919 bruce@momjian.us 550 : 606 : free(variable);
551 : 606 : free(offset);
552 : : }
10127 scrappy@hub.org 553 : 1140 : }
554 : :
555 : :
556 : : /* Penetrate a struct and dump the contents. */
557 : : static void
3051 tgl@sss.pgh.pa.us 558 : 14 : ECPGdump_a_struct(FILE *o, const char *name, const char *ind_name, char *arrsize, struct ECPGtype *type, struct ECPGtype *ind_type, const char *prefix, const char *ind_prefix)
559 : : {
560 : : /*
561 : : * If offset is NULL, then this is the first recursive level. If not then
562 : : * we are in a struct and the offset is used as offset.
563 : : */
564 : : struct ECPGstruct_member *p,
9919 bruce@momjian.us 565 : 14 : *ind_p = NULL;
4535 566 [ + + ]: 14 : char *pbuf = (char *) mm_alloc(strlen(name) + ((prefix == NULL) ? 0 : strlen(prefix)) + 3);
567 [ + + ]: 14 : char *ind_pbuf = (char *) mm_alloc(strlen(ind_name) + ((ind_prefix == NULL) ? 0 : strlen(ind_prefix)) + 3);
568 : :
3150 peter_e@gmx.net 569 [ + + ]: 14 : if (atoi(arrsize) == 1)
8725 meskes@postgresql.or 570 [ + + ]: 6 : sprintf(pbuf, "%s%s.", prefix ? prefix : "", name);
571 : : else
572 [ - + ]: 8 : sprintf(pbuf, "%s%s->", prefix ? prefix : "", name);
573 : :
10106 bruce@momjian.us 574 : 14 : prefix = pbuf;
575 : :
8710 meskes@postgresql.or 576 [ + + ]: 14 : if (ind_type == &ecpg_no_indicator)
8729 577 : 2 : ind_p = &struct_no_indicator;
8710 578 [ + - ]: 12 : else if (ind_type != NULL)
579 : : {
3150 peter_e@gmx.net 580 [ + + ]: 12 : if (atoi(arrsize) == 1)
8725 meskes@postgresql.or 581 [ + + ]: 4 : sprintf(ind_pbuf, "%s%s.", ind_prefix ? ind_prefix : "", ind_name);
582 : : else
583 [ - + ]: 8 : sprintf(ind_pbuf, "%s%s->", ind_prefix ? ind_prefix : "", ind_name);
584 : :
8729 585 : 12 : ind_prefix = ind_pbuf;
8710 586 : 12 : ind_p = ind_type->u.members;
587 : : }
588 : :
589 [ + + ]: 50 : for (p = type->u.members; p; p = p->next)
590 : : {
5689 591 [ + - + - ]: 72 : ECPGdump_a_type(o, p->name, p->type, -1,
592 : : (ind_p != NULL) ? ind_p->name : NULL,
593 : : (ind_p != NULL) ? ind_p->type : NULL,
594 : : -1,
3150 peter_e@gmx.net 595 [ + - ]: 36 : prefix, ind_prefix, arrsize, type->struct_sizeof,
596 : : (ind_p != NULL) ? ind_type->struct_sizeof : NULL);
8729 meskes@postgresql.or 597 [ + - + + ]: 36 : if (ind_p != NULL && ind_p != &struct_no_indicator)
598 : : {
9919 bruce@momjian.us 599 : 30 : ind_p = ind_p->next;
2742 tgl@sss.pgh.pa.us 600 [ + + - + ]: 30 : if (ind_p == NULL && p->next != NULL)
601 : : {
2845 meskes@postgresql.or 602 :UBC 0 : mmerror(PARSE_ERROR, ET_WARNING, "indicator struct \"%s\" has too few members", ind_name);
603 : 0 : ind_p = &struct_no_indicator;
604 : : }
605 : : }
606 : : }
607 : :
2742 tgl@sss.pgh.pa.us 608 [ + - + + :CBC 14 : if (ind_type != NULL && ind_p != NULL && ind_p != &struct_no_indicator)
- + ]
609 : : {
2845 meskes@postgresql.or 610 :UBC 0 : mmerror(PARSE_ERROR, ET_WARNING, "indicator struct \"%s\" has too many members", ind_name);
611 : : }
612 : :
4722 meskes@postgresql.or 613 :CBC 14 : free(pbuf);
614 : 14 : free(ind_pbuf);
10127 scrappy@hub.org 615 : 14 : }
616 : :
617 : : void
3051 tgl@sss.pgh.pa.us 618 : 119 : ECPGfree_struct_member(struct ECPGstruct_member *rm)
619 : : {
9919 bruce@momjian.us 620 [ + + ]: 296 : while (rm)
621 : : {
622 : 177 : struct ECPGstruct_member *p = rm;
623 : :
624 : 177 : rm = rm->next;
625 : 177 : free(p->name);
335 tgl@sss.pgh.pa.us 626 : 177 : ECPGfree_type(p->type);
9919 bruce@momjian.us 627 : 177 : free(p);
628 : : }
10037 scrappy@hub.org 629 : 119 : }
630 : :
631 : : void
3051 tgl@sss.pgh.pa.us 632 : 642 : ECPGfree_type(struct ECPGtype *type)
633 : : {
8710 meskes@postgresql.or 634 [ + - + + : 642 : if (!IS_SIMPLE_TYPE(type->type))
+ + + + ]
635 : : {
636 [ + + - ]: 101 : switch (type->type)
637 : : {
8769 bruce@momjian.us 638 : 68 : case ECPGt_array:
8710 meskes@postgresql.or 639 [ - + + ]: 68 : switch (type->u.element->type)
640 : : {
8769 bruce@momjian.us 641 :UBC 0 : case ECPGt_array:
6374 peter_e@gmx.net 642 : 0 : base_yyerror("internal error: found multidimensional array\n");
9739 scrappy@hub.org 643 : 0 : break;
9739 scrappy@hub.org 644 :CBC 13 : case ECPGt_struct:
645 : : case ECPGt_union:
646 : : /* Array of structs. */
335 tgl@sss.pgh.pa.us 647 : 13 : ECPGfree_type(type->u.element);
9739 scrappy@hub.org 648 : 13 : break;
9653 bruce@momjian.us 649 : 55 : default:
8710 meskes@postgresql.or 650 [ + - + + : 55 : if (!IS_SIMPLE_TYPE(type->u.element->type))
+ - - + ]
2069 peter@eisentraut.org 651 :UBC 0 : base_yyerror("internal error: unknown datatype, please report this to <" PACKAGE_BUGREPORT ">");
652 : :
335 tgl@sss.pgh.pa.us 653 :CBC 55 : ECPGfree_type(type->u.element);
654 : : }
9739 scrappy@hub.org 655 : 68 : break;
656 : 33 : case ECPGt_struct:
657 : : case ECPGt_union:
8710 meskes@postgresql.or 658 : 33 : ECPGfree_struct_member(type->u.members);
9739 scrappy@hub.org 659 : 33 : break;
9739 scrappy@hub.org 660 :UBC 0 : default:
6122 peter_e@gmx.net 661 : 0 : mmerror(PARSE_ERROR, ET_ERROR, "unrecognized variable type code %d", type->type);
9739 scrappy@hub.org 662 : 0 : break;
663 : : }
664 : : }
335 tgl@sss.pgh.pa.us 665 :CBC 642 : free(type->type_name);
666 : 642 : free(type->size);
667 : 642 : free(type->struct_sizeof);
8710 meskes@postgresql.or 668 : 642 : free(type);
10127 scrappy@hub.org 669 : 642 : }
670 : :
671 : : const char *
8710 meskes@postgresql.or 672 : 66 : get_dtype(enum ECPGdtype type)
673 : : {
674 [ - + + - : 66 : switch (type)
+ - + + -
+ + - + +
+ - - ]
675 : : {
8769 bruce@momjian.us 676 :UBC 0 : case ECPGd_count:
664 michael@paquier.xyz 677 : 0 : return "ECPGd_count";
678 : : break;
9380 meskes@postgresql.or 679 :CBC 31 : case ECPGd_data:
2994 peter_e@gmx.net 680 : 31 : return "ECPGd_data";
681 : : break;
9380 meskes@postgresql.or 682 : 2 : case ECPGd_di_code:
2994 peter_e@gmx.net 683 : 2 : return "ECPGd_di_code";
684 : : break;
9380 meskes@postgresql.or 685 :UBC 0 : case ECPGd_di_precision:
2994 peter_e@gmx.net 686 : 0 : return "ECPGd_di_precision";
687 : : break;
9380 meskes@postgresql.or 688 :CBC 17 : case ECPGd_indicator:
2994 peter_e@gmx.net 689 : 17 : return "ECPGd_indicator";
690 : : break;
9380 meskes@postgresql.or 691 :UBC 0 : case ECPGd_key_member:
2994 peter_e@gmx.net 692 : 0 : return "ECPGd_key_member";
693 : : break;
9380 meskes@postgresql.or 694 :CBC 2 : case ECPGd_length:
2994 peter_e@gmx.net 695 : 2 : return "ECPGd_length";
696 : : break;
9380 meskes@postgresql.or 697 : 9 : case ECPGd_name:
2994 peter_e@gmx.net 698 : 9 : return "ECPGd_name";
699 : : break;
9380 meskes@postgresql.or 700 :UBC 0 : case ECPGd_nullable:
2994 peter_e@gmx.net 701 : 0 : return "ECPGd_nullable";
702 : : break;
9380 meskes@postgresql.or 703 :CBC 1 : case ECPGd_octet:
2994 peter_e@gmx.net 704 : 1 : return "ECPGd_octet";
705 : : break;
9380 meskes@postgresql.or 706 : 1 : case ECPGd_precision:
2994 peter_e@gmx.net 707 : 1 : return "ECPGd_precision";
708 : : break;
9380 meskes@postgresql.or 709 :UBC 0 : case ECPGd_ret_length:
2994 peter_e@gmx.net 710 : 0 : return "ECPGd_ret_length";
9380 meskes@postgresql.or 711 :CBC 1 : case ECPGd_ret_octet:
2994 peter_e@gmx.net 712 : 1 : return "ECPGd_ret_octet";
713 : : break;
9330 bruce@momjian.us 714 : 1 : case ECPGd_scale:
2994 peter_e@gmx.net 715 : 1 : return "ECPGd_scale";
716 : : break;
9330 bruce@momjian.us 717 : 1 : case ECPGd_type:
2994 peter_e@gmx.net 718 : 1 : return "ECPGd_type";
719 : : break;
8836 meskes@postgresql.or 720 :UBC 0 : case ECPGd_cardinality:
2994 peter_e@gmx.net 721 : 0 : return "ECPGd_cardinality";
9380 meskes@postgresql.or 722 : 0 : default:
6122 peter_e@gmx.net 723 : 0 : mmerror(PARSE_ERROR, ET_ERROR, "unrecognized descriptor item code %d", type);
724 : : }
725 : :
9380 meskes@postgresql.or 726 : 0 : return NULL;
727 : : }
|
