<!--
-$PostgreSQL: pgsql/doc/src/sgml/pltcl.sgml,v 2.28 2003/11/29 19:51:37 pgsql Exp $
+$PostgreSQL: pgsql/doc/src/sgml/pltcl.sgml,v 2.29 2004/01/24 23:06:29 tgl Exp $
-->
<chapter id="pltcl">
element. So looking up a column name in the list with <application>Tcl</>'s
<function>lsearch</> command returns the element's number starting
with 1 for the first column, the same way the columns are customarily
- numbered in <productname>PostgreSQL</productname>.
+ numbered in <productname>PostgreSQL</productname>. (Empty list
+ elements also appear in the positions of columns that have been
+ dropped, so that the attribute numbering is correct for columns
+ to their right.)
</para>
</listitem>
</varlistentry>
* ENHANCEMENTS, OR MODIFICATIONS.
*
* IDENTIFICATION
- * $PostgreSQL: pgsql/src/pl/tcl/pltcl.c,v 1.81 2004/01/06 23:55:19 tgl Exp $
+ * $PostgreSQL: pgsql/src/pl/tcl/pltcl.c,v 1.82 2004/01/24 23:06:29 tgl Exp $
*
**********************************************************************/
pfree(stroid);
/* A list of attribute names for argument TG_relatts */
- /* note: we deliberately include dropped atts here */
Tcl_DStringAppendElement(&tcl_trigtup, "");
for (i = 0; i < tupdesc->natts; i++)
- Tcl_DStringAppendElement(&tcl_trigtup,
- NameStr(tupdesc->attrs[i]->attname));
+ {
+ if (tupdesc->attrs[i]->attisdropped)
+ Tcl_DStringAppendElement(&tcl_trigtup, "");
+ else
+ Tcl_DStringAppendElement(&tcl_trigtup,
+ NameStr(tupdesc->attrs[i]->attname));
+ }
Tcl_DStringAppendElement(&tcl_cmd, Tcl_DStringValue(&tcl_trigtup));
Tcl_DStringFree(&tcl_trigtup);
Tcl_DStringInit(&tcl_trigtup);
siglongjmp(Warn_restart, 1);
}
- i = 0;
- while (i < ret_numvals)
+ for (i = 0; i < ret_numvals; i += 2)
{
+ CONST84 char *ret_name = ret_values[i];
+ CONST84 char *ret_value = ret_values[i + 1];
int attnum;
HeapTuple typeTup;
Oid typinput;
FmgrInfo finfo;
/************************************************************
- * Ignore pseudo elements with a dot name
+ * Ignore ".tupno" pseudo elements (see pltcl_set_tuple_values)
************************************************************/
- if (*(ret_values[i]) == '.')
- {
- i += 2;
+ if (strcmp(ret_name, ".tupno") == 0)
continue;
- }
/************************************************************
* Get the attribute number
************************************************************/
- attnum = SPI_fnumber(tupdesc, ret_values[i++]);
+ attnum = SPI_fnumber(tupdesc, ret_name);
if (attnum == SPI_ERROR_NOATTRIBUTE)
- elog(ERROR, "invalid attribute \"%s\"",
- ret_values[--i]);
+ elog(ERROR, "invalid attribute \"%s\"", ret_name);
if (attnum <= 0)
- elog(ERROR, "cannot set system attribute \"%s\"",
- ret_values[--i]);
+ elog(ERROR, "cannot set system attribute \"%s\"", ret_name);
+
+ /************************************************************
+ * Ignore dropped columns
+ ************************************************************/
+ if (tupdesc->attrs[attnum - 1]->attisdropped)
+ continue;
/************************************************************
* Lookup the attribute type in the syscache
UTF_BEGIN;
modvalues[attnum - 1] =
FunctionCall3(&finfo,
- CStringGetDatum(UTF_U2E(ret_values[i++])),
+ CStringGetDatum(UTF_U2E(ret_value)),
ObjectIdGetDatum(typelem),
Int32GetDatum(tupdesc->attrs[attnum - 1]->atttypmod));
UTF_END;