mirror of
https://git.postgresql.org/git/postgresql.git
synced 2024-09-30 15:51:24 +02:00
Add -cmdTuples to tcl interface.
This commit is contained in:
parent
7fb0d91062
commit
80e6d99731
@ -728,6 +728,16 @@ the number of tuples returned by the query.
|
|||||||
</VARLISTENTRY>
|
</VARLISTENTRY>
|
||||||
<VARLISTENTRY>
|
<VARLISTENTRY>
|
||||||
<TERM>
|
<TERM>
|
||||||
|
<option>-cmdTuples</option>
|
||||||
|
</TERM>
|
||||||
|
<LISTITEM>
|
||||||
|
<PARA>
|
||||||
|
the number of tuples affected by the query.
|
||||||
|
</PARA>
|
||||||
|
</LISTITEM>
|
||||||
|
</VARLISTENTRY>
|
||||||
|
<VARLISTENTRY>
|
||||||
|
<TERM>
|
||||||
<option>-numAttrs</option>
|
<option>-numAttrs</option>
|
||||||
</TERM>
|
</TERM>
|
||||||
<LISTITEM>
|
<LISTITEM>
|
||||||
|
@ -8,7 +8,7 @@
|
|||||||
*
|
*
|
||||||
*
|
*
|
||||||
* IDENTIFICATION
|
* IDENTIFICATION
|
||||||
* $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.69 2002/10/17 14:51:50 tgl Exp $
|
* $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.70 2002/11/26 21:38:49 momjian Exp $
|
||||||
*
|
*
|
||||||
*-------------------------------------------------------------------------
|
*-------------------------------------------------------------------------
|
||||||
*/
|
*/
|
||||||
@ -506,6 +506,8 @@ Pg_exec(ClientData cData, Tcl_Interp *interp, int argc, char *argv[])
|
|||||||
|
|
||||||
-numTuples the number of tuples in the query
|
-numTuples the number of tuples in the query
|
||||||
|
|
||||||
|
-cmdTuples the number of tuples affected by the query
|
||||||
|
|
||||||
-numAttrs returns the number of attributes returned by the query
|
-numAttrs returns the number of attributes returned by the query
|
||||||
|
|
||||||
-assign arrayName
|
-assign arrayName
|
||||||
@ -591,6 +593,11 @@ Pg_result(ClientData cData, Tcl_Interp *interp, int argc, char *argv[])
|
|||||||
sprintf(interp->result, "%d", PQntuples(result));
|
sprintf(interp->result, "%d", PQntuples(result));
|
||||||
return TCL_OK;
|
return TCL_OK;
|
||||||
}
|
}
|
||||||
|
else if (strcmp(opt, "-cmdTuples") == 0)
|
||||||
|
{
|
||||||
|
sprintf(interp->result, "%s", PQcmdTuples(result));
|
||||||
|
return TCL_OK;
|
||||||
|
}
|
||||||
else if (strcmp(opt, "-numAttrs") == 0)
|
else if (strcmp(opt, "-numAttrs") == 0)
|
||||||
{
|
{
|
||||||
sprintf(interp->result, "%d", PQnfields(result));
|
sprintf(interp->result, "%d", PQnfields(result));
|
||||||
@ -768,6 +775,7 @@ Pg_result_errReturn:
|
|||||||
"\t-conn\n",
|
"\t-conn\n",
|
||||||
"\t-oid\n",
|
"\t-oid\n",
|
||||||
"\t-numTuples\n",
|
"\t-numTuples\n",
|
||||||
|
"\t-cmdTuples\n",
|
||||||
"\t-numAttrs\n"
|
"\t-numAttrs\n"
|
||||||
"\t-assign arrayVarName\n",
|
"\t-assign arrayVarName\n",
|
||||||
"\t-assignbyidx arrayVarName ?appendstr?\n",
|
"\t-assignbyidx arrayVarName ?appendstr?\n",
|
||||||
|
Loading…
Reference in New Issue
Block a user