Ejemplo n.º 1
0
/* ----------------
 *		debugtup - print one tuple for an interactive backend
 * ----------------
 */
bool
debugtup(TupleTableSlot *slot, DestReceiver *self)
{
	TupleDesc	typeinfo = slot->tts_tupleDescriptor;
	int			natts = typeinfo->natts;
	int			i;
	Datum		attr;
	char	   *value;
	bool		isnull;
	Oid			typoutput;
	bool		typisvarlena;

	for (i = 0; i < natts; ++i)
	{
		attr = slot_getattr(slot, i + 1, &isnull);
		if (isnull)
			continue;
		getTypeOutputInfo(typeinfo->attrs[i]->atttypid,
						  &typoutput, &typisvarlena);

		value = OidOutputFunctionCall(typoutput, attr);

		printatt((unsigned) i + 1, typeinfo->attrs[i], value);
	}
	printf("\t----\n");

	return true;
}
Ejemplo n.º 2
0
static STATUS
qrdefcolret(
    QRIOB	* qriob,
    i4		i,
    bool	* flushed,
    bool        firstcol
) {
		/* init dbv with column attributes */

    qriob->dbv.db_length	= qriob->qrb->rd->RD_DBVS_MACRO(i).db_length;
    qriob->dbv.db_datatype	= qriob->qrb->rd->RD_DBVS_MACRO(i).db_datatype;
    qriob->dbv.db_prec 		= qriob->qrb->rd->RD_DBVS_MACRO(i).db_prec;

		/* pick up fixed length column value */
    IIretdom( 1, DB_DBV_TYPE, 0, &(qriob->dbv) );

    if (IIerrtest() != 0)
	return( FAIL );    /* error, fake end-data to caller */

    printatt( qriob->qrb, &(qriob->dbv), firstcol );

    *flushed = FALSE;

    return( OK );
}
Ejemplo n.º 3
0
/* ----------------
 *		debugStartup - prepare to print tuples for an interactive backend
 * ----------------
 */
void
debugStartup(DestReceiver *self, int operation, TupleDesc typeinfo)
{
	int			natts = typeinfo->natts;
	int			i;

	/*
	 * show the return type of the tuples
	 */
	for (i = 0; i < natts; ++i)
		printatt((unsigned) i + 1, TupleDescAttr(typeinfo, i), NULL);
	printf("\t----\n");
}
Ejemplo n.º 4
0
/* ----------------
 *		debugStartup - prepare to print tuples for an interactive backend
 * ----------------
 */
void
debugStartup(DestReceiver *self, int operation, TupleDesc typeinfo)
{
	int			natts = typeinfo->natts;
	Form_pg_attribute *attinfo = typeinfo->attrs;
	int			i;

	/*
	 * show the return type of the tuples
	 */
	for (i = 0; i < natts; ++i)
		printatt((unsigned) i + 1, attinfo[i], NULL);
	printf("\t----\n");
}
Ejemplo n.º 5
0
/* ----------------
 *		debugtup - print one tuple for an interactive backend
 * ----------------
 */
void
debugtup(TupleTableSlot *slot, DestReceiver *self)
{
	TupleDesc	typeinfo = slot->tts_tupleDescriptor;
	int			natts = typeinfo->natts;
	int			i;
	Datum		origattr,
				attr;
	char	   *value;
	bool		isnull;
	Oid			typoutput;
	bool		typisvarlena;

	for (i = 0; i < natts; ++i)
	{
		origattr = slot_getattr(slot, i + 1, &isnull);
		if (isnull)
			continue;
		getTypeOutputInfo(typeinfo->attrs[i]->atttypid,
						  &typoutput, &typisvarlena);

		/*
		 * If we have a toasted datum, forcibly detoast it here to avoid
		 * memory leakage inside the type's output routine.
		 */
		if (typisvarlena)
			attr = PointerGetDatum(PG_DETOAST_DATUM(origattr));
		else
			attr = origattr;

		value = OidOutputFunctionCall(typoutput, attr);

		printatt((unsigned) i + 1, typeinfo->attrs[i], value);

		pfree(value);

		/* Clean up detoasted copy, if any */
		if (DatumGetPointer(attr) != DatumGetPointer(origattr))
			pfree(DatumGetPointer(attr));
	}
	printf("\t----\n");
}
Ejemplo n.º 6
0
static VOID
qrubdhdlr(
    QRIOB	* qriob
) {
i4	seglen = 0;
i4	data_end = 0;
i4	count = 0;

    /* check for NULL data somewhere here and take appropriate action if
    ** found  (will data_end be 1 in this case?)
    */

    if ( qriob->qrb->tm )
    {
	qrputc( qriob->qrb, DRCH_V );  /* begin with a | */
	while ( data_end != 1 )  /* get and put to user 2k or less segs */
	{
	    qriob->dbv.db_length = QR_DRBSZ;
	    IILQlgd_LoGetData((i4)(II_DATLEN|II_DATSEG), DB_DBV_TYPE, QR_DRBSZ,
	    			&(qriob->dbv), QR_DRBSZ, &seglen, &data_end );

	    if (IIerrtest() != 0)
	    {
		IILQled_LoEndData();
		return; 
	    }
	    count++;

	    /* blob col names are formatted into GL_MAXNAME size boxes.
	    /* if entire blob is shorter than column header size, set 
	    ** db_length to column header size (GL_MAXNAME) so that printatt 
	    ** will blank pad correctly.
	    */

	    if (count == 1 && data_end == 1 && seglen < qriob->qrb->col_maxname)
		qriob->dbv.db_length = qriob->qrb->col_maxname;
	    else
	    	qriob->dbv.db_length = seglen;
	    printatt( qriob->qrb, &(qriob->dbv), TRUE );
	    (*(qriob->qrb->putfunc))(qriob->qrb);
	}
    }
    else /* don't output the blobs, this is not 'tm'. token only. */
    {
	    /* don't need to go through printatt in this case,
	    ** no translation or conversion is necessary
	    */
	IILQled_LoEndData();

	    /* first time through, retrieve the token from er file */
	if ( blob_token == NULL )
	    blob_token	= ERget(F_QR011E_Unbounded_data);

	qrputc(qriob->qrb, DRCH_V);
	qradd(qriob->qrb, blob_token, seglen = STlength( blob_token ));
					/* blob col names are formatted into
					** DB_MAXNAME size boxes. the token
					** must be padded or truncated to fit.
					** data_end is not mnemonic here!!
					*/
	for( data_end = ( qriob->qrb->col_maxname - seglen );
			data_end > 0; data_end -- )
	    qrputc(qriob->qrb, ' ');
    }
    return;
}