diff options
| author | Bruce Momjian <bruce@momjian.us> | 2002-11-26 21:38:49 +0000 |
|---|---|---|
| committer | Bruce Momjian <bruce@momjian.us> | 2002-11-26 21:38:49 +0000 |
| commit | 80e6d9973197f1858f50839365b68705d7ffa191 (patch) | |
| tree | 18dfcb3c8a61077f920899c360044e4b66740ab8 | |
| parent | 7fb0d910622ef5ef6499ee0820838b74a7f24576 (diff) | |
| download | postgresql-80e6d9973197f1858f50839365b68705d7ffa191.tar.gz postgresql-80e6d9973197f1858f50839365b68705d7ffa191.zip | |
Add -cmdTuples to tcl interface.
| -rw-r--r-- | doc/src/sgml/libpgtcl.sgml | 10 | ||||
| -rw-r--r-- | src/interfaces/libpgtcl/pgtclCmds.c | 10 |
2 files changed, 19 insertions, 1 deletions
diff --git a/doc/src/sgml/libpgtcl.sgml b/doc/src/sgml/libpgtcl.sgml index e5af787d9ad..7c216dd6733 100644 --- a/doc/src/sgml/libpgtcl.sgml +++ b/doc/src/sgml/libpgtcl.sgml @@ -728,6 +728,16 @@ the number of tuples returned by the query. </VARLISTENTRY> <VARLISTENTRY> <TERM> +<option>-cmdTuples</option> +</TERM> +<LISTITEM> +<PARA> +the number of tuples affected by the query. +</PARA> +</LISTITEM> +</VARLISTENTRY> +<VARLISTENTRY> +<TERM> <option>-numAttrs</option> </TERM> <LISTITEM> diff --git a/src/interfaces/libpgtcl/pgtclCmds.c b/src/interfaces/libpgtcl/pgtclCmds.c index ef11cca2d40..ff57d2c3653 100644 --- a/src/interfaces/libpgtcl/pgtclCmds.c +++ b/src/interfaces/libpgtcl/pgtclCmds.c @@ -8,7 +8,7 @@ * * * 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 + -cmdTuples the number of tuples affected by the query + -numAttrs returns the number of attributes returned by the query -assign arrayName @@ -591,6 +593,11 @@ Pg_result(ClientData cData, Tcl_Interp *interp, int argc, char *argv[]) sprintf(interp->result, "%d", PQntuples(result)); return TCL_OK; } + else if (strcmp(opt, "-cmdTuples") == 0) + { + sprintf(interp->result, "%s", PQcmdTuples(result)); + return TCL_OK; + } else if (strcmp(opt, "-numAttrs") == 0) { sprintf(interp->result, "%d", PQnfields(result)); @@ -768,6 +775,7 @@ Pg_result_errReturn: "\t-conn\n", "\t-oid\n", "\t-numTuples\n", + "\t-cmdTuples\n", "\t-numAttrs\n" "\t-assign arrayVarName\n", "\t-assignbyidx arrayVarName ?appendstr?\n", |