granicus.if.org Git - postgresql/blob - src/backend/nodes/outfuncs.c

   1 /*-------------------------------------------------------------------------
   2  *
   3  * outfuncs.c
   4  *        Output functions for Postgres tree nodes.
   5  *
   6  * Portions Copyright (c) 1996-2005, PostgreSQL Global Development Group
   7  * Portions Copyright (c) 1994, Regents of the University of California
   8  *
   9  *
  10  * IDENTIFICATION
  11  *        $PostgreSQL: pgsql/src/backend/nodes/outfuncs.c,v 1.265 2005/12/20 02:30:35 tgl Exp $
  12  *
  13  * NOTES
  14  *        Every node type that can appear in stored rules' parsetrees *must*
  15  *        have an output function defined here (as well as an input function
  16  *        in readfuncs.c).      For use in debugging, we also provide output
  17  *        functions for nodes that appear in raw parsetrees, path, and plan trees.
  18  *        These nodes however need not have input functions.
  19  *
  20  *-------------------------------------------------------------------------
  21  */
  22 #include "postgres.h"
  23
  24 #include <ctype.h>
  25
  26 #include "lib/stringinfo.h"
  27 #include "nodes/parsenodes.h"
  28 #include "nodes/plannodes.h"
  29 #include "nodes/relation.h"
  30 #include "utils/datum.h"
  31
  32
  33 /*
  34  * Macros to simplify output of different kinds of fields.      Use these
  35  * wherever possible to reduce the chance for silly typos.      Note that these
  36  * hard-wire conventions about the names of the local variables in an Out
  37  * routine.
  38  */
  39
  40 /* Write the label for the node type */
  41 #define WRITE_NODE_TYPE(nodelabel) \
  42         appendStringInfoString(str, nodelabel)
  43
  44 /* Write an integer field (anything written as ":fldname %d") */
  45 #define WRITE_INT_FIELD(fldname) \
  46         appendStringInfo(str, " :" CppAsString(fldname) " %d", node->fldname)
  47
  48 /* Write an unsigned integer field (anything written as ":fldname %u") */
  49 #define WRITE_UINT_FIELD(fldname) \
  50         appendStringInfo(str, " :" CppAsString(fldname) " %u", node->fldname)
  51
  52 /* Write an OID field (don't hard-wire assumption that OID is same as uint) */
  53 #define WRITE_OID_FIELD(fldname) \
  54         appendStringInfo(str, " :" CppAsString(fldname) " %u", node->fldname)
  55
  56 /* Write a long-integer field */
  57 #define WRITE_LONG_FIELD(fldname) \
  58         appendStringInfo(str, " :" CppAsString(fldname) " %ld", node->fldname)
  59
  60 /* Write a char field (ie, one ascii character) */
  61 #define WRITE_CHAR_FIELD(fldname) \
  62         appendStringInfo(str, " :" CppAsString(fldname) " %c", node->fldname)
  63
  64 /* Write an enumerated-type field as an integer code */
  65 #define WRITE_ENUM_FIELD(fldname, enumtype) \
  66         appendStringInfo(str, " :" CppAsString(fldname) " %d", \
  67                                          (int) node->fldname)
  68
  69 /* Write a float field --- caller must give format to define precision */
  70 #define WRITE_FLOAT_FIELD(fldname,format) \
  71         appendStringInfo(str, " :" CppAsString(fldname) " " format, node->fldname)
  72
  73 /* Write a boolean field */
  74 #define WRITE_BOOL_FIELD(fldname) \
  75         appendStringInfo(str, " :" CppAsString(fldname) " %s", \
  76                                          booltostr(node->fldname))
  77
  78 /* Write a character-string (possibly NULL) field */
  79 #define WRITE_STRING_FIELD(fldname) \
  80         (appendStringInfo(str, " :" CppAsString(fldname) " "), \
  81          _outToken(str, node->fldname))
  82
  83 /* Write a Node field */
  84 #define WRITE_NODE_FIELD(fldname) \
  85         (appendStringInfo(str, " :" CppAsString(fldname) " "), \
  86          _outNode(str, node->fldname))
  87
  88 /* Write a bitmapset field */
  89 #define WRITE_BITMAPSET_FIELD(fldname) \
  90         (appendStringInfo(str, " :" CppAsString(fldname) " "), \
  91          _outBitmapset(str, node->fldname))
  92
  93
  94 #define booltostr(x)  ((x) ? "true" : "false")
  95
  96 static void _outNode(StringInfo str, void *obj);
  97
  98
  99 /*
 100  * _outToken
 101  *        Convert an ordinary string (eg, an identifier) into a form that
 102  *        will be decoded back to a plain token by read.c's functions.
 103  *
 104  *        If a null or empty string is given, it is encoded as "<>".
 105  */
 106 static void
 107 _outToken(StringInfo str, char *s)
 108 {
 109         if (s == NULL || *s == '\0')
 110         {
 111                 appendStringInfo(str, "<>");
 112                 return;
 113         }
 114
 115         /*
 116          * Look for characters or patterns that are treated specially by read.c
 117          * (either in pg_strtok() or in nodeRead()), and therefore need a
 118          * protective backslash.
 119          */
 120         /* These characters only need to be quoted at the start of the string */
 121         if (*s == '<' ||
 122                 *s == '\"' ||
 123                 isdigit((unsigned char) *s) ||
 124                 ((*s == '+' || *s == '-') &&
 125                  (isdigit((unsigned char) s[1]) || s[1] == '.')))
 126                 appendStringInfoChar(str, '\\');
 127         while (*s)
 128         {
 129                 /* These chars must be backslashed anywhere in the string */
 130                 if (*s == ' ' || *s == '\n' || *s == '\t' ||
 131                         *s == '(' || *s == ')' || *s == '{' || *s == '}' ||
 132                         *s == '\\')
 133                         appendStringInfoChar(str, '\\');
 134                 appendStringInfoChar(str, *s++);
 135         }
 136 }
 137
 138 static void
 139 _outList(StringInfo str, List *node)
 140 {
 141         ListCell   *lc;
 142
 143         appendStringInfoChar(str, '(');
 144
 145         if (IsA(node, IntList))
 146                 appendStringInfoChar(str, 'i');
 147         else if (IsA(node, OidList))
 148                 appendStringInfoChar(str, 'o');
 149
 150         foreach(lc, node)
 151         {
 152                 /*
 153                  * For the sake of backward compatibility, we emit a slightly
 154                  * different whitespace format for lists of nodes vs. other types of
 155                  * lists. XXX: is this necessary?
 156                  */
 157                 if (IsA(node, List))
 158                 {
 159                         _outNode(str, lfirst(lc));
 160                         if (lnext(lc))
 161                                 appendStringInfoChar(str, ' ');
 162                 }
 163                 else if (IsA(node, IntList))
 164                         appendStringInfo(str, " %d", lfirst_int(lc));
 165                 else if (IsA(node, OidList))
 166                         appendStringInfo(str, " %u", lfirst_oid(lc));
 167                 else
 168                         elog(ERROR, "unrecognized list node type: %d",
 169                                  (int) node->type);
 170         }
 171
 172         appendStringInfoChar(str, ')');
 173 }
 174
 175 /*
 176  * _outBitmapset -
 177  *         converts a bitmap set of integers
 178  *
 179  * Note: the output format is "(b int int ...)", similar to an integer List.
 180  * Currently bitmapsets do not appear in any node type that is stored in
 181  * rules, so there is no support in readfuncs.c for reading this format.
 182  */
 183 static void
 184 _outBitmapset(StringInfo str, Bitmapset *bms)
 185 {
 186         Bitmapset  *tmpset;
 187         int                     x;
 188
 189         appendStringInfoChar(str, '(');
 190         appendStringInfoChar(str, 'b');
 191         tmpset = bms_copy(bms);
 192         while ((x = bms_first_member(tmpset)) >= 0)
 193                 appendStringInfo(str, " %d", x);
 194         bms_free(tmpset);
 195         appendStringInfoChar(str, ')');
 196 }
 197
 198 /*
 199  * Print the value of a Datum given its type.
 200  */
 201 static void
 202 _outDatum(StringInfo str, Datum value, int typlen, bool typbyval)
 203 {
 204         Size            length,
 205                                 i;
 206         char       *s;
 207
 208         length = datumGetSize(value, typbyval, typlen);
 209
 210         if (typbyval)
 211         {
 212                 s = (char *) (&value);
 213                 appendStringInfo(str, "%u [ ", (unsigned int) length);
 214                 for (i = 0; i < (Size) sizeof(Datum); i++)
 215                         appendStringInfo(str, "%d ", (int) (s[i]));
 216                 appendStringInfo(str, "]");
 217         }
 218         else
 219         {
 220                 s = (char *) DatumGetPointer(value);
 221                 if (!PointerIsValid(s))
 222                         appendStringInfo(str, "0 [ ]");
 223                 else
 224                 {
 225                         appendStringInfo(str, "%u [ ", (unsigned int) length);
 226                         for (i = 0; i < length; i++)
 227                                 appendStringInfo(str, "%d ", (int) (s[i]));
 228                         appendStringInfo(str, "]");
 229                 }
 230         }
 231 }
 232
 233
 234 /*
 235  *      Stuff from plannodes.h
 236  */
 237
 238 /*
 239  * print the basic stuff of all nodes that inherit from Plan
 240  */
 241 static void
 242 _outPlanInfo(StringInfo str, Plan *node)
 243 {
 244         WRITE_FLOAT_FIELD(startup_cost, "%.2f");
 245         WRITE_FLOAT_FIELD(total_cost, "%.2f");
 246         WRITE_FLOAT_FIELD(plan_rows, "%.0f");
 247         WRITE_INT_FIELD(plan_width);
 248         WRITE_NODE_FIELD(targetlist);
 249         WRITE_NODE_FIELD(qual);
 250         WRITE_NODE_FIELD(lefttree);
 251         WRITE_NODE_FIELD(righttree);
 252         WRITE_NODE_FIELD(initPlan);
 253         WRITE_BITMAPSET_FIELD(extParam);
 254         WRITE_BITMAPSET_FIELD(allParam);
 255         WRITE_INT_FIELD(nParamExec);
 256 }
 257
 258 /*
 259  * print the basic stuff of all nodes that inherit from Scan
 260  */
 261 static void
 262 _outScanInfo(StringInfo str, Scan *node)
 263 {
 264         _outPlanInfo(str, (Plan *) node);
 265
 266         WRITE_UINT_FIELD(scanrelid);
 267 }
 268
 269 /*
 270  * print the basic stuff of all nodes that inherit from Join
 271  */
 272 static void
 273 _outJoinPlanInfo(StringInfo str, Join *node)
 274 {
 275         _outPlanInfo(str, (Plan *) node);
 276
 277         WRITE_ENUM_FIELD(jointype, JoinType);
 278         WRITE_NODE_FIELD(joinqual);
 279 }
 280
 281
 282 static void
 283 _outPlan(StringInfo str, Plan *node)
 284 {
 285         WRITE_NODE_TYPE("PLAN");
 286
 287         _outPlanInfo(str, (Plan *) node);
 288 }
 289
 290 static void
 291 _outResult(StringInfo str, Result *node)
 292 {
 293         WRITE_NODE_TYPE("RESULT");
 294
 295         _outPlanInfo(str, (Plan *) node);
 296
 297         WRITE_NODE_FIELD(resconstantqual);
 298 }
 299
 300 static void
 301 _outAppend(StringInfo str, Append *node)
 302 {
 303         WRITE_NODE_TYPE("APPEND");
 304
 305         _outPlanInfo(str, (Plan *) node);
 306
 307         WRITE_NODE_FIELD(appendplans);
 308         WRITE_BOOL_FIELD(isTarget);
 309 }
 310
 311 static void
 312 _outBitmapAnd(StringInfo str, BitmapAnd *node)
 313 {
 314         WRITE_NODE_TYPE("BITMAPAND");
 315
 316         _outPlanInfo(str, (Plan *) node);
 317
 318         WRITE_NODE_FIELD(bitmapplans);
 319 }
 320
 321 static void
 322 _outBitmapOr(StringInfo str, BitmapOr *node)
 323 {
 324         WRITE_NODE_TYPE("BITMAPOR");
 325
 326         _outPlanInfo(str, (Plan *) node);
 327
 328         WRITE_NODE_FIELD(bitmapplans);
 329 }
 330
 331 static void
 332 _outScan(StringInfo str, Scan *node)
 333 {
 334         WRITE_NODE_TYPE("SCAN");
 335
 336         _outScanInfo(str, (Scan *) node);
 337 }
 338
 339 static void
 340 _outSeqScan(StringInfo str, SeqScan *node)
 341 {
 342         WRITE_NODE_TYPE("SEQSCAN");
 343
 344         _outScanInfo(str, (Scan *) node);
 345 }
 346
 347 static void
 348 _outIndexScan(StringInfo str, IndexScan *node)
 349 {
 350         WRITE_NODE_TYPE("INDEXSCAN");
 351
 352         _outScanInfo(str, (Scan *) node);
 353
 354         WRITE_OID_FIELD(indexid);
 355         WRITE_NODE_FIELD(indexqual);
 356         WRITE_NODE_FIELD(indexqualorig);
 357         WRITE_NODE_FIELD(indexstrategy);
 358         WRITE_NODE_FIELD(indexsubtype);
 359         WRITE_ENUM_FIELD(indexorderdir, ScanDirection);
 360 }
 361
 362 static void
 363 _outBitmapIndexScan(StringInfo str, BitmapIndexScan *node)
 364 {
 365         WRITE_NODE_TYPE("BITMAPINDEXSCAN");
 366
 367         _outScanInfo(str, (Scan *) node);
 368
 369         WRITE_OID_FIELD(indexid);
 370         WRITE_NODE_FIELD(indexqual);
 371         WRITE_NODE_FIELD(indexqualorig);
 372         WRITE_NODE_FIELD(indexstrategy);
 373         WRITE_NODE_FIELD(indexsubtype);
 374 }
 375
 376 static void
 377 _outBitmapHeapScan(StringInfo str, BitmapHeapScan *node)
 378 {
 379         WRITE_NODE_TYPE("BITMAPHEAPSCAN");
 380
 381         _outScanInfo(str, (Scan *) node);
 382
 383         WRITE_NODE_FIELD(bitmapqualorig);
 384 }
 385
 386 static void
 387 _outTidScan(StringInfo str, TidScan *node)
 388 {
 389         WRITE_NODE_TYPE("TIDSCAN");
 390
 391         _outScanInfo(str, (Scan *) node);
 392
 393         WRITE_NODE_FIELD(tidquals);
 394 }
 395
 396 static void
 397 _outSubqueryScan(StringInfo str, SubqueryScan *node)
 398 {
 399         WRITE_NODE_TYPE("SUBQUERYSCAN");
 400
 401         _outScanInfo(str, (Scan *) node);
 402
 403         WRITE_NODE_FIELD(subplan);
 404 }
 405
 406 static void
 407 _outFunctionScan(StringInfo str, FunctionScan *node)
 408 {
 409         WRITE_NODE_TYPE("FUNCTIONSCAN");
 410
 411         _outScanInfo(str, (Scan *) node);
 412 }
 413
 414 static void
 415 _outJoin(StringInfo str, Join *node)
 416 {
 417         WRITE_NODE_TYPE("JOIN");
 418
 419         _outJoinPlanInfo(str, (Join *) node);
 420 }
 421
 422 static void
 423 _outNestLoop(StringInfo str, NestLoop *node)
 424 {
 425         WRITE_NODE_TYPE("NESTLOOP");
 426
 427         _outJoinPlanInfo(str, (Join *) node);
 428 }
 429
 430 static void
 431 _outMergeJoin(StringInfo str, MergeJoin *node)
 432 {
 433         WRITE_NODE_TYPE("MERGEJOIN");
 434
 435         _outJoinPlanInfo(str, (Join *) node);
 436
 437         WRITE_NODE_FIELD(mergeclauses);
 438 }
 439
 440 static void
 441 _outHashJoin(StringInfo str, HashJoin *node)
 442 {
 443         WRITE_NODE_TYPE("HASHJOIN");
 444
 445         _outJoinPlanInfo(str, (Join *) node);
 446
 447         WRITE_NODE_FIELD(hashclauses);
 448 }
 449
 450 static void
 451 _outAgg(StringInfo str, Agg *node)
 452 {
 453         WRITE_NODE_TYPE("AGG");
 454
 455         _outPlanInfo(str, (Plan *) node);
 456
 457         WRITE_ENUM_FIELD(aggstrategy, AggStrategy);
 458         WRITE_INT_FIELD(numCols);
 459         WRITE_LONG_FIELD(numGroups);
 460 }
 461
 462 static void
 463 _outGroup(StringInfo str, Group *node)
 464 {
 465         int                     i;
 466
 467         WRITE_NODE_TYPE("GROUP");
 468
 469         _outPlanInfo(str, (Plan *) node);
 470
 471         WRITE_INT_FIELD(numCols);
 472
 473         appendStringInfo(str, " :grpColIdx");
 474         for (i = 0; i < node->numCols; i++)
 475                 appendStringInfo(str, " %d", node->grpColIdx[i]);
 476 }
 477
 478 static void
 479 _outMaterial(StringInfo str, Material *node)
 480 {
 481         WRITE_NODE_TYPE("MATERIAL");
 482
 483         _outPlanInfo(str, (Plan *) node);
 484 }
 485
 486 static void
 487 _outSort(StringInfo str, Sort *node)
 488 {
 489         int                     i;
 490
 491         WRITE_NODE_TYPE("SORT");
 492
 493         _outPlanInfo(str, (Plan *) node);
 494
 495         WRITE_INT_FIELD(numCols);
 496
 497         appendStringInfo(str, " :sortColIdx");
 498         for (i = 0; i < node->numCols; i++)
 499                 appendStringInfo(str, " %d", node->sortColIdx[i]);
 500
 501         appendStringInfo(str, " :sortOperators");
 502         for (i = 0; i < node->numCols; i++)
 503                 appendStringInfo(str, " %u", node->sortOperators[i]);
 504 }
 505
 506 static void
 507 _outUnique(StringInfo str, Unique *node)
 508 {
 509         int                     i;
 510
 511         WRITE_NODE_TYPE("UNIQUE");
 512
 513         _outPlanInfo(str, (Plan *) node);
 514
 515         WRITE_INT_FIELD(numCols);
 516
 517         appendStringInfo(str, " :uniqColIdx");
 518         for (i = 0; i < node->numCols; i++)
 519                 appendStringInfo(str, " %d", node->uniqColIdx[i]);
 520 }
 521
 522 static void
 523 _outSetOp(StringInfo str, SetOp *node)
 524 {
 525         int                     i;
 526
 527         WRITE_NODE_TYPE("SETOP");
 528
 529         _outPlanInfo(str, (Plan *) node);
 530
 531         WRITE_ENUM_FIELD(cmd, SetOpCmd);
 532         WRITE_INT_FIELD(numCols);
 533
 534         appendStringInfo(str, " :dupColIdx");
 535         for (i = 0; i < node->numCols; i++)
 536                 appendStringInfo(str, " %d", node->dupColIdx[i]);
 537
 538         WRITE_INT_FIELD(flagColIdx);
 539 }
 540
 541 static void
 542 _outLimit(StringInfo str, Limit *node)
 543 {
 544         WRITE_NODE_TYPE("LIMIT");
 545
 546         _outPlanInfo(str, (Plan *) node);
 547
 548         WRITE_NODE_FIELD(limitOffset);
 549         WRITE_NODE_FIELD(limitCount);
 550 }
 551
 552 static void
 553 _outHash(StringInfo str, Hash *node)
 554 {
 555         WRITE_NODE_TYPE("HASH");
 556
 557         _outPlanInfo(str, (Plan *) node);
 558 }
 559
 560 /*****************************************************************************
 561  *
 562  *      Stuff from primnodes.h.
 563  *
 564  *****************************************************************************/
 565
 566 static void
 567 _outAlias(StringInfo str, Alias *node)
 568 {
 569         WRITE_NODE_TYPE("ALIAS");
 570
 571         WRITE_STRING_FIELD(aliasname);
 572         WRITE_NODE_FIELD(colnames);
 573 }
 574
 575 static void
 576 _outRangeVar(StringInfo str, RangeVar *node)
 577 {
 578         WRITE_NODE_TYPE("RANGEVAR");
 579
 580         /*
 581          * we deliberately ignore catalogname here, since it is presently not
 582          * semantically meaningful
 583          */
 584         WRITE_STRING_FIELD(schemaname);
 585         WRITE_STRING_FIELD(relname);
 586         WRITE_ENUM_FIELD(inhOpt, InhOption);
 587         WRITE_BOOL_FIELD(istemp);
 588         WRITE_NODE_FIELD(alias);
 589 }
 590
 591 static void
 592 _outVar(StringInfo str, Var *node)
 593 {
 594         WRITE_NODE_TYPE("VAR");
 595
 596         WRITE_UINT_FIELD(varno);
 597         WRITE_INT_FIELD(varattno);
 598         WRITE_OID_FIELD(vartype);
 599         WRITE_INT_FIELD(vartypmod);
 600         WRITE_UINT_FIELD(varlevelsup);
 601         WRITE_UINT_FIELD(varnoold);
 602         WRITE_INT_FIELD(varoattno);
 603 }
 604
 605 static void
 606 _outConst(StringInfo str, Const *node)
 607 {
 608         WRITE_NODE_TYPE("CONST");
 609
 610         WRITE_OID_FIELD(consttype);
 611         WRITE_INT_FIELD(constlen);
 612         WRITE_BOOL_FIELD(constbyval);
 613         WRITE_BOOL_FIELD(constisnull);
 614
 615         appendStringInfo(str, " :constvalue ");
 616         if (node->constisnull)
 617                 appendStringInfo(str, "<>");
 618         else
 619                 _outDatum(str, node->constvalue, node->constlen, node->constbyval);
 620 }
 621
 622 static void
 623 _outParam(StringInfo str, Param *node)
 624 {
 625         WRITE_NODE_TYPE("PARAM");
 626
 627         WRITE_INT_FIELD(paramkind);
 628         WRITE_INT_FIELD(paramid);
 629         WRITE_STRING_FIELD(paramname);
 630         WRITE_OID_FIELD(paramtype);
 631 }
 632
 633 static void
 634 _outAggref(StringInfo str, Aggref *node)
 635 {
 636         WRITE_NODE_TYPE("AGGREF");
 637
 638         WRITE_OID_FIELD(aggfnoid);
 639         WRITE_OID_FIELD(aggtype);
 640         WRITE_NODE_FIELD(target);
 641         WRITE_UINT_FIELD(agglevelsup);
 642         WRITE_BOOL_FIELD(aggstar);
 643         WRITE_BOOL_FIELD(aggdistinct);
 644 }
 645
 646 static void
 647 _outArrayRef(StringInfo str, ArrayRef *node)
 648 {
 649         WRITE_NODE_TYPE("ARRAYREF");
 650
 651         WRITE_OID_FIELD(refrestype);
 652         WRITE_OID_FIELD(refarraytype);
 653         WRITE_OID_FIELD(refelemtype);
 654         WRITE_NODE_FIELD(refupperindexpr);
 655         WRITE_NODE_FIELD(reflowerindexpr);
 656         WRITE_NODE_FIELD(refexpr);
 657         WRITE_NODE_FIELD(refassgnexpr);
 658 }
 659
 660 static void
 661 _outFuncExpr(StringInfo str, FuncExpr *node)
 662 {
 663         WRITE_NODE_TYPE("FUNCEXPR");
 664
 665         WRITE_OID_FIELD(funcid);
 666         WRITE_OID_FIELD(funcresulttype);
 667         WRITE_BOOL_FIELD(funcretset);
 668         WRITE_ENUM_FIELD(funcformat, CoercionForm);
 669         WRITE_NODE_FIELD(args);
 670 }
 671
 672 static void
 673 _outOpExpr(StringInfo str, OpExpr *node)
 674 {
 675         WRITE_NODE_TYPE("OPEXPR");
 676
 677         WRITE_OID_FIELD(opno);
 678         WRITE_OID_FIELD(opfuncid);
 679         WRITE_OID_FIELD(opresulttype);
 680         WRITE_BOOL_FIELD(opretset);
 681         WRITE_NODE_FIELD(args);
 682 }
 683
 684 static void
 685 _outDistinctExpr(StringInfo str, DistinctExpr *node)
 686 {
 687         WRITE_NODE_TYPE("DISTINCTEXPR");
 688
 689         WRITE_OID_FIELD(opno);
 690         WRITE_OID_FIELD(opfuncid);
 691         WRITE_OID_FIELD(opresulttype);
 692         WRITE_BOOL_FIELD(opretset);
 693         WRITE_NODE_FIELD(args);
 694 }
 695
 696 static void
 697 _outScalarArrayOpExpr(StringInfo str, ScalarArrayOpExpr *node)
 698 {
 699         WRITE_NODE_TYPE("SCALARARRAYOPEXPR");
 700
 701         WRITE_OID_FIELD(opno);
 702         WRITE_OID_FIELD(opfuncid);
 703         WRITE_BOOL_FIELD(useOr);
 704         WRITE_NODE_FIELD(args);
 705 }
 706
 707 static void
 708 _outBoolExpr(StringInfo str, BoolExpr *node)
 709 {
 710         char       *opstr = NULL;
 711
 712         WRITE_NODE_TYPE("BOOLEXPR");
 713
 714         /* do-it-yourself enum representation */
 715         switch (node->boolop)
 716         {
 717                 case AND_EXPR:
 718                         opstr = "and";
 719                         break;
 720                 case OR_EXPR:
 721                         opstr = "or";
 722                         break;
 723                 case NOT_EXPR:
 724                         opstr = "not";
 725                         break;
 726         }
 727         appendStringInfo(str, " :boolop ");
 728         _outToken(str, opstr);
 729
 730         WRITE_NODE_FIELD(args);
 731 }
 732
 733 static void
 734 _outSubLink(StringInfo str, SubLink *node)
 735 {
 736         WRITE_NODE_TYPE("SUBLINK");
 737
 738         WRITE_ENUM_FIELD(subLinkType, SubLinkType);
 739         WRITE_BOOL_FIELD(useOr);
 740         WRITE_NODE_FIELD(lefthand);
 741         WRITE_NODE_FIELD(operName);
 742         WRITE_NODE_FIELD(operOids);
 743         WRITE_NODE_FIELD(subselect);
 744 }
 745
 746 static void
 747 _outSubPlan(StringInfo str, SubPlan *node)
 748 {
 749         WRITE_NODE_TYPE("SUBPLAN");
 750
 751         WRITE_ENUM_FIELD(subLinkType, SubLinkType);
 752         WRITE_BOOL_FIELD(useOr);
 753         WRITE_NODE_FIELD(exprs);
 754         WRITE_NODE_FIELD(paramIds);
 755         WRITE_NODE_FIELD(plan);
 756         WRITE_INT_FIELD(plan_id);
 757         WRITE_NODE_FIELD(rtable);
 758         WRITE_BOOL_FIELD(useHashTable);
 759         WRITE_BOOL_FIELD(unknownEqFalse);
 760         WRITE_NODE_FIELD(setParam);
 761         WRITE_NODE_FIELD(parParam);
 762         WRITE_NODE_FIELD(args);
 763 }
 764
 765 static void
 766 _outFieldSelect(StringInfo str, FieldSelect *node)
 767 {
 768         WRITE_NODE_TYPE("FIELDSELECT");
 769
 770         WRITE_NODE_FIELD(arg);
 771         WRITE_INT_FIELD(fieldnum);
 772         WRITE_OID_FIELD(resulttype);
 773         WRITE_INT_FIELD(resulttypmod);
 774 }
 775
 776 static void
 777 _outFieldStore(StringInfo str, FieldStore *node)
 778 {
 779         WRITE_NODE_TYPE("FIELDSTORE");
 780
 781         WRITE_NODE_FIELD(arg);
 782         WRITE_NODE_FIELD(newvals);
 783         WRITE_NODE_FIELD(fieldnums);
 784         WRITE_OID_FIELD(resulttype);
 785 }
 786
 787 static void
 788 _outRelabelType(StringInfo str, RelabelType *node)
 789 {
 790         WRITE_NODE_TYPE("RELABELTYPE");
 791
 792         WRITE_NODE_FIELD(arg);
 793         WRITE_OID_FIELD(resulttype);
 794         WRITE_INT_FIELD(resulttypmod);
 795         WRITE_ENUM_FIELD(relabelformat, CoercionForm);
 796 }
 797
 798 static void
 799 _outConvertRowtypeExpr(StringInfo str, ConvertRowtypeExpr *node)
 800 {
 801         WRITE_NODE_TYPE("CONVERTROWTYPEEXPR");
 802
 803         WRITE_NODE_FIELD(arg);
 804         WRITE_OID_FIELD(resulttype);
 805         WRITE_ENUM_FIELD(convertformat, CoercionForm);
 806 }
 807
 808 static void
 809 _outCaseExpr(StringInfo str, CaseExpr *node)
 810 {
 811         WRITE_NODE_TYPE("CASE");
 812
 813         WRITE_OID_FIELD(casetype);
 814         WRITE_NODE_FIELD(arg);
 815         WRITE_NODE_FIELD(args);
 816         WRITE_NODE_FIELD(defresult);
 817 }
 818
 819 static void
 820 _outCaseWhen(StringInfo str, CaseWhen *node)
 821 {
 822         WRITE_NODE_TYPE("WHEN");
 823
 824         WRITE_NODE_FIELD(expr);
 825         WRITE_NODE_FIELD(result);
 826 }
 827
 828 static void
 829 _outCaseTestExpr(StringInfo str, CaseTestExpr *node)
 830 {
 831         WRITE_NODE_TYPE("CASETESTEXPR");
 832
 833         WRITE_OID_FIELD(typeId);
 834         WRITE_INT_FIELD(typeMod);
 835 }
 836
 837 static void
 838 _outArrayExpr(StringInfo str, ArrayExpr *node)
 839 {
 840         WRITE_NODE_TYPE("ARRAY");
 841
 842         WRITE_OID_FIELD(array_typeid);
 843         WRITE_OID_FIELD(element_typeid);
 844         WRITE_NODE_FIELD(elements);
 845         WRITE_BOOL_FIELD(multidims);
 846 }
 847
 848 static void
 849 _outRowExpr(StringInfo str, RowExpr *node)
 850 {
 851         WRITE_NODE_TYPE("ROW");
 852
 853         WRITE_NODE_FIELD(args);
 854         WRITE_OID_FIELD(row_typeid);
 855         WRITE_ENUM_FIELD(row_format, CoercionForm);
 856 }
 857
 858 static void
 859 _outCoalesceExpr(StringInfo str, CoalesceExpr *node)
 860 {
 861         WRITE_NODE_TYPE("COALESCE");
 862
 863         WRITE_OID_FIELD(coalescetype);
 864         WRITE_NODE_FIELD(args);
 865 }
 866
 867 static void
 868 _outMinMaxExpr(StringInfo str, MinMaxExpr *node)
 869 {
 870         WRITE_NODE_TYPE("MINMAX");
 871
 872         WRITE_OID_FIELD(minmaxtype);
 873         WRITE_ENUM_FIELD(op, MinMaxOp);
 874         WRITE_NODE_FIELD(args);
 875 }
 876
 877 static void
 878 _outNullIfExpr(StringInfo str, NullIfExpr *node)
 879 {
 880         WRITE_NODE_TYPE("NULLIFEXPR");
 881
 882         WRITE_OID_FIELD(opno);
 883         WRITE_OID_FIELD(opfuncid);
 884         WRITE_OID_FIELD(opresulttype);
 885         WRITE_BOOL_FIELD(opretset);
 886         WRITE_NODE_FIELD(args);
 887 }
 888
 889 static void
 890 _outNullTest(StringInfo str, NullTest *node)
 891 {
 892         WRITE_NODE_TYPE("NULLTEST");
 893
 894         WRITE_NODE_FIELD(arg);
 895         WRITE_ENUM_FIELD(nulltesttype, NullTestType);
 896 }
 897
 898 static void
 899 _outBooleanTest(StringInfo str, BooleanTest *node)
 900 {
 901         WRITE_NODE_TYPE("BOOLEANTEST");
 902
 903         WRITE_NODE_FIELD(arg);
 904         WRITE_ENUM_FIELD(booltesttype, BoolTestType);
 905 }
 906
 907 static void
 908 _outCoerceToDomain(StringInfo str, CoerceToDomain *node)
 909 {
 910         WRITE_NODE_TYPE("COERCETODOMAIN");
 911
 912         WRITE_NODE_FIELD(arg);
 913         WRITE_OID_FIELD(resulttype);
 914         WRITE_INT_FIELD(resulttypmod);
 915         WRITE_ENUM_FIELD(coercionformat, CoercionForm);
 916 }
 917
 918 static void
 919 _outCoerceToDomainValue(StringInfo str, CoerceToDomainValue *node)
 920 {
 921         WRITE_NODE_TYPE("COERCETODOMAINVALUE");
 922
 923         WRITE_OID_FIELD(typeId);
 924         WRITE_INT_FIELD(typeMod);
 925 }
 926
 927 static void
 928 _outSetToDefault(StringInfo str, SetToDefault *node)
 929 {
 930         WRITE_NODE_TYPE("SETTODEFAULT");
 931
 932         WRITE_OID_FIELD(typeId);
 933         WRITE_INT_FIELD(typeMod);
 934 }
 935
 936 static void
 937 _outTargetEntry(StringInfo str, TargetEntry *node)
 938 {
 939         WRITE_NODE_TYPE("TARGETENTRY");
 940
 941         WRITE_NODE_FIELD(expr);
 942         WRITE_INT_FIELD(resno);
 943         WRITE_STRING_FIELD(resname);
 944         WRITE_UINT_FIELD(ressortgroupref);
 945         WRITE_OID_FIELD(resorigtbl);
 946         WRITE_INT_FIELD(resorigcol);
 947         WRITE_BOOL_FIELD(resjunk);
 948 }
 949
 950 static void
 951 _outRangeTblRef(StringInfo str, RangeTblRef *node)
 952 {
 953         WRITE_NODE_TYPE("RANGETBLREF");
 954
 955         WRITE_INT_FIELD(rtindex);
 956 }
 957
 958 static void
 959 _outJoinExpr(StringInfo str, JoinExpr *node)
 960 {
 961         WRITE_NODE_TYPE("JOINEXPR");
 962
 963         WRITE_ENUM_FIELD(jointype, JoinType);
 964         WRITE_BOOL_FIELD(isNatural);
 965         WRITE_NODE_FIELD(larg);
 966         WRITE_NODE_FIELD(rarg);
 967         WRITE_NODE_FIELD(using);
 968         WRITE_NODE_FIELD(quals);
 969         WRITE_NODE_FIELD(alias);
 970         WRITE_INT_FIELD(rtindex);
 971 }
 972
 973 static void
 974 _outFromExpr(StringInfo str, FromExpr *node)
 975 {
 976         WRITE_NODE_TYPE("FROMEXPR");
 977
 978         WRITE_NODE_FIELD(fromlist);
 979         WRITE_NODE_FIELD(quals);
 980 }
 981
 982 /*****************************************************************************
 983  *
 984  *      Stuff from relation.h.
 985  *
 986  *****************************************************************************/
 987
 988 /*
 989  * print the basic stuff of all nodes that inherit from Path
 990  *
 991  * Note we do NOT print the parent, else we'd be in infinite recursion
 992  */
 993 static void
 994 _outPathInfo(StringInfo str, Path *node)
 995 {
 996         WRITE_ENUM_FIELD(pathtype, NodeTag);
 997         WRITE_FLOAT_FIELD(startup_cost, "%.2f");
 998         WRITE_FLOAT_FIELD(total_cost, "%.2f");
 999         WRITE_NODE_FIELD(pathkeys);
1000 }
1001
1002 /*
1003  * print the basic stuff of all nodes that inherit from JoinPath
1004  */
1005 static void
1006 _outJoinPathInfo(StringInfo str, JoinPath *node)
1007 {
1008         _outPathInfo(str, (Path *) node);
1009
1010         WRITE_ENUM_FIELD(jointype, JoinType);
1011         WRITE_NODE_FIELD(outerjoinpath);
1012         WRITE_NODE_FIELD(innerjoinpath);
1013         WRITE_NODE_FIELD(joinrestrictinfo);
1014 }
1015
1016 static void
1017 _outPath(StringInfo str, Path *node)
1018 {
1019         WRITE_NODE_TYPE("PATH");
1020
1021         _outPathInfo(str, (Path *) node);
1022 }
1023
1024 static void
1025 _outIndexPath(StringInfo str, IndexPath *node)
1026 {
1027         WRITE_NODE_TYPE("INDEXPATH");
1028
1029         _outPathInfo(str, (Path *) node);
1030
1031         WRITE_NODE_FIELD(indexinfo);
1032         WRITE_NODE_FIELD(indexclauses);
1033         WRITE_NODE_FIELD(indexquals);
1034         WRITE_BOOL_FIELD(isjoininner);
1035         WRITE_ENUM_FIELD(indexscandir, ScanDirection);
1036         WRITE_FLOAT_FIELD(indextotalcost, "%.2f");
1037         WRITE_FLOAT_FIELD(indexselectivity, "%.4f");
1038         WRITE_FLOAT_FIELD(rows, "%.0f");
1039 }
1040
1041 static void
1042 _outBitmapHeapPath(StringInfo str, BitmapHeapPath *node)
1043 {
1044         WRITE_NODE_TYPE("BITMAPHEAPPATH");
1045
1046         _outPathInfo(str, (Path *) node);
1047
1048         WRITE_NODE_FIELD(bitmapqual);
1049         WRITE_BOOL_FIELD(isjoininner);
1050         WRITE_FLOAT_FIELD(rows, "%.0f");
1051 }
1052
1053 static void
1054 _outBitmapAndPath(StringInfo str, BitmapAndPath *node)
1055 {
1056         WRITE_NODE_TYPE("BITMAPANDPATH");
1057
1058         _outPathInfo(str, (Path *) node);
1059
1060         WRITE_NODE_FIELD(bitmapquals);
1061         WRITE_FLOAT_FIELD(bitmapselectivity, "%.4f");
1062 }
1063
1064 static void
1065 _outBitmapOrPath(StringInfo str, BitmapOrPath *node)
1066 {
1067         WRITE_NODE_TYPE("BITMAPORPATH");
1068
1069         _outPathInfo(str, (Path *) node);
1070
1071         WRITE_NODE_FIELD(bitmapquals);
1072         WRITE_FLOAT_FIELD(bitmapselectivity, "%.4f");
1073 }
1074
1075 static void
1076 _outTidPath(StringInfo str, TidPath *node)
1077 {
1078         WRITE_NODE_TYPE("TIDPATH");
1079
1080         _outPathInfo(str, (Path *) node);
1081
1082         WRITE_NODE_FIELD(tidquals);
1083 }
1084
1085 static void
1086 _outAppendPath(StringInfo str, AppendPath *node)
1087 {
1088         WRITE_NODE_TYPE("APPENDPATH");
1089
1090         _outPathInfo(str, (Path *) node);
1091
1092         WRITE_NODE_FIELD(subpaths);
1093 }
1094
1095 static void
1096 _outResultPath(StringInfo str, ResultPath *node)
1097 {
1098         WRITE_NODE_TYPE("RESULTPATH");
1099
1100         _outPathInfo(str, (Path *) node);
1101
1102         WRITE_NODE_FIELD(subpath);
1103         WRITE_NODE_FIELD(constantqual);
1104 }
1105
1106 static void
1107 _outMaterialPath(StringInfo str, MaterialPath *node)
1108 {
1109         WRITE_NODE_TYPE("MATERIALPATH");
1110
1111         _outPathInfo(str, (Path *) node);
1112
1113         WRITE_NODE_FIELD(subpath);
1114 }
1115
1116 static void
1117 _outUniquePath(StringInfo str, UniquePath *node)
1118 {
1119         WRITE_NODE_TYPE("UNIQUEPATH");
1120
1121         _outPathInfo(str, (Path *) node);
1122
1123         WRITE_NODE_FIELD(subpath);
1124         WRITE_ENUM_FIELD(umethod, UniquePathMethod);
1125         WRITE_FLOAT_FIELD(rows, "%.0f");
1126 }
1127
1128 static void
1129 _outNestPath(StringInfo str, NestPath *node)
1130 {
1131         WRITE_NODE_TYPE("NESTPATH");
1132
1133         _outJoinPathInfo(str, (JoinPath *) node);
1134 }
1135
1136 static void
1137 _outMergePath(StringInfo str, MergePath *node)
1138 {
1139         WRITE_NODE_TYPE("MERGEPATH");
1140
1141         _outJoinPathInfo(str, (JoinPath *) node);
1142
1143         WRITE_NODE_FIELD(path_mergeclauses);
1144         WRITE_NODE_FIELD(outersortkeys);
1145         WRITE_NODE_FIELD(innersortkeys);
1146 }
1147
1148 static void
1149 _outHashPath(StringInfo str, HashPath *node)
1150 {
1151         WRITE_NODE_TYPE("HASHPATH");
1152
1153         _outJoinPathInfo(str, (JoinPath *) node);
1154
1155         WRITE_NODE_FIELD(path_hashclauses);
1156 }
1157
1158 static void
1159 _outPlannerInfo(StringInfo str, PlannerInfo *node)
1160 {
1161         WRITE_NODE_TYPE("PLANNERINFO");
1162
1163         /* NB: this isn't a complete set of fields */
1164         WRITE_NODE_FIELD(parse);
1165         WRITE_NODE_FIELD(join_rel_list);
1166         WRITE_NODE_FIELD(equi_key_list);
1167         WRITE_NODE_FIELD(left_join_clauses);
1168         WRITE_NODE_FIELD(right_join_clauses);
1169         WRITE_NODE_FIELD(full_join_clauses);
1170         WRITE_NODE_FIELD(oj_info_list);
1171         WRITE_NODE_FIELD(in_info_list);
1172         WRITE_NODE_FIELD(query_pathkeys);
1173         WRITE_NODE_FIELD(group_pathkeys);
1174         WRITE_NODE_FIELD(sort_pathkeys);
1175         WRITE_FLOAT_FIELD(tuple_fraction, "%.4f");
1176         WRITE_BOOL_FIELD(hasJoinRTEs);
1177         WRITE_BOOL_FIELD(hasOuterJoins);
1178         WRITE_BOOL_FIELD(hasHavingQual);
1179 }
1180
1181 static void
1182 _outRelOptInfo(StringInfo str, RelOptInfo *node)
1183 {
1184         WRITE_NODE_TYPE("RELOPTINFO");
1185
1186         /* NB: this isn't a complete set of fields */
1187         WRITE_ENUM_FIELD(reloptkind, RelOptKind);
1188         WRITE_BITMAPSET_FIELD(relids);
1189         WRITE_FLOAT_FIELD(rows, "%.0f");
1190         WRITE_INT_FIELD(width);
1191         WRITE_NODE_FIELD(reltargetlist);
1192         WRITE_NODE_FIELD(pathlist);
1193         WRITE_NODE_FIELD(cheapest_startup_path);
1194         WRITE_NODE_FIELD(cheapest_total_path);
1195         WRITE_NODE_FIELD(cheapest_unique_path);
1196         WRITE_UINT_FIELD(relid);
1197         WRITE_ENUM_FIELD(rtekind, RTEKind);
1198         WRITE_UINT_FIELD(min_attr);
1199         WRITE_UINT_FIELD(max_attr);
1200         WRITE_NODE_FIELD(indexlist);
1201         WRITE_UINT_FIELD(pages);
1202         WRITE_FLOAT_FIELD(tuples, "%.0f");
1203         WRITE_NODE_FIELD(subplan);
1204         WRITE_NODE_FIELD(baserestrictinfo);
1205         WRITE_NODE_FIELD(joininfo);
1206         WRITE_BITMAPSET_FIELD(index_outer_relids);
1207         WRITE_NODE_FIELD(index_inner_paths);
1208 }
1209
1210 static void
1211 _outIndexOptInfo(StringInfo str, IndexOptInfo *node)
1212 {
1213         WRITE_NODE_TYPE("INDEXOPTINFO");
1214
1215         /* NB: this isn't a complete set of fields */
1216         WRITE_OID_FIELD(indexoid);
1217         /* Do NOT print rel field, else infinite recursion */
1218         WRITE_UINT_FIELD(pages);
1219         WRITE_FLOAT_FIELD(tuples, "%.0f");
1220         WRITE_INT_FIELD(ncolumns);
1221         WRITE_NODE_FIELD(indexprs);
1222         WRITE_NODE_FIELD(indpred);
1223         WRITE_BOOL_FIELD(predOK);
1224         WRITE_BOOL_FIELD(unique);
1225 }
1226
1227 static void
1228 _outPathKeyItem(StringInfo str, PathKeyItem *node)
1229 {
1230         WRITE_NODE_TYPE("PATHKEYITEM");
1231
1232         WRITE_NODE_FIELD(key);
1233         WRITE_OID_FIELD(sortop);
1234 }
1235
1236 static void
1237 _outRestrictInfo(StringInfo str, RestrictInfo *node)
1238 {
1239         WRITE_NODE_TYPE("RESTRICTINFO");
1240
1241         /* NB: this isn't a complete set of fields */
1242         WRITE_NODE_FIELD(clause);
1243         WRITE_BOOL_FIELD(is_pushed_down);
1244         WRITE_BOOL_FIELD(outerjoin_delayed);
1245         WRITE_BOOL_FIELD(can_join);
1246         WRITE_BITMAPSET_FIELD(clause_relids);
1247         WRITE_BITMAPSET_FIELD(required_relids);
1248         WRITE_BITMAPSET_FIELD(left_relids);
1249         WRITE_BITMAPSET_FIELD(right_relids);
1250         WRITE_NODE_FIELD(orclause);
1251         WRITE_OID_FIELD(mergejoinoperator);
1252         WRITE_OID_FIELD(left_sortop);
1253         WRITE_OID_FIELD(right_sortop);
1254         WRITE_NODE_FIELD(left_pathkey);
1255         WRITE_NODE_FIELD(right_pathkey);
1256         WRITE_OID_FIELD(hashjoinoperator);
1257 }
1258
1259 static void
1260 _outInnerIndexscanInfo(StringInfo str, InnerIndexscanInfo *node)
1261 {
1262         WRITE_NODE_TYPE("INNERINDEXSCANINFO");
1263         WRITE_BITMAPSET_FIELD(other_relids);
1264         WRITE_BOOL_FIELD(isouterjoin);
1265         WRITE_NODE_FIELD(best_innerpath);
1266 }
1267
1268 static void
1269 _outOuterJoinInfo(StringInfo str, OuterJoinInfo *node)
1270 {
1271         WRITE_NODE_TYPE("OUTERJOININFO");
1272
1273         WRITE_BITMAPSET_FIELD(min_lefthand);
1274         WRITE_BITMAPSET_FIELD(min_righthand);
1275         WRITE_BOOL_FIELD(is_full_join);
1276         WRITE_BOOL_FIELD(lhs_strict);
1277 }
1278
1279 static void
1280 _outInClauseInfo(StringInfo str, InClauseInfo *node)
1281 {
1282         WRITE_NODE_TYPE("INCLAUSEINFO");
1283
1284         WRITE_BITMAPSET_FIELD(lefthand);
1285         WRITE_BITMAPSET_FIELD(righthand);
1286         WRITE_NODE_FIELD(sub_targetlist);
1287 }
1288
1289 /*****************************************************************************
1290  *
1291  *      Stuff from parsenodes.h.
1292  *
1293  *****************************************************************************/
1294
1295 static void
1296 _outCreateStmt(StringInfo str, CreateStmt *node)
1297 {
1298         WRITE_NODE_TYPE("CREATESTMT");
1299
1300         WRITE_NODE_FIELD(relation);
1301         WRITE_NODE_FIELD(tableElts);
1302         WRITE_NODE_FIELD(inhRelations);
1303         WRITE_NODE_FIELD(constraints);
1304         WRITE_ENUM_FIELD(hasoids, ContainsOids);
1305         WRITE_ENUM_FIELD(oncommit, OnCommitAction);
1306         WRITE_STRING_FIELD(tablespacename);
1307 }
1308
1309 static void
1310 _outIndexStmt(StringInfo str, IndexStmt *node)
1311 {
1312         WRITE_NODE_TYPE("INDEXSTMT");
1313
1314         WRITE_STRING_FIELD(idxname);
1315         WRITE_NODE_FIELD(relation);
1316         WRITE_STRING_FIELD(accessMethod);
1317         WRITE_STRING_FIELD(tableSpace);
1318         WRITE_NODE_FIELD(indexParams);
1319         WRITE_NODE_FIELD(whereClause);
1320         WRITE_NODE_FIELD(rangetable);
1321         WRITE_BOOL_FIELD(unique);
1322         WRITE_BOOL_FIELD(primary);
1323         WRITE_BOOL_FIELD(isconstraint);
1324 }
1325
1326 static void
1327 _outNotifyStmt(StringInfo str, NotifyStmt *node)
1328 {
1329         WRITE_NODE_TYPE("NOTIFY");
1330
1331         WRITE_NODE_FIELD(relation);
1332 }
1333
1334 static void
1335 _outDeclareCursorStmt(StringInfo str, DeclareCursorStmt *node)
1336 {
1337         WRITE_NODE_TYPE("DECLARECURSOR");
1338
1339         WRITE_STRING_FIELD(portalname);
1340         WRITE_INT_FIELD(options);
1341         WRITE_NODE_FIELD(query);
1342 }
1343
1344 static void
1345 _outSelectStmt(StringInfo str, SelectStmt *node)
1346 {
1347         WRITE_NODE_TYPE("SELECT");
1348
1349         WRITE_NODE_FIELD(distinctClause);
1350         WRITE_NODE_FIELD(into);
1351         WRITE_NODE_FIELD(intoColNames);
1352         WRITE_ENUM_FIELD(intoHasOids, ContainsOids);
1353         WRITE_NODE_FIELD(targetList);
1354         WRITE_NODE_FIELD(fromClause);
1355         WRITE_NODE_FIELD(whereClause);
1356         WRITE_NODE_FIELD(groupClause);
1357         WRITE_NODE_FIELD(havingClause);
1358         WRITE_NODE_FIELD(sortClause);
1359         WRITE_NODE_FIELD(limitOffset);
1360         WRITE_NODE_FIELD(limitCount);
1361         WRITE_NODE_FIELD(lockingClause);
1362         WRITE_ENUM_FIELD(op, SetOperation);
1363         WRITE_BOOL_FIELD(all);
1364         WRITE_NODE_FIELD(larg);
1365         WRITE_NODE_FIELD(rarg);
1366 }
1367
1368 static void
1369 _outFuncCall(StringInfo str, FuncCall *node)
1370 {
1371         WRITE_NODE_TYPE("FUNCCALL");
1372
1373         WRITE_NODE_FIELD(funcname);
1374         WRITE_NODE_FIELD(args);
1375         WRITE_BOOL_FIELD(agg_star);
1376         WRITE_BOOL_FIELD(agg_distinct);
1377 }
1378
1379 static void
1380 _outDefElem(StringInfo str, DefElem *node)
1381 {
1382         WRITE_NODE_TYPE("DEFELEM");
1383
1384         WRITE_STRING_FIELD(defname);
1385         WRITE_NODE_FIELD(arg);
1386 }
1387
1388 static void
1389 _outLockingClause(StringInfo str, LockingClause *node)
1390 {
1391         WRITE_NODE_TYPE("LOCKINGCLAUSE");
1392
1393         WRITE_NODE_FIELD(lockedRels);
1394         WRITE_BOOL_FIELD(forUpdate);
1395         WRITE_BOOL_FIELD(nowait);
1396 }
1397
1398 static void
1399 _outColumnDef(StringInfo str, ColumnDef *node)
1400 {
1401         WRITE_NODE_TYPE("COLUMNDEF");
1402
1403         WRITE_STRING_FIELD(colname);
1404         WRITE_NODE_FIELD(typename);
1405         WRITE_INT_FIELD(inhcount);
1406         WRITE_BOOL_FIELD(is_local);
1407         WRITE_BOOL_FIELD(is_not_null);
1408         WRITE_NODE_FIELD(raw_default);
1409         WRITE_STRING_FIELD(cooked_default);
1410         WRITE_NODE_FIELD(constraints);
1411         WRITE_NODE_FIELD(support);
1412 }
1413
1414 static void
1415 _outTypeName(StringInfo str, TypeName *node)
1416 {
1417         WRITE_NODE_TYPE("TYPENAME");
1418
1419         WRITE_NODE_FIELD(names);
1420         WRITE_OID_FIELD(typeid);
1421         WRITE_BOOL_FIELD(timezone);
1422         WRITE_BOOL_FIELD(setof);
1423         WRITE_BOOL_FIELD(pct_type);
1424         WRITE_INT_FIELD(typmod);
1425         WRITE_NODE_FIELD(arrayBounds);
1426 }
1427
1428 static void
1429 _outTypeCast(StringInfo str, TypeCast *node)
1430 {
1431         WRITE_NODE_TYPE("TYPECAST");
1432
1433         WRITE_NODE_FIELD(arg);
1434         WRITE_NODE_FIELD(typename);
1435 }
1436
1437 static void
1438 _outIndexElem(StringInfo str, IndexElem *node)
1439 {
1440         WRITE_NODE_TYPE("INDEXELEM");
1441
1442         WRITE_STRING_FIELD(name);
1443         WRITE_NODE_FIELD(expr);
1444         WRITE_NODE_FIELD(opclass);
1445 }
1446
1447 static void
1448 _outQuery(StringInfo str, Query *node)
1449 {
1450         WRITE_NODE_TYPE("QUERY");
1451
1452         WRITE_ENUM_FIELD(commandType, CmdType);
1453         WRITE_ENUM_FIELD(querySource, QuerySource);
1454         WRITE_BOOL_FIELD(canSetTag);
1455
1456         /*
1457          * Hack to work around missing outfuncs routines for a lot of the
1458          * utility-statement node types.  (The only one we actually *need* for
1459          * rules support is NotifyStmt.)  Someday we ought to support 'em all, but
1460          * for the meantime do this to avoid getting lots of warnings when running
1461          * with debug_print_parse on.
1462          */
1463         if (node->utilityStmt)
1464         {
1465                 switch (nodeTag(node->utilityStmt))
1466                 {
1467                         case T_CreateStmt:
1468                         case T_IndexStmt:
1469                         case T_NotifyStmt:
1470                         case T_DeclareCursorStmt:
1471                                 WRITE_NODE_FIELD(utilityStmt);
1472                                 break;
1473                         default:
1474                                 appendStringInfo(str, " :utilityStmt ?");
1475                                 break;
1476                 }
1477         }
1478         else
1479                 appendStringInfo(str, " :utilityStmt <>");
1480
1481         WRITE_INT_FIELD(resultRelation);
1482         WRITE_NODE_FIELD(into);
1483         WRITE_BOOL_FIELD(hasAggs);
1484         WRITE_BOOL_FIELD(hasSubLinks);
1485         WRITE_NODE_FIELD(rtable);
1486         WRITE_NODE_FIELD(jointree);
1487         WRITE_NODE_FIELD(rowMarks);
1488         WRITE_BOOL_FIELD(forUpdate);
1489         WRITE_BOOL_FIELD(rowNoWait);
1490         WRITE_NODE_FIELD(targetList);
1491         WRITE_NODE_FIELD(groupClause);
1492         WRITE_NODE_FIELD(havingQual);
1493         WRITE_NODE_FIELD(distinctClause);
1494         WRITE_NODE_FIELD(sortClause);
1495         WRITE_NODE_FIELD(limitOffset);
1496         WRITE_NODE_FIELD(limitCount);
1497         WRITE_NODE_FIELD(setOperations);
1498         WRITE_NODE_FIELD(resultRelations);
1499 }
1500
1501 static void
1502 _outSortClause(StringInfo str, SortClause *node)
1503 {
1504         WRITE_NODE_TYPE("SORTCLAUSE");
1505
1506         WRITE_UINT_FIELD(tleSortGroupRef);
1507         WRITE_OID_FIELD(sortop);
1508 }
1509
1510 static void
1511 _outGroupClause(StringInfo str, GroupClause *node)
1512 {
1513         WRITE_NODE_TYPE("GROUPCLAUSE");
1514
1515         WRITE_UINT_FIELD(tleSortGroupRef);
1516         WRITE_OID_FIELD(sortop);
1517 }
1518
1519 static void
1520 _outSetOperationStmt(StringInfo str, SetOperationStmt *node)
1521 {
1522         WRITE_NODE_TYPE("SETOPERATIONSTMT");
1523
1524         WRITE_ENUM_FIELD(op, SetOperation);
1525         WRITE_BOOL_FIELD(all);
1526         WRITE_NODE_FIELD(larg);
1527         WRITE_NODE_FIELD(rarg);
1528         WRITE_NODE_FIELD(colTypes);
1529 }
1530
1531 static void
1532 _outRangeTblEntry(StringInfo str, RangeTblEntry *node)
1533 {
1534         WRITE_NODE_TYPE("RTE");
1535
1536         /* put alias + eref first to make dump more legible */
1537         WRITE_NODE_FIELD(alias);
1538         WRITE_NODE_FIELD(eref);
1539         WRITE_ENUM_FIELD(rtekind, RTEKind);
1540
1541         switch (node->rtekind)
1542         {
1543                 case RTE_RELATION:
1544                 case RTE_SPECIAL:
1545                         WRITE_OID_FIELD(relid);
1546                         break;
1547                 case RTE_SUBQUERY:
1548                         WRITE_NODE_FIELD(subquery);
1549                         break;
1550                 case RTE_FUNCTION:
1551                         WRITE_NODE_FIELD(funcexpr);
1552                         WRITE_NODE_FIELD(coldeflist);
1553                         break;
1554                 case RTE_JOIN:
1555                         WRITE_ENUM_FIELD(jointype, JoinType);
1556                         WRITE_NODE_FIELD(joinaliasvars);
1557                         break;
1558                 default:
1559                         elog(ERROR, "unrecognized RTE kind: %d", (int) node->rtekind);
1560                         break;
1561         }
1562
1563         WRITE_BOOL_FIELD(inh);
1564         WRITE_BOOL_FIELD(inFromCl);
1565         WRITE_UINT_FIELD(requiredPerms);
1566         WRITE_OID_FIELD(checkAsUser);
1567 }
1568
1569 static void
1570 _outAExpr(StringInfo str, A_Expr *node)
1571 {
1572         WRITE_NODE_TYPE("AEXPR");
1573
1574         switch (node->kind)
1575         {
1576                 case AEXPR_OP:
1577                         appendStringInfo(str, " ");
1578                         WRITE_NODE_FIELD(name);
1579                         break;
1580                 case AEXPR_AND:
1581                         appendStringInfo(str, " AND");
1582                         break;
1583                 case AEXPR_OR:
1584                         appendStringInfo(str, " OR");
1585                         break;
1586                 case AEXPR_NOT:
1587                         appendStringInfo(str, " NOT");
1588                         break;
1589                 case AEXPR_OP_ANY:
1590                         appendStringInfo(str, " ");
1591                         WRITE_NODE_FIELD(name);
1592                         appendStringInfo(str, " ANY ");
1593                         break;
1594                 case AEXPR_OP_ALL:
1595                         appendStringInfo(str, " ");
1596                         WRITE_NODE_FIELD(name);
1597                         appendStringInfo(str, " ALL ");
1598                         break;
1599                 case AEXPR_DISTINCT:
1600                         appendStringInfo(str, " DISTINCT ");
1601                         WRITE_NODE_FIELD(name);
1602                         break;
1603                 case AEXPR_NULLIF:
1604                         appendStringInfo(str, " NULLIF ");
1605                         WRITE_NODE_FIELD(name);
1606                         break;
1607                 case AEXPR_OF:
1608                         appendStringInfo(str, " OF ");
1609                         WRITE_NODE_FIELD(name);
1610                         break;
1611                 case AEXPR_IN:
1612                         appendStringInfo(str, " IN ");
1613                         WRITE_NODE_FIELD(name);
1614                         break;
1615                 default:
1616                         appendStringInfo(str, " ??");
1617                         break;
1618         }
1619
1620         WRITE_NODE_FIELD(lexpr);
1621         WRITE_NODE_FIELD(rexpr);
1622 }
1623
1624 static void
1625 _outValue(StringInfo str, Value *value)
1626 {
1627         switch (value->type)
1628         {
1629                 case T_Integer:
1630                         appendStringInfo(str, "%ld", value->val.ival);
1631                         break;
1632                 case T_Float:
1633
1634                         /*
1635                          * We assume the value is a valid numeric literal and so does not
1636                          * need quoting.
1637                          */
1638                         appendStringInfoString(str, value->val.str);
1639                         break;
1640                 case T_String:
1641                         appendStringInfoChar(str, '"');
1642                         _outToken(str, value->val.str);
1643                         appendStringInfoChar(str, '"');
1644                         break;
1645                 case T_BitString:
1646                         /* internal representation already has leading 'b' */
1647                         appendStringInfoString(str, value->val.str);
1648                         break;
1649                 default:
1650                         elog(ERROR, "unrecognized node type: %d", (int) value->type);
1651                         break;
1652         }
1653 }
1654
1655 static void
1656 _outColumnRef(StringInfo str, ColumnRef *node)
1657 {
1658         WRITE_NODE_TYPE("COLUMNREF");
1659
1660         WRITE_NODE_FIELD(fields);
1661 }
1662
1663 static void
1664 _outParamRef(StringInfo str, ParamRef *node)
1665 {
1666         WRITE_NODE_TYPE("PARAMREF");
1667
1668         WRITE_INT_FIELD(number);
1669 }
1670
1671 static void
1672 _outAConst(StringInfo str, A_Const *node)
1673 {
1674         WRITE_NODE_TYPE("A_CONST");
1675
1676         appendStringInfo(str, " :val ");
1677         _outValue(str, &(node->val));
1678         WRITE_NODE_FIELD(typename);
1679 }
1680
1681 static void
1682 _outA_Indices(StringInfo str, A_Indices *node)
1683 {
1684         WRITE_NODE_TYPE("A_INDICES");
1685
1686         WRITE_NODE_FIELD(lidx);
1687         WRITE_NODE_FIELD(uidx);
1688 }
1689
1690 static void
1691 _outA_Indirection(StringInfo str, A_Indirection *node)
1692 {
1693         WRITE_NODE_TYPE("A_INDIRECTION");
1694
1695         WRITE_NODE_FIELD(arg);
1696         WRITE_NODE_FIELD(indirection);
1697 }
1698
1699 static void
1700 _outResTarget(StringInfo str, ResTarget *node)
1701 {
1702         WRITE_NODE_TYPE("RESTARGET");
1703
1704         WRITE_STRING_FIELD(name);
1705         WRITE_NODE_FIELD(indirection);
1706         WRITE_NODE_FIELD(val);
1707 }
1708
1709 static void
1710 _outConstraint(StringInfo str, Constraint *node)
1711 {
1712         WRITE_NODE_TYPE("CONSTRAINT");
1713
1714         WRITE_STRING_FIELD(name);
1715
1716         appendStringInfo(str, " :contype ");
1717         switch (node->contype)
1718         {
1719                 case CONSTR_PRIMARY:
1720                         appendStringInfo(str, "PRIMARY_KEY");
1721                         WRITE_NODE_FIELD(keys);
1722                         WRITE_STRING_FIELD(indexspace);
1723                         break;
1724
1725                 case CONSTR_UNIQUE:
1726                         appendStringInfo(str, "UNIQUE");
1727                         WRITE_NODE_FIELD(keys);
1728                         WRITE_STRING_FIELD(indexspace);
1729                         break;
1730
1731                 case CONSTR_CHECK:
1732                         appendStringInfo(str, "CHECK");
1733                         WRITE_NODE_FIELD(raw_expr);
1734                         WRITE_STRING_FIELD(cooked_expr);
1735                         break;
1736
1737                 case CONSTR_DEFAULT:
1738                         appendStringInfo(str, "DEFAULT");
1739                         WRITE_NODE_FIELD(raw_expr);
1740                         WRITE_STRING_FIELD(cooked_expr);
1741                         break;
1742
1743                 case CONSTR_NOTNULL:
1744                         appendStringInfo(str, "NOT_NULL");
1745                         break;
1746
1747                 default:
1748                         appendStringInfo(str, "<unrecognized_constraint>");
1749                         break;
1750         }
1751 }
1752
1753 static void
1754 _outFkConstraint(StringInfo str, FkConstraint *node)
1755 {
1756         WRITE_NODE_TYPE("FKCONSTRAINT");
1757
1758         WRITE_STRING_FIELD(constr_name);
1759         WRITE_NODE_FIELD(pktable);
1760         WRITE_NODE_FIELD(fk_attrs);
1761         WRITE_NODE_FIELD(pk_attrs);
1762         WRITE_CHAR_FIELD(fk_matchtype);
1763         WRITE_CHAR_FIELD(fk_upd_action);
1764         WRITE_CHAR_FIELD(fk_del_action);
1765         WRITE_BOOL_FIELD(deferrable);
1766         WRITE_BOOL_FIELD(initdeferred);
1767         WRITE_BOOL_FIELD(skip_validation);
1768 }
1769
1770
1771 /*
1772  * _outNode -
1773  *        converts a Node into ascii string and append it to 'str'
1774  */
1775 static void
1776 _outNode(StringInfo str, void *obj)
1777 {
1778         if (obj == NULL)
1779                 appendStringInfo(str, "<>");
1780         else if (IsA(obj, List) ||IsA(obj, IntList) || IsA(obj, OidList))
1781                 _outList(str, obj);
1782         else if (IsA(obj, Integer) ||
1783                          IsA(obj, Float) ||
1784                          IsA(obj, String) ||
1785                          IsA(obj, BitString))
1786         {
1787                 /* nodeRead does not want to see { } around these! */
1788                 _outValue(str, obj);
1789         }
1790         else
1791         {
1792                 appendStringInfoChar(str, '{');
1793                 switch (nodeTag(obj))
1794                 {
1795                         case T_Plan:
1796                                 _outPlan(str, obj);
1797                                 break;
1798                         case T_Result:
1799                                 _outResult(str, obj);
1800                                 break;
1801                         case T_Append:
1802                                 _outAppend(str, obj);
1803                                 break;
1804                         case T_BitmapAnd:
1805                                 _outBitmapAnd(str, obj);
1806                                 break;
1807                         case T_BitmapOr:
1808                                 _outBitmapOr(str, obj);
1809                                 break;
1810                         case T_Scan:
1811                                 _outScan(str, obj);
1812                                 break;
1813                         case T_SeqScan:
1814                                 _outSeqScan(str, obj);
1815                                 break;
1816                         case T_IndexScan:
1817                                 _outIndexScan(str, obj);
1818                                 break;
1819                         case T_BitmapIndexScan:
1820                                 _outBitmapIndexScan(str, obj);
1821                                 break;
1822                         case T_BitmapHeapScan:
1823                                 _outBitmapHeapScan(str, obj);
1824                                 break;
1825                         case T_TidScan:
1826                                 _outTidScan(str, obj);
1827                                 break;
1828                         case T_SubqueryScan:
1829                                 _outSubqueryScan(str, obj);
1830                                 break;
1831                         case T_FunctionScan:
1832                                 _outFunctionScan(str, obj);
1833                                 break;
1834                         case T_Join:
1835                                 _outJoin(str, obj);
1836                                 break;
1837                         case T_NestLoop:
1838                                 _outNestLoop(str, obj);
1839                                 break;
1840                         case T_MergeJoin:
1841                                 _outMergeJoin(str, obj);
1842                                 break;
1843                         case T_HashJoin:
1844                                 _outHashJoin(str, obj);
1845                                 break;
1846                         case T_Agg:
1847                                 _outAgg(str, obj);
1848                                 break;
1849                         case T_Group:
1850                                 _outGroup(str, obj);
1851                                 break;
1852                         case T_Material:
1853                                 _outMaterial(str, obj);
1854                                 break;
1855                         case T_Sort:
1856                                 _outSort(str, obj);
1857                                 break;
1858                         case T_Unique:
1859                                 _outUnique(str, obj);
1860                                 break;
1861                         case T_SetOp:
1862                                 _outSetOp(str, obj);
1863                                 break;
1864                         case T_Limit:
1865                                 _outLimit(str, obj);
1866                                 break;
1867                         case T_Hash:
1868                                 _outHash(str, obj);
1869                                 break;
1870                         case T_Alias:
1871                                 _outAlias(str, obj);
1872                                 break;
1873                         case T_RangeVar:
1874                                 _outRangeVar(str, obj);
1875                                 break;
1876                         case T_Var:
1877                                 _outVar(str, obj);
1878                                 break;
1879                         case T_Const:
1880                                 _outConst(str, obj);
1881                                 break;
1882                         case T_Param:
1883                                 _outParam(str, obj);
1884                                 break;
1885                         case T_Aggref:
1886                                 _outAggref(str, obj);
1887                                 break;
1888                         case T_ArrayRef:
1889                                 _outArrayRef(str, obj);
1890                                 break;
1891                         case T_FuncExpr:
1892                                 _outFuncExpr(str, obj);
1893                                 break;
1894                         case T_OpExpr:
1895                                 _outOpExpr(str, obj);
1896                                 break;
1897                         case T_DistinctExpr:
1898                                 _outDistinctExpr(str, obj);
1899                                 break;
1900                         case T_ScalarArrayOpExpr:
1901                                 _outScalarArrayOpExpr(str, obj);
1902                                 break;
1903                         case T_BoolExpr:
1904                                 _outBoolExpr(str, obj);
1905                                 break;
1906                         case T_SubLink:
1907                                 _outSubLink(str, obj);
1908                                 break;
1909                         case T_SubPlan:
1910                                 _outSubPlan(str, obj);
1911                                 break;
1912                         case T_FieldSelect:
1913                                 _outFieldSelect(str, obj);
1914                                 break;
1915                         case T_FieldStore:
1916                                 _outFieldStore(str, obj);
1917                                 break;
1918                         case T_RelabelType:
1919                                 _outRelabelType(str, obj);
1920                                 break;
1921                         case T_ConvertRowtypeExpr:
1922                                 _outConvertRowtypeExpr(str, obj);
1923                                 break;
1924                         case T_CaseExpr:
1925                                 _outCaseExpr(str, obj);
1926                                 break;
1927                         case T_CaseWhen:
1928                                 _outCaseWhen(str, obj);
1929                                 break;
1930                         case T_CaseTestExpr:
1931                                 _outCaseTestExpr(str, obj);
1932                                 break;
1933                         case T_ArrayExpr:
1934                                 _outArrayExpr(str, obj);
1935                                 break;
1936                         case T_RowExpr:
1937                                 _outRowExpr(str, obj);
1938                                 break;
1939                         case T_CoalesceExpr:
1940                                 _outCoalesceExpr(str, obj);
1941                                 break;
1942                         case T_MinMaxExpr:
1943                                 _outMinMaxExpr(str, obj);
1944                                 break;
1945                         case T_NullIfExpr:
1946                                 _outNullIfExpr(str, obj);
1947                                 break;
1948                         case T_NullTest:
1949                                 _outNullTest(str, obj);
1950                                 break;
1951                         case T_BooleanTest:
1952                                 _outBooleanTest(str, obj);
1953                                 break;
1954                         case T_CoerceToDomain:
1955                                 _outCoerceToDomain(str, obj);
1956                                 break;
1957                         case T_CoerceToDomainValue:
1958                                 _outCoerceToDomainValue(str, obj);
1959                                 break;
1960                         case T_SetToDefault:
1961                                 _outSetToDefault(str, obj);
1962                                 break;
1963                         case T_TargetEntry:
1964                                 _outTargetEntry(str, obj);
1965                                 break;
1966                         case T_RangeTblRef:
1967                                 _outRangeTblRef(str, obj);
1968                                 break;
1969                         case T_JoinExpr:
1970                                 _outJoinExpr(str, obj);
1971                                 break;
1972                         case T_FromExpr:
1973                                 _outFromExpr(str, obj);
1974                                 break;
1975
1976                         case T_Path:
1977                                 _outPath(str, obj);
1978                                 break;
1979                         case T_IndexPath:
1980                                 _outIndexPath(str, obj);
1981                                 break;
1982                         case T_BitmapHeapPath:
1983                                 _outBitmapHeapPath(str, obj);
1984                                 break;
1985                         case T_BitmapAndPath:
1986                                 _outBitmapAndPath(str, obj);
1987                                 break;
1988                         case T_BitmapOrPath:
1989                                 _outBitmapOrPath(str, obj);
1990                                 break;
1991                         case T_TidPath:
1992                                 _outTidPath(str, obj);
1993                                 break;
1994                         case T_AppendPath:
1995                                 _outAppendPath(str, obj);
1996                                 break;
1997                         case T_ResultPath:
1998                                 _outResultPath(str, obj);
1999                                 break;
2000                         case T_MaterialPath:
2001                                 _outMaterialPath(str, obj);
2002                                 break;
2003                         case T_UniquePath:
2004                                 _outUniquePath(str, obj);
2005                                 break;
2006                         case T_NestPath:
2007                                 _outNestPath(str, obj);
2008                                 break;
2009                         case T_MergePath:
2010                                 _outMergePath(str, obj);
2011                                 break;
2012                         case T_HashPath:
2013                                 _outHashPath(str, obj);
2014                                 break;
2015                         case T_PlannerInfo:
2016                                 _outPlannerInfo(str, obj);
2017                                 break;
2018                         case T_RelOptInfo:
2019                                 _outRelOptInfo(str, obj);
2020                                 break;
2021                         case T_IndexOptInfo:
2022                                 _outIndexOptInfo(str, obj);
2023                                 break;
2024                         case T_PathKeyItem:
2025                                 _outPathKeyItem(str, obj);
2026                                 break;
2027                         case T_RestrictInfo:
2028                                 _outRestrictInfo(str, obj);
2029                                 break;
2030                         case T_InnerIndexscanInfo:
2031                                 _outInnerIndexscanInfo(str, obj);
2032                                 break;
2033                         case T_OuterJoinInfo:
2034                                 _outOuterJoinInfo(str, obj);
2035                                 break;
2036                         case T_InClauseInfo:
2037                                 _outInClauseInfo(str, obj);
2038                                 break;
2039
2040                         case T_CreateStmt:
2041                                 _outCreateStmt(str, obj);
2042                                 break;
2043                         case T_IndexStmt:
2044                                 _outIndexStmt(str, obj);
2045                                 break;
2046                         case T_NotifyStmt:
2047                                 _outNotifyStmt(str, obj);
2048                                 break;
2049                         case T_DeclareCursorStmt:
2050                                 _outDeclareCursorStmt(str, obj);
2051                                 break;
2052                         case T_SelectStmt:
2053                                 _outSelectStmt(str, obj);
2054                                 break;
2055                         case T_ColumnDef:
2056                                 _outColumnDef(str, obj);
2057                                 break;
2058                         case T_TypeName:
2059                                 _outTypeName(str, obj);
2060                                 break;
2061                         case T_TypeCast:
2062                                 _outTypeCast(str, obj);
2063                                 break;
2064                         case T_IndexElem:
2065                                 _outIndexElem(str, obj);
2066                                 break;
2067                         case T_Query:
2068                                 _outQuery(str, obj);
2069                                 break;
2070                         case T_SortClause:
2071                                 _outSortClause(str, obj);
2072                                 break;
2073                         case T_GroupClause:
2074                                 _outGroupClause(str, obj);
2075                                 break;
2076                         case T_SetOperationStmt:
2077                                 _outSetOperationStmt(str, obj);
2078                                 break;
2079                         case T_RangeTblEntry:
2080                                 _outRangeTblEntry(str, obj);
2081                                 break;
2082                         case T_A_Expr:
2083                                 _outAExpr(str, obj);
2084                                 break;
2085                         case T_ColumnRef:
2086                                 _outColumnRef(str, obj);
2087                                 break;
2088                         case T_ParamRef:
2089                                 _outParamRef(str, obj);
2090                                 break;
2091                         case T_A_Const:
2092                                 _outAConst(str, obj);
2093                                 break;
2094                         case T_A_Indices:
2095                                 _outA_Indices(str, obj);
2096                                 break;
2097                         case T_A_Indirection:
2098                                 _outA_Indirection(str, obj);
2099                                 break;
2100                         case T_ResTarget:
2101                                 _outResTarget(str, obj);
2102                                 break;
2103                         case T_Constraint:
2104                                 _outConstraint(str, obj);
2105                                 break;
2106                         case T_FkConstraint:
2107                                 _outFkConstraint(str, obj);
2108                                 break;
2109                         case T_FuncCall:
2110                                 _outFuncCall(str, obj);
2111                                 break;
2112                         case T_DefElem:
2113                                 _outDefElem(str, obj);
2114                                 break;
2115                         case T_LockingClause:
2116                                 _outLockingClause(str, obj);
2117                                 break;
2118
2119                         default:
2120
2121                                 /*
2122                                  * This should be an ERROR, but it's too useful to be able to
2123                                  * dump structures that _outNode only understands part of.
2124                                  */
2125                                 elog(WARNING, "could not dump unrecognized node type: %d",
2126                                          (int) nodeTag(obj));
2127                                 break;
2128                 }
2129                 appendStringInfoChar(str, '}');
2130         }
2131 }
2132
2133 /*
2134  * nodeToString -
2135  *         returns the ascii representation of the Node as a palloc'd string
2136  */
2137 char *
2138 nodeToString(void *obj)
2139 {
2140         StringInfoData str;
2141
2142         /* see stringinfo.h for an explanation of this maneuver */
2143         initStringInfo(&str);
2144         _outNode(&str, obj);
2145         return str.data;
2146 }