Age Owner Branch data TLA Line data Source code
1 : : /*-------------------------------------------------------------------------
2 : : *
3 : : * printtup.c
4 : : * Routines to print out tuples to the destination (both frontend
5 : : * clients and standalone backends are supported here).
6 : : *
7 : : *
8 : : * Portions Copyright (c) 1996-2025, PostgreSQL Global Development Group
9 : : * Portions Copyright (c) 1994, Regents of the University of California
10 : : *
11 : : * IDENTIFICATION
12 : : * src/backend/access/common/printtup.c
13 : : *
14 : : *-------------------------------------------------------------------------
15 : : */
16 : : #include "postgres.h"
17 : :
18 : : #include "access/printtup.h"
19 : : #include "libpq/pqformat.h"
20 : : #include "libpq/protocol.h"
21 : : #include "tcop/pquery.h"
22 : : #include "utils/lsyscache.h"
23 : : #include "utils/memdebug.h"
24 : : #include "utils/memutils.h"
25 : : #include "varatt.h"
26 : :
27 : :
28 : : static void printtup_startup(DestReceiver *self, int operation,
29 : : TupleDesc typeinfo);
30 : : static bool printtup(TupleTableSlot *slot, DestReceiver *self);
31 : : static void printtup_shutdown(DestReceiver *self);
32 : : static void printtup_destroy(DestReceiver *self);
33 : :
34 : : /* ----------------------------------------------------------------
35 : : * printtup / debugtup support
36 : : * ----------------------------------------------------------------
37 : : */
38 : :
39 : : /* ----------------
40 : : * Private state for a printtup destination object
41 : : *
42 : : * NOTE: finfo is the lookup info for either typoutput or typsend, whichever
43 : : * we are using for this column.
44 : : * ----------------
45 : : */
46 : : typedef struct
47 : : { /* Per-attribute information */
48 : : Oid typoutput; /* Oid for the type's text output fn */
49 : : Oid typsend; /* Oid for the type's binary output fn */
50 : : bool typisvarlena; /* is it varlena (ie possibly toastable)? */
51 : : int16 format; /* format code for this column */
52 : : FmgrInfo finfo; /* Precomputed call info for output fn */
53 : : } PrinttupAttrInfo;
54 : :
55 : : typedef struct
56 : : {
57 : : DestReceiver pub; /* publicly-known function pointers */
58 : : Portal portal; /* the Portal we are printing from */
59 : : bool sendDescrip; /* send RowDescription at startup? */
60 : : TupleDesc attrinfo; /* The attr info we are set up for */
61 : : int nattrs;
62 : : PrinttupAttrInfo *myinfo; /* Cached info about each attr */
63 : : StringInfoData buf; /* output buffer (*not* in tmpcontext) */
64 : : MemoryContext tmpcontext; /* Memory context for per-row workspace */
65 : : } DR_printtup;
66 : :
67 : : /* ----------------
68 : : * Initialize: create a DestReceiver for printtup
69 : : * ----------------
70 : : */
71 : : DestReceiver *
6175 tgl@sss.pgh.pa.us 72 :CBC 310756 : printtup_create_DR(CommandDest dest)
73 : : {
74 : 310756 : DR_printtup *self = (DR_printtup *) palloc0(sizeof(DR_printtup));
75 : :
5982 bruce@momjian.us 76 : 310756 : self->pub.receiveSlot = printtup; /* might get changed later */
8118 tgl@sss.pgh.pa.us 77 : 310756 : self->pub.rStartup = printtup_startup;
78 : 310756 : self->pub.rShutdown = printtup_shutdown;
79 : 310756 : self->pub.rDestroy = printtup_destroy;
8210 80 : 310756 : self->pub.mydest = dest;
81 : :
82 : : /*
83 : : * Send T message automatically if DestRemote, but not if
84 : : * DestRemoteExecute
85 : : */
7298 alvherre@alvh.no-ip. 86 : 310756 : self->sendDescrip = (dest == DestRemote);
87 : :
9770 tgl@sss.pgh.pa.us 88 : 310756 : self->attrinfo = NULL;
89 : 310756 : self->nattrs = 0;
90 : 310756 : self->myinfo = NULL;
2415 91 : 310756 : self->buf.data = NULL;
4376 92 : 310756 : self->tmpcontext = NULL;
93 : :
9652 bruce@momjian.us 94 : 310756 : return (DestReceiver *) self;
95 : : }
96 : :
97 : : /*
98 : : * Set parameters for a DestRemote (or DestRemoteExecute) receiver
99 : : */
100 : : void
6175 tgl@sss.pgh.pa.us 101 : 310756 : SetRemoteDestReceiverParams(DestReceiver *self, Portal portal)
102 : : {
103 : 310756 : DR_printtup *myState = (DR_printtup *) self;
104 : :
105 [ + + - + ]: 310756 : Assert(myState->pub.mydest == DestRemote ||
106 : : myState->pub.mydest == DestRemoteExecute);
107 : :
108 : 310756 : myState->portal = portal;
109 : 310756 : }
110 : :
111 : : static void
8208 112 : 153625 : printtup_startup(DestReceiver *self, int operation, TupleDesc typeinfo)
113 : : {
8211 114 : 153625 : DR_printtup *myState = (DR_printtup *) self;
8120 bruce@momjian.us 115 : 153625 : Portal portal = myState->portal;
116 : :
117 : : /*
118 : : * Create I/O buffer to be used for all messages. This cannot be inside
119 : : * tmpcontext, since we want to re-use it across rows.
120 : : */
2938 andres@anarazel.de 121 : 153625 : initStringInfo(&myState->buf);
122 : :
123 : : /*
124 : : * Create a temporary memory context that we can reset once per row to
125 : : * recover palloc'd memory. This avoids any problems with leaks inside
126 : : * datatype output routines, and should be faster than retail pfree's
127 : : * anyway.
128 : : */
4376 tgl@sss.pgh.pa.us 129 : 153625 : myState->tmpcontext = AllocSetContextCreate(CurrentMemoryContext,
130 : : "printtup",
131 : : ALLOCSET_DEFAULT_SIZES);
132 : :
133 : : /*
134 : : * If we are supposed to emit row descriptions, then send the tuple
135 : : * descriptor of the tuples.
136 : : */
7016 137 [ + + ]: 153625 : if (myState->sendDescrip)
2938 andres@anarazel.de 138 : 148888 : SendRowDescriptionMessage(&myState->buf,
139 : : typeinfo,
140 : : FetchPortalTargetList(portal),
141 : : portal->formats);
142 : :
143 : : /* ----------------
144 : : * We could set up the derived attr info at this time, but we postpone it
145 : : * until the first call of printtup, for 2 reasons:
146 : : * 1. We don't waste time (compared to the old way) if there are no
147 : : * tuples at all to output.
148 : : * 2. Checking in printtup allows us to handle the case that the tuples
149 : : * change type midway through (although this probably can't happen in
150 : : * the current executor).
151 : : * ----------------
152 : : */
9770 tgl@sss.pgh.pa.us 153 : 153625 : }
154 : :
155 : : /*
156 : : * SendRowDescriptionMessage --- send a RowDescription message to the frontend
157 : : *
158 : : * Notes: the TupleDesc has typically been manufactured by ExecTypeFromTL()
159 : : * or some similar function; it does not contain a full set of fields.
160 : : * The targetlist will be NIL when executing a utility function that does
161 : : * not have a plan. If the targetlist isn't NIL then it is a Query node's
162 : : * targetlist; it is up to us to ignore resjunk columns in it. The formats[]
163 : : * array pointer might be NULL (if we are doing Describe on a prepared stmt);
164 : : * send zeroes for the format codes in that case.
165 : : */
166 : : void
2938 andres@anarazel.de 167 : 153671 : SendRowDescriptionMessage(StringInfo buf, TupleDesc typeinfo,
168 : : List *targetlist, int16 *formats)
169 : : {
8211 tgl@sss.pgh.pa.us 170 : 153671 : int natts = typeinfo->natts;
171 : : int i;
1698 heikki.linnakangas@i 172 : 153671 : ListCell *tlist_item = list_head(targetlist);
173 : :
174 : : /* tuple descriptor message type */
467 nathan@postgresql.or 175 : 153671 : pq_beginmessage_reuse(buf, PqMsg_RowDescription);
176 : : /* # of attrs in tuples */
2938 andres@anarazel.de 177 : 153671 : pq_sendint16(buf, natts);
178 : :
179 : : /*
180 : : * Preallocate memory for the entire message to be sent. That allows to
181 : : * use the significantly faster inline pqformat.h functions and to avoid
182 : : * reallocations.
183 : : *
184 : : * Have to overestimate the size of the column-names, to account for
185 : : * character set overhead.
186 : : */
187 : 153671 : enlargeStringInfo(buf, (NAMEDATALEN * MAX_CONVERSION_GROWTH /* attname */
188 : : + sizeof(Oid) /* resorigtbl */
189 : : + sizeof(AttrNumber) /* resorigcol */
190 : : + sizeof(Oid) /* atttypid */
191 : : + sizeof(int16) /* attlen */
192 : : + sizeof(int32) /* attypmod */
193 : : + sizeof(int16) /* format */
194 : : ) * natts);
195 : :
8211 tgl@sss.pgh.pa.us 196 [ + + ]: 658133 : for (i = 0; i < natts; ++i)
197 : : {
2990 andres@anarazel.de 198 : 504462 : Form_pg_attribute att = TupleDescAttr(typeinfo, i);
199 : 504462 : Oid atttypid = att->atttypid;
200 : 504462 : int32 atttypmod = att->atttypmod;
201 : : Oid resorigtbl;
202 : : AttrNumber resorigcol;
203 : : int16 format;
204 : :
205 : : /*
206 : : * If column is a domain, send the base type and typmod instead.
207 : : * Lookup before sending any ints, for efficiency.
208 : : */
2938 209 : 504462 : atttypid = getBaseTypeAndTypmod(atttypid, &atttypmod);
210 : :
211 : : /* Do we have a non-resjunk tlist item? */
212 [ + + ]: 504462 : while (tlist_item &&
213 [ - + ]: 495892 : ((TargetEntry *) lfirst(tlist_item))->resjunk)
2296 tgl@sss.pgh.pa.us 214 :UBC 0 : tlist_item = lnext(targetlist, tlist_item);
2938 andres@anarazel.de 215 [ + + ]:CBC 504462 : if (tlist_item)
216 : : {
217 : 495892 : TargetEntry *tle = (TargetEntry *) lfirst(tlist_item);
218 : :
219 : 495892 : resorigtbl = tle->resorigtbl;
220 : 495892 : resorigcol = tle->resorigcol;
2296 tgl@sss.pgh.pa.us 221 : 495892 : tlist_item = lnext(targetlist, tlist_item);
222 : : }
223 : : else
224 : : {
225 : : /* No info available, so send zeroes */
2938 andres@anarazel.de 226 : 8570 : resorigtbl = 0;
227 : 8570 : resorigcol = 0;
228 : : }
229 : :
230 [ + + ]: 504462 : if (formats)
231 : 504291 : format = formats[i];
232 : : else
233 : 171 : format = 0;
234 : :
235 : 504462 : pq_writestring(buf, NameStr(att->attname));
236 : 504462 : pq_writeint32(buf, resorigtbl);
237 : 504462 : pq_writeint16(buf, resorigcol);
238 : 504462 : pq_writeint32(buf, atttypid);
239 : 504462 : pq_writeint16(buf, att->attlen);
240 : 504462 : pq_writeint32(buf, atttypmod);
241 : 504462 : pq_writeint16(buf, format);
242 : : }
243 : :
1698 heikki.linnakangas@i 244 : 153671 : pq_endmessage_reuse(buf);
8211 tgl@sss.pgh.pa.us 245 : 153671 : }
246 : :
247 : : /*
248 : : * Get the lookup info that printtup() needs
249 : : */
250 : : static void
9652 bruce@momjian.us 251 : 126934 : printtup_prepare_info(DR_printtup *myState, TupleDesc typeinfo, int numAttrs)
252 : : {
8207 tgl@sss.pgh.pa.us 253 : 126934 : int16 *formats = myState->portal->formats;
254 : : int i;
255 : :
256 : : /* get rid of any old data */
9770 257 [ + + ]: 126934 : if (myState->myinfo)
7815 258 : 812 : pfree(myState->myinfo);
9770 259 : 126934 : myState->myinfo = NULL;
260 : :
261 : 126934 : myState->attrinfo = typeinfo;
262 : 126934 : myState->nattrs = numAttrs;
263 [ + + ]: 126934 : if (numAttrs <= 0)
264 : 125 : return;
265 : :
9652 bruce@momjian.us 266 : 126809 : myState->myinfo = (PrinttupAttrInfo *)
8207 tgl@sss.pgh.pa.us 267 : 126809 : palloc0(numAttrs * sizeof(PrinttupAttrInfo));
268 : :
9770 269 [ + + ]: 522683 : for (i = 0; i < numAttrs; i++)
270 : : {
9652 bruce@momjian.us 271 : 395874 : PrinttupAttrInfo *thisState = myState->myinfo + i;
8207 tgl@sss.pgh.pa.us 272 [ + + ]: 395874 : int16 format = (formats ? formats[i] : 0);
2990 andres@anarazel.de 273 : 395874 : Form_pg_attribute attr = TupleDescAttr(typeinfo, i);
274 : :
8207 tgl@sss.pgh.pa.us 275 : 395874 : thisState->format = format;
276 [ + + ]: 395874 : if (format == 0)
277 : : {
2990 andres@anarazel.de 278 : 395835 : getTypeOutputInfo(attr->atttypid,
279 : : &thisState->typoutput,
280 : : &thisState->typisvarlena);
9770 tgl@sss.pgh.pa.us 281 : 395835 : fmgr_info(thisState->typoutput, &thisState->finfo);
282 : : }
8207 283 [ + - ]: 39 : else if (format == 1)
284 : : {
2990 andres@anarazel.de 285 : 39 : getTypeBinaryOutputInfo(attr->atttypid,
286 : : &thisState->typsend,
287 : : &thisState->typisvarlena);
8207 tgl@sss.pgh.pa.us 288 : 39 : fmgr_info(thisState->typsend, &thisState->finfo);
289 : : }
290 : : else
8134 tgl@sss.pgh.pa.us 291 [ # # ]:UBC 0 : ereport(ERROR,
292 : : (errcode(ERRCODE_INVALID_PARAMETER_VALUE),
293 : : errmsg("unsupported format code: %d", format)));
294 : : }
295 : : }
296 : :
297 : : /* ----------------
298 : : * printtup --- send a tuple to the client
299 : : *
300 : : * Note: if you change this function, see also serializeAnalyzeReceive
301 : : * in explain.c, which is meant to replicate the computations done here.
302 : : * ----------------
303 : : */
304 : : static bool
7530 tgl@sss.pgh.pa.us 305 :CBC 3739682 : printtup(TupleTableSlot *slot, DestReceiver *self)
306 : : {
7317 bruce@momjian.us 307 : 3739682 : TupleDesc typeinfo = slot->tts_tupleDescriptor;
8208 tgl@sss.pgh.pa.us 308 : 3739682 : DR_printtup *myState = (DR_printtup *) self;
309 : : MemoryContext oldcontext;
2938 andres@anarazel.de 310 : 3739682 : StringInfo buf = &myState->buf;
8190 tgl@sss.pgh.pa.us 311 : 3739682 : int natts = typeinfo->natts;
312 : : int i;
313 : :
314 : : /* Set or update my derived attribute info, if needed */
8208 315 [ + + - + ]: 3739682 : if (myState->attrinfo != typeinfo || myState->nattrs != natts)
316 : 126934 : printtup_prepare_info(myState, typeinfo, natts);
317 : :
318 : : /* Make sure the tuple is fully deconstructed */
7530 319 : 3739682 : slot_getallattrs(slot);
320 : :
321 : : /* Switch into per-row context so we can recover memory below */
4376 322 : 3739682 : oldcontext = MemoryContextSwitchTo(myState->tmpcontext);
323 : :
324 : : /*
325 : : * Prepare a DataRow message (note buffer is in per-query context)
326 : : */
467 nathan@postgresql.or 327 : 3739682 : pq_beginmessage_reuse(buf, PqMsg_DataRow);
328 : :
2938 andres@anarazel.de 329 : 3739682 : pq_sendint16(buf, natts);
330 : :
331 : : /*
332 : : * send the attributes of this tuple
333 : : */
8208 tgl@sss.pgh.pa.us 334 [ + + ]: 22158546 : for (i = 0; i < natts; ++i)
335 : : {
336 : 18418864 : PrinttupAttrInfo *thisState = myState->myinfo + i;
4376 337 : 18418864 : Datum attr = slot->tts_values[i];
338 : :
7530 339 [ + + ]: 18418864 : if (slot->tts_isnull[i])
340 : : {
2938 andres@anarazel.de 341 : 1005794 : pq_sendint32(buf, -1);
8208 tgl@sss.pgh.pa.us 342 : 1005794 : continue;
343 : : }
344 : :
345 : : /*
346 : : * Here we catch undefined bytes in datums that are returned to the
347 : : * client without hitting disk; see comments at the related check in
348 : : * PageAddItem(). This test is most useful for uncompressed,
349 : : * non-external datums, but we're quite likely to see such here when
350 : : * testing new C functions.
351 : : */
8207 352 : 17413070 : if (thisState->typisvarlena)
353 : : VALGRIND_CHECK_MEM_IS_DEFINED(DatumGetPointer(attr),
354 : : VARSIZE_ANY(DatumGetPointer(attr)));
355 : :
356 [ + + ]: 17413070 : if (thisState->format == 0)
357 : : {
358 : : /* Text output */
359 : : char *outputstr;
360 : :
7146 361 : 17406005 : outputstr = OutputFunctionCall(&thisState->finfo, attr);
602 heikki.linnakangas@i 362 : 17406005 : pq_sendcountedtext(buf, outputstr, strlen(outputstr));
363 : : }
364 : : else
365 : : {
366 : : /* Binary output */
367 : : bytea *outputbytes;
368 : :
7146 tgl@sss.pgh.pa.us 369 : 7065 : outputbytes = SendFunctionCall(&thisState->finfo, attr);
2938 andres@anarazel.de 370 : 7065 : pq_sendint32(buf, VARSIZE(outputbytes) - VARHDRSZ);
371 : 7065 : pq_sendbytes(buf, VARDATA(outputbytes),
8207 tgl@sss.pgh.pa.us 372 : 7065 : VARSIZE(outputbytes) - VARHDRSZ);
373 : : }
374 : : }
375 : :
2938 andres@anarazel.de 376 : 3739682 : pq_endmessage_reuse(buf);
377 : :
378 : : /* Return to caller's context, and flush row's temporary memory */
4376 tgl@sss.pgh.pa.us 379 : 3739682 : MemoryContextSwitchTo(oldcontext);
380 : 3739682 : MemoryContextReset(myState->tmpcontext);
381 : :
3430 rhaas@postgresql.org 382 : 3739682 : return true;
383 : : }
384 : :
385 : : /* ----------------
386 : : * printtup_shutdown
387 : : * ----------------
388 : : */
389 : : static void
8210 tgl@sss.pgh.pa.us 390 : 149959 : printtup_shutdown(DestReceiver *self)
391 : : {
9652 bruce@momjian.us 392 : 149959 : DR_printtup *myState = (DR_printtup *) self;
393 : :
9770 tgl@sss.pgh.pa.us 394 [ + + ]: 149959 : if (myState->myinfo)
395 : 125899 : pfree(myState->myinfo);
8210 396 : 149959 : myState->myinfo = NULL;
397 : :
398 : 149959 : myState->attrinfo = NULL;
399 : :
2415 400 [ + - ]: 149959 : if (myState->buf.data)
401 : 149959 : pfree(myState->buf.data);
402 : 149959 : myState->buf.data = NULL;
403 : :
4376 404 [ + - ]: 149959 : if (myState->tmpcontext)
405 : 149959 : MemoryContextDelete(myState->tmpcontext);
406 : 149959 : myState->tmpcontext = NULL;
8210 407 : 149959 : }
408 : :
409 : : /* ----------------
410 : : * printtup_destroy
411 : : * ----------------
412 : : */
413 : : static void
414 : 296588 : printtup_destroy(DestReceiver *self)
415 : : {
416 : 296588 : pfree(self);
9770 417 : 296588 : }
418 : :
419 : : /* ----------------
420 : : * printatt
421 : : * ----------------
422 : : */
423 : : static void
10702 scrappy@hub.org 424 : 214 : printatt(unsigned attributeId,
425 : : Form_pg_attribute attributeP,
426 : : char *value)
427 : : {
10028 bruce@momjian.us 428 [ + + + + : 214 : printf("\t%2d: %s%s%s%s\t(typeid = %u, len = %d, typmod = %d, byval = %c)\n",
+ + + + ]
429 : : attributeId,
430 : : NameStr(attributeP->attname),
431 : : value != NULL ? " = \"" : "",
432 : : value != NULL ? value : "",
433 : : value != NULL ? "\"" : "",
434 : : (unsigned int) (attributeP->atttypid),
435 : : attributeP->attlen,
436 : : attributeP->atttypmod,
437 : : attributeP->attbyval ? 't' : 'f');
10702 scrappy@hub.org 438 : 214 : }
439 : :
440 : : /* ----------------
441 : : * debugStartup - prepare to print tuples for an interactive backend
442 : : * ----------------
443 : : */
444 : : void
8208 tgl@sss.pgh.pa.us 445 : 106 : debugStartup(DestReceiver *self, int operation, TupleDesc typeinfo)
446 : : {
447 : 106 : int natts = typeinfo->natts;
448 : : int i;
449 : :
450 : : /*
451 : : * show the return type of the tuples
452 : : */
453 [ + + ]: 212 : for (i = 0; i < natts; ++i)
2990 andres@anarazel.de 454 : 106 : printatt((unsigned) i + 1, TupleDescAttr(typeinfo, i), NULL);
8208 tgl@sss.pgh.pa.us 455 : 106 : printf("\t----\n");
8643 456 : 106 : }
457 : :
458 : : /* ----------------
459 : : * debugtup - print one tuple for an interactive backend
460 : : * ----------------
461 : : */
462 : : bool
7530 463 : 108 : debugtup(TupleTableSlot *slot, DestReceiver *self)
464 : : {
465 : 108 : TupleDesc typeinfo = slot->tts_tupleDescriptor;
8190 466 : 108 : int natts = typeinfo->natts;
467 : : int i;
468 : : Datum attr;
469 : : char *value;
470 : : bool isnull;
471 : : Oid typoutput;
472 : : bool typisvarlena;
473 : :
9096 474 [ + + ]: 216 : for (i = 0; i < natts; ++i)
475 : : {
4376 476 : 108 : attr = slot_getattr(slot, i + 1, &isnull);
9773 477 [ - + ]: 108 : if (isnull)
9773 tgl@sss.pgh.pa.us 478 :UBC 0 : continue;
2990 andres@anarazel.de 479 :CBC 108 : getTypeOutputInfo(TupleDescAttr(typeinfo, i)->atttypid,
480 : : &typoutput, &typisvarlena);
481 : :
7146 tgl@sss.pgh.pa.us 482 : 108 : value = OidOutputFunctionCall(typoutput, attr);
483 : :
2990 andres@anarazel.de 484 : 108 : printatt((unsigned) i + 1, TupleDescAttr(typeinfo, i), value);
485 : : }
10277 bruce@momjian.us 486 : 108 : printf("\t----\n");
487 : :
3430 rhaas@postgresql.org 488 : 108 : return true;
489 : : }
|
