Add -cmdTuples to tcl interface.

diff --git a/doc/src/sgml/libpgtcl.sgml b/doc/src/sgml/libpgtcl.sgml
index e5af787d9ad419e8b5f506e7e5bcd32f8a7350ed..7c216dd67330ea2024c178d0e449809fe970fb81 100644 (file)
--- a/doc/src/sgml/libpgtcl.sgml
+++ b/doc/src/sgml/libpgtcl.sgml
@@ -728,6 +728,16 @@ the number of tuples returned by the query.
 
 
 
+-cmdTuples
+
+
+
+the number of tuples affected by the query.
+
+
+
+
+
 -numAttrs
 
 

diff --git a/src/interfaces/libpgtcl/pgtclCmds.c b/src/interfaces/libpgtcl/pgtclCmds.c
index ef11cca2d403636d59259deb3d0781dac13dae63..ff57d2c365367fb13786bb38e401a2d96d5cba2a 100644 (file)
--- 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",