Age Owner Branch data TLA Line data Source code
1 : : /*-------------------------------------------------------------------------
2 : : *
3 : : * nodeFuncs.c
4 : : * Various general-purpose manipulations of Node trees
5 : : *
6 : : * Portions Copyright (c) 1996-2024, PostgreSQL Global Development Group
7 : : * Portions Copyright (c) 1994, Regents of the University of California
8 : : *
9 : : *
10 : : * IDENTIFICATION
11 : : * src/backend/nodes/nodeFuncs.c
12 : : *
13 : : *-------------------------------------------------------------------------
14 : : */
15 : : #include "postgres.h"
16 : :
17 : : #include "catalog/pg_collation.h"
18 : : #include "catalog/pg_type.h"
19 : : #include "miscadmin.h"
20 : : #include "nodes/execnodes.h"
21 : : #include "nodes/nodeFuncs.h"
22 : : #include "nodes/pathnodes.h"
23 : : #include "utils/builtins.h"
24 : : #include "utils/lsyscache.h"
25 : :
26 : : static bool expression_returns_set_walker(Node *node, void *context);
27 : : static int leftmostLoc(int loc1, int loc2);
28 : : static bool fix_opfuncids_walker(Node *node, void *context);
29 : : static bool planstate_walk_subplans(List *plans,
30 : : planstate_tree_walker_callback walker,
31 : : void *context);
32 : : static bool planstate_walk_members(PlanState **planstates, int nplans,
33 : : planstate_tree_walker_callback walker,
34 : : void *context);
35 : :
36 : :
37 : : /*
38 : : * exprType -
39 : : * returns the Oid of the type of the expression's result.
40 : : */
41 : : Oid
4512 peter_e@gmx.net 42 :CBC 12936537 : exprType(const Node *expr)
43 : : {
44 : : Oid type;
45 : :
5711 tgl@sss.pgh.pa.us 46 [ + + ]: 12936537 : if (!expr)
5711 tgl@sss.pgh.pa.us 47 :GBC 177 : return InvalidOid;
48 : :
5711 tgl@sss.pgh.pa.us 49 [ + + + + :CBC 12936360 : switch (nodeTag(expr))
+ + + + +
+ + + + +
+ + + + +
+ + + + +
+ + + + +
+ + + + +
+ + + + +
+ + + + +
+ + - +
- ]
50 : : {
51 : 6703275 : case T_Var:
4512 peter_e@gmx.net 52 : 6703275 : type = ((const Var *) expr)->vartype;
5711 tgl@sss.pgh.pa.us 53 : 6703275 : break;
54 : 1980689 : case T_Const:
4512 peter_e@gmx.net 55 : 1980689 : type = ((const Const *) expr)->consttype;
5711 tgl@sss.pgh.pa.us 56 : 1980689 : break;
57 : 1178725 : case T_Param:
4512 peter_e@gmx.net 58 : 1178725 : type = ((const Param *) expr)->paramtype;
5711 tgl@sss.pgh.pa.us 59 : 1178725 : break;
60 : 131190 : case T_Aggref:
2849 61 : 131190 : type = ((const Aggref *) expr)->aggtype;
5711 62 : 131190 : break;
3256 andres@anarazel.de 63 : 1028 : case T_GroupingFunc:
64 : 1028 : type = INT4OID;
65 : 1028 : break;
5586 tgl@sss.pgh.pa.us 66 : 9034 : case T_WindowFunc:
4512 peter_e@gmx.net 67 : 9034 : type = ((const WindowFunc *) expr)->wintype;
5586 tgl@sss.pgh.pa.us 68 : 9034 : break;
28 dean.a.rasheed@gmail 69 :GNC 399 : case T_MergeSupportFunc:
70 : 399 : type = ((const MergeSupportFunc *) expr)->msftype;
71 : 399 : break;
1899 alvherre@alvh.no-ip. 72 :CBC 58994 : case T_SubscriptingRef:
1222 tgl@sss.pgh.pa.us 73 : 58994 : type = ((const SubscriptingRef *) expr)->refrestype;
5711 74 : 58994 : break;
75 : 1012773 : case T_FuncExpr:
4512 peter_e@gmx.net 76 : 1012773 : type = ((const FuncExpr *) expr)->funcresulttype;
5711 tgl@sss.pgh.pa.us 77 : 1012773 : break;
5302 78 : 46712 : case T_NamedArgExpr:
4512 peter_e@gmx.net 79 : 46712 : type = exprType((Node *) ((const NamedArgExpr *) expr)->arg);
5302 tgl@sss.pgh.pa.us 80 : 46712 : break;
5711 81 : 707854 : case T_OpExpr:
4512 peter_e@gmx.net 82 : 707854 : type = ((const OpExpr *) expr)->opresulttype;
5711 tgl@sss.pgh.pa.us 83 : 707854 : break;
84 : 1041 : case T_DistinctExpr:
4512 peter_e@gmx.net 85 : 1041 : type = ((const DistinctExpr *) expr)->opresulttype;
5711 tgl@sss.pgh.pa.us 86 : 1041 : break;
4775 87 : 451 : case T_NullIfExpr:
4512 peter_e@gmx.net 88 : 451 : type = ((const NullIfExpr *) expr)->opresulttype;
4775 tgl@sss.pgh.pa.us 89 : 451 : break;
5711 90 : 46435 : case T_ScalarArrayOpExpr:
91 : 46435 : type = BOOLOID;
92 : 46435 : break;
93 : 146602 : case T_BoolExpr:
94 : 146602 : type = BOOLOID;
95 : 146602 : break;
96 : 44386 : case T_SubLink:
97 : : {
4326 bruce@momjian.us 98 : 44386 : const SubLink *sublink = (const SubLink *) expr;
99 : :
5711 tgl@sss.pgh.pa.us 100 [ + + ]: 44386 : if (sublink->subLinkType == EXPR_SUBLINK ||
101 [ + + ]: 15547 : sublink->subLinkType == ARRAY_SUBLINK)
102 : 36500 : {
103 : : /* get the type of the subselect's first target column */
104 : 36500 : Query *qtree = (Query *) sublink->subselect;
105 : : TargetEntry *tent;
106 : :
107 [ + - - + ]: 36500 : if (!qtree || !IsA(qtree, Query))
5711 tgl@sss.pgh.pa.us 108 [ # # ]:UBC 0 : elog(ERROR, "cannot get type for untransformed sublink");
2561 tgl@sss.pgh.pa.us 109 :CBC 36500 : tent = linitial_node(TargetEntry, qtree->targetList);
5711 110 [ - + ]: 36500 : Assert(!tent->resjunk);
111 : 36500 : type = exprType((Node *) tent->expr);
112 [ + + ]: 36500 : if (sublink->subLinkType == ARRAY_SUBLINK)
113 : : {
3428 114 : 7661 : type = get_promoted_array_type(type);
5711 115 [ - + ]: 7661 : if (!OidIsValid(type))
5711 tgl@sss.pgh.pa.us 116 [ # # ]:UBC 0 : ereport(ERROR,
117 : : (errcode(ERRCODE_UNDEFINED_OBJECT),
118 : : errmsg("could not find array type for data type %s",
119 : : format_type_be(exprType((Node *) tent->expr)))));
120 : : }
121 : : }
3588 tgl@sss.pgh.pa.us 122 [ + + ]:CBC 7886 : else if (sublink->subLinkType == MULTIEXPR_SUBLINK)
123 : : {
124 : : /* MULTIEXPR is always considered to return RECORD */
125 : 69 : type = RECORDOID;
126 : : }
127 : : else
128 : : {
129 : : /* for all other sublink types, result is boolean */
5711 130 : 7817 : type = BOOLOID;
131 : : }
132 : : }
133 : 44386 : break;
134 : 20929 : case T_SubPlan:
135 : : {
4326 bruce@momjian.us 136 : 20929 : const SubPlan *subplan = (const SubPlan *) expr;
137 : :
5711 tgl@sss.pgh.pa.us 138 [ + + ]: 20929 : if (subplan->subLinkType == EXPR_SUBLINK ||
139 [ + + ]: 1767 : subplan->subLinkType == ARRAY_SUBLINK)
140 : : {
141 : : /* get the type of the subselect's first target column */
142 : 19330 : type = subplan->firstColType;
143 [ + + ]: 19330 : if (subplan->subLinkType == ARRAY_SUBLINK)
144 : : {
3428 145 : 168 : type = get_promoted_array_type(type);
5711 146 [ - + ]: 168 : if (!OidIsValid(type))
5711 tgl@sss.pgh.pa.us 147 [ # # ]:UBC 0 : ereport(ERROR,
148 : : (errcode(ERRCODE_UNDEFINED_OBJECT),
149 : : errmsg("could not find array type for data type %s",
150 : : format_type_be(subplan->firstColType))));
151 : : }
152 : : }
3588 tgl@sss.pgh.pa.us 153 [ + + ]:CBC 1599 : else if (subplan->subLinkType == MULTIEXPR_SUBLINK)
154 : : {
155 : : /* MULTIEXPR is always considered to return RECORD */
156 : 90 : type = RECORDOID;
157 : : }
158 : : else
159 : : {
160 : : /* for all other subplan types, result is boolean */
5711 161 : 1509 : type = BOOLOID;
162 : : }
163 : : }
164 : 20929 : break;
165 : 595 : case T_AlternativeSubPlan:
166 : : {
4512 peter_e@gmx.net 167 : 595 : const AlternativeSubPlan *asplan = (const AlternativeSubPlan *) expr;
168 : :
169 : : /* subplans should all return the same thing */
5711 tgl@sss.pgh.pa.us 170 : 595 : type = exprType((Node *) linitial(asplan->subplans));
171 : : }
172 : 595 : break;
173 : 17441 : case T_FieldSelect:
4512 peter_e@gmx.net 174 : 17441 : type = ((const FieldSelect *) expr)->resulttype;
5711 tgl@sss.pgh.pa.us 175 : 17441 : break;
176 : 563 : case T_FieldStore:
4512 peter_e@gmx.net 177 : 563 : type = ((const FieldStore *) expr)->resulttype;
5711 tgl@sss.pgh.pa.us 178 : 563 : break;
179 : 217654 : case T_RelabelType:
4512 peter_e@gmx.net 180 : 217654 : type = ((const RelabelType *) expr)->resulttype;
5711 tgl@sss.pgh.pa.us 181 : 217654 : break;
182 : 61023 : case T_CoerceViaIO:
4512 peter_e@gmx.net 183 : 61023 : type = ((const CoerceViaIO *) expr)->resulttype;
5711 tgl@sss.pgh.pa.us 184 : 61023 : break;
185 : 7652 : case T_ArrayCoerceExpr:
4512 peter_e@gmx.net 186 : 7652 : type = ((const ArrayCoerceExpr *) expr)->resulttype;
5711 tgl@sss.pgh.pa.us 187 : 7652 : break;
188 : 1104 : case T_ConvertRowtypeExpr:
4512 peter_e@gmx.net 189 : 1104 : type = ((const ConvertRowtypeExpr *) expr)->resulttype;
5711 tgl@sss.pgh.pa.us 190 : 1104 : break;
4783 191 : 4231 : case T_CollateExpr:
4512 peter_e@gmx.net 192 : 4231 : type = exprType((Node *) ((const CollateExpr *) expr)->arg);
4783 tgl@sss.pgh.pa.us 193 : 4231 : break;
5711 194 : 229321 : case T_CaseExpr:
4512 peter_e@gmx.net 195 : 229321 : type = ((const CaseExpr *) expr)->casetype;
5711 tgl@sss.pgh.pa.us 196 : 229321 : break;
197 : 17440 : case T_CaseTestExpr:
4512 peter_e@gmx.net 198 : 17440 : type = ((const CaseTestExpr *) expr)->typeId;
5711 tgl@sss.pgh.pa.us 199 : 17440 : break;
200 : 49088 : case T_ArrayExpr:
4512 peter_e@gmx.net 201 : 49088 : type = ((const ArrayExpr *) expr)->array_typeid;
5711 tgl@sss.pgh.pa.us 202 : 49088 : break;
203 : 7097 : case T_RowExpr:
4512 peter_e@gmx.net 204 : 7097 : type = ((const RowExpr *) expr)->row_typeid;
5711 tgl@sss.pgh.pa.us 205 : 7097 : break;
206 : 174 : case T_RowCompareExpr:
207 : 174 : type = BOOLOID;
208 : 174 : break;
209 : 11107 : case T_CoalesceExpr:
4512 peter_e@gmx.net 210 : 11107 : type = ((const CoalesceExpr *) expr)->coalescetype;
5711 tgl@sss.pgh.pa.us 211 : 11107 : break;
212 : 3027 : case T_MinMaxExpr:
4512 peter_e@gmx.net 213 : 3027 : type = ((const MinMaxExpr *) expr)->minmaxtype;
5711 tgl@sss.pgh.pa.us 214 : 3027 : break;
333 michael@paquier.xyz 215 : 4956 : case T_SQLValueFunction:
216 : 4956 : type = ((const SQLValueFunction *) expr)->type;
217 : 4956 : break;
5711 tgl@sss.pgh.pa.us 218 : 12553 : case T_XmlExpr:
4512 peter_e@gmx.net 219 [ + + ]: 12553 : if (((const XmlExpr *) expr)->op == IS_DOCUMENT)
5711 tgl@sss.pgh.pa.us 220 : 51 : type = BOOLOID;
4512 peter_e@gmx.net 221 [ + + ]: 12502 : else if (((const XmlExpr *) expr)->op == IS_XMLSERIALIZE)
5711 tgl@sss.pgh.pa.us 222 : 405 : type = TEXTOID;
223 : : else
224 : 12097 : type = XMLOID;
225 : 12553 : break;
376 alvherre@alvh.no-ip. 226 : 654 : case T_JsonValueExpr:
227 : : {
228 : 654 : const JsonValueExpr *jve = (const JsonValueExpr *) expr;
229 : :
268 amitlan@postgresql.o 230 : 654 : type = exprType((Node *) jve->formatted_expr);
231 : : }
376 alvherre@alvh.no-ip. 232 : 654 : break;
233 : 2868 : case T_JsonConstructorExpr:
234 : 2868 : type = ((const JsonConstructorExpr *) expr)->returning->typid;
235 : 2868 : break;
236 : 736 : case T_JsonIsPredicate:
237 : 736 : type = BOOLOID;
238 : 736 : break;
24 amitlan@postgresql.o 239 :GNC 4289 : case T_JsonExpr:
240 : : {
241 : 4289 : const JsonExpr *jexpr = (const JsonExpr *) expr;
242 : :
243 : 4289 : type = jexpr->returning->typid;
244 : 4289 : break;
245 : : }
246 : 1172 : case T_JsonBehavior:
247 : : {
248 : 1172 : const JsonBehavior *behavior = (const JsonBehavior *) expr;
249 : :
250 : 1172 : type = exprType(behavior->expr);
251 : 1172 : break;
252 : : }
5711 tgl@sss.pgh.pa.us 253 :CBC 19623 : case T_NullTest:
254 : 19623 : type = BOOLOID;
255 : 19623 : break;
256 : 1392 : case T_BooleanTest:
257 : 1392 : type = BOOLOID;
258 : 1392 : break;
259 : 114417 : case T_CoerceToDomain:
4512 peter_e@gmx.net 260 : 114417 : type = ((const CoerceToDomain *) expr)->resulttype;
5711 tgl@sss.pgh.pa.us 261 : 114417 : break;
262 : 944 : case T_CoerceToDomainValue:
4512 peter_e@gmx.net 263 : 944 : type = ((const CoerceToDomainValue *) expr)->typeId;
5711 tgl@sss.pgh.pa.us 264 : 944 : break;
265 : 48549 : case T_SetToDefault:
4512 peter_e@gmx.net 266 : 48549 : type = ((const SetToDefault *) expr)->typeId;
5711 tgl@sss.pgh.pa.us 267 : 48549 : break;
268 : 121 : case T_CurrentOfExpr:
269 : 121 : type = BOOLOID;
270 : 121 : break;
2565 peter_e@gmx.net 271 : 937 : case T_NextValueExpr:
272 : 937 : type = ((const NextValueExpr *) expr)->typeId;
273 : 937 : break;
3264 andres@anarazel.de 274 :UBC 0 : case T_InferenceElem:
275 : : {
276 : 0 : const InferenceElem *n = (const InferenceElem *) expr;
277 : :
278 : 0 : type = exprType((Node *) n->expr);
279 : : }
280 : 0 : break;
5654 tgl@sss.pgh.pa.us 281 :CBC 5115 : case T_PlaceHolderVar:
4512 peter_e@gmx.net 282 : 5115 : type = exprType((Node *) ((const PlaceHolderVar *) expr)->phexpr);
5654 tgl@sss.pgh.pa.us 283 : 5115 : break;
5711 tgl@sss.pgh.pa.us 284 :UBC 0 : default:
285 [ # # ]: 0 : elog(ERROR, "unrecognized node type: %d", (int) nodeTag(expr));
286 : : type = InvalidOid; /* keep compiler quiet */
287 : : break;
288 : : }
5711 tgl@sss.pgh.pa.us 289 :CBC 12936360 : return type;
290 : : }
291 : :
292 : : /*
293 : : * exprTypmod -
294 : : * returns the type-specific modifier of the expression's result type,
295 : : * if it can be determined. In many cases, it can't and we return -1.
296 : : */
297 : : int32
4512 peter_e@gmx.net 298 : 4760012 : exprTypmod(const Node *expr)
299 : : {
5711 tgl@sss.pgh.pa.us 300 [ - + ]: 4760012 : if (!expr)
5711 tgl@sss.pgh.pa.us 301 :UBC 0 : return -1;
302 : :
5711 tgl@sss.pgh.pa.us 303 [ + + + + :CBC 4760012 : switch (nodeTag(expr))
+ - + + +
+ + + + +
+ + + + +
+ + + + -
+ + + +
+ ]
304 : : {
305 : 2769720 : case T_Var:
4512 peter_e@gmx.net 306 : 2769720 : return ((const Var *) expr)->vartypmod;
5711 tgl@sss.pgh.pa.us 307 : 740899 : case T_Const:
4512 peter_e@gmx.net 308 : 740899 : return ((const Const *) expr)->consttypmod;
5711 tgl@sss.pgh.pa.us 309 : 71227 : case T_Param:
4512 peter_e@gmx.net 310 : 71227 : return ((const Param *) expr)->paramtypmod;
1899 alvherre@alvh.no-ip. 311 : 17619 : case T_SubscriptingRef:
312 : 17619 : return ((const SubscriptingRef *) expr)->reftypmod;
5711 tgl@sss.pgh.pa.us 313 : 624780 : case T_FuncExpr:
314 : : {
315 : : int32 coercedTypmod;
316 : :
317 : : /* Be smart about length-coercion functions... */
318 [ + + ]: 624780 : if (exprIsLengthCoercion(expr, &coercedTypmod))
319 : 12590 : return coercedTypmod;
320 : : }
321 : 612190 : break;
5302 tgl@sss.pgh.pa.us 322 :UBC 0 : case T_NamedArgExpr:
4512 peter_e@gmx.net 323 : 0 : return exprTypmod((Node *) ((const NamedArgExpr *) expr)->arg);
4775 tgl@sss.pgh.pa.us 324 :CBC 116 : case T_NullIfExpr:
325 : : {
326 : : /*
327 : : * Result is either first argument or NULL, so we can report
328 : : * first argument's typmod if known.
329 : : */
4512 peter_e@gmx.net 330 : 116 : const NullIfExpr *nexpr = (const NullIfExpr *) expr;
331 : :
4775 tgl@sss.pgh.pa.us 332 : 116 : return exprTypmod((Node *) linitial(nexpr->args));
333 : : }
334 : : break;
5711 335 : 4111 : case T_SubLink:
336 : : {
4326 bruce@momjian.us 337 : 4111 : const SubLink *sublink = (const SubLink *) expr;
338 : :
5711 tgl@sss.pgh.pa.us 339 [ + + ]: 4111 : if (sublink->subLinkType == EXPR_SUBLINK ||
340 [ + + ]: 315 : sublink->subLinkType == ARRAY_SUBLINK)
341 : : {
342 : : /* get the typmod of the subselect's first target column */
343 : 4074 : Query *qtree = (Query *) sublink->subselect;
344 : : TargetEntry *tent;
345 : :
346 [ + - - + ]: 4074 : if (!qtree || !IsA(qtree, Query))
5711 tgl@sss.pgh.pa.us 347 [ # # ]:UBC 0 : elog(ERROR, "cannot get type for untransformed sublink");
2561 tgl@sss.pgh.pa.us 348 :CBC 4074 : tent = linitial_node(TargetEntry, qtree->targetList);
5711 349 [ - + ]: 4074 : Assert(!tent->resjunk);
350 : 4074 : return exprTypmod((Node *) tent->expr);
351 : : /* note we don't need to care if it's an array */
352 : : }
353 : : /* otherwise, result is RECORD or BOOLEAN, typmod is -1 */
354 : : }
355 : 37 : break;
5514 356 : 14689 : case T_SubPlan:
357 : : {
4326 bruce@momjian.us 358 : 14689 : const SubPlan *subplan = (const SubPlan *) expr;
359 : :
5514 tgl@sss.pgh.pa.us 360 [ + + ]: 14689 : if (subplan->subLinkType == EXPR_SUBLINK ||
361 [ + + ]: 957 : subplan->subLinkType == ARRAY_SUBLINK)
362 : : {
363 : : /* get the typmod of the subselect's first target column */
364 : : /* note we don't need to care if it's an array */
365 : 13849 : return subplan->firstColTypmod;
366 : : }
367 : : /* otherwise, result is RECORD or BOOLEAN, typmod is -1 */
368 : : }
369 : 840 : break;
370 : 299 : case T_AlternativeSubPlan:
371 : : {
4512 peter_e@gmx.net 372 : 299 : const AlternativeSubPlan *asplan = (const AlternativeSubPlan *) expr;
373 : :
374 : : /* subplans should all return the same thing */
5514 tgl@sss.pgh.pa.us 375 : 299 : return exprTypmod((Node *) linitial(asplan->subplans));
376 : : }
377 : : break;
5711 378 : 7418 : case T_FieldSelect:
4512 peter_e@gmx.net 379 : 7418 : return ((const FieldSelect *) expr)->resulttypmod;
5711 tgl@sss.pgh.pa.us 380 : 71017 : case T_RelabelType:
4512 peter_e@gmx.net 381 : 71017 : return ((const RelabelType *) expr)->resulttypmod;
5711 tgl@sss.pgh.pa.us 382 : 3588 : case T_ArrayCoerceExpr:
4512 peter_e@gmx.net 383 : 3588 : return ((const ArrayCoerceExpr *) expr)->resulttypmod;
4783 tgl@sss.pgh.pa.us 384 : 55 : case T_CollateExpr:
4512 peter_e@gmx.net 385 : 55 : return exprTypmod((Node *) ((const CollateExpr *) expr)->arg);
5711 tgl@sss.pgh.pa.us 386 : 106252 : case T_CaseExpr:
387 : : {
388 : : /*
389 : : * If all the alternatives agree on type/typmod, return that
390 : : * typmod, else use -1
391 : : */
4326 bruce@momjian.us 392 : 106252 : const CaseExpr *cexpr = (const CaseExpr *) expr;
5711 tgl@sss.pgh.pa.us 393 : 106252 : Oid casetype = cexpr->casetype;
394 : : int32 typmod;
395 : : ListCell *arg;
396 : :
397 [ - + ]: 106252 : if (!cexpr->defresult)
5711 tgl@sss.pgh.pa.us 398 :UBC 0 : return -1;
5711 tgl@sss.pgh.pa.us 399 [ - + ]:CBC 106252 : if (exprType((Node *) cexpr->defresult) != casetype)
5711 tgl@sss.pgh.pa.us 400 :UBC 0 : return -1;
5711 tgl@sss.pgh.pa.us 401 :CBC 106252 : typmod = exprTypmod((Node *) cexpr->defresult);
402 [ + - ]: 106252 : if (typmod < 0)
403 : 106252 : return -1; /* no point in trying harder */
5711 tgl@sss.pgh.pa.us 404 [ # # # # :UBC 0 : foreach(arg, cexpr->args)
# # ]
405 : : {
2561 406 : 0 : CaseWhen *w = lfirst_node(CaseWhen, arg);
407 : :
5711 408 [ # # ]: 0 : if (exprType((Node *) w->result) != casetype)
409 : 0 : return -1;
410 [ # # ]: 0 : if (exprTypmod((Node *) w->result) != typmod)
411 : 0 : return -1;
412 : : }
413 : 0 : return typmod;
414 : : }
415 : : break;
5711 tgl@sss.pgh.pa.us 416 :CBC 6023 : case T_CaseTestExpr:
4512 peter_e@gmx.net 417 : 6023 : return ((const CaseTestExpr *) expr)->typeMod;
5711 tgl@sss.pgh.pa.us 418 : 18895 : case T_ArrayExpr:
419 : : {
420 : : /*
421 : : * If all the elements agree on type/typmod, return that
422 : : * typmod, else use -1
423 : : */
4326 bruce@momjian.us 424 : 18895 : const ArrayExpr *arrayexpr = (const ArrayExpr *) expr;
425 : : Oid commontype;
426 : : int32 typmod;
427 : : ListCell *elem;
428 : :
5711 tgl@sss.pgh.pa.us 429 [ + + ]: 18895 : if (arrayexpr->elements == NIL)
430 : 91 : return -1;
431 : 18804 : typmod = exprTypmod((Node *) linitial(arrayexpr->elements));
432 [ + + ]: 18804 : if (typmod < 0)
433 : 18786 : return -1; /* no point in trying harder */
434 [ - + ]: 18 : if (arrayexpr->multidims)
5711 tgl@sss.pgh.pa.us 435 :UBC 0 : commontype = arrayexpr->array_typeid;
436 : : else
5711 tgl@sss.pgh.pa.us 437 :CBC 18 : commontype = arrayexpr->element_typeid;
438 [ + - + + : 63 : foreach(elem, arrayexpr->elements)
+ + ]
439 : : {
440 : 45 : Node *e = (Node *) lfirst(elem);
441 : :
442 [ - + ]: 45 : if (exprType(e) != commontype)
5711 tgl@sss.pgh.pa.us 443 :UBC 0 : return -1;
5711 tgl@sss.pgh.pa.us 444 [ - + ]:CBC 45 : if (exprTypmod(e) != typmod)
5711 tgl@sss.pgh.pa.us 445 :UBC 0 : return -1;
446 : : }
5711 tgl@sss.pgh.pa.us 447 :CBC 18 : return typmod;
448 : : }
449 : : break;
450 : 3357 : case T_CoalesceExpr:
451 : : {
452 : : /*
453 : : * If all the alternatives agree on type/typmod, return that
454 : : * typmod, else use -1
455 : : */
4512 peter_e@gmx.net 456 : 3357 : const CoalesceExpr *cexpr = (const CoalesceExpr *) expr;
5711 tgl@sss.pgh.pa.us 457 : 3357 : Oid coalescetype = cexpr->coalescetype;
458 : : int32 typmod;
459 : : ListCell *arg;
460 : :
461 [ - + ]: 3357 : if (exprType((Node *) linitial(cexpr->args)) != coalescetype)
5711 tgl@sss.pgh.pa.us 462 :UBC 0 : return -1;
5711 tgl@sss.pgh.pa.us 463 :CBC 3357 : typmod = exprTypmod((Node *) linitial(cexpr->args));
464 [ + - ]: 3357 : if (typmod < 0)
465 : 3357 : return -1; /* no point in trying harder */
1294 tgl@sss.pgh.pa.us 466 [ # # # # :UBC 0 : for_each_from(arg, cexpr->args, 1)
# # ]
467 : : {
5711 468 : 0 : Node *e = (Node *) lfirst(arg);
469 : :
470 [ # # ]: 0 : if (exprType(e) != coalescetype)
471 : 0 : return -1;
472 [ # # ]: 0 : if (exprTypmod(e) != typmod)
473 : 0 : return -1;
474 : : }
475 : 0 : return typmod;
476 : : }
477 : : break;
5711 tgl@sss.pgh.pa.us 478 :CBC 1483 : case T_MinMaxExpr:
479 : : {
480 : : /*
481 : : * If all the alternatives agree on type/typmod, return that
482 : : * typmod, else use -1
483 : : */
4512 peter_e@gmx.net 484 : 1483 : const MinMaxExpr *mexpr = (const MinMaxExpr *) expr;
5711 tgl@sss.pgh.pa.us 485 : 1483 : Oid minmaxtype = mexpr->minmaxtype;
486 : : int32 typmod;
487 : : ListCell *arg;
488 : :
489 [ - + ]: 1483 : if (exprType((Node *) linitial(mexpr->args)) != minmaxtype)
5711 tgl@sss.pgh.pa.us 490 :UBC 0 : return -1;
5711 tgl@sss.pgh.pa.us 491 :CBC 1483 : typmod = exprTypmod((Node *) linitial(mexpr->args));
492 [ + - ]: 1483 : if (typmod < 0)
493 : 1483 : return -1; /* no point in trying harder */
1294 tgl@sss.pgh.pa.us 494 [ # # # # :UBC 0 : for_each_from(arg, mexpr->args, 1)
# # ]
495 : : {
5711 496 : 0 : Node *e = (Node *) lfirst(arg);
497 : :
498 [ # # ]: 0 : if (exprType(e) != minmaxtype)
499 : 0 : return -1;
500 [ # # ]: 0 : if (exprTypmod(e) != typmod)
501 : 0 : return -1;
502 : : }
503 : 0 : return typmod;
504 : : }
505 : : break;
333 michael@paquier.xyz 506 :CBC 870 : case T_SQLValueFunction:
507 : 870 : return ((const SQLValueFunction *) expr)->typmod;
376 alvherre@alvh.no-ip. 508 : 39 : case T_JsonValueExpr:
509 : 39 : return exprTypmod((Node *) ((const JsonValueExpr *) expr)->formatted_expr);
510 : 1062 : case T_JsonConstructorExpr:
511 : 1062 : return ((const JsonConstructorExpr *) expr)->returning->typmod;
24 amitlan@postgresql.o 512 :GNC 1580 : case T_JsonExpr:
513 : : {
514 : 1580 : const JsonExpr *jexpr = (const JsonExpr *) expr;
515 : :
516 : 1580 : return jexpr->returning->typmod;
517 : : }
518 : : break;
24 amitlan@postgresql.o 519 :UNC 0 : case T_JsonBehavior:
520 : : {
521 : 0 : const JsonBehavior *behavior = (const JsonBehavior *) expr;
522 : :
523 : 0 : return exprTypmod(behavior->expr);
524 : : }
525 : : break;
5711 tgl@sss.pgh.pa.us 526 :CBC 87624 : case T_CoerceToDomain:
4512 peter_e@gmx.net 527 : 87624 : return ((const CoerceToDomain *) expr)->resulttypmod;
5711 tgl@sss.pgh.pa.us 528 : 41 : case T_CoerceToDomainValue:
4512 peter_e@gmx.net 529 : 41 : return ((const CoerceToDomainValue *) expr)->typeMod;
5711 tgl@sss.pgh.pa.us 530 : 12750 : case T_SetToDefault:
4512 peter_e@gmx.net 531 : 12750 : return ((const SetToDefault *) expr)->typeMod;
5654 tgl@sss.pgh.pa.us 532 : 3261 : case T_PlaceHolderVar:
4512 peter_e@gmx.net 533 : 3261 : return exprTypmod((Node *) ((const PlaceHolderVar *) expr)->phexpr);
5711 tgl@sss.pgh.pa.us 534 : 191237 : default:
535 : 191237 : break;
536 : : }
537 : 804304 : return -1;
538 : : }
539 : :
540 : : /*
541 : : * exprIsLengthCoercion
542 : : * Detect whether an expression tree is an application of a datatype's
543 : : * typmod-coercion function. Optionally extract the result's typmod.
544 : : *
545 : : * If coercedTypmod is not NULL, the typmod is stored there if the expression
546 : : * is a length-coercion function, else -1 is stored there.
547 : : *
548 : : * Note that a combined type-and-length coercion will be treated as a
549 : : * length coercion by this routine.
550 : : */
551 : : bool
4512 peter_e@gmx.net 552 : 625490 : exprIsLengthCoercion(const Node *expr, int32 *coercedTypmod)
553 : : {
4775 tgl@sss.pgh.pa.us 554 [ + - ]: 625490 : if (coercedTypmod != NULL)
555 : 625490 : *coercedTypmod = -1; /* default result on failure */
556 : :
557 : : /*
558 : : * Scalar-type length coercions are FuncExprs, array-type length coercions
559 : : * are ArrayCoerceExprs
560 : : */
561 [ + - + - ]: 625490 : if (expr && IsA(expr, FuncExpr))
562 : : {
4326 bruce@momjian.us 563 : 625490 : const FuncExpr *func = (const FuncExpr *) expr;
564 : : int nargs;
565 : : Const *second_arg;
566 : :
567 : : /*
568 : : * If it didn't come from a coercion context, reject.
569 : : */
4775 tgl@sss.pgh.pa.us 570 [ + + ]: 625490 : if (func->funcformat != COERCE_EXPLICIT_CAST &&
571 [ + + ]: 609658 : func->funcformat != COERCE_IMPLICIT_CAST)
572 : 489850 : return false;
573 : :
574 : : /*
575 : : * If it's not a two-argument or three-argument function with the
576 : : * second argument being an int4 constant, it can't have been created
577 : : * from a length coercion (it must be a type coercion, instead).
578 : : */
579 : 135640 : nargs = list_length(func->args);
580 [ + + - + ]: 135640 : if (nargs < 2 || nargs > 3)
581 : 123006 : return false;
582 : :
583 : 12634 : second_arg = (Const *) lsecond(func->args);
584 [ + - ]: 12634 : if (!IsA(second_arg, Const) ||
585 [ + - ]: 12634 : second_arg->consttype != INT4OID ||
586 [ - + ]: 12634 : second_arg->constisnull)
4775 tgl@sss.pgh.pa.us 587 :UBC 0 : return false;
588 : :
589 : : /*
590 : : * OK, it is indeed a length-coercion function.
591 : : */
4775 tgl@sss.pgh.pa.us 592 [ + - ]:CBC 12634 : if (coercedTypmod != NULL)
593 : 12634 : *coercedTypmod = DatumGetInt32(second_arg->constvalue);
594 : :
595 : 12634 : return true;
596 : : }
597 : :
4775 tgl@sss.pgh.pa.us 598 [ # # # # ]:UBC 0 : if (expr && IsA(expr, ArrayCoerceExpr))
599 : : {
4512 peter_e@gmx.net 600 : 0 : const ArrayCoerceExpr *acoerce = (const ArrayCoerceExpr *) expr;
601 : :
602 : : /* It's not a length coercion unless there's a nondefault typmod */
4775 tgl@sss.pgh.pa.us 603 [ # # ]: 0 : if (acoerce->resulttypmod < 0)
604 : 0 : return false;
605 : :
606 : : /*
607 : : * OK, it is indeed a length-coercion expression.
608 : : */
609 [ # # ]: 0 : if (coercedTypmod != NULL)
610 : 0 : *coercedTypmod = acoerce->resulttypmod;
611 : :
612 : 0 : return true;
613 : : }
614 : :
615 : 0 : return false;
616 : : }
617 : :
618 : : /*
619 : : * applyRelabelType
620 : : * Add a RelabelType node if needed to make the expression expose
621 : : * the specified type, typmod, and collation.
622 : : *
623 : : * This is primarily intended to be used during planning. Therefore, it must
624 : : * maintain the post-eval_const_expressions invariants that there are not
625 : : * adjacent RelabelTypes, and that the tree is fully const-folded (hence,
626 : : * we mustn't return a RelabelType atop a Const). If we do find a Const,
627 : : * we'll modify it in-place if "overwrite_ok" is true; that should only be
628 : : * passed as true if caller knows the Const is newly generated.
629 : : */
630 : : Node *
1334 tgl@sss.pgh.pa.us 631 :CBC 101359 : applyRelabelType(Node *arg, Oid rtype, int32 rtypmod, Oid rcollid,
632 : : CoercionForm rformat, int rlocation, bool overwrite_ok)
633 : : {
634 : : /*
635 : : * If we find stacked RelabelTypes (eg, from foo::int::oid) we can discard
636 : : * all but the top one, and must do so to ensure that semantically
637 : : * equivalent expressions are equal().
638 : : */
639 [ + - + + ]: 102661 : while (arg && IsA(arg, RelabelType))
640 : 1302 : arg = (Node *) ((RelabelType *) arg)->arg;
641 : :
642 [ + - + + ]: 101359 : if (arg && IsA(arg, Const))
643 : : {
644 : : /* Modify the Const directly to preserve const-flatness. */
645 : 45585 : Const *con = (Const *) arg;
646 : :
647 [ + + ]: 45585 : if (!overwrite_ok)
648 : 5633 : con = copyObject(con);
649 : 45585 : con->consttype = rtype;
650 : 45585 : con->consttypmod = rtypmod;
651 : 45585 : con->constcollid = rcollid;
652 : : /* We keep the Const's original location. */
653 : 45585 : return (Node *) con;
654 : : }
655 [ + + + + ]: 57993 : else if (exprType(arg) == rtype &&
656 [ + + ]: 4396 : exprTypmod(arg) == rtypmod &&
657 : 2177 : exprCollation(arg) == rcollid)
658 : : {
659 : : /* Sometimes we find a nest of relabels that net out to nothing. */
660 : 1215 : return arg;
661 : : }
662 : : else
663 : : {
664 : : /* Nope, gotta have a RelabelType. */
665 : 54559 : RelabelType *newrelabel = makeNode(RelabelType);
666 : :
667 : 54559 : newrelabel->arg = (Expr *) arg;
668 : 54559 : newrelabel->resulttype = rtype;
669 : 54559 : newrelabel->resulttypmod = rtypmod;
670 : 54559 : newrelabel->resultcollid = rcollid;
671 : 54559 : newrelabel->relabelformat = rformat;
672 : 54559 : newrelabel->location = rlocation;
673 : 54559 : return (Node *) newrelabel;
674 : : }
675 : : }
676 : :
677 : : /*
678 : : * relabel_to_typmod
679 : : * Add a RelabelType node that changes just the typmod of the expression.
680 : : *
681 : : * Convenience function for a common usage of applyRelabelType.
682 : : */
683 : : Node *
4405 684 : 18 : relabel_to_typmod(Node *expr, int32 typmod)
685 : : {
1334 686 : 18 : return applyRelabelType(expr, exprType(expr), typmod, exprCollation(expr),
687 : : COERCE_EXPLICIT_CAST, -1, false);
688 : : }
689 : :
690 : : /*
691 : : * strip_implicit_coercions: remove implicit coercions at top level of tree
692 : : *
693 : : * This doesn't modify or copy the input expression tree, just return a
694 : : * pointer to a suitable place within it.
695 : : *
696 : : * Note: there isn't any useful thing we can do with a RowExpr here, so
697 : : * just return it unchanged, even if it's marked as an implicit coercion.
698 : : */
699 : : Node *
3918 700 : 314928 : strip_implicit_coercions(Node *node)
701 : : {
702 [ - + ]: 314928 : if (node == NULL)
3918 tgl@sss.pgh.pa.us 703 :UBC 0 : return NULL;
3918 tgl@sss.pgh.pa.us 704 [ + + ]:CBC 314928 : if (IsA(node, FuncExpr))
705 : : {
706 : 6170 : FuncExpr *f = (FuncExpr *) node;
707 : :
708 [ + + ]: 6170 : if (f->funcformat == COERCE_IMPLICIT_CAST)
709 : 22 : return strip_implicit_coercions(linitial(f->args));
710 : : }
711 [ + + ]: 308758 : else if (IsA(node, RelabelType))
712 : : {
713 : 5021 : RelabelType *r = (RelabelType *) node;
714 : :
715 [ + + ]: 5021 : if (r->relabelformat == COERCE_IMPLICIT_CAST)
716 : 7 : return strip_implicit_coercions((Node *) r->arg);
717 : : }
718 [ + + ]: 303737 : else if (IsA(node, CoerceViaIO))
719 : : {
720 : 290 : CoerceViaIO *c = (CoerceViaIO *) node;
721 : :
722 [ - + ]: 290 : if (c->coerceformat == COERCE_IMPLICIT_CAST)
3918 tgl@sss.pgh.pa.us 723 :UBC 0 : return strip_implicit_coercions((Node *) c->arg);
724 : : }
3918 tgl@sss.pgh.pa.us 725 [ - + ]:CBC 303447 : else if (IsA(node, ArrayCoerceExpr))
726 : : {
3918 tgl@sss.pgh.pa.us 727 :UBC 0 : ArrayCoerceExpr *c = (ArrayCoerceExpr *) node;
728 : :
729 [ # # ]: 0 : if (c->coerceformat == COERCE_IMPLICIT_CAST)
730 : 0 : return strip_implicit_coercions((Node *) c->arg);
731 : : }
3918 tgl@sss.pgh.pa.us 732 [ - + ]:CBC 303447 : else if (IsA(node, ConvertRowtypeExpr))
733 : : {
3918 tgl@sss.pgh.pa.us 734 :UBC 0 : ConvertRowtypeExpr *c = (ConvertRowtypeExpr *) node;
735 : :
736 [ # # ]: 0 : if (c->convertformat == COERCE_IMPLICIT_CAST)
737 : 0 : return strip_implicit_coercions((Node *) c->arg);
738 : : }
3918 tgl@sss.pgh.pa.us 739 [ + + ]:CBC 303447 : else if (IsA(node, CoerceToDomain))
740 : : {
741 : 3441 : CoerceToDomain *c = (CoerceToDomain *) node;
742 : :
743 [ - + ]: 3441 : if (c->coercionformat == COERCE_IMPLICIT_CAST)
3918 tgl@sss.pgh.pa.us 744 :UBC 0 : return strip_implicit_coercions((Node *) c->arg);
745 : : }
3918 tgl@sss.pgh.pa.us 746 :CBC 314899 : return node;
747 : : }
748 : :
749 : : /*
750 : : * expression_returns_set
751 : : * Test whether an expression returns a set result.
752 : : *
753 : : * Because we use expression_tree_walker(), this can also be applied to
754 : : * whole targetlists; it'll produce true if any one of the tlist items
755 : : * returns a set.
756 : : */
757 : : bool
4775 758 : 382851 : expression_returns_set(Node *clause)
759 : : {
760 : 382851 : return expression_returns_set_walker(clause, NULL);
761 : : }
762 : :
763 : : static bool
764 : 1597995 : expression_returns_set_walker(Node *node, void *context)
765 : : {
766 [ + + ]: 1597995 : if (node == NULL)
767 : 15084 : return false;
768 [ + + ]: 1582911 : if (IsA(node, FuncExpr))
769 : : {
770 : 42878 : FuncExpr *expr = (FuncExpr *) node;
771 : :
772 [ + + ]: 42878 : if (expr->funcretset)
773 : 4895 : return true;
774 : : /* else fall through to check args */
775 : : }
776 [ + + ]: 1578016 : if (IsA(node, OpExpr))
777 : : {
778 : 371870 : OpExpr *expr = (OpExpr *) node;
779 : :
780 [ + + ]: 371870 : if (expr->opretset)
781 : 3 : return true;
782 : : /* else fall through to check args */
783 : : }
784 : :
785 : : /*
786 : : * If you add any more cases that return sets, also fix
787 : : * expression_returns_set_rows() in clauses.c and IS_SRF_CALL() in
788 : : * tlist.c.
789 : : */
790 : :
791 : : /* Avoid recursion for some cases that parser checks not to return a set */
792 [ + + ]: 1578013 : if (IsA(node, Aggref))
793 : 614 : return false;
755 794 [ + + ]: 1577399 : if (IsA(node, GroupingFunc))
795 : 18 : return false;
4775 796 [ + + ]: 1577381 : if (IsA(node, WindowFunc))
797 : 15 : return false;
798 : :
799 : 1577366 : return expression_tree_walker(node, expression_returns_set_walker,
800 : : context);
801 : : }
802 : :
803 : :
804 : : /*
805 : : * exprCollation -
806 : : * returns the Oid of the collation of the expression's result.
807 : : *
808 : : * Note: expression nodes that can invoke functions generally have an
809 : : * "inputcollid" field, which is what the function should use as collation.
810 : : * That is the resolved common collation of the node's inputs. It is often
811 : : * but not always the same as the result collation; in particular, if the
812 : : * function produces a non-collatable result type from collatable inputs
813 : : * or vice versa, the two are different.
814 : : */
815 : : Oid
4512 peter_e@gmx.net 816 : 6058275 : exprCollation(const Node *expr)
817 : : {
818 : : Oid coll;
819 : :
4814 820 [ - + ]: 6058275 : if (!expr)
4814 peter_e@gmx.net 821 :UBC 0 : return InvalidOid;
822 : :
4814 peter_e@gmx.net 823 [ + + + + :CBC 6058275 : switch (nodeTag(expr))
+ + + + +
- + + + +
+ + + - +
+ + + + +
+ + + + +
+ + + + +
+ + + + -
+ + + + +
+ + - +
- ]
824 : : {
825 : 4449585 : case T_Var:
4512 826 : 4449585 : coll = ((const Var *) expr)->varcollid;
4814 827 : 4449585 : break;
828 : 888778 : case T_Const:
4512 829 : 888778 : coll = ((const Const *) expr)->constcollid;
4814 830 : 888778 : break;
831 : 188782 : case T_Param:
4512 832 : 188782 : coll = ((const Param *) expr)->paramcollid;
4814 833 : 188782 : break;
834 : 40835 : case T_Aggref:
4512 835 : 40835 : coll = ((const Aggref *) expr)->aggcollid;
4814 836 : 40835 : break;
3256 andres@anarazel.de 837 : 381 : case T_GroupingFunc:
838 : 381 : coll = InvalidOid;
839 : 381 : break;
4814 peter_e@gmx.net 840 : 2377 : case T_WindowFunc:
4512 841 : 2377 : coll = ((const WindowFunc *) expr)->wincollid;
4814 842 : 2377 : break;
28 dean.a.rasheed@gmail 843 :GNC 132 : case T_MergeSupportFunc:
844 : 132 : coll = ((const MergeSupportFunc *) expr)->msfcollid;
845 : 132 : break;
1899 alvherre@alvh.no-ip. 846 :CBC 3766 : case T_SubscriptingRef:
847 : 3766 : coll = ((const SubscriptingRef *) expr)->refcollid;
4814 peter_e@gmx.net 848 : 3766 : break;
849 : 198556 : case T_FuncExpr:
4512 850 : 198556 : coll = ((const FuncExpr *) expr)->funccollid;
4814 851 : 198556 : break;
4814 peter_e@gmx.net 852 :UBC 0 : case T_NamedArgExpr:
4512 853 : 0 : coll = exprCollation((Node *) ((const NamedArgExpr *) expr)->arg);
4814 854 : 0 : break;
4814 peter_e@gmx.net 855 :CBC 50738 : case T_OpExpr:
4512 856 : 50738 : coll = ((const OpExpr *) expr)->opcollid;
4814 857 : 50738 : break;
858 : 64 : case T_DistinctExpr:
4512 859 : 64 : coll = ((const DistinctExpr *) expr)->opcollid;
4775 tgl@sss.pgh.pa.us 860 : 64 : break;
861 : 111 : case T_NullIfExpr:
4512 peter_e@gmx.net 862 : 111 : coll = ((const NullIfExpr *) expr)->opcollid;
4814 863 : 111 : break;
864 : 8343 : case T_ScalarArrayOpExpr:
865 : : /* ScalarArrayOpExpr's result is boolean ... */
1100 drowley@postgresql.o 866 : 8343 : coll = InvalidOid; /* ... so it has no collation */
4814 peter_e@gmx.net 867 : 8343 : break;
868 : 2499 : case T_BoolExpr:
869 : : /* BoolExpr's result is boolean ... */
1100 drowley@postgresql.o 870 : 2499 : coll = InvalidOid; /* ... so it has no collation */
4814 peter_e@gmx.net 871 : 2499 : break;
872 : 1969 : case T_SubLink:
873 : : {
4326 bruce@momjian.us 874 : 1969 : const SubLink *sublink = (const SubLink *) expr;
875 : :
4814 peter_e@gmx.net 876 [ + + ]: 1969 : if (sublink->subLinkType == EXPR_SUBLINK ||
877 [ + + ]: 132 : sublink->subLinkType == ARRAY_SUBLINK)
878 : 1938 : {
879 : : /* get the collation of subselect's first target column */
880 : 1938 : Query *qtree = (Query *) sublink->subselect;
881 : : TargetEntry *tent;
882 : :
883 [ + - - + ]: 1938 : if (!qtree || !IsA(qtree, Query))
4814 peter_e@gmx.net 884 [ # # ]:UBC 0 : elog(ERROR, "cannot get collation for untransformed sublink");
2561 tgl@sss.pgh.pa.us 885 :CBC 1938 : tent = linitial_node(TargetEntry, qtree->targetList);
4814 peter_e@gmx.net 886 [ - + ]: 1938 : Assert(!tent->resjunk);
887 : 1938 : coll = exprCollation((Node *) tent->expr);
888 : : /* collation doesn't change if it's converted to array */
889 : : }
890 : : else
891 : : {
892 : : /* otherwise, SubLink's result is RECORD or BOOLEAN */
1100 drowley@postgresql.o 893 : 31 : coll = InvalidOid; /* ... so it has no collation */
894 : : }
895 : : }
4814 peter_e@gmx.net 896 : 1969 : break;
897 : 8632 : case T_SubPlan:
898 : : {
4326 bruce@momjian.us 899 : 8632 : const SubPlan *subplan = (const SubPlan *) expr;
900 : :
4814 peter_e@gmx.net 901 [ + + ]: 8632 : if (subplan->subLinkType == EXPR_SUBLINK ||
902 [ + + ]: 144 : subplan->subLinkType == ARRAY_SUBLINK)
903 : : {
904 : : /* get the collation of subselect's first target column */
905 : 8536 : coll = subplan->firstColCollation;
906 : : /* collation doesn't change if it's converted to array */
907 : : }
908 : : else
909 : : {
910 : : /* otherwise, SubPlan's result is RECORD or BOOLEAN */
1100 drowley@postgresql.o 911 : 96 : coll = InvalidOid; /* ... so it has no collation */
912 : : }
913 : : }
4814 peter_e@gmx.net 914 : 8632 : break;
4814 peter_e@gmx.net 915 :UBC 0 : case T_AlternativeSubPlan:
916 : : {
4512 917 : 0 : const AlternativeSubPlan *asplan = (const AlternativeSubPlan *) expr;
918 : :
919 : : /* subplans should all return the same thing */
4814 920 : 0 : coll = exprCollation((Node *) linitial(asplan->subplans));
921 : : }
922 : 0 : break;
4814 peter_e@gmx.net 923 :CBC 4640 : case T_FieldSelect:
4512 924 : 4640 : coll = ((const FieldSelect *) expr)->resultcollid;
4814 925 : 4640 : break;
926 : 32 : case T_FieldStore:
927 : : /* FieldStore's result is composite ... */
1100 drowley@postgresql.o 928 : 32 : coll = InvalidOid; /* ... so it has no collation */
4814 peter_e@gmx.net 929 : 32 : break;
930 : 42645 : case T_RelabelType:
4512 931 : 42645 : coll = ((const RelabelType *) expr)->resultcollid;
4814 932 : 42645 : break;
933 : 17141 : case T_CoerceViaIO:
4512 934 : 17141 : coll = ((const CoerceViaIO *) expr)->resultcollid;
4814 935 : 17141 : break;
936 : 710 : case T_ArrayCoerceExpr:
4512 937 : 710 : coll = ((const ArrayCoerceExpr *) expr)->resultcollid;
4814 938 : 710 : break;
939 : 236 : case T_ConvertRowtypeExpr:
940 : : /* ConvertRowtypeExpr's result is composite ... */
1100 drowley@postgresql.o 941 : 236 : coll = InvalidOid; /* ... so it has no collation */
4814 peter_e@gmx.net 942 : 236 : break;
4783 tgl@sss.pgh.pa.us 943 : 43 : case T_CollateExpr:
4512 peter_e@gmx.net 944 : 43 : coll = ((const CollateExpr *) expr)->collOid;
4783 tgl@sss.pgh.pa.us 945 : 43 : break;
4814 peter_e@gmx.net 946 : 68191 : case T_CaseExpr:
4512 947 : 68191 : coll = ((const CaseExpr *) expr)->casecollid;
4814 948 : 68191 : break;
949 : 14348 : case T_CaseTestExpr:
4512 950 : 14348 : coll = ((const CaseTestExpr *) expr)->collation;
4814 951 : 14348 : break;
952 : 12498 : case T_ArrayExpr:
4512 953 : 12498 : coll = ((const ArrayExpr *) expr)->array_collid;
4814 954 : 12498 : break;
955 : 2106 : case T_RowExpr:
956 : : /* RowExpr's result is composite ... */
1100 drowley@postgresql.o 957 : 2106 : coll = InvalidOid; /* ... so it has no collation */
4814 peter_e@gmx.net 958 : 2106 : break;
959 : 33 : case T_RowCompareExpr:
960 : : /* RowCompareExpr's result is boolean ... */
1100 drowley@postgresql.o 961 : 33 : coll = InvalidOid; /* ... so it has no collation */
4814 peter_e@gmx.net 962 : 33 : break;
963 : 1784 : case T_CoalesceExpr:
4512 964 : 1784 : coll = ((const CoalesceExpr *) expr)->coalescecollid;
4814 965 : 1784 : break;
966 : 1421 : case T_MinMaxExpr:
4512 967 : 1421 : coll = ((const MinMaxExpr *) expr)->minmaxcollid;
4814 968 : 1421 : break;
333 michael@paquier.xyz 969 : 550 : case T_SQLValueFunction:
970 : : /* Returns either NAME or a non-collatable type */
971 [ + + ]: 550 : if (((const SQLValueFunction *) expr)->type == NAMEOID)
972 : 472 : coll = C_COLLATION_OID;
973 : : else
974 : 78 : coll = InvalidOid;
975 : 550 : break;
4814 peter_e@gmx.net 976 : 328 : case T_XmlExpr:
977 : :
978 : : /*
979 : : * XMLSERIALIZE returns text from non-collatable inputs, so its
980 : : * collation is always default. The other cases return boolean or
981 : : * XML, which are non-collatable.
982 : : */
4512 983 [ + + ]: 328 : if (((const XmlExpr *) expr)->op == IS_XMLSERIALIZE)
4814 984 : 73 : coll = DEFAULT_COLLATION_OID;
985 : : else
986 : 255 : coll = InvalidOid;
987 : 328 : break;
376 alvherre@alvh.no-ip. 988 : 6 : case T_JsonValueExpr:
989 : 6 : coll = exprCollation((Node *) ((const JsonValueExpr *) expr)->formatted_expr);
990 : 6 : break;
991 : 594 : case T_JsonConstructorExpr:
992 : : {
993 : 594 : const JsonConstructorExpr *ctor = (const JsonConstructorExpr *) expr;
994 : :
995 [ + + ]: 594 : if (ctor->coercion)
996 : 95 : coll = exprCollation((Node *) ctor->coercion);
997 : : else
998 : 499 : coll = InvalidOid;
999 : : }
1000 : 594 : break;
1001 : 130 : case T_JsonIsPredicate:
1002 : : /* IS JSON's result is boolean ... */
1003 : 130 : coll = InvalidOid; /* ... so it has no collation */
1004 : 130 : break;
24 amitlan@postgresql.o 1005 :GNC 1058 : case T_JsonExpr:
1006 : : {
1007 : 1058 : const JsonExpr *jsexpr = (JsonExpr *) expr;
1008 : :
1009 [ + + ]: 1058 : if (jsexpr->coercion_expr)
1010 : 216 : coll = exprCollation(jsexpr->coercion_expr);
1011 : : else
1012 : 842 : coll = jsexpr->collation;
1013 : : }
1014 : 1058 : break;
24 amitlan@postgresql.o 1015 :UNC 0 : case T_JsonBehavior:
1016 : : {
1017 : 0 : const JsonBehavior *behavior = (JsonBehavior *) expr;
1018 : :
1019 [ # # ]: 0 : if (behavior->expr)
1020 : 0 : coll = exprCollation(behavior->expr);
1021 : : else
1022 : 0 : coll = InvalidOid;
1023 : : }
1024 : 0 : break;
4814 peter_e@gmx.net 1025 :CBC 1094 : case T_NullTest:
1026 : : /* NullTest's result is boolean ... */
1100 drowley@postgresql.o 1027 : 1094 : coll = InvalidOid; /* ... so it has no collation */
4814 peter_e@gmx.net 1028 : 1094 : break;
1029 : 212 : case T_BooleanTest:
1030 : : /* BooleanTest's result is boolean ... */
1100 drowley@postgresql.o 1031 : 212 : coll = InvalidOid; /* ... so it has no collation */
4814 peter_e@gmx.net 1032 : 212 : break;
1033 : 27840 : case T_CoerceToDomain:
4512 1034 : 27840 : coll = ((const CoerceToDomain *) expr)->resultcollid;
4814 1035 : 27840 : break;
1036 : 346 : case T_CoerceToDomainValue:
4512 1037 : 346 : coll = ((const CoerceToDomainValue *) expr)->collation;
4814 1038 : 346 : break;
1039 : 12589 : case T_SetToDefault:
4512 1040 : 12589 : coll = ((const SetToDefault *) expr)->collation;
4814 1041 : 12589 : break;
1042 : 121 : case T_CurrentOfExpr:
1043 : : /* CurrentOfExpr's result is boolean ... */
1100 drowley@postgresql.o 1044 : 121 : coll = InvalidOid; /* ... so it has no collation */
4814 peter_e@gmx.net 1045 : 121 : break;
2565 1046 : 238 : case T_NextValueExpr:
1047 : : /* NextValueExpr's result is an integer type ... */
1100 drowley@postgresql.o 1048 : 238 : coll = InvalidOid; /* ... so it has no collation */
2565 peter_e@gmx.net 1049 : 238 : break;
3264 andres@anarazel.de 1050 :UBC 0 : case T_InferenceElem:
1051 : 0 : coll = exprCollation((Node *) ((const InferenceElem *) expr)->expr);
1052 : 0 : break;
4814 peter_e@gmx.net 1053 :CBC 1793 : case T_PlaceHolderVar:
4512 1054 : 1793 : coll = exprCollation((Node *) ((const PlaceHolderVar *) expr)->phexpr);
4814 1055 : 1793 : break;
4814 peter_e@gmx.net 1056 :UBC 0 : default:
1057 [ # # ]: 0 : elog(ERROR, "unrecognized node type: %d", (int) nodeTag(expr));
1058 : : coll = InvalidOid; /* keep compiler quiet */
1059 : : break;
1060 : : }
4814 peter_e@gmx.net 1061 :CBC 6058275 : return coll;
1062 : : }
1063 : :
1064 : : /*
1065 : : * exprInputCollation -
1066 : : * returns the Oid of the collation a function should use, if available.
1067 : : *
1068 : : * Result is InvalidOid if the node type doesn't store this information.
1069 : : */
1070 : : Oid
4512 1071 : 649 : exprInputCollation(const Node *expr)
1072 : : {
1073 : : Oid coll;
1074 : :
4775 tgl@sss.pgh.pa.us 1075 [ - + ]: 649 : if (!expr)
4775 tgl@sss.pgh.pa.us 1076 :UBC 0 : return InvalidOid;
1077 : :
4775 tgl@sss.pgh.pa.us 1078 [ - - + + :CBC 649 : switch (nodeTag(expr))
+ + + +
+ ]
1079 : : {
4775 tgl@sss.pgh.pa.us 1080 :UBC 0 : case T_Aggref:
4512 peter_e@gmx.net 1081 : 0 : coll = ((const Aggref *) expr)->inputcollid;
4775 tgl@sss.pgh.pa.us 1082 : 0 : break;
1083 : 0 : case T_WindowFunc:
4512 peter_e@gmx.net 1084 : 0 : coll = ((const WindowFunc *) expr)->inputcollid;
4775 tgl@sss.pgh.pa.us 1085 : 0 : break;
4775 tgl@sss.pgh.pa.us 1086 :CBC 43 : case T_FuncExpr:
4512 peter_e@gmx.net 1087 : 43 : coll = ((const FuncExpr *) expr)->inputcollid;
4775 tgl@sss.pgh.pa.us 1088 : 43 : break;
1089 : 164 : case T_OpExpr:
4512 peter_e@gmx.net 1090 : 164 : coll = ((const OpExpr *) expr)->inputcollid;
4775 tgl@sss.pgh.pa.us 1091 : 164 : break;
1092 : 3 : case T_DistinctExpr:
4512 peter_e@gmx.net 1093 : 3 : coll = ((const DistinctExpr *) expr)->inputcollid;
4775 tgl@sss.pgh.pa.us 1094 : 3 : break;
1095 : 6 : case T_NullIfExpr:
4512 peter_e@gmx.net 1096 : 6 : coll = ((const NullIfExpr *) expr)->inputcollid;
4775 tgl@sss.pgh.pa.us 1097 : 6 : break;
1098 : 3 : case T_ScalarArrayOpExpr:
4512 peter_e@gmx.net 1099 : 3 : coll = ((const ScalarArrayOpExpr *) expr)->inputcollid;
4775 tgl@sss.pgh.pa.us 1100 : 3 : break;
1101 : 3 : case T_MinMaxExpr:
4512 peter_e@gmx.net 1102 : 3 : coll = ((const MinMaxExpr *) expr)->inputcollid;
4775 tgl@sss.pgh.pa.us 1103 : 3 : break;
1104 : 427 : default:
1105 : 427 : coll = InvalidOid;
1106 : 427 : break;
1107 : : }
1108 : 649 : return coll;
1109 : : }
1110 : :
1111 : : /*
1112 : : * exprSetCollation -
1113 : : * Assign collation information to an expression tree node.
1114 : : *
1115 : : * Note: since this is only used during parse analysis, we don't need to
1116 : : * worry about subplans or PlaceHolderVars.
1117 : : */
1118 : : void
1119 : 869716 : exprSetCollation(Node *expr, Oid collation)
1120 : : {
1121 [ - + - + : 869716 : switch (nodeTag(expr))
+ + + + +
+ + + + +
+ + - + +
+ + + + +
- - + + +
+ + + + +
+ + + + -
- - - - ]
1122 : : {
4775 tgl@sss.pgh.pa.us 1123 :UBC 0 : case T_Var:
1124 : 0 : ((Var *) expr)->varcollid = collation;
1125 : 0 : break;
4775 tgl@sss.pgh.pa.us 1126 :GBC 947 : case T_Const:
1127 : 947 : ((Const *) expr)->constcollid = collation;
1128 : 947 : break;
4775 tgl@sss.pgh.pa.us 1129 :UBC 0 : case T_Param:
1130 : 0 : ((Param *) expr)->paramcollid = collation;
1131 : 0 : break;
4775 tgl@sss.pgh.pa.us 1132 :CBC 21712 : case T_Aggref:
1133 : 21712 : ((Aggref *) expr)->aggcollid = collation;
1134 : 21712 : break;
3256 andres@anarazel.de 1135 : 157 : case T_GroupingFunc:
1136 [ - + ]: 157 : Assert(!OidIsValid(collation));
1137 : 157 : break;
4775 tgl@sss.pgh.pa.us 1138 : 1640 : case T_WindowFunc:
1139 : 1640 : ((WindowFunc *) expr)->wincollid = collation;
1140 : 1640 : break;
28 dean.a.rasheed@gmail 1141 :GNC 87 : case T_MergeSupportFunc:
1142 : 87 : ((MergeSupportFunc *) expr)->msfcollid = collation;
1143 : 87 : break;
1899 alvherre@alvh.no-ip. 1144 :CBC 5741 : case T_SubscriptingRef:
1145 : 5741 : ((SubscriptingRef *) expr)->refcollid = collation;
4775 tgl@sss.pgh.pa.us 1146 : 5741 : break;
1147 : 220410 : case T_FuncExpr:
1148 : 220410 : ((FuncExpr *) expr)->funccollid = collation;
1149 : 220410 : break;
1150 : 23347 : case T_NamedArgExpr:
1151 [ - + ]: 23347 : Assert(collation == exprCollation((Node *) ((NamedArgExpr *) expr)->arg));
1152 : 23347 : break;
1153 : 307095 : case T_OpExpr:
1154 : 307095 : ((OpExpr *) expr)->opcollid = collation;
1155 : 307095 : break;
1156 : 478 : case T_DistinctExpr:
1157 : 478 : ((DistinctExpr *) expr)->opcollid = collation;
1158 : 478 : break;
1159 : 119 : case T_NullIfExpr:
1160 : 119 : ((NullIfExpr *) expr)->opcollid = collation;
1161 : 119 : break;
1162 : 14894 : case T_ScalarArrayOpExpr:
1163 : : /* ScalarArrayOpExpr's result is boolean ... */
1100 drowley@postgresql.o 1164 [ - + ]: 14894 : Assert(!OidIsValid(collation)); /* ... so never set a collation */
4775 tgl@sss.pgh.pa.us 1165 : 14894 : break;
1166 : 71193 : case T_BoolExpr:
1167 : : /* BoolExpr's result is boolean ... */
1100 drowley@postgresql.o 1168 [ - + ]: 71193 : Assert(!OidIsValid(collation)); /* ... so never set a collation */
4775 tgl@sss.pgh.pa.us 1169 : 71193 : break;
1170 : 20467 : case T_SubLink:
1171 : : #ifdef USE_ASSERT_CHECKING
1172 : : {
1173 : 20467 : SubLink *sublink = (SubLink *) expr;
1174 : :
1175 [ + + ]: 20467 : if (sublink->subLinkType == EXPR_SUBLINK ||
1176 [ + + ]: 7638 : sublink->subLinkType == ARRAY_SUBLINK)
1177 : 16512 : {
1178 : : /* get the collation of subselect's first target column */
1179 : 16512 : Query *qtree = (Query *) sublink->subselect;
1180 : : TargetEntry *tent;
1181 : :
1182 [ + - - + ]: 16512 : if (!qtree || !IsA(qtree, Query))
4775 tgl@sss.pgh.pa.us 1183 [ # # ]:UBC 0 : elog(ERROR, "cannot set collation for untransformed sublink");
2561 tgl@sss.pgh.pa.us 1184 :CBC 16512 : tent = linitial_node(TargetEntry, qtree->targetList);
4775 1185 [ - + ]: 16512 : Assert(!tent->resjunk);
1186 [ - + ]: 16512 : Assert(collation == exprCollation((Node *) tent->expr));
1187 : : }
1188 : : else
1189 : : {
1190 : : /* otherwise, result is RECORD or BOOLEAN */
1191 [ - + ]: 3955 : Assert(!OidIsValid(collation));
1192 : : }
1193 : : }
1194 : : #endif /* USE_ASSERT_CHECKING */
1195 : 20467 : break;
4775 tgl@sss.pgh.pa.us 1196 :UBC 0 : case T_FieldSelect:
1197 : 0 : ((FieldSelect *) expr)->resultcollid = collation;
1198 : 0 : break;
4775 tgl@sss.pgh.pa.us 1199 :CBC 302 : case T_FieldStore:
1200 : : /* FieldStore's result is composite ... */
1100 drowley@postgresql.o 1201 [ - + ]: 302 : Assert(!OidIsValid(collation)); /* ... so never set a collation */
4775 tgl@sss.pgh.pa.us 1202 : 302 : break;
1203 : 62664 : case T_RelabelType:
1204 : 62664 : ((RelabelType *) expr)->resultcollid = collation;
1205 : 62664 : break;
1206 : 11516 : case T_CoerceViaIO:
1207 : 11516 : ((CoerceViaIO *) expr)->resultcollid = collation;
1208 : 11516 : break;
1209 : 2442 : case T_ArrayCoerceExpr:
1210 : 2442 : ((ArrayCoerceExpr *) expr)->resultcollid = collation;
1211 : 2442 : break;
1212 : 30 : case T_ConvertRowtypeExpr:
1213 : : /* ConvertRowtypeExpr's result is composite ... */
1100 drowley@postgresql.o 1214 [ - + ]: 30 : Assert(!OidIsValid(collation)); /* ... so never set a collation */
4775 tgl@sss.pgh.pa.us 1215 : 30 : break;
1216 : 39171 : case T_CaseExpr:
1217 : 39171 : ((CaseExpr *) expr)->casecollid = collation;
1218 : 39171 : break;
1219 : 12636 : case T_ArrayExpr:
1220 : 12636 : ((ArrayExpr *) expr)->array_collid = collation;
1221 : 12636 : break;
4775 tgl@sss.pgh.pa.us 1222 :UBC 0 : case T_RowExpr:
1223 : : /* RowExpr's result is composite ... */
1100 drowley@postgresql.o 1224 [ # # ]: 0 : Assert(!OidIsValid(collation)); /* ... so never set a collation */
4775 tgl@sss.pgh.pa.us 1225 : 0 : break;
1226 : 0 : case T_RowCompareExpr:
1227 : : /* RowCompareExpr's result is boolean ... */
1100 drowley@postgresql.o 1228 [ # # ]: 0 : Assert(!OidIsValid(collation)); /* ... so never set a collation */
4775 tgl@sss.pgh.pa.us 1229 : 0 : break;
4775 tgl@sss.pgh.pa.us 1230 :CBC 2814 : case T_CoalesceExpr:
1231 : 2814 : ((CoalesceExpr *) expr)->coalescecollid = collation;
1232 : 2814 : break;
1233 : 159 : case T_MinMaxExpr:
1234 : 159 : ((MinMaxExpr *) expr)->minmaxcollid = collation;
1235 : 159 : break;
333 michael@paquier.xyz 1236 : 1301 : case T_SQLValueFunction:
1237 [ + + - + ]: 1301 : Assert((((SQLValueFunction *) expr)->type == NAMEOID) ?
1238 : : (collation == C_COLLATION_OID) :
1239 : : (collation == InvalidOid));
1240 : 1301 : break;
4775 tgl@sss.pgh.pa.us 1241 : 378 : case T_XmlExpr:
1242 [ + + - + ]: 378 : Assert((((XmlExpr *) expr)->op == IS_XMLSERIALIZE) ?
1243 : : (collation == DEFAULT_COLLATION_OID) :
1244 : : (collation == InvalidOid));
1245 : 378 : break;
376 alvherre@alvh.no-ip. 1246 : 291 : case T_JsonValueExpr:
1247 : 291 : exprSetCollation((Node *) ((JsonValueExpr *) expr)->formatted_expr,
1248 : : collation);
1249 : 291 : break;
1250 : 574 : case T_JsonConstructorExpr:
1251 : : {
1252 : 574 : JsonConstructorExpr *ctor = (JsonConstructorExpr *) expr;
1253 : :
1254 [ + + ]: 574 : if (ctor->coercion)
1255 : 128 : exprSetCollation((Node *) ctor->coercion, collation);
1256 : : else
1257 [ - + ]: 446 : Assert(!OidIsValid(collation)); /* result is always a
1258 : : * json[b] type */
1259 : : }
1260 : 574 : break;
1261 : 164 : case T_JsonIsPredicate:
1262 [ - + ]: 164 : Assert(!OidIsValid(collation)); /* result is always boolean */
1263 : 164 : break;
24 amitlan@postgresql.o 1264 :GNC 1073 : case T_JsonExpr:
1265 : : {
1266 : 1073 : JsonExpr *jexpr = (JsonExpr *) expr;
1267 : :
1268 [ + + ]: 1073 : if (jexpr->coercion_expr)
1269 : 219 : exprSetCollation((Node *) jexpr->coercion_expr, collation);
1270 : : else
1271 : 854 : jexpr->collation = collation;
1272 : : }
1273 : 1073 : break;
1274 : 1172 : case T_JsonBehavior:
1275 : : {
1276 : 1172 : JsonBehavior *behavior = (JsonBehavior *) expr;
1277 : :
1278 [ + + ]: 1172 : if (behavior->expr)
1279 : 995 : exprSetCollation(behavior->expr, collation);
1280 : : }
1281 : 1172 : break;
4775 tgl@sss.pgh.pa.us 1282 :CBC 9130 : case T_NullTest:
1283 : : /* NullTest's result is boolean ... */
1100 drowley@postgresql.o 1284 [ - + ]: 9130 : Assert(!OidIsValid(collation)); /* ... so never set a collation */
4775 tgl@sss.pgh.pa.us 1285 : 9130 : break;
1286 : 408 : case T_BooleanTest:
1287 : : /* BooleanTest's result is boolean ... */
1100 drowley@postgresql.o 1288 [ - + ]: 408 : Assert(!OidIsValid(collation)); /* ... so never set a collation */
4775 tgl@sss.pgh.pa.us 1289 : 408 : break;
1290 : 35204 : case T_CoerceToDomain:
1291 : 35204 : ((CoerceToDomain *) expr)->resultcollid = collation;
1292 : 35204 : break;
4775 tgl@sss.pgh.pa.us 1293 :UBC 0 : case T_CoerceToDomainValue:
1294 : 0 : ((CoerceToDomainValue *) expr)->collation = collation;
1295 : 0 : break;
1296 : 0 : case T_SetToDefault:
1297 : 0 : ((SetToDefault *) expr)->collation = collation;
1298 : 0 : break;
1299 : 0 : case T_CurrentOfExpr:
1300 : : /* CurrentOfExpr's result is boolean ... */
1100 drowley@postgresql.o 1301 [ # # ]: 0 : Assert(!OidIsValid(collation)); /* ... so never set a collation */
4775 tgl@sss.pgh.pa.us 1302 : 0 : break;
2565 peter_e@gmx.net 1303 : 0 : case T_NextValueExpr:
1304 : : /* NextValueExpr's result is an integer type ... */
1100 drowley@postgresql.o 1305 [ # # ]: 0 : Assert(!OidIsValid(collation)); /* ... so never set a collation */
2565 peter_e@gmx.net 1306 : 0 : break;
4775 tgl@sss.pgh.pa.us 1307 : 0 : default:
1308 [ # # ]: 0 : elog(ERROR, "unrecognized node type: %d", (int) nodeTag(expr));
1309 : : break;
1310 : : }
5711 tgl@sss.pgh.pa.us 1311 :CBC 869716 : }
1312 : :
1313 : : /*
1314 : : * exprSetInputCollation -
1315 : : * Assign input-collation information to an expression tree node.
1316 : : *
1317 : : * This is a no-op for node types that don't store their input collation.
1318 : : * Note we omit RowCompareExpr, which needs special treatment since it
1319 : : * contains multiple input collation OIDs.
1320 : : */
1321 : : void
4775 1322 : 832921 : exprSetInputCollation(Node *expr, Oid inputcollation)
1323 : : {
1324 [ + + + + : 832921 : switch (nodeTag(expr))
+ + + +
+ ]
1325 : : {
1326 : 21712 : case T_Aggref:
1327 : 21712 : ((Aggref *) expr)->inputcollid = inputcollation;
1328 : 21712 : break;
1329 : 1640 : case T_WindowFunc:
1330 : 1640 : ((WindowFunc *) expr)->inputcollid = inputcollation;
1331 : 1640 : break;
1332 : 220236 : case T_FuncExpr:
1333 : 220236 : ((FuncExpr *) expr)->inputcollid = inputcollation;
1334 : 220236 : break;
1335 : 307089 : case T_OpExpr:
1336 : 307089 : ((OpExpr *) expr)->inputcollid = inputcollation;
1337 : 307089 : break;
1338 : 478 : case T_DistinctExpr:
1339 : 478 : ((DistinctExpr *) expr)->inputcollid = inputcollation;
1340 : 478 : break;
1341 : 119 : case T_NullIfExpr:
1342 : 119 : ((NullIfExpr *) expr)->inputcollid = inputcollation;
1343 : 119 : break;
1344 : 14894 : case T_ScalarArrayOpExpr:
1345 : 14894 : ((ScalarArrayOpExpr *) expr)->inputcollid = inputcollation;
1346 : 14894 : break;
1347 : 159 : case T_MinMaxExpr:
1348 : 159 : ((MinMaxExpr *) expr)->inputcollid = inputcollation;
1349 : 159 : break;
1350 : 266594 : default:
1351 : 266594 : break;
1352 : : }
10141 scrappy@hub.org 1353 : 832921 : }
1354 : :
1355 : :
1356 : : /*
1357 : : * exprLocation -
1358 : : * returns the parse location of an expression tree, for error reports
1359 : : *
1360 : : * -1 is returned if the location can't be determined.
1361 : : *
1362 : : * For expressions larger than a single token, the intent here is to
1363 : : * return the location of the expression's leftmost token, not necessarily
1364 : : * the topmost Node's location field. For example, an OpExpr's location
1365 : : * field will point at the operator name, but if it is not a prefix operator
1366 : : * then we should return the location of the left-hand operand instead.
1367 : : * The reason is that we want to reference the entire expression not just
1368 : : * that operator, and pointing to its start seems to be the most natural way.
1369 : : *
1370 : : * The location is not perfect --- for example, since the grammar doesn't
1371 : : * explicitly represent parentheses in the parsetree, given something that
1372 : : * had been written "(a + b) * c" we are going to point at "a" not "(".
1373 : : * But it should be plenty good enough for error reporting purposes.
1374 : : *
1375 : : * You might think that this code is overly general, for instance why check
1376 : : * the operands of a FuncExpr node, when the function name can be expected
1377 : : * to be to the left of them? There are a couple of reasons. The grammar
1378 : : * sometimes builds expressions that aren't quite what the user wrote;
1379 : : * for instance x IS NOT BETWEEN ... becomes a NOT-expression whose keyword
1380 : : * pointer is to the right of its leftmost argument. Also, nodes that were
1381 : : * inserted implicitly by parse analysis (such as FuncExprs for implicit
1382 : : * coercions) will have location -1, and so we can have odd combinations of
1383 : : * known and unknown locations in a tree.
1384 : : */
1385 : : int
4512 peter_e@gmx.net 1386 : 1988853 : exprLocation(const Node *expr)
1387 : : {
1388 : : int loc;
1389 : :
5708 tgl@sss.pgh.pa.us 1390 [ + + ]: 1988853 : if (expr == NULL)
1391 : 11109 : return -1;
1392 [ + - + + : 1977744 : switch (nodeTag(expr))
+ + + + +
+ + + + -
+ + + - +
+ - + + +
- + + - +
+ + + - -
+ - + + +
- + + + -
+ + + + -
+ + - + -
+ + + - -
- + - - -
+ - - + -
- - - - -
- - - - -
- - - + +
+ ]
1393 : : {
5704 1394 : 15 : case T_RangeVar:
4512 peter_e@gmx.net 1395 : 15 : loc = ((const RangeVar *) expr)->location;
5704 tgl@sss.pgh.pa.us 1396 : 15 : break;
2594 alvherre@alvh.no-ip. 1397 :UBC 0 : case T_TableFunc:
1398 : 0 : loc = ((const TableFunc *) expr)->location;
1399 : 0 : break;
5708 tgl@sss.pgh.pa.us 1400 :CBC 940893 : case T_Var:
4512 peter_e@gmx.net 1401 : 940893 : loc = ((const Var *) expr)->location;
5708 tgl@sss.pgh.pa.us 1402 : 940893 : break;
1403 : 625443 : case T_Const:
4512 peter_e@gmx.net 1404 : 625443 : loc = ((const Const *) expr)->location;
5708 tgl@sss.pgh.pa.us 1405 : 625443 : break;
1406 : 152206 : case T_Param:
4512 peter_e@gmx.net 1407 : 152206 : loc = ((const Param *) expr)->location;
5708 tgl@sss.pgh.pa.us 1408 : 152206 : break;
1409 : 3986 : case T_Aggref:
1410 : : /* function name should always be the first thing */
4512 peter_e@gmx.net 1411 : 3986 : loc = ((const Aggref *) expr)->location;
5708 tgl@sss.pgh.pa.us 1412 : 3986 : break;
3256 andres@anarazel.de 1413 : 35 : case T_GroupingFunc:
1414 : 35 : loc = ((const GroupingFunc *) expr)->location;
1415 : 35 : break;
5586 tgl@sss.pgh.pa.us 1416 : 21 : case T_WindowFunc:
1417 : : /* function name should always be the first thing */
4512 peter_e@gmx.net 1418 : 21 : loc = ((const WindowFunc *) expr)->location;
5586 tgl@sss.pgh.pa.us 1419 : 21 : break;
28 dean.a.rasheed@gmail 1420 :GNC 87 : case T_MergeSupportFunc:
1421 : 87 : loc = ((const MergeSupportFunc *) expr)->location;
1422 : 87 : break;
1899 alvherre@alvh.no-ip. 1423 :CBC 144 : case T_SubscriptingRef:
1424 : : /* just use container argument's location */
1425 : 144 : loc = exprLocation((Node *) ((const SubscriptingRef *) expr)->refexpr);
5708 tgl@sss.pgh.pa.us 1426 : 144 : break;
1427 : 40813 : case T_FuncExpr:
1428 : : {
4326 bruce@momjian.us 1429 : 40813 : const FuncExpr *fexpr = (const FuncExpr *) expr;
1430 : :
1431 : : /* consider both function name and leftmost arg */
5708 tgl@sss.pgh.pa.us 1432 : 40813 : loc = leftmostLoc(fexpr->location,
1433 : 40813 : exprLocation((Node *) fexpr->args));
1434 : : }
1435 : 40813 : break;
5302 1436 : 3 : case T_NamedArgExpr:
1437 : : {
4512 peter_e@gmx.net 1438 : 3 : const NamedArgExpr *na = (const NamedArgExpr *) expr;
1439 : :
1440 : : /* consider both argument name and value */
5302 tgl@sss.pgh.pa.us 1441 : 3 : loc = leftmostLoc(na->location,
1442 : 3 : exprLocation((Node *) na->arg));
1443 : : }
1444 : 3 : break;
5708 1445 : 6066 : case T_OpExpr:
1446 : : case T_DistinctExpr: /* struct-equivalent to OpExpr */
1447 : : case T_NullIfExpr: /* struct-equivalent to OpExpr */
1448 : : {
4326 bruce@momjian.us 1449 : 6066 : const OpExpr *opexpr = (const OpExpr *) expr;
1450 : :
1451 : : /* consider both operator name and leftmost arg */
5708 tgl@sss.pgh.pa.us 1452 : 6066 : loc = leftmostLoc(opexpr->location,
1453 : 6066 : exprLocation((Node *) opexpr->args));
1454 : : }
1455 : 6066 : break;
5708 tgl@sss.pgh.pa.us 1456 :UBC 0 : case T_ScalarArrayOpExpr:
1457 : : {
4512 peter_e@gmx.net 1458 : 0 : const ScalarArrayOpExpr *saopexpr = (const ScalarArrayOpExpr *) expr;
1459 : :
1460 : : /* consider both operator name and leftmost arg */
5708 tgl@sss.pgh.pa.us 1461 : 0 : loc = leftmostLoc(saopexpr->location,
1462 : 0 : exprLocation((Node *) saopexpr->args));
1463 : : }
1464 : 0 : break;
5708 tgl@sss.pgh.pa.us 1465 :CBC 39 : case T_BoolExpr:
1466 : : {
4326 bruce@momjian.us 1467 : 39 : const BoolExpr *bexpr = (const BoolExpr *) expr;
1468 : :
1469 : : /*
1470 : : * Same as above, to handle either NOT or AND/OR. We can't
1471 : : * special-case NOT because of the way that it's used for
1472 : : * things like IS NOT BETWEEN.
1473 : : */
5708 tgl@sss.pgh.pa.us 1474 : 39 : loc = leftmostLoc(bexpr->location,
1475 : 39 : exprLocation((Node *) bexpr->args));
1476 : : }
1477 : 39 : break;
1478 : 477 : case T_SubLink:
1479 : : {
4326 bruce@momjian.us 1480 : 477 : const SubLink *sublink = (const SubLink *) expr;
1481 : :
1482 : : /* check the testexpr, if any, and the operator/keyword */
5708 tgl@sss.pgh.pa.us 1483 : 477 : loc = leftmostLoc(exprLocation(sublink->testexpr),
1484 : 477 : sublink->location);
1485 : : }
1486 : 477 : break;
1487 : 1776 : case T_FieldSelect:
1488 : : /* just use argument's location */
4512 peter_e@gmx.net 1489 : 1776 : loc = exprLocation((Node *) ((const FieldSelect *) expr)->arg);
5708 tgl@sss.pgh.pa.us 1490 : 1776 : break;
5708 tgl@sss.pgh.pa.us 1491 :UBC 0 : case T_FieldStore:
1492 : : /* just use argument's location */
4512 peter_e@gmx.net 1493 : 0 : loc = exprLocation((Node *) ((const FieldStore *) expr)->arg);
5708 tgl@sss.pgh.pa.us 1494 : 0 : break;
5708 tgl@sss.pgh.pa.us 1495 :CBC 6187 : case T_RelabelType:
1496 : : {
4512 peter_e@gmx.net 1497 : 6187 : const RelabelType *rexpr = (const RelabelType *) expr;
1498 : :
1499 : : /* Much as above */
5708 tgl@sss.pgh.pa.us 1500 : 6187 : loc = leftmostLoc(rexpr->location,
1501 : 6187 : exprLocation((Node *) rexpr->arg));
1502 : : }
1503 : 6187 : break;
1504 : 10442 : case T_CoerceViaIO:
1505 : : {
4512 peter_e@gmx.net 1506 : 10442 : const CoerceViaIO *cexpr = (const CoerceViaIO *) expr;
1507 : :
1508 : : /* Much as above */
5708 tgl@sss.pgh.pa.us 1509 : 10442 : loc = leftmostLoc(cexpr->location,
1510 : 10442 : exprLocation((Node *) cexpr->arg));
1511 : : }
1512 : 10442 : break;
5708 tgl@sss.pgh.pa.us 1513 :UBC 0 : case T_ArrayCoerceExpr:
1514 : : {
4512 peter_e@gmx.net 1515 : 0 : const ArrayCoerceExpr *cexpr = (const ArrayCoerceExpr *) expr;
1516 : :
1517 : : /* Much as above */
5708 tgl@sss.pgh.pa.us 1518 : 0 : loc = leftmostLoc(cexpr->location,
1519 : 0 : exprLocation((Node *) cexpr->arg));
1520 : : }
1521 : 0 : break;
5708 tgl@sss.pgh.pa.us 1522 :CBC 3 : case T_ConvertRowtypeExpr:
1523 : : {
4512 peter_e@gmx.net 1524 : 3 : const ConvertRowtypeExpr *cexpr = (const ConvertRowtypeExpr *) expr;
1525 : :
1526 : : /* Much as above */
5708 tgl@sss.pgh.pa.us 1527 : 3 : loc = leftmostLoc(cexpr->location,
1528 : 3 : exprLocation((Node *) cexpr->arg));
1529 : : }
1530 : 3 : break;
4783 1531 : 15 : case T_CollateExpr:
1532 : : /* just use argument's location */
4512 peter_e@gmx.net 1533 : 15 : loc = exprLocation((Node *) ((const CollateExpr *) expr)->arg);
4783 tgl@sss.pgh.pa.us 1534 : 15 : break;
5708 1535 : 4574 : case T_CaseExpr:
1536 : : /* CASE keyword should always be the first thing */
4512 peter_e@gmx.net 1537 : 4574 : loc = ((const CaseExpr *) expr)->location;
5708 tgl@sss.pgh.pa.us 1538 : 4574 : break;
5708 tgl@sss.pgh.pa.us 1539 :UBC 0 : case T_CaseWhen:
1540 : : /* WHEN keyword should always be the first thing */
4512 peter_e@gmx.net 1541 : 0 : loc = ((const CaseWhen *) expr)->location;
5708 tgl@sss.pgh.pa.us 1542 : 0 : break;
5708 tgl@sss.pgh.pa.us 1543 :CBC 207 : case T_ArrayExpr:
1544 : : /* the location points at ARRAY or [, which must be leftmost */
4512 peter_e@gmx.net 1545 : 207 : loc = ((const ArrayExpr *) expr)->location;
5708 tgl@sss.pgh.pa.us 1546 : 207 : break;
1547 : 114 : case T_RowExpr:
1548 : : /* the location points at ROW or (, which must be leftmost */
4512 peter_e@gmx.net 1549 : 114 : loc = ((const RowExpr *) expr)->location;
5708 tgl@sss.pgh.pa.us 1550 : 114 : break;
5708 tgl@sss.pgh.pa.us 1551 :UBC 0 : case T_RowCompareExpr:
1552 : : /* just use leftmost argument's location */
4512 peter_e@gmx.net 1553 : 0 : loc = exprLocation((Node *) ((const RowCompareExpr *) expr)->largs);
5708 tgl@sss.pgh.pa.us 1554 : 0 : break;
5708 tgl@sss.pgh.pa.us 1555 :CBC 864 : case T_CoalesceExpr:
1556 : : /* COALESCE keyword should always be the first thing */
4512 peter_e@gmx.net 1557 : 864 : loc = ((const CoalesceExpr *) expr)->location;
5708 tgl@sss.pgh.pa.us 1558 : 864 : break;
1559 : 12 : case T_MinMaxExpr:
1560 : : /* GREATEST/LEAST keyword should always be the first thing */
4512 peter_e@gmx.net 1561 : 12 : loc = ((const MinMaxExpr *) expr)->location;
5708 tgl@sss.pgh.pa.us 1562 : 12 : break;
333 michael@paquier.xyz 1563 : 825 : case T_SQLValueFunction:
1564 : : /* function keyword should always be the first thing */
1565 : 825 : loc = ((const SQLValueFunction *) expr)->location;
1566 : 825 : break;
5708 tgl@sss.pgh.pa.us 1567 : 95 : case T_XmlExpr:
1568 : : {
4326 bruce@momjian.us 1569 : 95 : const XmlExpr *xexpr = (const XmlExpr *) expr;
1570 : :
1571 : : /* consider both function name and leftmost arg */
5708 tgl@sss.pgh.pa.us 1572 : 95 : loc = leftmostLoc(xexpr->location,
1573 : 95 : exprLocation((Node *) xexpr->args));
1574 : : }
1575 : 95 : break;
376 alvherre@alvh.no-ip. 1576 :UBC 0 : case T_JsonFormat:
1577 : 0 : loc = ((const JsonFormat *) expr)->location;
1578 : 0 : break;
1579 : 0 : case T_JsonValueExpr:
1580 : 0 : loc = exprLocation((Node *) ((const JsonValueExpr *) expr)->raw_expr);
1581 : 0 : break;
376 alvherre@alvh.no-ip. 1582 :CBC 58 : case T_JsonConstructorExpr:
1583 : 58 : loc = ((const JsonConstructorExpr *) expr)->location;
1584 : 58 : break;
376 alvherre@alvh.no-ip. 1585 :UBC 0 : case T_JsonIsPredicate:
1586 : 0 : loc = ((const JsonIsPredicate *) expr)->location;
1587 : 0 : break;
24 amitlan@postgresql.o 1588 :GNC 156 : case T_JsonExpr:
1589 : : {
1590 : 156 : const JsonExpr *jsexpr = (const JsonExpr *) expr;
1591 : :
1592 : : /* consider both function name and leftmost arg */
1593 : 156 : loc = leftmostLoc(jsexpr->location,
1594 : 156 : exprLocation(jsexpr->formatted_expr));
1595 : : }
1596 : 156 : break;
1597 : 147 : case T_JsonBehavior:
1598 : 147 : loc = exprLocation(((JsonBehavior *) expr)->expr);
1599 : 147 : break;
5708 tgl@sss.pgh.pa.us 1600 :CBC 74 : case T_NullTest:
1601 : : {
3339 1602 : 74 : const NullTest *nexpr = (const NullTest *) expr;
1603 : :
1604 : : /* Much as above */
1605 : 74 : loc = leftmostLoc(nexpr->location,
1606 : 74 : exprLocation((Node *) nexpr->arg));
1607 : : }
5708 1608 : 74 : break;
5708 tgl@sss.pgh.pa.us 1609 :UBC 0 : case T_BooleanTest:
1610 : : {
3339 1611 : 0 : const BooleanTest *bexpr = (const BooleanTest *) expr;
1612 : :
1613 : : /* Much as above */
1614 : 0 : loc = leftmostLoc(bexpr->location,
1615 : 0 : exprLocation((Node *) bexpr->arg));
1616 : : }
5708 1617 : 0 : break;
5708 tgl@sss.pgh.pa.us 1618 :CBC 32596 : case T_CoerceToDomain:
1619 : : {
4512 peter_e@gmx.net 1620 : 32596 : const CoerceToDomain *cexpr = (const CoerceToDomain *) expr;
1621 : :
1622 : : /* Much as above */
5708 tgl@sss.pgh.pa.us 1623 : 32596 : loc = leftmostLoc(cexpr->location,
1624 : 32596 : exprLocation((Node *) cexpr->arg));
1625 : : }
1626 : 32596 : break;
1627 : 455 : case T_CoerceToDomainValue:
4512 peter_e@gmx.net 1628 : 455 : loc = ((const CoerceToDomainValue *) expr)->location;
5708 tgl@sss.pgh.pa.us 1629 : 455 : break;
1630 : 24428 : case T_SetToDefault:
4512 peter_e@gmx.net 1631 : 24428 : loc = ((const SetToDefault *) expr)->location;
5708 tgl@sss.pgh.pa.us 1632 : 24428 : break;
5708 tgl@sss.pgh.pa.us 1633 :UBC 0 : case T_TargetEntry:
1634 : : /* just use argument's location */
4512 peter_e@gmx.net 1635 : 0 : loc = exprLocation((Node *) ((const TargetEntry *) expr)->expr);
5708 tgl@sss.pgh.pa.us 1636 : 0 : break;
5704 tgl@sss.pgh.pa.us 1637 :CBC 9 : case T_IntoClause:
1638 : : /* use the contained RangeVar's location --- close enough */
4512 peter_e@gmx.net 1639 : 9 : loc = exprLocation((Node *) ((const IntoClause *) expr)->rel);
5704 tgl@sss.pgh.pa.us 1640 : 9 : break;
5708 1641 : 39377 : case T_List:
1642 : : {
1643 : : /* report location of first list member that has a location */
1644 : : ListCell *lc;
1645 : :
1646 : 39377 : loc = -1; /* just to suppress compiler warning */
4512 peter_e@gmx.net 1647 [ + - + + : 39764 : foreach(lc, (const List *) expr)
+ + ]
1648 : : {
5708 tgl@sss.pgh.pa.us 1649 : 39560 : loc = exprLocation((Node *) lfirst(lc));
1650 [ + + ]: 39560 : if (loc >= 0)
1651 : 39173 : break;
1652 : : }
1653 : : }
1654 : 39377 : break;
1655 : 2398 : case T_A_Expr:
1656 : : {
4326 bruce@momjian.us 1657 : 2398 : const A_Expr *aexpr = (const A_Expr *) expr;
1658 : :
1659 : : /* use leftmost of operator or left operand (if any) */
1660 : : /* we assume right operand can't be to left of operator */
5708 tgl@sss.pgh.pa.us 1661 : 2398 : loc = leftmostLoc(aexpr->location,
1662 : 2398 : exprLocation(aexpr->lexpr));
1663 : : }
1664 : 2398 : break;
1665 : 31640 : case T_ColumnRef:
4512 peter_e@gmx.net 1666 : 31640 : loc = ((const ColumnRef *) expr)->location;
5708 tgl@sss.pgh.pa.us 1667 : 31640 : break;
5708 tgl@sss.pgh.pa.us 1668 :UBC 0 : case T_ParamRef:
4512 peter_e@gmx.net 1669 : 0 : loc = ((const ParamRef *) expr)->location;
5708 tgl@sss.pgh.pa.us 1670 : 0 : break;
5708 tgl@sss.pgh.pa.us 1671 :CBC 29952 : case T_A_Const:
4512 peter_e@gmx.net 1672 : 29952 : loc = ((const A_Const *) expr)->location;
5708 tgl@sss.pgh.pa.us 1673 : 29952 : break;
1674 : 1670 : case T_FuncCall:
1675 : : {
4326 bruce@momjian.us 1676 : 1670 : const FuncCall *fc = (const FuncCall *) expr;
1677 : :
1678 : : /* consider both function name and leftmost arg */
1679 : : /* (we assume any ORDER BY nodes must be to right of name) */
5708 tgl@sss.pgh.pa.us 1680 : 1670 : loc = leftmostLoc(fc->location,
1681 : 1670 : exprLocation((Node *) fc->args));
1682 : : }
1683 : 1670 : break;
5708 tgl@sss.pgh.pa.us 1684 :UBC 0 : case T_A_ArrayExpr:
1685 : : /* the location points at ARRAY or [, which must be leftmost */
4512 peter_e@gmx.net 1686 : 0 : loc = ((const A_ArrayExpr *) expr)->location;
5708 tgl@sss.pgh.pa.us 1687 : 0 : break;
5708 tgl@sss.pgh.pa.us 1688 :CBC 6 : case T_ResTarget:
1689 : : /* we need not examine the contained expression (if any) */
4512 peter_e@gmx.net 1690 : 6 : loc = ((const ResTarget *) expr)->location;
5708 tgl@sss.pgh.pa.us 1691 : 6 : break;
3588 tgl@sss.pgh.pa.us 1692 :UBC 0 : case T_MultiAssignRef:
1693 : 0 : loc = exprLocation(((const MultiAssignRef *) expr)->source);
1694 : 0 : break;
5708 tgl@sss.pgh.pa.us 1695 :CBC 3395 : case T_TypeCast:
1696 : : {
4326 bruce@momjian.us 1697 : 3395 : const TypeCast *tc = (const TypeCast *) expr;
1698 : :
1699 : : /*
1700 : : * This could represent CAST(), ::, or TypeName 'literal', so
1701 : : * any of the components might be leftmost.
1702 : : */
5708 tgl@sss.pgh.pa.us 1703 : 3395 : loc = exprLocation(tc->arg);
5386 peter_e@gmx.net 1704 : 3395 : loc = leftmostLoc(loc, tc->typeName->location);
5708 tgl@sss.pgh.pa.us 1705 : 3395 : loc = leftmostLoc(loc, tc->location);
1706 : : }
1707 : 3395 : break;
4814 peter_e@gmx.net 1708 : 197 : case T_CollateClause:
1709 : : /* just use argument's location */
4512 1710 : 197 : loc = exprLocation(((const CollateClause *) expr)->arg);
4814 1711 : 197 : break;
5704 tgl@sss.pgh.pa.us 1712 : 3 : case T_SortBy:
1713 : : /* just use argument's location (ignore operator, if any) */
4512 peter_e@gmx.net 1714 : 3 : loc = exprLocation(((const SortBy *) expr)->node);
5704 tgl@sss.pgh.pa.us 1715 : 3 : break;
5586 tgl@sss.pgh.pa.us 1716 :UBC 0 : case T_WindowDef:
4512 peter_e@gmx.net 1717 : 0 : loc = ((const WindowDef *) expr)->location;
5586 tgl@sss.pgh.pa.us 1718 : 0 : break;
3186 1719 : 0 : case T_RangeTableSample:
1720 : 0 : loc = ((const RangeTableSample *) expr)->location;
1721 : 0 : break;
5708 1722 : 0 : case T_TypeName:
4512 peter_e@gmx.net 1723 : 0 : loc = ((const TypeName *) expr)->location;
5708 tgl@sss.pgh.pa.us 1724 : 0 : break;
3797 tgl@sss.pgh.pa.us 1725 :CBC 9 : case T_ColumnDef:
1726 : 9 : loc = ((const ColumnDef *) expr)->location;
1727 : 9 : break;
5372 tgl@sss.pgh.pa.us 1728 :UBC 0 : case T_Constraint:
4512 peter_e@gmx.net 1729 : 0 : loc = ((const Constraint *) expr)->location;
5372 tgl@sss.pgh.pa.us 1730 : 0 : break;
3765 1731 : 0 : case T_FunctionParameter:
1732 : : /* just use typename's location */
1733 : 0 : loc = exprLocation((Node *) ((const FunctionParameter *) expr)->argType);
1734 : 0 : break;
5708 1735 : 0 : case T_XmlSerialize:
1736 : : /* XMLSERIALIZE keyword should always be the first thing */
4512 peter_e@gmx.net 1737 : 0 : loc = ((const XmlSerialize *) expr)->location;
5708 tgl@sss.pgh.pa.us 1738 : 0 : break;
3256 andres@anarazel.de 1739 :CBC 9 : case T_GroupingSet:
1740 : 9 : loc = ((const GroupingSet *) expr)->location;
1741 : 9 : break;
5671 tgl@sss.pgh.pa.us 1742 :UBC 0 : case T_WithClause:
4512 peter_e@gmx.net 1743 : 0 : loc = ((const WithClause *) expr)->location;
5671 tgl@sss.pgh.pa.us 1744 : 0 : break;
3264 andres@anarazel.de 1745 : 0 : case T_InferClause:
1746 : 0 : loc = ((const InferClause *) expr)->location;
1747 : 0 : break;
3264 andres@anarazel.de 1748 :CBC 3 : case T_OnConflictClause:
1749 : 3 : loc = ((const OnConflictClause *) expr)->location;
1750 : 3 : break;
1168 peter@eisentraut.org 1751 :UBC 0 : case T_CTESearchClause:
1752 : 0 : loc = ((const CTESearchClause *) expr)->location;
1753 : 0 : break;
1754 : 0 : case T_CTECycleClause:
1755 : 0 : loc = ((const CTECycleClause *) expr)->location;
1756 : 0 : break;
5671 tgl@sss.pgh.pa.us 1757 : 0 : case T_CommonTableExpr:
4512 peter_e@gmx.net 1758 : 0 : loc = ((const CommonTableExpr *) expr)->location;
5671 tgl@sss.pgh.pa.us 1759 : 0 : break;
376 alvherre@alvh.no-ip. 1760 : 0 : case T_JsonKeyValue:
1761 : : /* just use the key's location */
1762 : 0 : loc = exprLocation((Node *) ((const JsonKeyValue *) expr)->key);
1763 : 0 : break;
1764 : 0 : case T_JsonObjectConstructor:
1765 : 0 : loc = ((const JsonObjectConstructor *) expr)->location;
1766 : 0 : break;
1767 : 0 : case T_JsonArrayConstructor:
1768 : 0 : loc = ((const JsonArrayConstructor *) expr)->location;
1769 : 0 : break;
1770 : 0 : case T_JsonArrayQueryConstructor:
1771 : 0 : loc = ((const JsonArrayQueryConstructor *) expr)->location;
1772 : 0 : break;
1773 : 0 : case T_JsonAggConstructor:
1774 : 0 : loc = ((const JsonAggConstructor *) expr)->location;
1775 : 0 : break;
1776 : 0 : case T_JsonObjectAgg:
1777 : 0 : loc = exprLocation((Node *) ((const JsonObjectAgg *) expr)->constructor);
1778 : 0 : break;
1779 : 0 : case T_JsonArrayAgg:
1780 : 0 : loc = exprLocation((Node *) ((const JsonArrayAgg *) expr)->constructor);
1781 : 0 : break;
5654 tgl@sss.pgh.pa.us 1782 : 0 : case T_PlaceHolderVar:
1783 : : /* just use argument's location */
4512 peter_e@gmx.net 1784 : 0 : loc = exprLocation((Node *) ((const PlaceHolderVar *) expr)->phexpr);
5654 tgl@sss.pgh.pa.us 1785 : 0 : break;
3264 andres@anarazel.de 1786 : 0 : case T_InferenceElem:
1787 : : /* just use nested expr's location */
1788 : 0 : loc = exprLocation((Node *) ((const InferenceElem *) expr)->expr);
1789 : 0 : break;
2513 tgl@sss.pgh.pa.us 1790 : 0 : case T_PartitionElem:
1791 : 0 : loc = ((const PartitionElem *) expr)->location;
1792 : 0 : break;
1793 : 0 : case T_PartitionSpec:
1794 : 0 : loc = ((const PartitionSpec *) expr)->location;
1795 : 0 : break;
2685 rhaas@postgresql.org 1796 :CBC 27 : case T_PartitionBoundSpec:
1797 : 27 : loc = ((const PartitionBoundSpec *) expr)->location;
1798 : 27 : break;
1799 : 9 : case T_PartitionRangeDatum:
1800 : 9 : loc = ((const PartitionRangeDatum *) expr)->location;
1801 : 9 : break;
5708 tgl@sss.pgh.pa.us 1802 : 15784 : default:
1803 : : /* for any other node type it's just unknown... */
1804 : 15784 : loc = -1;
1805 : 15784 : break;
1806 : : }
1807 : 1977744 : return loc;
1808 : : }
1809 : :
1810 : : /*
1811 : : * leftmostLoc - support for exprLocation
1812 : : *
1813 : : * Take the minimum of two parse location values, but ignore unknowns
1814 : : */
1815 : : static int
1816 : 107809 : leftmostLoc(int loc1, int loc2)
1817 : : {
1818 [ + + ]: 107809 : if (loc1 < 0)
1819 : 9515 : return loc2;
1820 [ + + ]: 98294 : else if (loc2 < 0)
1821 : 10613 : return loc1;
1822 : : else
1823 : 87681 : return Min(loc1, loc2);
1824 : : }
1825 : :
1826 : :
1827 : : /*
1828 : : * fix_opfuncids
1829 : : * Calculate opfuncid field from opno for each OpExpr node in given tree.
1830 : : * The given tree can be anything expression_tree_walker handles.
1831 : : *
1832 : : * The argument is modified in-place. (This is OK since we'd want the
1833 : : * same change for any node, even if it gets visited more than once due to
1834 : : * shared structure.)
1835 : : */
1836 : : void
2865 1837 : 231104 : fix_opfuncids(Node *node)
1838 : : {
1839 : : /* This tree walk requires no special setup, so away we go... */
1840 : 231104 : fix_opfuncids_walker(node, NULL);
1841 : 231104 : }
1842 : :
1843 : : static bool
1844 : 506311 : fix_opfuncids_walker(Node *node, void *context)
1845 : : {
1846 [ + + ]: 506311 : if (node == NULL)
1847 : 26782 : return false;
1848 [ + + ]: 479529 : if (IsA(node, OpExpr))
1849 : 28859 : set_opfuncid((OpExpr *) node);
1850 [ + + ]: 450670 : else if (IsA(node, DistinctExpr))
1851 : 3 : set_opfuncid((OpExpr *) node); /* rely on struct equivalence */
1852 [ + + ]: 450667 : else if (IsA(node, NullIfExpr))
1853 : 42 : set_opfuncid((OpExpr *) node); /* rely on struct equivalence */
1854 [ + + ]: 450625 : else if (IsA(node, ScalarArrayOpExpr))
1855 : 1062 : set_sa_opfuncid((ScalarArrayOpExpr *) node);
1856 : 479529 : return expression_tree_walker(node, fix_opfuncids_walker, context);
1857 : : }
1858 : :
1859 : : /*
1860 : : * set_opfuncid
1861 : : * Set the opfuncid (procedure OID) in an OpExpr node,
1862 : : * if it hasn't been set already.
1863 : : *
1864 : : * Because of struct equivalence, this can also be used for
1865 : : * DistinctExpr and NullIfExpr nodes.
1866 : : */
1867 : : void
1868 : 1723781 : set_opfuncid(OpExpr *opexpr)
1869 : : {
1870 [ + + ]: 1723781 : if (opexpr->opfuncid == InvalidOid)
1871 : 103674 : opexpr->opfuncid = get_opcode(opexpr->opno);
1872 : 1723781 : }
1873 : :
1874 : : /*
1875 : : * set_sa_opfuncid
1876 : : * As above, for ScalarArrayOpExpr nodes.
1877 : : */
1878 : : void
1879 : 82574 : set_sa_opfuncid(ScalarArrayOpExpr *opexpr)
1880 : : {
1881 [ + + ]: 82574 : if (opexpr->opfuncid == InvalidOid)
1882 : 245 : opexpr->opfuncid = get_opcode(opexpr->opno);
1883 : 82574 : }
1884 : :
1885 : :
1886 : : /*
1887 : : * check_functions_in_node -
1888 : : * apply checker() to each function OID contained in given expression node
1889 : : *
1890 : : * Returns true if the checker() function does; for nodes representing more
1891 : : * than one function call, returns true if the checker() function does so
1892 : : * for any of those functions. Returns false if node does not invoke any
1893 : : * SQL-visible function. Caller must not pass node == NULL.
1894 : : *
1895 : : * This function examines only the given node; it does not recurse into any
1896 : : * sub-expressions. Callers typically prefer to keep control of the recursion
1897 : : * for themselves, in case additional checks should be made, or because they
1898 : : * have special rules about which parts of the tree need to be visited.
1899 : : *
1900 : : * Note: we ignore MinMaxExpr, SQLValueFunction, XmlExpr, CoerceToDomain,
1901 : : * and NextValueExpr nodes, because they do not contain SQL function OIDs.
1902 : : * However, they can invoke SQL-visible functions, so callers should take
1903 : : * thought about how to treat them.
1904 : : */
1905 : : bool
1906 : 9594214 : check_functions_in_node(Node *node, check_function_callback checker,
1907 : : void *context)
1908 : : {
1909 [ + + + + : 9594214 : switch (nodeTag(node))
+ + + + ]
1910 : : {
1911 : 47183 : case T_Aggref:
1912 : : {
1913 : 47183 : Aggref *expr = (Aggref *) node;
1914 : :
1915 [ + + ]: 47183 : if (checker(expr->aggfnoid, context))
1916 : 526 : return true;
1917 : : }
1918 : 46657 : break;
1919 : 3502 : case T_WindowFunc:
1920 : : {
1921 : 3502 : WindowFunc *expr = (WindowFunc *) node;
1922 : :
1923 [ + + ]: 3502 : if (checker(expr->winfnoid, context))
1924 : 75 : return true;
1925 : : }
1926 : 3427 : break;
1927 : 284485 : case T_FuncExpr:
1928 : : {
1929 : 284485 : FuncExpr *expr = (FuncExpr *) node;
1930 : :
1931 [ + + ]: 284485 : if (checker(expr->funcid, context))
1932 : 60868 : return true;
1933 : : }
1934 : 223617 : break;
1935 : 631619 : case T_OpExpr:
1936 : : case T_DistinctExpr: /* struct-equivalent to OpExpr */
1937 : : case T_NullIfExpr: /* struct-equivalent to OpExpr */
1938 : : {
1939 : 631619 : OpExpr *expr = (OpExpr *) node;
1940 : :
1941 : : /* Set opfuncid if it wasn't set already */
1942 : 631619 : set_opfuncid(expr);
1943 [ + + ]: 631619 : if (checker(expr->opfuncid, context))
1944 : 375 : return true;
1945 : : }
1946 : 631244 : break;
1947 : 27572 : case T_ScalarArrayOpExpr:
1948 : : {
1949 : 27572 : ScalarArrayOpExpr *expr = (ScalarArrayOpExpr *) node;
1950 : :
1951 : 27572 : set_sa_opfuncid(expr);
1952 [ + + ]: 27572 : if (checker(expr->opfuncid, context))
1953 : 45 : return true;
1954 : : }
1955 : 27527 : break;
1956 : 17321 : case T_CoerceViaIO:
1957 : : {
1958 : 17321 : CoerceViaIO *expr = (CoerceViaIO *) node;
1959 : : Oid iofunc;
1960 : : Oid typioparam;
1961 : : bool typisvarlena;
1962 : :
1963 : : /* check the result type's input function */
1964 : 17321 : getTypeInputInfo(expr->resulttype,
1965 : : &iofunc, &typioparam);
1966 [ + + ]: 17321 : if (checker(iofunc, context))
1967 : 337 : return true;
1968 : : /* check the input type's output function */
1969 : 17297 : getTypeOutputInfo(exprType((Node *) expr->arg),
1970 : : &iofunc, &typisvarlena);
1971 [ + + ]: 17297 : if (checker(iofunc, context))
1972 : 313 : return true;
1973 : : }
1974 : 16984 : break;
1975 : 117 : case T_RowCompareExpr:
1976 : : {
1977 : 117 : RowCompareExpr *rcexpr = (RowCompareExpr *) node;
1978 : : ListCell *opid;
1979 : :
1980 [ + - + + : 402 : foreach(opid, rcexpr->opnos)
+ + ]
1981 : : {
1982 : 285 : Oid opfuncid = get_opcode(lfirst_oid(opid));
1983 : :
1984 [ - + ]: 285 : if (checker(opfuncid, context))
2865 tgl@sss.pgh.pa.us 1985 :UBC 0 : return true;
1986 : : }
1987 : : }
2865 tgl@sss.pgh.pa.us 1988 :CBC 117 : break;
1989 : 8582415 : default:
1990 : 8582415 : break;
1991 : : }
1992 : 9531988 : return false;
1993 : : }
1994 : :
1995 : :
1996 : : /*
1997 : : * Standard expression-tree walking support
1998 : : *
1999 : : * We used to have near-duplicate code in many different routines that
2000 : : * understood how to recurse through an expression node tree. That was
2001 : : * a pain to maintain, and we frequently had bugs due to some particular
2002 : : * routine neglecting to support a particular node type. In most cases,
2003 : : * these routines only actually care about certain node types, and don't
2004 : : * care about other types except insofar as they have to recurse through
2005 : : * non-primitive node types. Therefore, we now provide generic tree-walking
2006 : : * logic to consolidate the redundant "boilerplate" code. There are
2007 : : * two versions: expression_tree_walker() and expression_tree_mutator().
2008 : : */
2009 : :
2010 : : /*
2011 : : * expression_tree_walker() is designed to support routines that traverse
2012 : : * a tree in a read-only fashion (although it will also work for routines
2013 : : * that modify nodes in-place but never add/delete/replace nodes).
2014 : : * A walker routine should look like this:
2015 : : *
2016 : : * bool my_walker (Node *node, my_struct *context)
2017 : : * {
2018 : : * if (node == NULL)
2019 : : * return false;
2020 : : * // check for nodes that special work is required for, eg:
2021 : : * if (IsA(node, Var))
2022 : : * {
2023 : : * ... do special actions for Var nodes
2024 : : * }
2025 : : * else if (IsA(node, ...))
2026 : : * {
2027 : : * ... do special actions for other node types
2028 : : * }
2029 : : * // for any node type not specially processed, do:
2030 : : * return expression_tree_walker(node, my_walker, (void *) context);
2031 : : * }
2032 : : *
2033 : : * The "context" argument points to a struct that holds whatever context
2034 : : * information the walker routine needs --- it can be used to return data
2035 : : * gathered by the walker, too. This argument is not touched by
2036 : : * expression_tree_walker, but it is passed down to recursive sub-invocations
2037 : : * of my_walker. The tree walk is started from a setup routine that
2038 : : * fills in the appropriate context struct, calls my_walker with the top-level
2039 : : * node of the tree, and then examines the results.
2040 : : *
2041 : : * The walker routine should return "false" to continue the tree walk, or
2042 : : * "true" to abort the walk and immediately return "true" to the top-level
2043 : : * caller. This can be used to short-circuit the traversal if the walker
2044 : : * has found what it came for. "false" is returned to the top-level caller
2045 : : * iff no invocation of the walker returned "true".
2046 : : *
2047 : : * The node types handled by expression_tree_walker include all those
2048 : : * normally found in target lists and qualifier clauses during the planning
2049 : : * stage. In particular, it handles List nodes since a cnf-ified qual clause
2050 : : * will have List structure at the top level, and it handles TargetEntry nodes
2051 : : * so that a scan of a target list can be handled without additional code.
2052 : : * Also, RangeTblRef, FromExpr, JoinExpr, and SetOperationStmt nodes are
2053 : : * handled, so that query jointrees and setOperation trees can be processed
2054 : : * without additional code.
2055 : : *
2056 : : * expression_tree_walker will handle SubLink nodes by recursing normally
2057 : : * into the "testexpr" subtree (which is an expression belonging to the outer
2058 : : * plan). It will also call the walker on the sub-Query node; however, when
2059 : : * expression_tree_walker itself is called on a Query node, it does nothing
2060 : : * and returns "false". The net effect is that unless the walker does
2061 : : * something special at a Query node, sub-selects will not be visited during
2062 : : * an expression tree walk. This is exactly the behavior wanted in many cases
2063 : : * --- and for those walkers that do want to recurse into sub-selects, special
2064 : : * behavior is typically needed anyway at the entry to a sub-select (such as
2065 : : * incrementing a depth counter). A walker that wants to examine sub-selects
2066 : : * should include code along the lines of:
2067 : : *
2068 : : * if (IsA(node, Query))
2069 : : * {
2070 : : * adjust context for subquery;
2071 : : * result = query_tree_walker((Query *) node, my_walker, context,
2072 : : * 0); // adjust flags as needed
2073 : : * restore context if needed;
2074 : : * return result;
2075 : : * }
2076 : : *
2077 : : * query_tree_walker is a convenience routine (see below) that calls the
2078 : : * walker on all the expression subtrees of the given Query node.
2079 : : *
2080 : : * expression_tree_walker will handle SubPlan nodes by recursing normally
2081 : : * into the "testexpr" and the "args" list (which are expressions belonging to
2082 : : * the outer plan). It will not touch the completed subplan, however. Since
2083 : : * there is no link to the original Query, it is not possible to recurse into
2084 : : * subselects of an already-planned expression tree. This is OK for current
2085 : : * uses, but may need to be revisited in future.
2086 : : */
2087 : :
2088 : : bool
572 2089 : 44927227 : expression_tree_walker_impl(Node *node,
2090 : : tree_walker_callback walker,
2091 : : void *context)
2092 : : {
2093 : : ListCell *temp;
2094 : :
2095 : : /*
2096 : : * The walker has already visited the current node, and so we need only
2097 : : * recurse into any sub-nodes it has.
2098 : : *
2099 : : * We assume that the walker is not interested in List nodes per se, so
2100 : : * when we expect a List we just recurse directly to self without
2101 : : * bothering to call the walker.
2102 : : */
2103 : : #define WALK(n) walker((Node *) (n), context)
2104 : :
2105 : : #define LIST_WALK(l) expression_tree_walker_impl((Node *) (l), walker, context)
2106 : :
5711 2107 [ + + ]: 44927227 : if (node == NULL)
2108 : 955117 : return false;
2109 : :
2110 : : /* Guard against stack overflow due to overly complex expressions */
2111 : 43972110 : check_stack_depth();
2112 : :
2113 [ + + + + : 43972107 : switch (nodeTag(node))
+ + + + +
+ + + + +
+ + + + +
+ + + + +
+ + + + +
+ + + + +
+ + + + +
+ + - - -
- - - - +
+ + + + +
- - + + -
+ + + - +
+ + - ]
2114 : : {
2115 : 17643619 : case T_Var:
2116 : : case T_Const:
2117 : : case T_Param:
2118 : : case T_CaseTestExpr:
2119 : : case T_SQLValueFunction:
2120 : : case T_CoerceToDomainValue:
2121 : : case T_SetToDefault:
2122 : : case T_CurrentOfExpr:
2123 : : case T_NextValueExpr:
2124 : : case T_RangeTblRef:
2125 : : case T_SortGroupClause:
2126 : : case T_CTESearchClause:
2127 : : case T_MergeSupportFunc:
2128 : : /* primitive node types with no expression subnodes */
2129 : 17643619 : break;
3923 sfrost@snowman.net 2130 : 3711 : case T_WithCheckOption:
572 tgl@sss.pgh.pa.us 2131 : 3711 : return WALK(((WithCheckOption *) node)->qual);
5711 2132 : 142725 : case T_Aggref:
2133 : : {
2134 : 142725 : Aggref *expr = (Aggref *) node;
2135 : :
2136 : : /* recurse directly on Lists */
572 2137 [ - + ]: 142725 : if (LIST_WALK(expr->aggdirectargs))
3765 tgl@sss.pgh.pa.us 2138 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2139 [ + + ]:CBC 142725 : if (LIST_WALK(expr->args))
5711 2140 : 9501 : return true;
572 2141 [ - + ]: 133224 : if (LIST_WALK(expr->aggorder))
5234 tgl@sss.pgh.pa.us 2142 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2143 [ - + ]:CBC 133224 : if (LIST_WALK(expr->aggdistinct))
5234 tgl@sss.pgh.pa.us 2144 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2145 [ + + ]:CBC 133224 : if (WALK(expr->aggfilter))
3925 noah@leadboat.com 2146 : 35 : return true;
2147 : : }
5711 tgl@sss.pgh.pa.us 2148 : 133189 : break;
3256 andres@anarazel.de 2149 : 1444 : case T_GroupingFunc:
2150 : : {
2151 : 1444 : GroupingFunc *grouping = (GroupingFunc *) node;
2152 : :
572 tgl@sss.pgh.pa.us 2153 [ + + ]: 1444 : if (LIST_WALK(grouping->args))
3256 andres@anarazel.de 2154 : 6 : return true;
2155 : : }
2156 : 1438 : break;
5586 tgl@sss.pgh.pa.us 2157 : 8608 : case T_WindowFunc:
2158 : : {
2159 : 8608 : WindowFunc *expr = (WindowFunc *) node;
2160 : :
2161 : : /* recurse directly on List */
572 2162 [ + + ]: 8608 : if (LIST_WALK(expr->args))
5586 2163 : 309 : return true;
572 2164 [ + + ]: 8299 : if (WALK(expr->aggfilter))
3925 noah@leadboat.com 2165 : 6 : return true;
2166 : : }
5586 tgl@sss.pgh.pa.us 2167 : 8293 : break;
1899 alvherre@alvh.no-ip. 2168 : 88451 : case T_SubscriptingRef:
2169 : : {
2170 : 88451 : SubscriptingRef *sbsref = (SubscriptingRef *) node;
2171 : :
2172 : : /* recurse directly for upper/lower container index lists */
572 tgl@sss.pgh.pa.us 2173 [ + + ]: 88451 : if (LIST_WALK(sbsref->refupperindexpr))
5711 2174 : 5095 : return true;
572 2175 [ - + ]: 83356 : if (LIST_WALK(sbsref->reflowerindexpr))
5711 tgl@sss.pgh.pa.us 2176 :UBC 0 : return true;
2177 : : /* walker must see the refexpr and refassgnexpr, however */
572 tgl@sss.pgh.pa.us 2178 [ + + ]:CBC 83356 : if (WALK(sbsref->refexpr))
5711 2179 : 3935 : return true;
2180 : :
572 2181 [ + + ]: 79421 : if (WALK(sbsref->refassgnexpr))
5711 2182 : 77 : return true;
2183 : : }
2184 : 79344 : break;
2185 : 1662680 : case T_FuncExpr:
2186 : : {
2187 : 1662680 : FuncExpr *expr = (FuncExpr *) node;
2188 : :
572 2189 [ + + ]: 1662680 : if (LIST_WALK(expr->args))
5711 2190 : 34401 : return true;
2191 : : }
2192 : 1628276 : break;
5302 2193 : 49564 : case T_NamedArgExpr:
572 2194 : 49564 : return WALK(((NamedArgExpr *) node)->arg);
5711 2195 : 3660454 : case T_OpExpr:
2196 : : case T_DistinctExpr: /* struct-equivalent to OpExpr */
2197 : : case T_NullIfExpr: /* struct-equivalent to OpExpr */
2198 : : {
2199 : 3660454 : OpExpr *expr = (OpExpr *) node;
2200 : :
572 2201 [ + + ]: 3660454 : if (LIST_WALK(expr->args))
5711 2202 : 31884 : return true;
2203 : : }
2204 : 3628516 : break;
2205 : 191838 : case T_ScalarArrayOpExpr:
2206 : : {
2207 : 191838 : ScalarArrayOpExpr *expr = (ScalarArrayOpExpr *) node;
2208 : :
572 2209 [ + + ]: 191838 : if (LIST_WALK(expr->args))
5711 2210 : 18032 : return true;
2211 : : }
2212 : 173806 : break;
2213 : 472107 : case T_BoolExpr:
2214 : : {
2215 : 472107 : BoolExpr *expr = (BoolExpr *) node;
2216 : :
572 2217 [ + + ]: 472107 : if (LIST_WALK(expr->args))
5711 2218 : 7966 : return true;
2219 : : }
2220 : 464138 : break;
2221 : 103808 : case T_SubLink:
2222 : : {
2223 : 103808 : SubLink *sublink = (SubLink *) node;
2224 : :
572 2225 [ + + ]: 103808 : if (WALK(sublink->testexpr))
5711 2226 : 27 : return true;
2227 : :
2228 : : /*
2229 : : * Also invoke the walker on the sublink's Query node, so it
2230 : : * can recurse into the sub-query if it wants to.
2231 : : */
572 2232 : 103781 : return WALK(sublink->subselect);
2233 : : }
2234 : : break;
5711 2235 : 45706 : case T_SubPlan:
2236 : : {
2237 : 45706 : SubPlan *subplan = (SubPlan *) node;
2238 : :
2239 : : /* recurse into the testexpr, but not into the Plan */
572 2240 [ + + ]: 45706 : if (WALK(subplan->testexpr))
5711 2241 : 36 : return true;
2242 : : /* also examine args list */
572 2243 [ + + ]: 45670 : if (LIST_WALK(subplan->args))
5711 2244 : 198 : return true;
2245 : : }
2246 : 45472 : break;
2247 : 3418 : case T_AlternativeSubPlan:
572 2248 : 3418 : return LIST_WALK(((AlternativeSubPlan *) node)->subplans);
5711 2249 : 37935 : case T_FieldSelect:
572 2250 : 37935 : return WALK(((FieldSelect *) node)->arg);
5711 2251 : 1543 : case T_FieldStore:
2252 : : {
2253 : 1543 : FieldStore *fstore = (FieldStore *) node;
2254 : :
572 2255 [ - + ]: 1543 : if (WALK(fstore->arg))
5711 tgl@sss.pgh.pa.us 2256 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2257 [ + + ]:CBC 1543 : if (WALK(fstore->newvals))
5711 2258 : 6 : return true;
2259 : : }
2260 : 1537 : break;
2261 : 474155 : case T_RelabelType:
572 2262 : 474155 : return WALK(((RelabelType *) node)->arg);
5711 2263 : 104887 : case T_CoerceViaIO:
572 2264 : 104887 : return WALK(((CoerceViaIO *) node)->arg);
5711 2265 : 23239 : case T_ArrayCoerceExpr:
2266 : : {
2388 2267 : 23239 : ArrayCoerceExpr *acoerce = (ArrayCoerceExpr *) node;
2268 : :
572 2269 [ + + ]: 23239 : if (WALK(acoerce->arg))
2388 2270 : 1798 : return true;
572 2271 [ + + ]: 21441 : if (WALK(acoerce->elemexpr))
2388 2272 : 12 : return true;
2273 : : }
2274 : 21429 : break;
5711 2275 : 1406 : case T_ConvertRowtypeExpr:
572 2276 : 1406 : return WALK(((ConvertRowtypeExpr *) node)->arg);
4783 2277 : 14338 : case T_CollateExpr:
572 2278 : 14338 : return WALK(((CollateExpr *) node)->arg);
5711 2279 : 224636 : case T_CaseExpr:
2280 : : {
2281 : 224636 : CaseExpr *caseexpr = (CaseExpr *) node;
2282 : :
572 2283 [ + + ]: 224636 : if (WALK(caseexpr->arg))
5711 2284 : 32 : return true;
2285 : : /* we assume walker doesn't care about CaseWhens, either */
2286 [ + - + + : 587793 : foreach(temp, caseexpr->args)
+ + ]
2287 : : {
2561 2288 : 367401 : CaseWhen *when = lfirst_node(CaseWhen, temp);
2289 : :
572 2290 [ + + ]: 367401 : if (WALK(when->expr))
5711 2291 : 4212 : return true;
572 2292 [ + + ]: 366062 : if (WALK(when->result))
5711 2293 : 2873 : return true;
2294 : : }
572 2295 [ + + ]: 220392 : if (WALK(caseexpr->defresult))
5711 2296 : 4546 : return true;
2297 : : }
2298 : 215846 : break;
2299 : 103111 : case T_ArrayExpr:
572 2300 : 103111 : return WALK(((ArrayExpr *) node)->elements);
5711 2301 : 15425 : case T_RowExpr:
2302 : : /* Assume colnames isn't interesting */
572 2303 : 15425 : return WALK(((RowExpr *) node)->args);
5711 2304 : 789 : case T_RowCompareExpr:
2305 : : {
2306 : 789 : RowCompareExpr *rcexpr = (RowCompareExpr *) node;
2307 : :
572 2308 [ - + ]: 789 : if (WALK(rcexpr->largs))
5711 tgl@sss.pgh.pa.us 2309 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2310 [ - + ]:CBC 789 : if (WALK(rcexpr->rargs))
5711 tgl@sss.pgh.pa.us 2311 :UBC 0 : return true;
2312 : : }
5711 tgl@sss.pgh.pa.us 2313 :CBC 789 : break;
2314 : 22720 : case T_CoalesceExpr:
572 2315 : 22720 : return WALK(((CoalesceExpr *) node)->args);
5711 2316 : 2730 : case T_MinMaxExpr:
572 2317 : 2730 : return WALK(((MinMaxExpr *) node)->args);
5711 2318 : 2499 : case T_XmlExpr:
2319 : : {
2320 : 2499 : XmlExpr *xexpr = (XmlExpr *) node;
2321 : :
572 2322 [ + + ]: 2499 : if (WALK(xexpr->named_args))
5711 2323 : 6 : return true;
2324 : : /* we assume walker doesn't care about arg_names */
572 2325 [ + + ]: 2493 : if (WALK(xexpr->args))
5711 2326 : 12 : return true;
2327 : : }
2328 : 2481 : break;
376 alvherre@alvh.no-ip. 2329 : 1626 : case T_JsonValueExpr:
2330 : : {
2331 : 1626 : JsonValueExpr *jve = (JsonValueExpr *) node;
2332 : :
2333 [ - + ]: 1626 : if (WALK(jve->raw_expr))
376 alvherre@alvh.no-ip. 2334 :UBC 0 : return true;
376 alvherre@alvh.no-ip. 2335 [ - + ]:CBC 1626 : if (WALK(jve->formatted_expr))
376 alvherre@alvh.no-ip. 2336 :UBC 0 : return true;
2337 : : }
376 alvherre@alvh.no-ip. 2338 :CBC 1626 : break;
2339 : 4077 : case T_JsonConstructorExpr:
2340 : : {
2341 : 4077 : JsonConstructorExpr *ctor = (JsonConstructorExpr *) node;
2342 : :
2343 [ - + ]: 4077 : if (WALK(ctor->args))
376 alvherre@alvh.no-ip. 2344 :UBC 0 : return true;
376 alvherre@alvh.no-ip. 2345 [ + + ]:CBC 4077 : if (WALK(ctor->func))
2346 : 24 : return true;
2347 [ - + ]: 4053 : if (WALK(ctor->coercion))
376 alvherre@alvh.no-ip. 2348 :UBC 0 : return true;
2349 : : }
376 alvherre@alvh.no-ip. 2350 :CBC 4053 : break;
2351 : 1179 : case T_JsonIsPredicate:
2352 : 1179 : return WALK(((JsonIsPredicate *) node)->expr);
24 amitlan@postgresql.o 2353 :GNC 7741 : case T_JsonExpr:
2354 : : {
2355 : 7741 : JsonExpr *jexpr = (JsonExpr *) node;
2356 : :
2357 [ + + ]: 7741 : if (WALK(jexpr->formatted_expr))
2358 : 42 : return true;
2359 [ + + ]: 7699 : if (WALK(jexpr->path_spec))
2360 : 3 : return true;
2361 [ + + ]: 7696 : if (WALK(jexpr->coercion_expr))
2362 : 30 : return true;
2363 [ + + ]: 7666 : if (WALK(jexpr->passing_values))
2364 : 3 : return true;
2365 : : /* we assume walker doesn't care about passing_names */
2366 [ - + ]: 7663 : if (WALK(jexpr->on_empty))
24 amitlan@postgresql.o 2367 :UNC 0 : return true;
24 amitlan@postgresql.o 2368 [ + + ]:GNC 7663 : if (WALK(jexpr->on_error))
2369 : 3 : return true;
2370 : : }
2371 : 7660 : break;
2372 : 8335 : case T_JsonBehavior:
2373 : : {
2374 : 8335 : JsonBehavior *behavior = (JsonBehavior *) node;
2375 : :
2376 [ + + ]: 8335 : if (WALK(behavior->expr))
2377 : 3 : return true;
2378 : : }
2379 : 8332 : break;
5711 tgl@sss.pgh.pa.us 2380 :CBC 117061 : case T_NullTest:
572 2381 : 117061 : return WALK(((NullTest *) node)->arg);
5711 2382 : 6434 : case T_BooleanTest:
572 2383 : 6434 : return WALK(((BooleanTest *) node)->arg);
5711 2384 : 157370 : case T_CoerceToDomain:
572 2385 : 157370 : return WALK(((CoerceToDomain *) node)->arg);
5711 2386 : 7462983 : case T_TargetEntry:
572 2387 : 7462983 : return WALK(((TargetEntry *) node)->expr);
5711 2388 : 50666 : case T_Query:
2389 : : /* Do nothing with a sub-Query, per discussion above */
2390 : 50666 : break;
5586 2391 : 67 : case T_WindowClause:
2392 : : {
5421 bruce@momjian.us 2393 : 67 : WindowClause *wc = (WindowClause *) node;
2394 : :
572 tgl@sss.pgh.pa.us 2395 [ - + ]: 67 : if (WALK(wc->partitionClause))
5586 tgl@sss.pgh.pa.us 2396 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2397 [ - + ]:CBC 67 : if (WALK(wc->orderClause))
5586 tgl@sss.pgh.pa.us 2398 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2399 [ - + ]:CBC 67 : if (WALK(wc->startOffset))
5175 tgl@sss.pgh.pa.us 2400 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2401 [ - + ]:CBC 67 : if (WALK(wc->endOffset))
5175 tgl@sss.pgh.pa.us 2402 :UBC 0 : return true;
95 tgl@sss.pgh.pa.us 2403 [ - + ]:CBC 67 : if (WALK(wc->runCondition))
95 tgl@sss.pgh.pa.us 2404 :UBC 0 : return true;
2405 : : }
5586 tgl@sss.pgh.pa.us 2406 :CBC 67 : break;
1168 peter@eisentraut.org 2407 : 42 : case T_CTECycleClause:
2408 : : {
2409 : 42 : CTECycleClause *cc = (CTECycleClause *) node;
2410 : :
572 tgl@sss.pgh.pa.us 2411 [ - + ]: 42 : if (WALK(cc->cycle_mark_value))
1168 peter@eisentraut.org 2412 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2413 [ - + ]:CBC 42 : if (WALK(cc->cycle_mark_default))
1168 peter@eisentraut.org 2414 :UBC 0 : return true;
2415 : : }
1168 peter@eisentraut.org 2416 :CBC 42 : break;
5671 tgl@sss.pgh.pa.us 2417 : 3879 : case T_CommonTableExpr:
2418 : : {
2419 : 3879 : CommonTableExpr *cte = (CommonTableExpr *) node;
2420 : :
2421 : : /*
2422 : : * Invoke the walker on the CTE's Query node, so it can
2423 : : * recurse into the sub-query if it wants to.
2424 : : */
572 2425 [ + + ]: 3879 : if (WALK(cte->ctequery))
1168 peter@eisentraut.org 2426 : 46 : return true;
2427 : :
572 tgl@sss.pgh.pa.us 2428 [ - + ]: 3833 : if (WALK(cte->search_clause))
1168 peter@eisentraut.org 2429 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2430 [ - + ]:CBC 3833 : if (WALK(cte->cycle_clause))
1168 peter@eisentraut.org 2431 :UBC 0 : return true;
2432 : : }
5671 tgl@sss.pgh.pa.us 2433 :CBC 3833 : break;
376 alvherre@alvh.no-ip. 2434 :UBC 0 : case T_JsonKeyValue:
2435 : : {
2436 : 0 : JsonKeyValue *kv = (JsonKeyValue *) node;
2437 : :
2438 [ # # ]: 0 : if (WALK(kv->key))
2439 : 0 : return true;
2440 [ # # ]: 0 : if (WALK(kv->value))
2441 : 0 : return true;
2442 : : }
2443 : 0 : break;
2444 : 0 : case T_JsonObjectConstructor:
2445 : : {
2446 : 0 : JsonObjectConstructor *ctor = (JsonObjectConstructor *) node;
2447 : :
2448 [ # # ]: 0 : if (LIST_WALK(ctor->exprs))
2449 : 0 : return true;
2450 : : }
2451 : 0 : break;
2452 : 0 : case T_JsonArrayConstructor:
2453 : : {
2454 : 0 : JsonArrayConstructor *ctor = (JsonArrayConstructor *) node;
2455 : :
2456 [ # # ]: 0 : if (LIST_WALK(ctor->exprs))
2457 : 0 : return true;
2458 : : }
2459 : 0 : break;
2460 : 0 : case T_JsonArrayQueryConstructor:
2461 : : {
2462 : 0 : JsonArrayQueryConstructor *ctor = (JsonArrayQueryConstructor *) node;
2463 : :
2464 [ # # ]: 0 : if (WALK(ctor->query))
2465 : 0 : return true;
2466 : : }
2467 : 0 : break;
2468 : 0 : case T_JsonAggConstructor:
2469 : : {
2470 : 0 : JsonAggConstructor *ctor = (JsonAggConstructor *) node;
2471 : :
2472 [ # # ]: 0 : if (WALK(ctor->agg_filter))
2473 : 0 : return true;
2474 [ # # ]: 0 : if (WALK(ctor->agg_order))
2475 : 0 : return true;
2476 [ # # ]: 0 : if (WALK(ctor->over))
2477 : 0 : return true;
2478 : : }
2479 : 0 : break;
2480 : 0 : case T_JsonObjectAgg:
2481 : : {
2482 : 0 : JsonObjectAgg *ctor = (JsonObjectAgg *) node;
2483 : :
2484 [ # # ]: 0 : if (WALK(ctor->constructor))
2485 : 0 : return true;
2486 [ # # ]: 0 : if (WALK(ctor->arg))
2487 : 0 : return true;
2488 : : }
2489 : 0 : break;
2490 : 0 : case T_JsonArrayAgg:
2491 : : {
2492 : 0 : JsonArrayAgg *ctor = (JsonArrayAgg *) node;
2493 : :
2494 [ # # ]: 0 : if (WALK(ctor->constructor))
2495 : 0 : return true;
2496 [ # # ]: 0 : if (WALK(ctor->arg))
2497 : 0 : return true;
2498 : : }
2499 : 0 : break;
2500 : :
826 tgl@sss.pgh.pa.us 2501 :CBC 1994 : case T_PartitionBoundSpec:
2502 : : {
2503 : 1994 : PartitionBoundSpec *pbs = (PartitionBoundSpec *) node;
2504 : :
572 2505 [ - + ]: 1994 : if (WALK(pbs->listdatums))
826 tgl@sss.pgh.pa.us 2506 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2507 [ - + ]:CBC 1994 : if (WALK(pbs->lowerdatums))
826 tgl@sss.pgh.pa.us 2508 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2509 [ - + ]:CBC 1994 : if (WALK(pbs->upperdatums))
826 tgl@sss.pgh.pa.us 2510 :UBC 0 : return true;
2511 : : }
826 tgl@sss.pgh.pa.us 2512 :CBC 1994 : break;
2513 : 2688 : case T_PartitionRangeDatum:
2514 : : {
2515 : 2688 : PartitionRangeDatum *prd = (PartitionRangeDatum *) node;
2516 : :
572 2517 [ - + ]: 2688 : if (WALK(prd->value))
826 tgl@sss.pgh.pa.us 2518 :UBC 0 : return true;
2519 : : }
826 tgl@sss.pgh.pa.us 2520 :CBC 2688 : break;
5711 2521 : 10155090 : case T_List:
2522 [ + - + + : 34612612 : foreach(temp, (List *) node)
+ + ]
2523 : : {
572 2524 [ + + ]: 24827858 : if (WALK(lfirst(temp)))
5711 2525 : 370189 : return true;
2526 : : }
2527 : 9784754 : break;
2528 : 637878 : case T_FromExpr:
2529 : : {
2530 : 637878 : FromExpr *from = (FromExpr *) node;
2531 : :
572 2532 [ + + ]: 637878 : if (LIST_WALK(from->fromlist))
5711 2533 : 29026 : return true;
572 2534 [ + + ]: 608852 : if (WALK(from->quals))
5711 2535 : 1255 : return true;
2536 : : }
2537 : 607591 : break;
3264 andres@anarazel.de 2538 : 1207 : case T_OnConflictExpr:
2539 : : {
3249 bruce@momjian.us 2540 : 1207 : OnConflictExpr *onconflict = (OnConflictExpr *) node;
2541 : :
572 tgl@sss.pgh.pa.us 2542 [ - + ]: 1207 : if (WALK(onconflict->arbiterElems))
3264 andres@anarazel.de 2543 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2544 [ - + ]:CBC 1207 : if (WALK(onconflict->arbiterWhere))
3264 andres@anarazel.de 2545 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2546 [ - + ]:CBC 1207 : if (WALK(onconflict->onConflictSet))
3264 andres@anarazel.de 2547 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2548 [ - + ]:CBC 1207 : if (WALK(onconflict->onConflictWhere))
3264 andres@anarazel.de 2549 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2550 [ - + ]:CBC 1207 : if (WALK(onconflict->exclRelTlist))
3259 andres@anarazel.de 2551 :UBC 0 : return true;
2552 : : }
3264 andres@anarazel.de 2553 :CBC 1207 : break;
748 alvherre@alvh.no-ip. 2554 : 3016 : case T_MergeAction:
2555 : : {
2556 : 3016 : MergeAction *action = (MergeAction *) node;
2557 : :
572 tgl@sss.pgh.pa.us 2558 [ + + ]: 3016 : if (WALK(action->qual))
748 alvherre@alvh.no-ip. 2559 : 67 : return true;
565 2560 [ + + ]: 2949 : if (WALK(action->targetList))
2561 : 169 : return true;
2562 : : }
748 2563 : 2780 : break;
2200 alvherre@alvh.no-ip. 2564 :UBC 0 : case T_PartitionPruneStepOp:
2565 : : {
2566 : 0 : PartitionPruneStepOp *opstep = (PartitionPruneStepOp *) node;
2567 : :
572 tgl@sss.pgh.pa.us 2568 [ # # ]: 0 : if (WALK(opstep->exprs))
2200 alvherre@alvh.no-ip. 2569 : 0 : return true;
2570 : : }
2571 : 0 : break;
2572 : 0 : case T_PartitionPruneStepCombine:
2573 : : /* no expression subnodes */
2574 : 0 : break;
5711 tgl@sss.pgh.pa.us 2575 :CBC 130975 : case T_JoinExpr:
2576 : : {
2577 : 130975 : JoinExpr *join = (JoinExpr *) node;
2578 : :
572 2579 [ + + ]: 130975 : if (WALK(join->larg))
5711 2580 : 6983 : return true;
572 2581 [ + + ]: 123992 : if (WALK(join->rarg))
5711 2582 : 8256 : return true;
572 2583 [ + + ]: 115736 : if (WALK(join->quals))
5711 2584 : 36 : return true;
2585 : :
2586 : : /*
2587 : : * alias clause, using list are deemed uninteresting.
2588 : : */
2589 : : }
2590 : 115700 : break;
2591 : 10566 : case T_SetOperationStmt:
2592 : : {
2593 : 10566 : SetOperationStmt *setop = (SetOperationStmt *) node;
2594 : :
572 2595 [ - + ]: 10566 : if (WALK(setop->larg))
5711 tgl@sss.pgh.pa.us 2596 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2597 [ - + ]:CBC 10566 : if (WALK(setop->rarg))
5711 tgl@sss.pgh.pa.us 2598 :UBC 0 : return true;
2599 : :
2600 : : /* groupClauses are deemed uninteresting */
2601 : : }
5711 tgl@sss.pgh.pa.us 2602 :CBC 10566 : break;
1891 tgl@sss.pgh.pa.us 2603 :UBC 0 : case T_IndexClause:
2604 : : {
2605 : 0 : IndexClause *iclause = (IndexClause *) node;
2606 : :
572 2607 [ # # ]: 0 : if (WALK(iclause->rinfo))
1891 2608 : 0 : return true;
572 2609 [ # # ]: 0 : if (LIST_WALK(iclause->indexquals))
1891 2610 : 0 : return true;
2611 : : }
2612 : 0 : break;
5654 tgl@sss.pgh.pa.us 2613 :CBC 9410 : case T_PlaceHolderVar:
572 2614 : 9410 : return WALK(((PlaceHolderVar *) node)->phexpr);
3264 andres@anarazel.de 2615 : 1236 : case T_InferenceElem:
572 tgl@sss.pgh.pa.us 2616 : 1236 : return WALK(((InferenceElem *) node)->expr);
5711 2617 : 644 : case T_AppendRelInfo:
2618 : : {
2619 : 644 : AppendRelInfo *appinfo = (AppendRelInfo *) node;
2620 : :
572 2621 [ - + ]: 644 : if (LIST_WALK(appinfo->translated_vars))
5711 tgl@sss.pgh.pa.us 2622 :UBC 0 : return true;
2623 : : }
5711 tgl@sss.pgh.pa.us 2624 :CBC 644 : break;
5654 tgl@sss.pgh.pa.us 2625 :UBC 0 : case T_PlaceHolderInfo:
572 2626 : 0 : return WALK(((PlaceHolderInfo *) node)->ph_var);
3797 tgl@sss.pgh.pa.us 2627 :CBC 86685 : case T_RangeTblFunction:
572 2628 : 86685 : return WALK(((RangeTblFunction *) node)->funcexpr);
3186 2629 : 373 : case T_TableSampleClause:
2630 : : {
2631 : 373 : TableSampleClause *tsc = (TableSampleClause *) node;
2632 : :
572 2633 [ - + ]: 373 : if (LIST_WALK(tsc->args))
3186 tgl@sss.pgh.pa.us 2634 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2635 [ - + ]:CBC 373 : if (WALK(tsc->repeatable))
3186 tgl@sss.pgh.pa.us 2636 :UBC 0 : return true;
2637 : : }
3186 tgl@sss.pgh.pa.us 2638 :CBC 373 : break;
2594 alvherre@alvh.no-ip. 2639 : 1339 : case T_TableFunc:
2640 : : {
2641 : 1339 : TableFunc *tf = (TableFunc *) node;
2642 : :
572 tgl@sss.pgh.pa.us 2643 [ - + ]: 1339 : if (WALK(tf->ns_uris))
2594 alvherre@alvh.no-ip. 2644 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2645 [ + + ]:CBC 1339 : if (WALK(tf->docexpr))
2594 alvherre@alvh.no-ip. 2646 :GBC 45 : return true;
572 tgl@sss.pgh.pa.us 2647 [ - + ]:CBC 1294 : if (WALK(tf->rowexpr))
2594 alvherre@alvh.no-ip. 2648 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2649 [ - + ]:CBC 1294 : if (WALK(tf->colexprs))
2594 alvherre@alvh.no-ip. 2650 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2651 [ - + ]:CBC 1294 : if (WALK(tf->coldefexprs))
2594 alvherre@alvh.no-ip. 2652 :UBC 0 : return true;
10 amitlan@postgresql.o 2653 [ - + ]:GNC 1294 : if (WALK(tf->colvalexprs))
10 amitlan@postgresql.o 2654 :UNC 0 : return true;
10 amitlan@postgresql.o 2655 [ - + ]:GNC 1294 : if (WALK(tf->passingvalexprs))
10 amitlan@postgresql.o 2656 :UNC 0 : return true;
2657 : : }
773 andrew@dunslane.net 2658 :CBC 1294 : break;
5711 tgl@sss.pgh.pa.us 2659 :UBC 0 : default:
2660 [ # # ]: 0 : elog(ERROR, "unrecognized node type: %d",
2661 : : (int) nodeTag(node));
2662 : : break;
2663 : : }
5711 tgl@sss.pgh.pa.us 2664 :CBC 34654043 : return false;
2665 : :
2666 : : /* The WALK() macro can be re-used below, but LIST_WALK() not so much */
2667 : : #undef LIST_WALK
2668 : : }
2669 : :
2670 : : /*
2671 : : * query_tree_walker --- initiate a walk of a Query's expressions
2672 : : *
2673 : : * This routine exists just to reduce the number of places that need to know
2674 : : * where all the expression subtrees of a Query are. Note it can be used
2675 : : * for starting a walk at top level of a Query regardless of whether the
2676 : : * walker intends to descend into subqueries. It is also useful for
2677 : : * descending into subqueries within a walker.
2678 : : *
2679 : : * Some callers want to suppress visitation of certain items in the sub-Query,
2680 : : * typically because they need to process them specially, or don't actually
2681 : : * want to recurse into subqueries. This is supported by the flags argument,
2682 : : * which is the bitwise OR of flag values to add or suppress visitation of
2683 : : * indicated items. (More flag bits may be added as needed.)
2684 : : */
2685 : : bool
572 2686 : 789277 : query_tree_walker_impl(Query *query,
2687 : : tree_walker_callback walker,
2688 : : void *context,
2689 : : int flags)
2690 : : {
5711 2691 [ + - - + ]: 789277 : Assert(query != NULL && IsA(query, Query));
2692 : :
2693 : : /*
2694 : : * We don't walk any utilityStmt here. However, we can't easily assert
2695 : : * that it is absent, since there are at least two code paths by which
2696 : : * action statements from CREATE RULE end up here, and NOTIFY is allowed
2697 : : * in a rule action.
2698 : : */
2699 : :
572 2700 [ + + ]: 789277 : if (WALK(query->targetList))
5711 2701 : 152200 : return true;
572 2702 [ - + ]: 637059 : if (WALK(query->withCheckOptions))
3923 sfrost@snowman.net 2703 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2704 [ - + ]:CBC 637059 : if (WALK(query->onConflict))
3264 andres@anarazel.de 2705 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2706 [ + + ]:CBC 637059 : if (WALK(query->mergeActionList))
748 alvherre@alvh.no-ip. 2707 : 236 : return true;
15 dean.a.rasheed@gmail 2708 [ + + ]:GNC 636823 : if (WALK(query->mergeJoinCondition))
2709 : 124 : return true;
572 tgl@sss.pgh.pa.us 2710 [ + + ]:CBC 636699 : if (WALK(query->returningList))
5711 2711 : 37 : return true;
572 2712 [ + + ]: 636662 : if (WALK(query->jointree))
5711 2713 : 30071 : return true;
572 2714 [ - + ]: 606585 : if (WALK(query->setOperations))
5711 tgl@sss.pgh.pa.us 2715 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2716 [ - + ]:CBC 606585 : if (WALK(query->havingQual))
5711 tgl@sss.pgh.pa.us 2717 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2718 [ + + ]:CBC 606585 : if (WALK(query->limitOffset))
5711 2719 : 3 : return true;
572 2720 [ - + ]: 606582 : if (WALK(query->limitCount))
5711 tgl@sss.pgh.pa.us 2721 :UBC 0 : return true;
2722 : :
2723 : : /*
2724 : : * Most callers aren't interested in SortGroupClause nodes since those
2725 : : * don't contain actual expressions. However they do contain OIDs which
2726 : : * may be needed by dependency walkers etc.
2727 : : */
1655 rhodiumtoad@postgres 2728 [ + + ]:CBC 606582 : if ((flags & QTW_EXAMINE_SORTGROUP))
2729 : : {
572 tgl@sss.pgh.pa.us 2730 [ - + ]: 15044 : if (WALK(query->groupClause))
1655 rhodiumtoad@postgres 2731 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2732 [ - + ]:CBC 15044 : if (WALK(query->windowClause))
1655 rhodiumtoad@postgres 2733 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2734 [ - + ]:CBC 15044 : if (WALK(query->sortClause))
1655 rhodiumtoad@postgres 2735 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 2736 [ - + ]:CBC 15044 : if (WALK(query->distinctClause))
1655 rhodiumtoad@postgres 2737 :UBC 0 : return true;
2738 : : }
2739 : : else
2740 : : {
2741 : : /*
2742 : : * But we need to walk the expressions under WindowClause nodes even
2743 : : * if we're not interested in SortGroupClause nodes.
2744 : : */
2745 : : ListCell *lc;
2746 : :
1655 rhodiumtoad@postgres 2747 [ + + + + :CBC 594272 : foreach(lc, query->windowClause)
+ + ]
2748 : : {
2749 : 2737 : WindowClause *wc = lfirst_node(WindowClause, lc);
2750 : :
572 tgl@sss.pgh.pa.us 2751 [ + + ]: 2737 : if (WALK(wc->startOffset))
1655 rhodiumtoad@postgres 2752 : 3 : return true;
572 tgl@sss.pgh.pa.us 2753 [ - + ]: 2734 : if (WALK(wc->endOffset))
1655 rhodiumtoad@postgres 2754 :UBC 0 : return true;
95 tgl@sss.pgh.pa.us 2755 [ - + ]:CBC 2734 : if (WALK(wc->runCondition))
95 tgl@sss.pgh.pa.us 2756 :UBC 0 : return true;
2757 : : }
2758 : : }
2759 : :
2760 : : /*
2761 : : * groupingSets and rowMarks are not walked:
2762 : : *
2763 : : * groupingSets contain only ressortgrouprefs (integers) which are
2764 : : * meaningless without the corresponding groupClause or tlist.
2765 : : * Accordingly, any walker that needs to care about them needs to handle
2766 : : * them itself in its Query processing.
2767 : : *
2768 : : * rowMarks is not walked because it contains only rangetable indexes (and
2769 : : * flags etc.) and therefore should be handled at Query level similarly.
2770 : : */
2771 : :
5671 tgl@sss.pgh.pa.us 2772 [ + + ]:CBC 606579 : if (!(flags & QTW_IGNORE_CTE_SUBQUERIES))
2773 : : {
572 2774 [ + + ]: 312906 : if (WALK(query->cteList))
5671 2775 : 43 : return true;
2776 : : }
4775 2777 [ + + ]: 606536 : if (!(flags & QTW_IGNORE_RANGE_TABLE))
2778 : : {
2779 [ + + ]: 332230 : if (range_table_walker(query->rtable, walker, context, flags))
2780 : 8458 : return true;
2781 : : }
5711 2782 : 598078 : return false;
2783 : : }
2784 : :
2785 : : /*
2786 : : * range_table_walker is just the part of query_tree_walker that scans
2787 : : * a query's rangetable. This is split out since it can be useful on
2788 : : * its own.
2789 : : */
2790 : : bool
572 2791 : 332997 : range_table_walker_impl(List *rtable,
2792 : : tree_walker_callback walker,
2793 : : void *context,
2794 : : int flags)
2795 : : {
2796 : : ListCell *rt;
2797 : :
5711 2798 [ + + + + : 799972 : foreach(rt, rtable)
+ + ]
2799 : : {
1583 2800 : 475433 : RangeTblEntry *rte = lfirst_node(RangeTblEntry, rt);
2801 : :
2802 [ + + ]: 475433 : if (range_table_entry_walker(rte, walker, context, flags))
2803 : 8458 : return true;
2804 : : }
2805 : 324539 : return false;
2806 : : }
2807 : :
2808 : : /*
2809 : : * Some callers even want to scan the expressions in individual RTEs.
2810 : : */
2811 : : bool
572 2812 : 475445 : range_table_entry_walker_impl(RangeTblEntry *rte,
2813 : : tree_walker_callback walker,
2814 : : void *context,
2815 : : int flags)
2816 : : {
2817 : : /*
2818 : : * Walkers might need to examine the RTE node itself either before or
2819 : : * after visiting its contents (or, conceivably, both). Note that if you
2820 : : * specify neither flag, the walker won't be called on the RTE at all.
2821 : : */
1583 2822 [ + + ]: 475445 : if (flags & QTW_EXAMINE_RTES_BEFORE)
572 2823 [ + + ]: 40083 : if (WALK(rte))
3655 sfrost@snowman.net 2824 : 6 : return true;
2825 : :
1583 tgl@sss.pgh.pa.us 2826 [ + + + + : 475439 : switch (rte->rtekind)
+ + + - ]
2827 : : {
2828 : 298124 : case RTE_RELATION:
572 2829 [ - + ]: 298124 : if (WALK(rte->tablesample))
1583 tgl@sss.pgh.pa.us 2830 :UBC 0 : return true;
1583 tgl@sss.pgh.pa.us 2831 :CBC 298124 : break;
2832 : 41234 : case RTE_SUBQUERY:
2833 [ + + ]: 41234 : if (!(flags & QTW_IGNORE_RT_SUBQUERIES))
572 2834 [ + + ]: 40571 : if (WALK(rte->subquery))
1583 2835 : 416 : return true;
2836 : 40818 : break;
2837 : 75157 : case RTE_JOIN:
2838 [ + + ]: 75157 : if (!(flags & QTW_IGNORE_JOINALIASES))
572 2839 [ - + ]: 63820 : if (WALK(rte->joinaliasvars))
1583 tgl@sss.pgh.pa.us 2840 :UBC 0 : return true;
1583 tgl@sss.pgh.pa.us 2841 :CBC 75157 : break;
2842 : 37395 : case RTE_FUNCTION:
572 2843 [ + + ]: 37395 : if (WALK(rte->functions))
1583 2844 : 8016 : return true;
2845 : 29379 : break;
2846 : 411 : case RTE_TABLEFUNC:
572 2847 [ - + ]: 411 : if (WALK(rte->tablefunc))
1906 tgl@sss.pgh.pa.us 2848 :UBC 0 : return true;
1583 tgl@sss.pgh.pa.us 2849 :CBC 411 : break;
2850 : 8553 : case RTE_VALUES:
572 2851 [ + + ]: 8553 : if (WALK(rte->values_lists))
1583 2852 : 32 : return true;
2853 : 8521 : break;
2854 : 14565 : case RTE_CTE:
2855 : : case RTE_NAMEDTUPLESTORE:
2856 : : case RTE_RESULT:
2857 : : /* nothing to do */
2858 : 14565 : break;
2859 : : }
2860 : :
572 2861 [ - + ]: 466975 : if (WALK(rte->securityQuals))
1583 tgl@sss.pgh.pa.us 2862 :UBC 0 : return true;
2863 : :
1583 tgl@sss.pgh.pa.us 2864 [ + + ]:CBC 466975 : if (flags & QTW_EXAMINE_RTES_AFTER)
572 2865 [ - + ]: 9068 : if (WALK(rte))
1583 tgl@sss.pgh.pa.us 2866 :UBC 0 : return true;
2867 : :
5711 tgl@sss.pgh.pa.us 2868 :CBC 466975 : return false;
2869 : : }
2870 : :
2871 : :
2872 : : /*
2873 : : * expression_tree_mutator() is designed to support routines that make a
2874 : : * modified copy of an expression tree, with some nodes being added,
2875 : : * removed, or replaced by new subtrees. The original tree is (normally)
2876 : : * not changed. Each recursion level is responsible for returning a copy of
2877 : : * (or appropriately modified substitute for) the subtree it is handed.
2878 : : * A mutator routine should look like this:
2879 : : *
2880 : : * Node * my_mutator (Node *node, my_struct *context)
2881 : : * {
2882 : : * if (node == NULL)
2883 : : * return NULL;
2884 : : * // check for nodes that special work is required for, eg:
2885 : : * if (IsA(node, Var))
2886 : : * {
2887 : : * ... create and return modified copy of Var node
2888 : : * }
2889 : : * else if (IsA(node, ...))
2890 : : * {
2891 : : * ... do special transformations of other node types
2892 : : * }
2893 : : * // for any node type not specially processed, do:
2894 : : * return expression_tree_mutator(node, my_mutator, (void *) context);
2895 : : * }
2896 : : *
2897 : : * The "context" argument points to a struct that holds whatever context
2898 : : * information the mutator routine needs --- it can be used to return extra
2899 : : * data gathered by the mutator, too. This argument is not touched by
2900 : : * expression_tree_mutator, but it is passed down to recursive sub-invocations
2901 : : * of my_mutator. The tree walk is started from a setup routine that
2902 : : * fills in the appropriate context struct, calls my_mutator with the
2903 : : * top-level node of the tree, and does any required post-processing.
2904 : : *
2905 : : * Each level of recursion must return an appropriately modified Node.
2906 : : * If expression_tree_mutator() is called, it will make an exact copy
2907 : : * of the given Node, but invoke my_mutator() to copy the sub-node(s)
2908 : : * of that Node. In this way, my_mutator() has full control over the
2909 : : * copying process but need not directly deal with expression trees
2910 : : * that it has no interest in.
2911 : : *
2912 : : * Just as for expression_tree_walker, the node types handled by
2913 : : * expression_tree_mutator include all those normally found in target lists
2914 : : * and qualifier clauses during the planning stage.
2915 : : *
2916 : : * expression_tree_mutator will handle SubLink nodes by recursing normally
2917 : : * into the "testexpr" subtree (which is an expression belonging to the outer
2918 : : * plan). It will also call the mutator on the sub-Query node; however, when
2919 : : * expression_tree_mutator itself is called on a Query node, it does nothing
2920 : : * and returns the unmodified Query node. The net effect is that unless the
2921 : : * mutator does something special at a Query node, sub-selects will not be
2922 : : * visited or modified; the original sub-select will be linked to by the new
2923 : : * SubLink node. Mutators that want to descend into sub-selects will usually
2924 : : * do so by recognizing Query nodes and calling query_tree_mutator (below).
2925 : : *
2926 : : * expression_tree_mutator will handle a SubPlan node by recursing into the
2927 : : * "testexpr" and the "args" list (which belong to the outer plan), but it
2928 : : * will simply copy the link to the inner plan, since that's typically what
2929 : : * expression tree mutators want. A mutator that wants to modify the subplan
2930 : : * can force appropriate behavior by recognizing SubPlan expression nodes
2931 : : * and doing the right thing.
2932 : : */
2933 : :
2934 : : Node *
572 2935 : 7502843 : expression_tree_mutator_impl(Node *node,
2936 : : tree_mutator_callback mutator,
2937 : : void *context)
2938 : : {
2939 : : /*
2940 : : * The mutator has already decided not to modify the current node, but we
2941 : : * must call the mutator for any sub-nodes.
2942 : : */
2943 : :
2944 : : #define FLATCOPY(newnode, node, nodetype) \
2945 : : ( (newnode) = (nodetype *) palloc(sizeof(nodetype)), \
2946 : : memcpy((newnode), (node), sizeof(nodetype)) )
2947 : :
2948 : : #define MUTATE(newfield, oldfield, fieldtype) \
2949 : : ( (newfield) = (fieldtype) mutator((Node *) (oldfield), context) )
2950 : :
5711 2951 [ + + ]: 7502843 : if (node == NULL)
2952 : 56702 : return NULL;
2953 : :
2954 : : /* Guard against stack overflow due to overly complex expressions */
2955 : 7446141 : check_stack_depth();
2956 : :
2957 [ + + + + : 7446141 : switch (nodeTag(node))
+ + + + +
- + + + +
+ + + + +
+ + + + +
+ + + + +
+ + + + +
+ + + + +
+ + + + +
- - + - -
+ + + + -
- + + + +
+ + - + +
+ - ]
2958 : : {
2959 : : /*
2960 : : * Primitive node types with no expression subnodes. Var and
2961 : : * Const are frequent enough to deserve special cases, the others
2962 : : * we just use copyObject for.
2963 : : */
2964 : 1259866 : case T_Var:
2965 : : {
2966 : 1259866 : Var *var = (Var *) node;
2967 : : Var *newnode;
2968 : :
2969 : 1259866 : FLATCOPY(newnode, var, Var);
2970 : : /* Assume we need not copy the varnullingrels bitmapset */
2971 : 1259866 : return (Node *) newnode;
2972 : : }
2973 : : break;
2974 : 1270615 : case T_Const:
2975 : : {
2976 : 1270615 : Const *oldnode = (Const *) node;
2977 : : Const *newnode;
2978 : :
2979 : 1270615 : FLATCOPY(newnode, oldnode, Const);
2980 : : /* XXX we don't bother with datumCopy; should we? */
2981 : 1270615 : return (Node *) newnode;
2982 : : }
2983 : : break;
2984 : 53471 : case T_Param:
2985 : : case T_CaseTestExpr:
2986 : : case T_SQLValueFunction:
2987 : : case T_JsonFormat:
2988 : : case T_CoerceToDomainValue:
2989 : : case T_SetToDefault:
2990 : : case T_CurrentOfExpr:
2991 : : case T_NextValueExpr:
2992 : : case T_RangeTblRef:
2993 : : case T_SortGroupClause:
2994 : : case T_CTESearchClause:
2995 : : case T_MergeSupportFunc:
2996 : 53471 : return (Node *) copyObject(node);
3923 sfrost@snowman.net 2997 : 563 : case T_WithCheckOption:
2998 : : {
3631 bruce@momjian.us 2999 : 563 : WithCheckOption *wco = (WithCheckOption *) node;
3000 : : WithCheckOption *newnode;
3001 : :
3923 sfrost@snowman.net 3002 : 563 : FLATCOPY(newnode, wco, WithCheckOption);
3003 : 563 : MUTATE(newnode->qual, wco->qual, Node *);
3004 : 563 : return (Node *) newnode;
3005 : : }
5711 tgl@sss.pgh.pa.us 3006 : 55424 : case T_Aggref:
3007 : : {
3008 : 55424 : Aggref *aggref = (Aggref *) node;
3009 : : Aggref *newnode;
3010 : :
3011 : 55424 : FLATCOPY(newnode, aggref, Aggref);
3012 : : /* assume mutation doesn't change types of arguments */
2858 3013 : 55424 : newnode->aggargtypes = list_copy(aggref->aggargtypes);
3765 3014 : 55424 : MUTATE(newnode->aggdirectargs, aggref->aggdirectargs, List *);
5711 3015 : 55424 : MUTATE(newnode->args, aggref->args, List *);
5234 3016 : 55424 : MUTATE(newnode->aggorder, aggref->aggorder, List *);
3017 : 55424 : MUTATE(newnode->aggdistinct, aggref->aggdistinct, List *);
3925 noah@leadboat.com 3018 : 55424 : MUTATE(newnode->aggfilter, aggref->aggfilter, Expr *);
5711 tgl@sss.pgh.pa.us 3019 : 55424 : return (Node *) newnode;
3020 : : }
3021 : : break;
3256 andres@anarazel.de 3022 : 515 : case T_GroupingFunc:
3023 : : {
3249 bruce@momjian.us 3024 : 515 : GroupingFunc *grouping = (GroupingFunc *) node;
3025 : : GroupingFunc *newnode;
3026 : :
3256 andres@anarazel.de 3027 : 515 : FLATCOPY(newnode, grouping, GroupingFunc);
3028 : 515 : MUTATE(newnode->args, grouping->args, List *);
3029 : :
3030 : : /*
3031 : : * We assume here that mutating the arguments does not change
3032 : : * the semantics, i.e. that the arguments are not mutated in a
3033 : : * way that makes them semantically different from their
3034 : : * previously matching expressions in the GROUP BY clause.
3035 : : *
3036 : : * If a mutator somehow wanted to do this, it would have to
3037 : : * handle the refs and cols lists itself as appropriate.
3038 : : */
3039 : 515 : newnode->refs = list_copy(grouping->refs);
3040 : 515 : newnode->cols = list_copy(grouping->cols);
3041 : :
3042 : 515 : return (Node *) newnode;
3043 : : }
3044 : : break;
5586 tgl@sss.pgh.pa.us 3045 : 2276 : case T_WindowFunc:
3046 : : {
3047 : 2276 : WindowFunc *wfunc = (WindowFunc *) node;
3048 : : WindowFunc *newnode;
3049 : :
3050 : 2276 : FLATCOPY(newnode, wfunc, WindowFunc);
3051 : 2276 : MUTATE(newnode->args, wfunc->args, List *);
3925 noah@leadboat.com 3052 : 2276 : MUTATE(newnode->aggfilter, wfunc->aggfilter, Expr *);
5586 tgl@sss.pgh.pa.us 3053 : 2276 : return (Node *) newnode;
3054 : : }
3055 : : break;
1899 alvherre@alvh.no-ip. 3056 : 18188 : case T_SubscriptingRef:
3057 : : {
3058 : 18188 : SubscriptingRef *sbsref = (SubscriptingRef *) node;
3059 : : SubscriptingRef *newnode;
3060 : :
3061 : 18188 : FLATCOPY(newnode, sbsref, SubscriptingRef);
3062 : 18188 : MUTATE(newnode->refupperindexpr, sbsref->refupperindexpr,
3063 : : List *);
3064 : 18188 : MUTATE(newnode->reflowerindexpr, sbsref->reflowerindexpr,
3065 : : List *);
3066 : 18188 : MUTATE(newnode->refexpr, sbsref->refexpr,
3067 : : Expr *);
3068 : 18188 : MUTATE(newnode->refassgnexpr, sbsref->refassgnexpr,
3069 : : Expr *);
3070 : :
5711 tgl@sss.pgh.pa.us 3071 : 18188 : return (Node *) newnode;
3072 : : }
3073 : : break;
3074 : 136595 : case T_FuncExpr:
3075 : : {
3076 : 136595 : FuncExpr *expr = (FuncExpr *) node;
3077 : : FuncExpr *newnode;
3078 : :
3079 : 136595 : FLATCOPY(newnode, expr, FuncExpr);
3080 : 136595 : MUTATE(newnode->args, expr->args, List *);
3081 : 136595 : return (Node *) newnode;
3082 : : }
3083 : : break;
5302 tgl@sss.pgh.pa.us 3084 :UBC 0 : case T_NamedArgExpr:
3085 : : {
3086 : 0 : NamedArgExpr *nexpr = (NamedArgExpr *) node;
3087 : : NamedArgExpr *newnode;
3088 : :
3089 : 0 : FLATCOPY(newnode, nexpr, NamedArgExpr);
3090 : 0 : MUTATE(newnode->arg, nexpr->arg, Expr *);
3091 : 0 : return (Node *) newnode;
3092 : : }
3093 : : break;
5711 tgl@sss.pgh.pa.us 3094 :CBC 480311 : case T_OpExpr:
3095 : : {
3096 : 480311 : OpExpr *expr = (OpExpr *) node;
3097 : : OpExpr *newnode;
3098 : :
3099 : 480311 : FLATCOPY(newnode, expr, OpExpr);
3100 : 480311 : MUTATE(newnode->args, expr->args, List *);
3101 : 480311 : return (Node *) newnode;
3102 : : }
3103 : : break;
3104 : 1058 : case T_DistinctExpr:
3105 : : {
3106 : 1058 : DistinctExpr *expr = (DistinctExpr *) node;
3107 : : DistinctExpr *newnode;
3108 : :
3109 : 1058 : FLATCOPY(newnode, expr, DistinctExpr);
3110 : 1058 : MUTATE(newnode->args, expr->args, List *);
3111 : 1058 : return (Node *) newnode;
3112 : : }
3113 : : break;
4775 3114 : 128 : case T_NullIfExpr:
3115 : : {
3116 : 128 : NullIfExpr *expr = (NullIfExpr *) node;
3117 : : NullIfExpr *newnode;
3118 : :
3119 : 128 : FLATCOPY(newnode, expr, NullIfExpr);
3120 : 128 : MUTATE(newnode->args, expr->args, List *);
3121 : 128 : return (Node *) newnode;
3122 : : }
3123 : : break;
5711 3124 : 36770 : case T_ScalarArrayOpExpr:
3125 : : {
3126 : 36770 : ScalarArrayOpExpr *expr = (ScalarArrayOpExpr *) node;
3127 : : ScalarArrayOpExpr *newnode;
3128 : :
3129 : 36770 : FLATCOPY(newnode, expr, ScalarArrayOpExpr);
3130 : 36770 : MUTATE(newnode->args, expr->args, List *);
3131 : 36770 : return (Node *) newnode;
3132 : : }
3133 : : break;
3134 : 58435 : case T_BoolExpr:
3135 : : {
3136 : 58435 : BoolExpr *expr = (BoolExpr *) node;
3137 : : BoolExpr *newnode;
3138 : :
3139 : 58435 : FLATCOPY(newnode, expr, BoolExpr);
3140 : 58435 : MUTATE(newnode->args, expr->args, List *);
3141 : 58432 : return (Node *) newnode;
3142 : : }
3143 : : break;
3144 : 22716 : case T_SubLink:
3145 : : {
3146 : 22716 : SubLink *sublink = (SubLink *) node;
3147 : : SubLink *newnode;
3148 : :
3149 : 22716 : FLATCOPY(newnode, sublink, SubLink);
3150 : 22716 : MUTATE(newnode->testexpr, sublink->testexpr, Node *);
3151 : :
3152 : : /*
3153 : : * Also invoke the mutator on the sublink's Query node, so it
3154 : : * can recurse into the sub-query if it wants to.
3155 : : */
3156 : 22716 : MUTATE(newnode->subselect, sublink->subselect, Node *);
3157 : 22716 : return (Node *) newnode;
3158 : : }
3159 : : break;
3160 : 7419 : case T_SubPlan:
3161 : : {
3162 : 7419 : SubPlan *subplan = (SubPlan *) node;
3163 : : SubPlan *newnode;
3164 : :
3165 : 7419 : FLATCOPY(newnode, subplan, SubPlan);
3166 : : /* transform testexpr */
3167 : 7419 : MUTATE(newnode->testexpr, subplan->testexpr, Node *);
3168 : : /* transform args list (params to be passed to subplan) */
3169 : 7419 : MUTATE(newnode->args, subplan->args, List *);
3170 : : /* but not the sub-Plan itself, which is referenced as-is */
3171 : 7419 : return (Node *) newnode;
3172 : : }
3173 : : break;
3174 : 72 : case T_AlternativeSubPlan:
3175 : : {
3176 : 72 : AlternativeSubPlan *asplan = (AlternativeSubPlan *) node;
3177 : : AlternativeSubPlan *newnode;
3178 : :
3179 : 72 : FLATCOPY(newnode, asplan, AlternativeSubPlan);
3180 : 72 : MUTATE(newnode->subplans, asplan->subplans, List *);
3181 : 72 : return (Node *) newnode;
3182 : : }
3183 : : break;
3184 : 1981 : case T_FieldSelect:
3185 : : {
3186 : 1981 : FieldSelect *fselect = (FieldSelect *) node;
3187 : : FieldSelect *newnode;
3188 : :
3189 : 1981 : FLATCOPY(newnode, fselect, FieldSelect);
3190 : 1981 : MUTATE(newnode->arg, fselect->arg, Expr *);
3191 : 1981 : return (Node *) newnode;
3192 : : }
3193 : : break;
3194 : 218 : case T_FieldStore:
3195 : : {
3196 : 218 : FieldStore *fstore = (FieldStore *) node;
3197 : : FieldStore *newnode;
3198 : :
3199 : 218 : FLATCOPY(newnode, fstore, FieldStore);
3200 : 218 : MUTATE(newnode->arg, fstore->arg, Expr *);
3201 : 218 : MUTATE(newnode->newvals, fstore->newvals, List *);
3202 : 218 : newnode->fieldnums = list_copy(fstore->fieldnums);
3203 : 218 : return (Node *) newnode;
3204 : : }
3205 : : break;
3206 : 55504 : case T_RelabelType:
3207 : : {
3208 : 55504 : RelabelType *relabel = (RelabelType *) node;
3209 : : RelabelType *newnode;
3210 : :
3211 : 55504 : FLATCOPY(newnode, relabel, RelabelType);
3212 : 55504 : MUTATE(newnode->arg, relabel->arg, Expr *);
3213 : 55504 : return (Node *) newnode;
3214 : : }
3215 : : break;
3216 : 12411 : case T_CoerceViaIO:
3217 : : {
3218 : 12411 : CoerceViaIO *iocoerce = (CoerceViaIO *) node;
3219 : : CoerceViaIO *newnode;
3220 : :
3221 : 12411 : FLATCOPY(newnode, iocoerce, CoerceViaIO);
3222 : 12411 : MUTATE(newnode->arg, iocoerce->arg, Expr *);
3223 : 12411 : return (Node *) newnode;
3224 : : }
3225 : : break;
3226 : 5128 : case T_ArrayCoerceExpr:
3227 : : {
3228 : 5128 : ArrayCoerceExpr *acoerce = (ArrayCoerceExpr *) node;
3229 : : ArrayCoerceExpr *newnode;
3230 : :
3231 : 5128 : FLATCOPY(newnode, acoerce, ArrayCoerceExpr);
3232 : 5128 : MUTATE(newnode->arg, acoerce->arg, Expr *);
2388 3233 : 5128 : MUTATE(newnode->elemexpr, acoerce->elemexpr, Expr *);
5711 3234 : 5128 : return (Node *) newnode;
3235 : : }
3236 : : break;
3237 : 77 : case T_ConvertRowtypeExpr:
3238 : : {
3239 : 77 : ConvertRowtypeExpr *convexpr = (ConvertRowtypeExpr *) node;
3240 : : ConvertRowtypeExpr *newnode;
3241 : :
3242 : 77 : FLATCOPY(newnode, convexpr, ConvertRowtypeExpr);
3243 : 77 : MUTATE(newnode->arg, convexpr->arg, Expr *);
3244 : 77 : return (Node *) newnode;
3245 : : }
3246 : : break;
4783 3247 : 2991 : case T_CollateExpr:
3248 : : {
3249 : 2991 : CollateExpr *collate = (CollateExpr *) node;
3250 : : CollateExpr *newnode;
3251 : :
3252 : 2991 : FLATCOPY(newnode, collate, CollateExpr);
3253 : 2991 : MUTATE(newnode->arg, collate->arg, Expr *);
3254 : 2991 : return (Node *) newnode;
3255 : : }
3256 : : break;
5711 3257 : 30045 : case T_CaseExpr:
3258 : : {
3259 : 30045 : CaseExpr *caseexpr = (CaseExpr *) node;
3260 : : CaseExpr *newnode;
3261 : :
3262 : 30045 : FLATCOPY(newnode, caseexpr, CaseExpr);
3263 : 30045 : MUTATE(newnode->arg, caseexpr->arg, Expr *);
3264 : 30045 : MUTATE(newnode->args, caseexpr->args, List *);
3265 : 30045 : MUTATE(newnode->defresult, caseexpr->defresult, Expr *);
3266 : 30045 : return (Node *) newnode;
3267 : : }
3268 : : break;
3269 : 43012 : case T_CaseWhen:
3270 : : {
3271 : 43012 : CaseWhen *casewhen = (CaseWhen *) node;
3272 : : CaseWhen *newnode;
3273 : :
3274 : 43012 : FLATCOPY(newnode, casewhen, CaseWhen);
3275 : 43012 : MUTATE(newnode->expr, casewhen->expr, Expr *);
3276 : 43012 : MUTATE(newnode->result, casewhen->result, Expr *);
3277 : 43012 : return (Node *) newnode;
3278 : : }
3279 : : break;
3280 : 20488 : case T_ArrayExpr:
3281 : : {
3282 : 20488 : ArrayExpr *arrayexpr = (ArrayExpr *) node;
3283 : : ArrayExpr *newnode;
3284 : :
3285 : 20488 : FLATCOPY(newnode, arrayexpr, ArrayExpr);
3286 : 20488 : MUTATE(newnode->elements, arrayexpr->elements, List *);
3287 : 20488 : return (Node *) newnode;
3288 : : }
3289 : : break;
3290 : 3961 : case T_RowExpr:
3291 : : {
3292 : 3961 : RowExpr *rowexpr = (RowExpr *) node;
3293 : : RowExpr *newnode;
3294 : :
3295 : 3961 : FLATCOPY(newnode, rowexpr, RowExpr);
3296 : 3961 : MUTATE(newnode->args, rowexpr->args, List *);
3297 : : /* Assume colnames needn't be duplicated */
3298 : 3961 : return (Node *) newnode;
3299 : : }
3300 : : break;
3301 : 156 : case T_RowCompareExpr:
3302 : : {
3303 : 156 : RowCompareExpr *rcexpr = (RowCompareExpr *) node;
3304 : : RowCompareExpr *newnode;
3305 : :
3306 : 156 : FLATCOPY(newnode, rcexpr, RowCompareExpr);
3307 : 156 : MUTATE(newnode->largs, rcexpr->largs, List *);
3308 : 156 : MUTATE(newnode->rargs, rcexpr->rargs, List *);
3309 : 156 : return (Node *) newnode;
3310 : : }
3311 : : break;
3312 : 4922 : case T_CoalesceExpr:
3313 : : {
3314 : 4922 : CoalesceExpr *coalesceexpr = (CoalesceExpr *) node;
3315 : : CoalesceExpr *newnode;
3316 : :
3317 : 4922 : FLATCOPY(newnode, coalesceexpr, CoalesceExpr);
3318 : 4922 : MUTATE(newnode->args, coalesceexpr->args, List *);
3319 : 4922 : return (Node *) newnode;
3320 : : }
3321 : : break;
3322 : 574 : case T_MinMaxExpr:
3323 : : {
3324 : 574 : MinMaxExpr *minmaxexpr = (MinMaxExpr *) node;
3325 : : MinMaxExpr *newnode;
3326 : :
3327 : 574 : FLATCOPY(newnode, minmaxexpr, MinMaxExpr);
3328 : 574 : MUTATE(newnode->args, minmaxexpr->args, List *);
3329 : 574 : return (Node *) newnode;
3330 : : }
3331 : : break;
3332 : 399 : case T_XmlExpr:
3333 : : {
3334 : 399 : XmlExpr *xexpr = (XmlExpr *) node;
3335 : : XmlExpr *newnode;
3336 : :
3337 : 399 : FLATCOPY(newnode, xexpr, XmlExpr);
3338 : 399 : MUTATE(newnode->named_args, xexpr->named_args, List *);
3339 : : /* assume mutator does not care about arg_names */
3340 : 399 : MUTATE(newnode->args, xexpr->args, List *);
3341 : 399 : return (Node *) newnode;
3342 : : }
3343 : : break;
376 alvherre@alvh.no-ip. 3344 : 850 : case T_JsonReturning:
3345 : : {
3346 : 850 : JsonReturning *jr = (JsonReturning *) node;
3347 : : JsonReturning *newnode;
3348 : :
3349 : 850 : FLATCOPY(newnode, jr, JsonReturning);
3350 : 850 : MUTATE(newnode->format, jr->format, JsonFormat *);
3351 : :
3352 : 850 : return (Node *) newnode;
3353 : : }
3354 : 129 : case T_JsonValueExpr:
3355 : : {
3356 : 129 : JsonValueExpr *jve = (JsonValueExpr *) node;
3357 : : JsonValueExpr *newnode;
3358 : :
3359 : 129 : FLATCOPY(newnode, jve, JsonValueExpr);
3360 : 129 : MUTATE(newnode->raw_expr, jve->raw_expr, Expr *);
3361 : 129 : MUTATE(newnode->formatted_expr, jve->formatted_expr, Expr *);
3362 : 129 : MUTATE(newnode->format, jve->format, JsonFormat *);
3363 : :
3364 : 129 : return (Node *) newnode;
3365 : : }
3366 : 850 : case T_JsonConstructorExpr:
3367 : : {
3368 : 850 : JsonConstructorExpr *jce = (JsonConstructorExpr *) node;
3369 : : JsonConstructorExpr *newnode;
3370 : :
3371 : 850 : FLATCOPY(newnode, jce, JsonConstructorExpr);
3372 : 850 : MUTATE(newnode->args, jce->args, List *);
3373 : 850 : MUTATE(newnode->func, jce->func, Expr *);
3374 : 850 : MUTATE(newnode->coercion, jce->coercion, Expr *);
3375 : 850 : MUTATE(newnode->returning, jce->returning, JsonReturning *);
3376 : :
3377 : 850 : return (Node *) newnode;
3378 : : }
3379 : 250 : case T_JsonIsPredicate:
3380 : : {
3381 : 250 : JsonIsPredicate *pred = (JsonIsPredicate *) node;
3382 : : JsonIsPredicate *newnode;
3383 : :
3384 : 250 : FLATCOPY(newnode, pred, JsonIsPredicate);
3385 : 250 : MUTATE(newnode->expr, pred->expr, Node *);
3386 : 250 : MUTATE(newnode->format, pred->format, JsonFormat *);
3387 : :
3388 : 250 : return (Node *) newnode;
3389 : : }
24 amitlan@postgresql.o 3390 :GNC 1732 : case T_JsonExpr:
3391 : : {
3392 : 1732 : JsonExpr *jexpr = (JsonExpr *) node;
3393 : : JsonExpr *newnode;
3394 : :
3395 : 1732 : FLATCOPY(newnode, jexpr, JsonExpr);
3396 : 1732 : MUTATE(newnode->formatted_expr, jexpr->formatted_expr, Node *);
3397 : 1732 : MUTATE(newnode->path_spec, jexpr->path_spec, Node *);
3398 : 1729 : MUTATE(newnode->coercion_expr, jexpr->coercion_expr, Node *);
3399 : 1729 : MUTATE(newnode->passing_values, jexpr->passing_values, List *);
3400 : : /* assume mutator does not care about passing_names */
3401 : 1729 : MUTATE(newnode->on_empty, jexpr->on_empty, JsonBehavior *);
3402 : 1729 : MUTATE(newnode->on_error, jexpr->on_error, JsonBehavior *);
3403 : 1729 : return (Node *) newnode;
3404 : : }
3405 : : break;
3406 : 1873 : case T_JsonBehavior:
3407 : : {
3408 : 1873 : JsonBehavior *behavior = (JsonBehavior *) node;
3409 : : JsonBehavior *newnode;
3410 : :
3411 : 1873 : FLATCOPY(newnode, behavior, JsonBehavior);
3412 : 1873 : MUTATE(newnode->expr, behavior->expr, Node *);
3413 : 1873 : return (Node *) newnode;
3414 : : }
3415 : : break;
5711 tgl@sss.pgh.pa.us 3416 :CBC 20155 : case T_NullTest:
3417 : : {
3418 : 20155 : NullTest *ntest = (NullTest *) node;
3419 : : NullTest *newnode;
3420 : :
3421 : 20155 : FLATCOPY(newnode, ntest, NullTest);
3422 : 20155 : MUTATE(newnode->arg, ntest->arg, Expr *);
3423 : 20155 : return (Node *) newnode;
3424 : : }
3425 : : break;
3426 : 988 : case T_BooleanTest:
3427 : : {
3428 : 988 : BooleanTest *btest = (BooleanTest *) node;
3429 : : BooleanTest *newnode;
3430 : :
3431 : 988 : FLATCOPY(newnode, btest, BooleanTest);
3432 : 988 : MUTATE(newnode->arg, btest->arg, Expr *);
3433 : 988 : return (Node *) newnode;
3434 : : }
3435 : : break;
3436 : 7994 : case T_CoerceToDomain:
3437 : : {
3438 : 7994 : CoerceToDomain *ctest = (CoerceToDomain *) node;
3439 : : CoerceToDomain *newnode;
3440 : :
3441 : 7994 : FLATCOPY(newnode, ctest, CoerceToDomain);
3442 : 7994 : MUTATE(newnode->arg, ctest->arg, Expr *);
3443 : 7994 : return (Node *) newnode;
3444 : : }
3445 : : break;
3446 : 1627171 : case T_TargetEntry:
3447 : : {
3448 : 1627171 : TargetEntry *targetentry = (TargetEntry *) node;
3449 : : TargetEntry *newnode;
3450 : :
3451 : 1627171 : FLATCOPY(newnode, targetentry, TargetEntry);
3452 : 1627171 : MUTATE(newnode->expr, targetentry->expr, Expr *);
3453 : 1625362 : return (Node *) newnode;
3454 : : }
3455 : : break;
3456 : 16533 : case T_Query:
3457 : : /* Do nothing with a sub-Query, per discussion above */
3458 : 16533 : return node;
5586 tgl@sss.pgh.pa.us 3459 :UBC 0 : case T_WindowClause:
3460 : : {
5421 bruce@momjian.us 3461 : 0 : WindowClause *wc = (WindowClause *) node;
3462 : : WindowClause *newnode;
3463 : :
5586 tgl@sss.pgh.pa.us 3464 : 0 : FLATCOPY(newnode, wc, WindowClause);
3465 : 0 : MUTATE(newnode->partitionClause, wc->partitionClause, List *);
3466 : 0 : MUTATE(newnode->orderClause, wc->orderClause, List *);
5175 3467 : 0 : MUTATE(newnode->startOffset, wc->startOffset, Node *);
3468 : 0 : MUTATE(newnode->endOffset, wc->endOffset, Node *);
95 3469 : 0 : MUTATE(newnode->runCondition, wc->runCondition, List *);
5586 3470 : 0 : return (Node *) newnode;
3471 : : }
3472 : : break;
1168 peter@eisentraut.org 3473 : 0 : case T_CTECycleClause:
3474 : : {
3475 : 0 : CTECycleClause *cc = (CTECycleClause *) node;
3476 : : CTECycleClause *newnode;
3477 : :
3478 : 0 : FLATCOPY(newnode, cc, CTECycleClause);
3479 : 0 : MUTATE(newnode->cycle_mark_value, cc->cycle_mark_value, Node *);
3480 : 0 : MUTATE(newnode->cycle_mark_default, cc->cycle_mark_default, Node *);
3481 : 0 : return (Node *) newnode;
3482 : : }
3483 : : break;
5671 tgl@sss.pgh.pa.us 3484 :CBC 50 : case T_CommonTableExpr:
3485 : : {
3486 : 50 : CommonTableExpr *cte = (CommonTableExpr *) node;
3487 : : CommonTableExpr *newnode;
3488 : :
3489 : 50 : FLATCOPY(newnode, cte, CommonTableExpr);
3490 : :
3491 : : /*
3492 : : * Also invoke the mutator on the CTE's Query node, so it can
3493 : : * recurse into the sub-query if it wants to.
3494 : : */
3495 : 50 : MUTATE(newnode->ctequery, cte->ctequery, Node *);
3496 : :
1168 peter@eisentraut.org 3497 : 50 : MUTATE(newnode->search_clause, cte->search_clause, CTESearchClause *);
3498 : 50 : MUTATE(newnode->cycle_clause, cte->cycle_clause, CTECycleClause *);
3499 : :
5671 tgl@sss.pgh.pa.us 3500 : 50 : return (Node *) newnode;
3501 : : }
3502 : : break;
826 tgl@sss.pgh.pa.us 3503 :UBC 0 : case T_PartitionBoundSpec:
3504 : : {
3505 : 0 : PartitionBoundSpec *pbs = (PartitionBoundSpec *) node;
3506 : : PartitionBoundSpec *newnode;
3507 : :
3508 : 0 : FLATCOPY(newnode, pbs, PartitionBoundSpec);
3509 : 0 : MUTATE(newnode->listdatums, pbs->listdatums, List *);
3510 : 0 : MUTATE(newnode->lowerdatums, pbs->lowerdatums, List *);
3511 : 0 : MUTATE(newnode->upperdatums, pbs->upperdatums, List *);
3512 : 0 : return (Node *) newnode;
3513 : : }
3514 : : break;
3515 : 0 : case T_PartitionRangeDatum:
3516 : : {
3517 : 0 : PartitionRangeDatum *prd = (PartitionRangeDatum *) node;
3518 : : PartitionRangeDatum *newnode;
3519 : :
3520 : 0 : FLATCOPY(newnode, prd, PartitionRangeDatum);
3521 : 0 : MUTATE(newnode->value, prd->value, Node *);
3522 : 0 : return (Node *) newnode;
3523 : : }
3524 : : break;
5711 tgl@sss.pgh.pa.us 3525 :CBC 2115706 : case T_List:
3526 : : {
3527 : : /*
3528 : : * We assume the mutator isn't interested in the list nodes
3529 : : * per se, so just invoke it on each list element. NOTE: this
3530 : : * would fail badly on a list with integer elements!
3531 : : */
3532 : : List *resultlist;
3533 : : ListCell *temp;
3534 : :
3535 : 2115706 : resultlist = NIL;
3536 [ + - + + : 6722069 : foreach(temp, (List *) node)
+ + ]
3537 : : {
3538 : 4606363 : resultlist = lappend(resultlist,
3539 : 4608236 : mutator((Node *) lfirst(temp),
3540 : : context));
3541 : : }
3542 : 2113833 : return (Node *) resultlist;
3543 : : }
3544 : : break;
3545 : 10821 : case T_FromExpr:
3546 : : {
3547 : 10821 : FromExpr *from = (FromExpr *) node;
3548 : : FromExpr *newnode;
3549 : :
3550 : 10821 : FLATCOPY(newnode, from, FromExpr);
3551 : 10821 : MUTATE(newnode->fromlist, from->fromlist, List *);
3552 : 10821 : MUTATE(newnode->quals, from->quals, Node *);
3553 : 10821 : return (Node *) newnode;
3554 : : }
3555 : : break;
3264 andres@anarazel.de 3556 : 174 : case T_OnConflictExpr:
3557 : : {
3249 bruce@momjian.us 3558 : 174 : OnConflictExpr *oc = (OnConflictExpr *) node;
3559 : : OnConflictExpr *newnode;
3560 : :
3264 andres@anarazel.de 3561 : 174 : FLATCOPY(newnode, oc, OnConflictExpr);
3562 : 174 : MUTATE(newnode->arbiterElems, oc->arbiterElems, List *);
3563 : 174 : MUTATE(newnode->arbiterWhere, oc->arbiterWhere, Node *);
3564 : 174 : MUTATE(newnode->onConflictSet, oc->onConflictSet, List *);
3565 : 174 : MUTATE(newnode->onConflictWhere, oc->onConflictWhere, Node *);
3259 3566 : 174 : MUTATE(newnode->exclRelTlist, oc->exclRelTlist, List *);
3567 : :
3264 3568 : 174 : return (Node *) newnode;
3569 : : }
3570 : : break;
748 alvherre@alvh.no-ip. 3571 :GBC 486 : case T_MergeAction:
3572 : : {
3573 : 486 : MergeAction *action = (MergeAction *) node;
3574 : : MergeAction *newnode;
3575 : :
3576 : 486 : FLATCOPY(newnode, action, MergeAction);
3577 : 486 : MUTATE(newnode->qual, action->qual, Node *);
3578 : 486 : MUTATE(newnode->targetList, action->targetList, List *);
3579 : :
3580 : 486 : return (Node *) newnode;
3581 : : }
3582 : : break;
2200 alvherre@alvh.no-ip. 3583 :UBC 0 : case T_PartitionPruneStepOp:
3584 : : {
3585 : 0 : PartitionPruneStepOp *opstep = (PartitionPruneStepOp *) node;
3586 : : PartitionPruneStepOp *newnode;
3587 : :
3588 : 0 : FLATCOPY(newnode, opstep, PartitionPruneStepOp);
3589 : 0 : MUTATE(newnode->exprs, opstep->exprs, List *);
3590 : :
3591 : 0 : return (Node *) newnode;
3592 : : }
3593 : : break;
3594 : 0 : case T_PartitionPruneStepCombine:
3595 : : /* no expression sub-nodes */
3596 : 0 : return (Node *) copyObject(node);
5711 tgl@sss.pgh.pa.us 3597 :CBC 1710 : case T_JoinExpr:
3598 : : {
3599 : 1710 : JoinExpr *join = (JoinExpr *) node;
3600 : : JoinExpr *newnode;
3601 : :
3602 : 1710 : FLATCOPY(newnode, join, JoinExpr);
3603 : 1710 : MUTATE(newnode->larg, join->larg, Node *);
3604 : 1710 : MUTATE(newnode->rarg, join->rarg, Node *);
3605 : 1710 : MUTATE(newnode->quals, join->quals, Node *);
3606 : : /* We do not mutate alias or using by default */
3607 : 1710 : return (Node *) newnode;
3608 : : }
3609 : : break;
3610 : 78 : case T_SetOperationStmt:
3611 : : {
3612 : 78 : SetOperationStmt *setop = (SetOperationStmt *) node;
3613 : : SetOperationStmt *newnode;
3614 : :
3615 : 78 : FLATCOPY(newnode, setop, SetOperationStmt);
3616 : 78 : MUTATE(newnode->larg, setop->larg, Node *);
3617 : 78 : MUTATE(newnode->rarg, setop->rarg, Node *);
3618 : : /* We do not mutate groupClauses by default */
3619 : 78 : return (Node *) newnode;
3620 : : }
3621 : : break;
1891 3622 : 222 : case T_IndexClause:
3623 : : {
3624 : 222 : IndexClause *iclause = (IndexClause *) node;
3625 : : IndexClause *newnode;
3626 : :
3627 : 222 : FLATCOPY(newnode, iclause, IndexClause);
3628 : 222 : MUTATE(newnode->rinfo, iclause->rinfo, RestrictInfo *);
3629 : 222 : MUTATE(newnode->indexquals, iclause->indexquals, List *);
3630 : 222 : return (Node *) newnode;
3631 : : }
3632 : : break;
5654 3633 : 3823 : case T_PlaceHolderVar:
3634 : : {
3635 : 3823 : PlaceHolderVar *phv = (PlaceHolderVar *) node;
3636 : : PlaceHolderVar *newnode;
3637 : :
3638 : 3823 : FLATCOPY(newnode, phv, PlaceHolderVar);
3639 : 3823 : MUTATE(newnode->phexpr, phv->phexpr, Expr *);
3640 : : /* Assume we need not copy the relids bitmapsets */
3641 : 3823 : return (Node *) newnode;
3642 : : }
3643 : : break;
3264 andres@anarazel.de 3644 : 1042 : case T_InferenceElem:
3645 : : {
3646 : 1042 : InferenceElem *inferenceelemdexpr = (InferenceElem *) node;
3647 : : InferenceElem *newnode;
3648 : :
3649 : 1042 : FLATCOPY(newnode, inferenceelemdexpr, InferenceElem);
3650 : 1042 : MUTATE(newnode->expr, newnode->expr, Node *);
3651 : 1042 : return (Node *) newnode;
3652 : : }
3653 : : break;
5711 tgl@sss.pgh.pa.us 3654 : 3517 : case T_AppendRelInfo:
3655 : : {
3656 : 3517 : AppendRelInfo *appinfo = (AppendRelInfo *) node;
3657 : : AppendRelInfo *newnode;
3658 : :
3659 : 3517 : FLATCOPY(newnode, appinfo, AppendRelInfo);
3660 : 3517 : MUTATE(newnode->translated_vars, appinfo->translated_vars, List *);
3661 : : /* Assume nothing need be done with parent_colnos[] */
3662 : 3517 : return (Node *) newnode;
3663 : : }
3664 : : break;
5654 tgl@sss.pgh.pa.us 3665 :UBC 0 : case T_PlaceHolderInfo:
3666 : : {
3667 : 0 : PlaceHolderInfo *phinfo = (PlaceHolderInfo *) node;
3668 : : PlaceHolderInfo *newnode;
3669 : :
3670 : 0 : FLATCOPY(newnode, phinfo, PlaceHolderInfo);
3671 : 0 : MUTATE(newnode->ph_var, phinfo->ph_var, PlaceHolderVar *);
3672 : : /* Assume we need not copy the relids bitmapsets */
3673 : 0 : return (Node *) newnode;
3674 : : }
3675 : : break;
3797 tgl@sss.pgh.pa.us 3676 :CBC 43010 : case T_RangeTblFunction:
3677 : : {
3678 : 43010 : RangeTblFunction *rtfunc = (RangeTblFunction *) node;
3679 : : RangeTblFunction *newnode;
3680 : :
3681 : 43010 : FLATCOPY(newnode, rtfunc, RangeTblFunction);
3682 : 43010 : MUTATE(newnode->funcexpr, rtfunc->funcexpr, Node *);
3683 : : /* Assume we need not copy the coldef info lists */
3684 : 43010 : return (Node *) newnode;
3685 : : }
3686 : : break;
3186 3687 : 233 : case T_TableSampleClause:
3688 : : {
3689 : 233 : TableSampleClause *tsc = (TableSampleClause *) node;
3690 : : TableSampleClause *newnode;
3691 : :
3692 : 233 : FLATCOPY(newnode, tsc, TableSampleClause);
3693 : 233 : MUTATE(newnode->args, tsc->args, List *);
3694 : 233 : MUTATE(newnode->repeatable, tsc->repeatable, Expr *);
3695 : 233 : return (Node *) newnode;
3696 : : }
3697 : : break;
2594 alvherre@alvh.no-ip. 3698 : 455 : case T_TableFunc:
3699 : : {
3700 : 455 : TableFunc *tf = (TableFunc *) node;
3701 : : TableFunc *newnode;
3702 : :
3703 : 455 : FLATCOPY(newnode, tf, TableFunc);
3704 : 455 : MUTATE(newnode->ns_uris, tf->ns_uris, List *);
3705 : 455 : MUTATE(newnode->docexpr, tf->docexpr, Node *);
3706 : 455 : MUTATE(newnode->rowexpr, tf->rowexpr, Node *);
3707 : 455 : MUTATE(newnode->colexprs, tf->colexprs, List *);
3708 : 455 : MUTATE(newnode->coldefexprs, tf->coldefexprs, List *);
10 amitlan@postgresql.o 3709 :GNC 455 : MUTATE(newnode->colvalexprs, tf->colvalexprs, List *);
3710 : 455 : MUTATE(newnode->passingvalexprs, tf->passingvalexprs, List *);
773 andrew@dunslane.net 3711 :CBC 455 : return (Node *) newnode;
3712 : : }
3713 : : break;
5711 tgl@sss.pgh.pa.us 3714 :UBC 0 : default:
3715 [ # # ]: 0 : elog(ERROR, "unrecognized node type: %d",
3716 : : (int) nodeTag(node));
3717 : : break;
3718 : : }
3719 : : /* can't get here, but keep compiler happy */
3720 : : return NULL;
3721 : : }
3722 : :
3723 : :
3724 : : /*
3725 : : * query_tree_mutator --- initiate modification of a Query's expressions
3726 : : *
3727 : : * This routine exists just to reduce the number of places that need to know
3728 : : * where all the expression subtrees of a Query are. Note it can be used
3729 : : * for starting a walk at top level of a Query regardless of whether the
3730 : : * mutator intends to descend into subqueries. It is also useful for
3731 : : * descending into subqueries within a mutator.
3732 : : *
3733 : : * Some callers want to suppress mutating of certain items in the Query,
3734 : : * typically because they need to process them specially, or don't actually
3735 : : * want to recurse into subqueries. This is supported by the flags argument,
3736 : : * which is the bitwise OR of flag values to suppress mutating of
3737 : : * indicated items. (More flag bits may be added as needed.)
3738 : : *
3739 : : * Normally the top-level Query node itself is copied, but some callers want
3740 : : * it to be modified in-place; they must pass QTW_DONT_COPY_QUERY in flags.
3741 : : * All modified substructure is safely copied in any case.
3742 : : */
3743 : : Query *
572 tgl@sss.pgh.pa.us 3744 :CBC 10701 : query_tree_mutator_impl(Query *query,
3745 : : tree_mutator_callback mutator,
3746 : : void *context,
3747 : : int flags)
3748 : : {
5711 3749 [ + - - + ]: 10701 : Assert(query != NULL && IsA(query, Query));
3750 : :
3751 [ + - ]: 10701 : if (!(flags & QTW_DONT_COPY_QUERY))
3752 : : {
3753 : : Query *newquery;
3754 : :
3755 : 10701 : FLATCOPY(newquery, query, Query);
3756 : 10701 : query = newquery;
3757 : : }
3758 : :
3759 : 10701 : MUTATE(query->targetList, query->targetList, List *);
3923 sfrost@snowman.net 3760 : 10701 : MUTATE(query->withCheckOptions, query->withCheckOptions, List *);
3264 andres@anarazel.de 3761 : 10701 : MUTATE(query->onConflict, query->onConflict, OnConflictExpr *);
748 alvherre@alvh.no-ip. 3762 : 10701 : MUTATE(query->mergeActionList, query->mergeActionList, List *);
15 dean.a.rasheed@gmail 3763 :GNC 10701 : MUTATE(query->mergeJoinCondition, query->mergeJoinCondition, Node *);
5711 tgl@sss.pgh.pa.us 3764 :CBC 10701 : MUTATE(query->returningList, query->returningList, List *);
3765 : 10701 : MUTATE(query->jointree, query->jointree, FromExpr *);
3766 : 10701 : MUTATE(query->setOperations, query->setOperations, Node *);
3767 : 10701 : MUTATE(query->havingQual, query->havingQual, Node *);
3768 : 10701 : MUTATE(query->limitOffset, query->limitOffset, Node *);
3769 : 10701 : MUTATE(query->limitCount, query->limitCount, Node *);
3770 : :
3771 : : /*
3772 : : * Most callers aren't interested in SortGroupClause nodes since those
3773 : : * don't contain actual expressions. However they do contain OIDs, which
3774 : : * may be of interest to some mutators.
3775 : : */
3776 : :
1655 rhodiumtoad@postgres 3777 [ - + ]: 10701 : if ((flags & QTW_EXAMINE_SORTGROUP))
3778 : : {
1655 rhodiumtoad@postgres 3779 :UBC 0 : MUTATE(query->groupClause, query->groupClause, List *);
3780 : 0 : MUTATE(query->windowClause, query->windowClause, List *);
3781 : 0 : MUTATE(query->sortClause, query->sortClause, List *);
3782 : 0 : MUTATE(query->distinctClause, query->distinctClause, List *);
3783 : : }
3784 : : else
3785 : : {
3786 : : /*
3787 : : * But we need to mutate the expressions under WindowClause nodes even
3788 : : * if we're not interested in SortGroupClause nodes.
3789 : : */
3790 : : List *resultlist;
3791 : : ListCell *temp;
3792 : :
1655 rhodiumtoad@postgres 3793 :CBC 10701 : resultlist = NIL;
3794 [ + + + + : 10713 : foreach(temp, query->windowClause)
+ + ]
3795 : : {
3796 : 12 : WindowClause *wc = lfirst_node(WindowClause, temp);
3797 : : WindowClause *newnode;
3798 : :
3799 : 12 : FLATCOPY(newnode, wc, WindowClause);
3800 : 12 : MUTATE(newnode->startOffset, wc->startOffset, Node *);
3801 : 12 : MUTATE(newnode->endOffset, wc->endOffset, Node *);
95 tgl@sss.pgh.pa.us 3802 : 12 : MUTATE(newnode->runCondition, wc->runCondition, List *);
3803 : :
1655 rhodiumtoad@postgres 3804 : 12 : resultlist = lappend(resultlist, (Node *) newnode);
3805 : : }
3806 : 10701 : query->windowClause = resultlist;
3807 : : }
3808 : :
3809 : : /*
3810 : : * groupingSets and rowMarks are not mutated:
3811 : : *
3812 : : * groupingSets contain only ressortgroup refs (integers) which are
3813 : : * meaningless without the groupClause or tlist. Accordingly, any mutator
3814 : : * that needs to care about them needs to handle them itself in its Query
3815 : : * processing.
3816 : : *
3817 : : * rowMarks contains only rangetable indexes (and flags etc.) and
3818 : : * therefore should be handled at Query level similarly.
3819 : : */
3820 : :
5671 tgl@sss.pgh.pa.us 3821 [ + - ]: 10701 : if (!(flags & QTW_IGNORE_CTE_SUBQUERIES))
3822 : 10701 : MUTATE(query->cteList, query->cteList, List *);
3823 : : else /* else copy CTE list as-is */
5671 tgl@sss.pgh.pa.us 3824 :UBC 0 : query->cteList = copyObject(query->cteList);
5711 tgl@sss.pgh.pa.us 3825 :CBC 10701 : query->rtable = range_table_mutator(query->rtable,
3826 : : mutator, context, flags);
3827 : 10701 : return query;
3828 : : }
3829 : :
3830 : : /*
3831 : : * range_table_mutator is just the part of query_tree_mutator that processes
3832 : : * a query's rangetable. This is split out since it can be useful on
3833 : : * its own.
3834 : : */
3835 : : List *
572 3836 : 10701 : range_table_mutator_impl(List *rtable,
3837 : : tree_mutator_callback mutator,
3838 : : void *context,
3839 : : int flags)
3840 : : {
5711 3841 : 10701 : List *newrt = NIL;
3842 : : ListCell *rt;
3843 : :
3844 [ + + + + : 30912 : foreach(rt, rtable)
+ + ]
3845 : : {
3846 : 20211 : RangeTblEntry *rte = (RangeTblEntry *) lfirst(rt);
3847 : : RangeTblEntry *newrte;
3848 : :
3849 : 20211 : FLATCOPY(newrte, rte, RangeTblEntry);
3850 [ + + + + : 20211 : switch (rte->rtekind)
- + + - ]
3851 : : {
3852 : 13444 : case RTE_RELATION:
3186 3853 : 13444 : MUTATE(newrte->tablesample, rte->tablesample,
3854 : : TableSampleClause *);
3855 : : /* we don't bother to copy eref, aliases, etc; OK? */
3257 simon@2ndQuadrant.co 3856 : 13444 : break;
5711 tgl@sss.pgh.pa.us 3857 : 1564 : case RTE_SUBQUERY:
3858 [ + - ]: 1564 : if (!(flags & QTW_IGNORE_RT_SUBQUERIES))
658 3859 : 1564 : MUTATE(newrte->subquery, rte->subquery, Query *);
3860 : : else
3861 : : {
3862 : : /* else, copy RT subqueries as-is */
5711 tgl@sss.pgh.pa.us 3863 :UBC 0 : newrte->subquery = copyObject(rte->subquery);
3864 : : }
5711 tgl@sss.pgh.pa.us 3865 :CBC 1564 : break;
3866 : 1715 : case RTE_JOIN:
3867 [ + + ]: 1715 : if (!(flags & QTW_IGNORE_JOINALIASES))
3868 : 1522 : MUTATE(newrte->joinaliasvars, rte->joinaliasvars, List *);
3869 : : else
3870 : : {
3871 : : /* else, copy join aliases as-is */
3872 : 193 : newrte->joinaliasvars = copyObject(rte->joinaliasvars);
3873 : : }
3874 : 1715 : break;
3875 : 2712 : case RTE_FUNCTION:
3797 3876 : 2712 : MUTATE(newrte->functions, rte->functions, List *);
5711 3877 : 2712 : break;
2594 alvherre@alvh.no-ip. 3878 :UBC 0 : case RTE_TABLEFUNC:
3879 : 0 : MUTATE(newrte->tablefunc, rte->tablefunc, TableFunc *);
3880 : 0 : break;
5711 tgl@sss.pgh.pa.us 3881 :CBC 588 : case RTE_VALUES:
3882 : 588 : MUTATE(newrte->values_lists, rte->values_lists, List *);
3883 : 588 : break;
1903 3884 : 188 : case RTE_CTE:
3885 : : case RTE_NAMEDTUPLESTORE:
3886 : : case RTE_RESULT:
3887 : : /* nothing to do */
3888 : 188 : break;
3889 : : }
3655 sfrost@snowman.net 3890 : 20211 : MUTATE(newrte->securityQuals, rte->securityQuals, List *);
5711 tgl@sss.pgh.pa.us 3891 : 20211 : newrt = lappend(newrt, newrte);
3892 : : }
3893 : 10701 : return newrt;
3894 : : }
3895 : :
3896 : : /*
3897 : : * query_or_expression_tree_walker --- hybrid form
3898 : : *
3899 : : * This routine will invoke query_tree_walker if called on a Query node,
3900 : : * else will invoke the walker directly. This is a useful way of starting
3901 : : * the recursion when the walker's normal change of state is not appropriate
3902 : : * for the outermost Query node.
3903 : : */
3904 : : bool
572 3905 : 1695434 : query_or_expression_tree_walker_impl(Node *node,
3906 : : tree_walker_callback walker,
3907 : : void *context,
3908 : : int flags)
3909 : : {
5711 3910 [ + + + + ]: 1695434 : if (node && IsA(node, Query))
3911 : 189055 : return query_tree_walker((Query *) node,
3912 : : walker,
3913 : : context,
3914 : : flags);
3915 : : else
572 3916 : 1506379 : return WALK(node);
3917 : : }
3918 : :
3919 : : /*
3920 : : * query_or_expression_tree_mutator --- hybrid form
3921 : : *
3922 : : * This routine will invoke query_tree_mutator if called on a Query node,
3923 : : * else will invoke the mutator directly. This is a useful way of starting
3924 : : * the recursion when the mutator's normal change of state is not appropriate
3925 : : * for the outermost Query node.
3926 : : */
3927 : : Node *
3928 : 98808 : query_or_expression_tree_mutator_impl(Node *node,
3929 : : tree_mutator_callback mutator,
3930 : : void *context,
3931 : : int flags)
3932 : : {
5711 3933 [ + + + + ]: 98808 : if (node && IsA(node, Query))
3934 : 3122 : return (Node *) query_tree_mutator((Query *) node,
3935 : : mutator,
3936 : : context,
3937 : : flags);
3938 : : else
3939 : 95686 : return mutator(node, context);
3940 : : }
3941 : :
3942 : :
3943 : : /*
3944 : : * raw_expression_tree_walker --- walk raw parse trees
3945 : : *
3946 : : * This has exactly the same API as expression_tree_walker, but instead of
3947 : : * walking post-analysis parse trees, it knows how to walk the node types
3948 : : * found in raw grammar output. (There is not currently any need for a
3949 : : * combined walker, so we keep them separate in the name of efficiency.)
3950 : : * Unlike expression_tree_walker, there is no special rule about query
3951 : : * boundaries: we descend to everything that's possibly interesting.
3952 : : *
3953 : : * Currently, the node type coverage here extends only to DML statements
3954 : : * (SELECT/INSERT/UPDATE/DELETE/MERGE) and nodes that can appear in them,
3955 : : * because this is used mainly during analysis of CTEs, and only DML
3956 : : * statements can appear in CTEs.
3957 : : */
3958 : : bool
572 3959 : 47108 : raw_expression_tree_walker_impl(Node *node,
3960 : : tree_walker_callback walker,
3961 : : void *context)
3962 : : {
3963 : : ListCell *temp;
3964 : :
3965 : : /*
3966 : : * The walker has already visited the current node, and so we need only
3967 : : * recurse into any sub-nodes it has.
3968 : : */
5671 3969 [ - + ]: 47108 : if (node == NULL)
5671 tgl@sss.pgh.pa.us 3970 :UBC 0 : return false;
3971 : :
3972 : : /* Guard against stack overflow due to overly complex expressions */
5671 tgl@sss.pgh.pa.us 3973 :CBC 47108 : check_stack_depth();
3974 : :
3975 [ + + - - : 47108 : switch (nodeTag(node))
+ - + - -
- - - - -
- - - - -
- - - - -
- + - + +
- + + + +
- + + + +
- - - + +
- + + + +
+ + - - -
+ - - - +
- - - - +
- - - - -
- - - - ]
3976 : : {
376 alvherre@alvh.no-ip. 3977 : 4751 : case T_JsonFormat:
3978 : : case T_SetToDefault:
3979 : : case T_CurrentOfExpr:
3980 : : case T_SQLValueFunction:
3981 : : case T_Integer:
3982 : : case T_Float:
3983 : : case T_Boolean:
3984 : : case T_String:
3985 : : case T_BitString:
3986 : : case T_ParamRef:
3987 : : case T_A_Const:
3988 : : case T_A_Star:
3989 : : case T_MergeSupportFunc:
3990 : : /* primitive node types with no subnodes */
5671 tgl@sss.pgh.pa.us 3991 : 4751 : break;
3992 : 164 : case T_Alias:
3993 : : /* we assume the colnames list isn't interesting */
3994 : 164 : break;
5671 tgl@sss.pgh.pa.us 3995 :UBC 0 : case T_RangeVar:
572 3996 : 0 : return WALK(((RangeVar *) node)->alias);
3256 andres@anarazel.de 3997 : 0 : case T_GroupingFunc:
572 tgl@sss.pgh.pa.us 3998 : 0 : return WALK(((GroupingFunc *) node)->args);
5671 tgl@sss.pgh.pa.us 3999 :CBC 32 : case T_SubLink:
4000 : : {
4001 : 32 : SubLink *sublink = (SubLink *) node;
4002 : :
572 4003 [ - + ]: 32 : if (WALK(sublink->testexpr))
5671 tgl@sss.pgh.pa.us 4004 :UBC 0 : return true;
4005 : : /* we assume the operName is not interesting */
572 tgl@sss.pgh.pa.us 4006 [ - + ]:CBC 32 : if (WALK(sublink->subselect))
5671 tgl@sss.pgh.pa.us 4007 :UBC 0 : return true;
4008 : : }
5671 tgl@sss.pgh.pa.us 4009 :CBC 32 : break;
5671 tgl@sss.pgh.pa.us 4010 :UBC 0 : case T_CaseExpr:
4011 : : {
4012 : 0 : CaseExpr *caseexpr = (CaseExpr *) node;
4013 : :
572 4014 [ # # ]: 0 : if (WALK(caseexpr->arg))
5671 4015 : 0 : return true;
4016 : : /* we assume walker doesn't care about CaseWhens, either */
4017 [ # # # # : 0 : foreach(temp, caseexpr->args)
# # ]
4018 : : {
2561 4019 : 0 : CaseWhen *when = lfirst_node(CaseWhen, temp);
4020 : :
572 4021 [ # # ]: 0 : if (WALK(when->expr))
5671 4022 : 0 : return true;
572 4023 [ # # ]: 0 : if (WALK(when->result))
5671 4024 : 0 : return true;
4025 : : }
572 4026 [ # # ]: 0 : if (WALK(caseexpr->defresult))
5671 4027 : 0 : return true;
4028 : : }
4029 : 0 : break;
5671 tgl@sss.pgh.pa.us 4030 :CBC 54 : case T_RowExpr:
4031 : : /* Assume colnames isn't interesting */
572 4032 : 54 : return WALK(((RowExpr *) node)->args);
5671 tgl@sss.pgh.pa.us 4033 :UBC 0 : case T_CoalesceExpr:
572 4034 : 0 : return WALK(((CoalesceExpr *) node)->args);
5671 4035 : 0 : case T_MinMaxExpr:
572 4036 : 0 : return WALK(((MinMaxExpr *) node)->args);
5671 4037 : 0 : case T_XmlExpr:
4038 : : {
4039 : 0 : XmlExpr *xexpr = (XmlExpr *) node;
4040 : :
572 4041 [ # # ]: 0 : if (WALK(xexpr->named_args))
5671 4042 : 0 : return true;
4043 : : /* we assume walker doesn't care about arg_names */
572 4044 [ # # ]: 0 : if (WALK(xexpr->args))
5671 4045 : 0 : return true;
4046 : : }
4047 : 0 : break;
376 alvherre@alvh.no-ip. 4048 : 0 : case T_JsonReturning:
4049 : 0 : return WALK(((JsonReturning *) node)->format);
4050 : 0 : case T_JsonValueExpr:
4051 : : {
4052 : 0 : JsonValueExpr *jve = (JsonValueExpr *) node;
4053 : :
4054 [ # # ]: 0 : if (WALK(jve->raw_expr))
4055 : 0 : return true;
4056 [ # # ]: 0 : if (WALK(jve->formatted_expr))
4057 : 0 : return true;
4058 [ # # ]: 0 : if (WALK(jve->format))
4059 : 0 : return true;
4060 : : }
4061 : 0 : break;
269 amitlan@postgresql.o 4062 :UNC 0 : case T_JsonParseExpr:
4063 : : {
4064 : 0 : JsonParseExpr *jpe = (JsonParseExpr *) node;
4065 : :
4066 [ # # ]: 0 : if (WALK(jpe->expr))
4067 : 0 : return true;
4068 [ # # ]: 0 : if (WALK(jpe->output))
4069 : 0 : return true;
4070 : : }
4071 : 0 : break;
4072 : 0 : case T_JsonScalarExpr:
4073 : : {
4074 : 0 : JsonScalarExpr *jse = (JsonScalarExpr *) node;
4075 : :
4076 [ # # ]: 0 : if (WALK(jse->expr))
4077 : 0 : return true;
4078 [ # # ]: 0 : if (WALK(jse->output))
4079 : 0 : return true;
4080 : : }
4081 : 0 : break;
4082 : 0 : case T_JsonSerializeExpr:
4083 : : {
4084 : 0 : JsonSerializeExpr *jse = (JsonSerializeExpr *) node;
4085 : :
4086 [ # # ]: 0 : if (WALK(jse->expr))
4087 : 0 : return true;
4088 [ # # ]: 0 : if (WALK(jse->output))
4089 : 0 : return true;
4090 : : }
4091 : 0 : break;
376 alvherre@alvh.no-ip. 4092 :UBC 0 : case T_JsonConstructorExpr:
4093 : : {
4094 : 0 : JsonConstructorExpr *ctor = (JsonConstructorExpr *) node;
4095 : :
4096 [ # # ]: 0 : if (WALK(ctor->args))
4097 : 0 : return true;
4098 [ # # ]: 0 : if (WALK(ctor->func))
4099 : 0 : return true;
4100 [ # # ]: 0 : if (WALK(ctor->coercion))
4101 : 0 : return true;
4102 [ # # ]: 0 : if (WALK(ctor->returning))
4103 : 0 : return true;
4104 : : }
4105 : 0 : break;
4106 : 0 : case T_JsonIsPredicate:
4107 : 0 : return WALK(((JsonIsPredicate *) node)->expr);
24 amitlan@postgresql.o 4108 :UNC 0 : case T_JsonArgument:
4109 : 0 : return WALK(((JsonArgument *) node)->val);
4110 : 0 : case T_JsonFuncExpr:
4111 : : {
4112 : 0 : JsonFuncExpr *jfe = (JsonFuncExpr *) node;
4113 : :
4114 [ # # ]: 0 : if (WALK(jfe->context_item))
4115 : 0 : return true;
4116 [ # # ]: 0 : if (WALK(jfe->pathspec))
4117 : 0 : return true;
4118 [ # # ]: 0 : if (WALK(jfe->passing))
4119 : 0 : return true;
4120 [ # # ]: 0 : if (WALK(jfe->output))
4121 : 0 : return true;
4122 [ # # ]: 0 : if (WALK(jfe->on_empty))
4123 : 0 : return true;
4124 [ # # ]: 0 : if (WALK(jfe->on_error))
4125 : 0 : return true;
4126 : : }
4127 : 0 : break;
4128 : 0 : case T_JsonBehavior:
4129 : : {
4130 : 0 : JsonBehavior *jb = (JsonBehavior *) node;
4131 : :
4132 [ # # ]: 0 : if (WALK(jb->expr))
4133 : 0 : return true;
4134 : : }
4135 : 0 : break;
10 4136 : 0 : case T_JsonTable:
4137 : : {
4138 : 0 : JsonTable *jt = (JsonTable *) node;
4139 : :
4140 [ # # ]: 0 : if (WALK(jt->context_item))
4141 : 0 : return true;
4142 [ # # ]: 0 : if (WALK(jt->pathspec))
4143 : 0 : return true;
4144 [ # # ]: 0 : if (WALK(jt->passing))
4145 : 0 : return true;
4146 [ # # ]: 0 : if (WALK(jt->columns))
4147 : 0 : return true;
4148 [ # # ]: 0 : if (WALK(jt->on_error))
4149 : 0 : return true;
4150 : : }
4151 : 0 : break;
4152 : 0 : case T_JsonTableColumn:
4153 : : {
4154 : 0 : JsonTableColumn *jtc = (JsonTableColumn *) node;
4155 : :
4156 [ # # ]: 0 : if (WALK(jtc->typeName))
4157 : 0 : return true;
4158 [ # # ]: 0 : if (WALK(jtc->on_empty))
4159 : 0 : return true;
4160 [ # # ]: 0 : if (WALK(jtc->on_error))
4161 : 0 : return true;
6 4162 [ # # ]: 0 : if (WALK(jtc->columns))
4163 : 0 : return true;
4164 : : }
10 4165 : 0 : break;
4166 : 0 : case T_JsonTablePathSpec:
4167 : 0 : return WALK(((JsonTablePathSpec *) node)->string);
5671 tgl@sss.pgh.pa.us 4168 :UBC 0 : case T_NullTest:
572 4169 : 0 : return WALK(((NullTest *) node)->arg);
5671 4170 : 0 : case T_BooleanTest:
572 4171 : 0 : return WALK(((BooleanTest *) node)->arg);
5671 tgl@sss.pgh.pa.us 4172 :CBC 1037 : case T_JoinExpr:
4173 : : {
4174 : 1037 : JoinExpr *join = (JoinExpr *) node;
4175 : :
572 4176 [ - + ]: 1037 : if (WALK(join->larg))
5671 tgl@sss.pgh.pa.us 4177 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4178 [ - + ]:CBC 1037 : if (WALK(join->rarg))
5671 tgl@sss.pgh.pa.us 4179 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4180 [ - + ]:CBC 1037 : if (WALK(join->quals))
5671 tgl@sss.pgh.pa.us 4181 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4182 [ - + ]:CBC 1037 : if (WALK(join->alias))
5671 tgl@sss.pgh.pa.us 4183 :UBC 0 : return true;
4184 : : /* using list is deemed uninteresting */
4185 : : }
5671 tgl@sss.pgh.pa.us 4186 :CBC 1037 : break;
5671 tgl@sss.pgh.pa.us 4187 :UBC 0 : case T_IntoClause:
4188 : : {
4189 : 0 : IntoClause *into = (IntoClause *) node;
4190 : :
572 4191 [ # # ]: 0 : if (WALK(into->rel))
5671 4192 : 0 : return true;
4193 : : /* colNames, options are deemed uninteresting */
4194 : : /* viewQuery should be null in raw parsetree, but check it */
572 4195 [ # # ]: 0 : if (WALK(into->viewQuery))
4020 4196 : 0 : return true;
4197 : : }
5671 4198 : 0 : break;
5671 tgl@sss.pgh.pa.us 4199 :CBC 8636 : case T_List:
4200 [ + - + + : 23462 : foreach(temp, (List *) node)
+ + ]
4201 : : {
572 4202 [ - + ]: 14868 : if (WALK((Node *) lfirst(temp)))
5671 tgl@sss.pgh.pa.us 4203 :UBC 0 : return true;
4204 : : }
5671 tgl@sss.pgh.pa.us 4205 :CBC 8594 : break;
4797 4206 : 21 : case T_InsertStmt:
4207 : : {
4208 : 21 : InsertStmt *stmt = (InsertStmt *) node;
4209 : :
572 4210 [ - + ]: 21 : if (WALK(stmt->relation))
4797 tgl@sss.pgh.pa.us 4211 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4212 [ - + ]:CBC 21 : if (WALK(stmt->cols))
4797 tgl@sss.pgh.pa.us 4213 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4214 [ - + ]:CBC 21 : if (WALK(stmt->selectStmt))
4797 tgl@sss.pgh.pa.us 4215 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4216 [ - + ]:CBC 21 : if (WALK(stmt->onConflictClause))
3264 andres@anarazel.de 4217 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4218 [ - + ]:CBC 21 : if (WALK(stmt->returningList))
4797 tgl@sss.pgh.pa.us 4219 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4220 [ - + ]:CBC 21 : if (WALK(stmt->withClause))
4797 tgl@sss.pgh.pa.us 4221 :UBC 0 : return true;
4222 : : }
4797 tgl@sss.pgh.pa.us 4223 :CBC 21 : break;
4797 tgl@sss.pgh.pa.us 4224 :UBC 0 : case T_DeleteStmt:
4225 : : {
4226 : 0 : DeleteStmt *stmt = (DeleteStmt *) node;
4227 : :
572 4228 [ # # ]: 0 : if (WALK(stmt->relation))
4797 4229 : 0 : return true;
572 4230 [ # # ]: 0 : if (WALK(stmt->usingClause))
4797 4231 : 0 : return true;
572 4232 [ # # ]: 0 : if (WALK(stmt->whereClause))
4797 4233 : 0 : return true;
572 4234 [ # # ]: 0 : if (WALK(stmt->returningList))
4797 4235 : 0 : return true;
572 4236 [ # # ]: 0 : if (WALK(stmt->withClause))
4797 4237 : 0 : return true;
4238 : : }
4239 : 0 : break;
4797 tgl@sss.pgh.pa.us 4240 :CBC 3 : case T_UpdateStmt:
4241 : : {
4242 : 3 : UpdateStmt *stmt = (UpdateStmt *) node;
4243 : :
572 4244 [ - + ]: 3 : if (WALK(stmt->relation))
4797 tgl@sss.pgh.pa.us 4245 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4246 [ - + ]:CBC 3 : if (WALK(stmt->targetList))
4797 tgl@sss.pgh.pa.us 4247 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4248 [ - + ]:CBC 3 : if (WALK(stmt->whereClause))
4797 tgl@sss.pgh.pa.us 4249 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4250 [ - + ]:CBC 3 : if (WALK(stmt->fromClause))
4797 tgl@sss.pgh.pa.us 4251 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4252 [ - + ]:CBC 3 : if (WALK(stmt->returningList))
4797 tgl@sss.pgh.pa.us 4253 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4254 [ - + ]:CBC 3 : if (WALK(stmt->withClause))
4797 tgl@sss.pgh.pa.us 4255 :UBC 0 : return true;
4256 : : }
4797 tgl@sss.pgh.pa.us 4257 :CBC 3 : break;
748 alvherre@alvh.no-ip. 4258 :GBC 3 : case T_MergeStmt:
4259 : : {
4260 : 3 : MergeStmt *stmt = (MergeStmt *) node;
4261 : :
572 tgl@sss.pgh.pa.us 4262 [ - + ]: 3 : if (WALK(stmt->relation))
748 alvherre@alvh.no-ip. 4263 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4264 [ - + ]:GBC 3 : if (WALK(stmt->sourceRelation))
748 alvherre@alvh.no-ip. 4265 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4266 [ - + ]:GBC 3 : if (WALK(stmt->joinCondition))
748 alvherre@alvh.no-ip. 4267 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4268 [ - + ]:GBC 3 : if (WALK(stmt->mergeWhenClauses))
748 alvherre@alvh.no-ip. 4269 :UBC 0 : return true;
28 dean.a.rasheed@gmail 4270 [ - + ]:GNC 3 : if (WALK(stmt->returningList))
28 dean.a.rasheed@gmail 4271 :UNC 0 : return true;
572 tgl@sss.pgh.pa.us 4272 [ - + ]:GBC 3 : if (WALK(stmt->withClause))
748 alvherre@alvh.no-ip. 4273 :UBC 0 : return true;
4274 : : }
748 alvherre@alvh.no-ip. 4275 :GBC 3 : break;
4276 : 3 : case T_MergeWhenClause:
4277 : : {
4278 : 3 : MergeWhenClause *mergeWhenClause = (MergeWhenClause *) node;
4279 : :
572 tgl@sss.pgh.pa.us 4280 [ - + ]: 3 : if (WALK(mergeWhenClause->condition))
748 alvherre@alvh.no-ip. 4281 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4282 [ - + ]:GBC 3 : if (WALK(mergeWhenClause->targetList))
748 alvherre@alvh.no-ip. 4283 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4284 [ - + ]:GBC 3 : if (WALK(mergeWhenClause->values))
748 alvherre@alvh.no-ip. 4285 :UBC 0 : return true;
4286 : : }
748 alvherre@alvh.no-ip. 4287 :GBC 3 : break;
5671 tgl@sss.pgh.pa.us 4288 :CBC 3871 : case T_SelectStmt:
4289 : : {
4290 : 3871 : SelectStmt *stmt = (SelectStmt *) node;
4291 : :
572 4292 [ - + ]: 3871 : if (WALK(stmt->distinctClause))
5671 tgl@sss.pgh.pa.us 4293 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4294 [ - + ]:CBC 3871 : if (WALK(stmt->intoClause))
5671 tgl@sss.pgh.pa.us 4295 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4296 [ - + ]:CBC 3871 : if (WALK(stmt->targetList))
5671 tgl@sss.pgh.pa.us 4297 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4298 [ - + ]:CBC 3868 : if (WALK(stmt->fromClause))
5671 tgl@sss.pgh.pa.us 4299 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4300 [ - + ]:CBC 3832 : if (WALK(stmt->whereClause))
5671 tgl@sss.pgh.pa.us 4301 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4302 [ - + ]:CBC 3829 : if (WALK(stmt->groupClause))
5671 tgl@sss.pgh.pa.us 4303 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4304 [ - + ]:CBC 3829 : if (WALK(stmt->havingClause))
5671 tgl@sss.pgh.pa.us 4305 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4306 [ - + ]:CBC 3829 : if (WALK(stmt->windowClause))
5586 tgl@sss.pgh.pa.us 4307 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4308 [ - + ]:CBC 3829 : if (WALK(stmt->valuesLists))
5671 tgl@sss.pgh.pa.us 4309 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4310 [ - + ]:CBC 3829 : if (WALK(stmt->sortClause))
5671 tgl@sss.pgh.pa.us 4311 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4312 [ - + ]:CBC 3829 : if (WALK(stmt->limitOffset))
5671 tgl@sss.pgh.pa.us 4313 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4314 [ - + ]:CBC 3829 : if (WALK(stmt->limitCount))
5671 tgl@sss.pgh.pa.us 4315 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4316 [ - + ]:CBC 3829 : if (WALK(stmt->lockingClause))
5671 tgl@sss.pgh.pa.us 4317 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4318 [ - + ]:CBC 3829 : if (WALK(stmt->withClause))
4275 tgl@sss.pgh.pa.us 4319 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4320 [ - + ]:CBC 3829 : if (WALK(stmt->larg))
5671 tgl@sss.pgh.pa.us 4321 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4322 [ - + ]:CBC 3829 : if (WALK(stmt->rarg))
5671 tgl@sss.pgh.pa.us 4323 :UBC 0 : return true;
4324 : : }
5671 tgl@sss.pgh.pa.us 4325 :CBC 3823 : break;
1196 tgl@sss.pgh.pa.us 4326 :UBC 0 : case T_PLAssignStmt:
4327 : : {
4328 : 0 : PLAssignStmt *stmt = (PLAssignStmt *) node;
4329 : :
572 4330 [ # # ]: 0 : if (WALK(stmt->indirection))
1196 4331 : 0 : return true;
572 4332 [ # # ]: 0 : if (WALK(stmt->val))
1196 4333 : 0 : return true;
4334 : : }
4335 : 0 : break;
5671 tgl@sss.pgh.pa.us 4336 :CBC 6572 : case T_A_Expr:
4337 : : {
5421 bruce@momjian.us 4338 : 6572 : A_Expr *expr = (A_Expr *) node;
4339 : :
572 tgl@sss.pgh.pa.us 4340 [ - + ]: 6572 : if (WALK(expr->lexpr))
5671 tgl@sss.pgh.pa.us 4341 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4342 [ - + ]:CBC 6572 : if (WALK(expr->rexpr))
5671 tgl@sss.pgh.pa.us 4343 :UBC 0 : return true;
4344 : : /* operator name is deemed uninteresting */
4345 : : }
5671 tgl@sss.pgh.pa.us 4346 :CBC 6572 : break;
3590 4347 : 1954 : case T_BoolExpr:
4348 : : {
4349 : 1954 : BoolExpr *expr = (BoolExpr *) node;
4350 : :
572 4351 [ - + ]: 1954 : if (WALK(expr->args))
3590 tgl@sss.pgh.pa.us 4352 :UBC 0 : return true;
4353 : : }
3590 tgl@sss.pgh.pa.us 4354 :CBC 1954 : break;
5671 4355 : 13567 : case T_ColumnRef:
4356 : : /* we assume the fields contain nothing interesting */
4357 : 13567 : break;
4358 : 120 : case T_FuncCall:
4359 : : {
5421 bruce@momjian.us 4360 : 120 : FuncCall *fcall = (FuncCall *) node;
4361 : :
572 tgl@sss.pgh.pa.us 4362 [ - + ]: 120 : if (WALK(fcall->args))
5671 tgl@sss.pgh.pa.us 4363 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4364 [ - + ]:CBC 120 : if (WALK(fcall->agg_order))
5234 tgl@sss.pgh.pa.us 4365 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4366 [ - + ]:CBC 120 : if (WALK(fcall->agg_filter))
3925 noah@leadboat.com 4367 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4368 [ - + ]:CBC 120 : if (WALK(fcall->over))
5586 tgl@sss.pgh.pa.us 4369 :UBC 0 : return true;
4370 : : /* function name is deemed uninteresting */
4371 : : }
5671 tgl@sss.pgh.pa.us 4372 :CBC 120 : break;
5302 tgl@sss.pgh.pa.us 4373 :UBC 0 : case T_NamedArgExpr:
572 4374 : 0 : return WALK(((NamedArgExpr *) node)->arg);
5671 4375 : 0 : case T_A_Indices:
4376 : : {
5421 bruce@momjian.us 4377 : 0 : A_Indices *indices = (A_Indices *) node;
4378 : :
572 tgl@sss.pgh.pa.us 4379 [ # # ]: 0 : if (WALK(indices->lidx))
5671 4380 : 0 : return true;
572 4381 [ # # ]: 0 : if (WALK(indices->uidx))
5671 4382 : 0 : return true;
4383 : : }
4384 : 0 : break;
4385 : 0 : case T_A_Indirection:
4386 : : {
4387 : 0 : A_Indirection *indir = (A_Indirection *) node;
4388 : :
572 4389 [ # # ]: 0 : if (WALK(indir->arg))
5671 4390 : 0 : return true;
572 4391 [ # # ]: 0 : if (WALK(indir->indirection))
5671 4392 : 0 : return true;
4393 : : }
4394 : 0 : break;
5671 tgl@sss.pgh.pa.us 4395 :CBC 48 : case T_A_ArrayExpr:
572 4396 : 48 : return WALK(((A_ArrayExpr *) node)->elements);
5671 4397 : 4215 : case T_ResTarget:
4398 : : {
5421 bruce@momjian.us 4399 : 4215 : ResTarget *rt = (ResTarget *) node;
4400 : :
572 tgl@sss.pgh.pa.us 4401 [ - + ]: 4215 : if (WALK(rt->indirection))
5671 tgl@sss.pgh.pa.us 4402 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4403 [ - + ]:CBC 4215 : if (WALK(rt->val))
5671 tgl@sss.pgh.pa.us 4404 :UBC 0 : return true;
4405 : : }
5671 tgl@sss.pgh.pa.us 4406 :CBC 4212 : break;
3588 tgl@sss.pgh.pa.us 4407 :UBC 0 : case T_MultiAssignRef:
572 4408 : 0 : return WALK(((MultiAssignRef *) node)->source);
5671 tgl@sss.pgh.pa.us 4409 :CBC 912 : case T_TypeCast:
4410 : : {
5421 bruce@momjian.us 4411 : 912 : TypeCast *tc = (TypeCast *) node;
4412 : :
572 tgl@sss.pgh.pa.us 4413 [ - + ]: 912 : if (WALK(tc->arg))
5671 tgl@sss.pgh.pa.us 4414 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4415 [ - + ]:CBC 912 : if (WALK(tc->typeName))
5671 tgl@sss.pgh.pa.us 4416 :UBC 0 : return true;
4417 : : }
5671 tgl@sss.pgh.pa.us 4418 :CBC 912 : break;
4814 peter_e@gmx.net 4419 : 42 : case T_CollateClause:
572 tgl@sss.pgh.pa.us 4420 : 42 : return WALK(((CollateClause *) node)->arg);
5671 4421 : 3 : case T_SortBy:
572 4422 : 3 : return WALK(((SortBy *) node)->node);
5586 4423 : 12 : case T_WindowDef:
4424 : : {
5421 bruce@momjian.us 4425 : 12 : WindowDef *wd = (WindowDef *) node;
4426 : :
572 tgl@sss.pgh.pa.us 4427 [ - + ]: 12 : if (WALK(wd->partitionClause))
5586 tgl@sss.pgh.pa.us 4428 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4429 [ - + ]:CBC 12 : if (WALK(wd->orderClause))
5586 tgl@sss.pgh.pa.us 4430 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4431 [ - + ]:CBC 12 : if (WALK(wd->startOffset))
5175 tgl@sss.pgh.pa.us 4432 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4433 [ - + ]:CBC 12 : if (WALK(wd->endOffset))
5175 tgl@sss.pgh.pa.us 4434 :UBC 0 : return true;
4435 : : }
5586 tgl@sss.pgh.pa.us 4436 :CBC 12 : break;
5671 4437 : 131 : case T_RangeSubselect:
4438 : : {
4439 : 131 : RangeSubselect *rs = (RangeSubselect *) node;
4440 : :
572 4441 [ - + ]: 131 : if (WALK(rs->subquery))
5671 tgl@sss.pgh.pa.us 4442 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4443 [ - + ]:CBC 128 : if (WALK(rs->alias))
5671 tgl@sss.pgh.pa.us 4444 :UBC 0 : return true;
4445 : : }
5671 tgl@sss.pgh.pa.us 4446 :CBC 128 : break;
4447 : 36 : case T_RangeFunction:
4448 : : {
4449 : 36 : RangeFunction *rf = (RangeFunction *) node;
4450 : :
572 4451 [ - + ]: 36 : if (WALK(rf->functions))
5671 tgl@sss.pgh.pa.us 4452 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4453 [ - + ]:CBC 36 : if (WALK(rf->alias))
5671 tgl@sss.pgh.pa.us 4454 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4455 [ - + ]:CBC 36 : if (WALK(rf->coldeflist))
3797 tgl@sss.pgh.pa.us 4456 :UBC 0 : return true;
4457 : : }
5671 tgl@sss.pgh.pa.us 4458 :CBC 36 : break;
3186 tgl@sss.pgh.pa.us 4459 :UBC 0 : case T_RangeTableSample:
4460 : : {
4461 : 0 : RangeTableSample *rts = (RangeTableSample *) node;
4462 : :
572 4463 [ # # ]: 0 : if (WALK(rts->relation))
3186 4464 : 0 : return true;
4465 : : /* method name is deemed uninteresting */
572 4466 [ # # ]: 0 : if (WALK(rts->args))
3186 4467 : 0 : return true;
572 4468 [ # # ]: 0 : if (WALK(rts->repeatable))
3186 4469 : 0 : return true;
4470 : : }
4471 : 0 : break;
2594 alvherre@alvh.no-ip. 4472 : 0 : case T_RangeTableFunc:
4473 : : {
4474 : 0 : RangeTableFunc *rtf = (RangeTableFunc *) node;
4475 : :
572 tgl@sss.pgh.pa.us 4476 [ # # ]: 0 : if (WALK(rtf->docexpr))
2594 alvherre@alvh.no-ip. 4477 : 0 : return true;
572 tgl@sss.pgh.pa.us 4478 [ # # ]: 0 : if (WALK(rtf->rowexpr))
2594 alvherre@alvh.no-ip. 4479 : 0 : return true;
572 tgl@sss.pgh.pa.us 4480 [ # # ]: 0 : if (WALK(rtf->namespaces))
2594 alvherre@alvh.no-ip. 4481 : 0 : return true;
572 tgl@sss.pgh.pa.us 4482 [ # # ]: 0 : if (WALK(rtf->columns))
2594 alvherre@alvh.no-ip. 4483 : 0 : return true;
572 tgl@sss.pgh.pa.us 4484 [ # # ]: 0 : if (WALK(rtf->alias))
2594 alvherre@alvh.no-ip. 4485 : 0 : return true;
4486 : : }
4487 : 0 : break;
4488 : 0 : case T_RangeTableFuncCol:
4489 : : {
4490 : 0 : RangeTableFuncCol *rtfc = (RangeTableFuncCol *) node;
4491 : :
572 tgl@sss.pgh.pa.us 4492 [ # # ]: 0 : if (WALK(rtfc->colexpr))
2594 alvherre@alvh.no-ip. 4493 : 0 : return true;
572 tgl@sss.pgh.pa.us 4494 [ # # ]: 0 : if (WALK(rtfc->coldefexpr))
2594 alvherre@alvh.no-ip. 4495 : 0 : return true;
4496 : : }
4497 : 0 : break;
5671 tgl@sss.pgh.pa.us 4498 :CBC 912 : case T_TypeName:
4499 : : {
5421 bruce@momjian.us 4500 : 912 : TypeName *tn = (TypeName *) node;
4501 : :
572 tgl@sss.pgh.pa.us 4502 [ - + ]: 912 : if (WALK(tn->typmods))
5671 tgl@sss.pgh.pa.us 4503 :UBC 0 : return true;
572 tgl@sss.pgh.pa.us 4504 [ - + ]:CBC 912 : if (WALK(tn->arrayBounds))
5671 tgl@sss.pgh.pa.us 4505 :UBC 0 : return true;
4506 : : /* type name itself is deemed uninteresting */
4507 : : }
5671 tgl@sss.pgh.pa.us 4508 :CBC 912 : break;
5671 tgl@sss.pgh.pa.us 4509 :UBC 0 : case T_ColumnDef:
4510 : : {
5421 bruce@momjian.us 4511 : 0 : ColumnDef *coldef = (ColumnDef *) node;
4512 : :
572 tgl@sss.pgh.pa.us 4513 [ # # ]: 0 : if (WALK(coldef->typeName))
5671 4514 : 0 : return true;
572 4515 [ # # ]: 0 : if (WALK(coldef->raw_default))
5671 4516 : 0 : return true;
572 4517 [ # # ]: 0 : if (WALK(coldef->collClause))
4768 4518 : 0 : return true;
4519 : : /* for now, constraints are ignored */
4520 : : }
5671 4521 : 0 : break;
2883 4522 : 0 : case T_IndexElem:
4523 : : {
4524 : 0 : IndexElem *indelem = (IndexElem *) node;
4525 : :
572 4526 [ # # ]: 0 : if (WALK(indelem->expr))
2883 4527 : 0 : return true;
4528 : : /* collation and opclass names are deemed uninteresting */
4529 : : }
4530 : 0 : break;
3256 andres@anarazel.de 4531 : 0 : case T_GroupingSet:
572 tgl@sss.pgh.pa.us 4532 : 0 : return WALK(((GroupingSet *) node)->content);
5671 tgl@sss.pgh.pa.us 4533 :CBC 3 : case T_LockingClause:
572 4534 : 3 : return WALK(((LockingClause *) node)->lockedRels);
5671 tgl@sss.pgh.pa.us 4535 :UBC 0 : case T_XmlSerialize:
4536 : : {
4537 : 0 : XmlSerialize *xs = (XmlSerialize *) node;
4538 : :
572 4539 [ # # ]: 0 : if (WALK(xs->expr))
5671 4540 : 0 : return true;
572 4541 [ # # ]: 0 : if (WALK(xs->typeName))
5671 4542 : 0 : return true;
4543 : : }
4544 : 0 : break;
4545 : 0 : case T_WithClause:
572 4546 : 0 : return WALK(((WithClause *) node)->ctes);
3264 andres@anarazel.de 4547 : 0 : case T_InferClause:
4548 : : {
4549 : 0 : InferClause *stmt = (InferClause *) node;
4550 : :
572 tgl@sss.pgh.pa.us 4551 [ # # ]: 0 : if (WALK(stmt->indexElems))
3264 andres@anarazel.de 4552 : 0 : return true;
572 tgl@sss.pgh.pa.us 4553 [ # # ]: 0 : if (WALK(stmt->whereClause))
3264 andres@anarazel.de 4554 : 0 : return true;
4555 : : }
4556 : 0 : break;
4557 : 0 : case T_OnConflictClause:
4558 : : {
4559 : 0 : OnConflictClause *stmt = (OnConflictClause *) node;
4560 : :
572 tgl@sss.pgh.pa.us 4561 [ # # ]: 0 : if (WALK(stmt->infer))
3264 andres@anarazel.de 4562 : 0 : return true;
572 tgl@sss.pgh.pa.us 4563 [ # # ]: 0 : if (WALK(stmt->targetList))
3264 andres@anarazel.de 4564 : 0 : return true;
572 tgl@sss.pgh.pa.us 4565 [ # # ]: 0 : if (WALK(stmt->whereClause))
3264 andres@anarazel.de 4566 : 0 : return true;
4567 : : }
4568 : 0 : break;
5671 tgl@sss.pgh.pa.us 4569 :CBC 6 : case T_CommonTableExpr:
4570 : : /* search_clause and cycle_clause are not interesting here */
572 4571 : 6 : return WALK(((CommonTableExpr *) node)->ctequery);
382 alvherre@alvh.no-ip. 4572 :UBC 0 : case T_JsonOutput:
4573 : : {
4574 : 0 : JsonOutput *out = (JsonOutput *) node;
4575 : :
4576 [ # # ]: 0 : if (WALK(out->typeName))
4577 : 0 : return true;
4578 [ # # ]: 0 : if (WALK(out->returning))
4579 : 0 : return true;
4580 : : }
4581 : 0 : break;
4582 : 0 : case T_JsonKeyValue:
4583 : : {
4584 : 0 : JsonKeyValue *jkv = (JsonKeyValue *) node;
4585 : :
4586 [ # # ]: 0 : if (WALK(jkv->key))
4587 : 0 : return true;
4588 [ # # ]: 0 : if (WALK(jkv->value))
4589 : 0 : return true;
4590 : : }
4591 : 0 : break;
4592 : 0 : case T_JsonObjectConstructor:
4593 : : {
4594 : 0 : JsonObjectConstructor *joc = (JsonObjectConstructor *) node;
4595 : :
4596 [ # # ]: 0 : if (WALK(joc->output))
4597 : 0 : return true;
4598 [ # # ]: 0 : if (WALK(joc->exprs))
4599 : 0 : return true;
4600 : : }
4601 : 0 : break;
4602 : 0 : case T_JsonArrayConstructor:
4603 : : {
4604 : 0 : JsonArrayConstructor *jac = (JsonArrayConstructor *) node;
4605 : :
4606 [ # # ]: 0 : if (WALK(jac->output))
4607 : 0 : return true;
4608 [ # # ]: 0 : if (WALK(jac->exprs))
4609 : 0 : return true;
4610 : : }
4611 : 0 : break;
4612 : 0 : case T_JsonAggConstructor:
4613 : : {
4614 : 0 : JsonAggConstructor *ctor = (JsonAggConstructor *) node;
4615 : :
4616 [ # # ]: 0 : if (WALK(ctor->output))
4617 : 0 : return true;
4618 [ # # ]: 0 : if (WALK(ctor->agg_order))
4619 : 0 : return true;
4620 [ # # ]: 0 : if (WALK(ctor->agg_filter))
4621 : 0 : return true;
4622 [ # # ]: 0 : if (WALK(ctor->over))
4623 : 0 : return true;
4624 : : }
4625 : 0 : break;
4626 : 0 : case T_JsonObjectAgg:
4627 : : {
4628 : 0 : JsonObjectAgg *joa = (JsonObjectAgg *) node;
4629 : :
4630 [ # # ]: 0 : if (WALK(joa->constructor))
4631 : 0 : return true;
4632 [ # # ]: 0 : if (WALK(joa->arg))
4633 : 0 : return true;
4634 : : }
4635 : 0 : break;
4636 : 0 : case T_JsonArrayAgg:
4637 : : {
4638 : 0 : JsonArrayAgg *jaa = (JsonArrayAgg *) node;
4639 : :
4640 [ # # ]: 0 : if (WALK(jaa->constructor))
4641 : 0 : return true;
4642 [ # # ]: 0 : if (WALK(jaa->arg))
4643 : 0 : return true;
4644 : : }
4645 : 0 : break;
4646 : 0 : case T_JsonArrayQueryConstructor:
4647 : : {
4648 : 0 : JsonArrayQueryConstructor *jaqc = (JsonArrayQueryConstructor *) node;
4649 : :
4650 [ # # ]: 0 : if (WALK(jaqc->output))
4651 : 0 : return true;
4652 [ # # ]: 0 : if (WALK(jaqc->query))
4653 : 0 : return true;
4654 : : }
4655 : 0 : break;
5671 tgl@sss.pgh.pa.us 4656 : 0 : default:
4657 [ # # ]: 0 : elog(ERROR, "unrecognized node type: %d",
4658 : : (int) nodeTag(node));
4659 : : break;
4660 : : }
5671 tgl@sss.pgh.pa.us 4661 :CBC 46856 : return false;
4662 : : }
4663 : :
4664 : : /*
4665 : : * planstate_tree_walker --- walk plan state trees
4666 : : *
4667 : : * The walker has already visited the current node, and so we need only
4668 : : * recurse into any sub-nodes it has.
4669 : : */
4670 : : bool
572 4671 : 630080 : planstate_tree_walker_impl(PlanState *planstate,
4672 : : planstate_tree_walker_callback walker,
4673 : : void *context)
4674 : : {
3132 rhaas@postgresql.org 4675 : 630080 : Plan *plan = planstate->plan;
4676 : : ListCell *lc;
4677 : :
4678 : : /* We don't need implicit coercions to Node here */
4679 : : #define PSWALK(n) walker(n, context)
4680 : :
4681 : : /* Guard against stack overflow due to overly complex plan trees */
1952 tgl@sss.pgh.pa.us 4682 : 630080 : check_stack_depth();
4683 : :
4684 : : /* initPlan-s */
3132 rhaas@postgresql.org 4685 [ - + ]: 630080 : if (planstate_walk_subplans(planstate->initPlan, walker, context))
3132 rhaas@postgresql.org 4686 :UBC 0 : return true;
4687 : :
4688 : : /* lefttree */
3132 rhaas@postgresql.org 4689 [ + + ]:CBC 630080 : if (outerPlanState(planstate))
4690 : : {
572 tgl@sss.pgh.pa.us 4691 [ - + ]: 222248 : if (PSWALK(outerPlanState(planstate)))
3132 rhaas@postgresql.org 4692 :UBC 0 : return true;
4693 : : }
4694 : :
4695 : : /* righttree */
3132 rhaas@postgresql.org 4696 [ + + ]:CBC 630080 : if (innerPlanState(planstate))
4697 : : {
572 tgl@sss.pgh.pa.us 4698 [ - + ]: 61968 : if (PSWALK(innerPlanState(planstate)))
3132 rhaas@postgresql.org 4699 :UBC 0 : return true;
4700 : : }
4701 : :
4702 : : /* special child plans */
3132 rhaas@postgresql.org 4703 [ + + + + :CBC 630080 : switch (nodeTag(plan))
+ - + ]
4704 : : {
4705 : 7488 : case T_Append:
2199 alvherre@alvh.no-ip. 4706 [ - + ]: 7488 : if (planstate_walk_members(((AppendState *) planstate)->appendplans,
4707 : : ((AppendState *) planstate)->as_nplans,
4708 : : walker, context))
3132 rhaas@postgresql.org 4709 :UBC 0 : return true;
3132 rhaas@postgresql.org 4710 :CBC 7488 : break;
4711 : 266 : case T_MergeAppend:
2199 alvherre@alvh.no-ip. 4712 [ - + ]: 266 : if (planstate_walk_members(((MergeAppendState *) planstate)->mergeplans,
4713 : : ((MergeAppendState *) planstate)->ms_nplans,
4714 : : walker, context))
3132 rhaas@postgresql.org 4715 :UBC 0 : return true;
3132 rhaas@postgresql.org 4716 :CBC 266 : break;
4717 : 50 : case T_BitmapAnd:
2199 alvherre@alvh.no-ip. 4718 [ - + ]: 50 : if (planstate_walk_members(((BitmapAndState *) planstate)->bitmapplans,
4719 : : ((BitmapAndState *) planstate)->nplans,
4720 : : walker, context))
3132 rhaas@postgresql.org 4721 :UBC 0 : return true;
3132 rhaas@postgresql.org 4722 :CBC 50 : break;
4723 : 162 : case T_BitmapOr:
2199 alvherre@alvh.no-ip. 4724 [ - + ]: 162 : if (planstate_walk_members(((BitmapOrState *) planstate)->bitmapplans,
4725 : : ((BitmapOrState *) planstate)->nplans,
4726 : : walker, context))
3132 rhaas@postgresql.org 4727 :UBC 0 : return true;
3132 rhaas@postgresql.org 4728 :CBC 162 : break;
4729 : 5241 : case T_SubqueryScan:
572 tgl@sss.pgh.pa.us 4730 [ - + ]: 5241 : if (PSWALK(((SubqueryScanState *) planstate)->subplan))
3132 rhaas@postgresql.org 4731 :UBC 0 : return true;
3132 rhaas@postgresql.org 4732 :CBC 5241 : break;
3127 rhaas@postgresql.org 4733 :UBC 0 : case T_CustomScan:
2866 4734 [ # # # # : 0 : foreach(lc, ((CustomScanState *) planstate)->custom_ps)
# # ]
4735 : : {
572 tgl@sss.pgh.pa.us 4736 [ # # ]: 0 : if (PSWALK(lfirst(lc)))
3127 rhaas@postgresql.org 4737 : 0 : return true;
4738 : : }
4739 : 0 : break;
3132 rhaas@postgresql.org 4740 :CBC 616873 : default:
4741 : 616873 : break;
4742 : : }
4743 : :
4744 : : /* subPlan-s */
4745 [ - + ]: 630080 : if (planstate_walk_subplans(planstate->subPlan, walker, context))
3132 rhaas@postgresql.org 4746 :UBC 0 : return true;
4747 : :
3132 rhaas@postgresql.org 4748 :CBC 630080 : return false;
4749 : : }
4750 : :
4751 : : /*
4752 : : * Walk a list of SubPlans (or initPlans, which also use SubPlan nodes).
4753 : : */
4754 : : static bool
2909 4755 : 1260160 : planstate_walk_subplans(List *plans,
4756 : : planstate_tree_walker_callback walker,
4757 : : void *context)
4758 : : {
4759 : : ListCell *lc;
4760 : :
3132 4761 [ + + + + : 1278527 : foreach(lc, plans)
+ + ]
4762 : : {
2561 tgl@sss.pgh.pa.us 4763 : 18367 : SubPlanState *sps = lfirst_node(SubPlanState, lc);
4764 : :
572 4765 [ - + ]: 18367 : if (PSWALK(sps->planstate))
3132 rhaas@postgresql.org 4766 :UBC 0 : return true;
4767 : : }
4768 : :
3132 rhaas@postgresql.org 4769 :CBC 1260160 : return false;
4770 : : }
4771 : :
4772 : : /*
4773 : : * Walk the constituent plans of a ModifyTable, Append, MergeAppend,
4774 : : * BitmapAnd, or BitmapOr node.
4775 : : */
4776 : : static bool
2199 alvherre@alvh.no-ip. 4777 : 7966 : planstate_walk_members(PlanState **planstates, int nplans,
4778 : : planstate_tree_walker_callback walker,
4779 : : void *context)
4780 : : {
4781 : : int j;
4782 : :
3132 rhaas@postgresql.org 4783 [ + + ]: 31890 : for (j = 0; j < nplans; j++)
4784 : : {
572 tgl@sss.pgh.pa.us 4785 [ - + ]: 23924 : if (PSWALK(planstates[j]))
3132 rhaas@postgresql.org 4786 :UBC 0 : return true;
4787 : : }
4788 : :
3132 rhaas@postgresql.org 4789 :CBC 7966 : return false;
4790 : : }
|
