Add -cmdTuples to tcl interface.

bmomjian · bmomjian · commit 80e6d9973197 · 2002-11-26T21:38:49.000Z
diff --git 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
@@ -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(ClientData cData, Tcl_Interp *interp, int argc, char *argv[])
 					 "\t-conn\n",
 					 "\t-oid\n",
 					 "\t-numTuples\n",
+					 "\t-cmdTuples\n",
 					 "\t-numAttrs\n"
 					 "\t-assign arrayVarName\n",
 					 "\t-assignbyidx arrayVarName ?appendstr?\n",
