Imported Upstream version 3.052 upstream upstream/3.052
authorSven Hoexter <sven@timegate.de>
Mon, 22 Sep 2014 16:12:59 +0000 (18:12 +0200)
committerSven Hoexter <sven@timegate.de>
Mon, 22 Sep 2014 16:12:59 +0000 (18:12 +0200)
ChangeLog
configure
configure.in
generic/mysqltcl.c
tests/libload.tcl
tests/test41.tcl

index f9aa6ff5d51f708cb89e7ec71ccf49b95fdf9d33..8a337fe2a160c6bbb484155227aaabfbf5857207 100755 (executable)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,5 @@
+Release 3.052
+-- fix multiresult bug (column number)  (patch from Thikrallah I.Shreah)
 Release 3.051
 -- add connection option -reconnect (patch from david cluytens)
 Release 3.05
index ac140376ea03b05dc58941b02cd5896d4739d37a..33c672f5764809a3e9813b89ab23d77bf211bc48 100755 (executable)
--- a/configure
+++ b/configure
@@ -1,6 +1,6 @@
 #! /bin/sh
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.68 for mysqltcl 3.051.
+# Generated by GNU Autoconf 2.68 for mysqltcl 3.052.
 #
 #
 # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
@@ -557,8 +557,8 @@ MAKEFLAGS=
 # Identity of this package.
 PACKAGE_NAME='mysqltcl'
 PACKAGE_TARNAME='mysqltcl'
-PACKAGE_VERSION='3.051'
-PACKAGE_STRING='mysqltcl 3.051'
+PACKAGE_VERSION='3.052'
+PACKAGE_STRING='mysqltcl 3.052'
 PACKAGE_BUGREPORT=''
 PACKAGE_URL=''
 
@@ -1276,7 +1276,7 @@ if test "$ac_init_help" = "long"; then
   # Omit some internal or obsolete options to make the list less imposing.
   # This message is too long to be a string in the A/UX 3.1 sh.
   cat <<_ACEOF
-\`configure' configures mysqltcl 3.051 to adapt to many kinds of systems.
+\`configure' configures mysqltcl 3.052 to adapt to many kinds of systems.
 
 Usage: $0 [OPTION]... [VAR=VALUE]...
 
@@ -1337,7 +1337,7 @@ fi
 
 if test -n "$ac_init_help"; then
   case $ac_init_help in
-     short | recursive ) echo "Configuration of mysqltcl 3.051:";;
+     short | recursive ) echo "Configuration of mysqltcl 3.052:";;
    esac
   cat <<\_ACEOF
 
@@ -1441,7 +1441,7 @@ fi
 test -n "$ac_init_help" && exit $ac_status
 if $ac_init_version; then
   cat <<\_ACEOF
-mysqltcl configure 3.051
+mysqltcl configure 3.052
 generated by GNU Autoconf 2.68
 
 Copyright (C) 2010 Free Software Foundation, Inc.
@@ -1806,7 +1806,7 @@ cat >config.log <<_ACEOF
 This file contains any messages produced by compilers while
 running configure, to aid debugging if configure makes a mistake.
 
-It was created by mysqltcl $as_me 3.051, which was
+It was created by mysqltcl $as_me 3.052, which was
 generated by GNU Autoconf 2.68.  Invocation command line was
 
   $ $0 $@
@@ -8073,7 +8073,7 @@ cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
 # report actual input values of CONFIG_FILES etc. instead of their
 # values after options handling.
 ac_log="
-This file was extended by mysqltcl $as_me 3.051, which was
+This file was extended by mysqltcl $as_me 3.052, which was
 generated by GNU Autoconf 2.68.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
@@ -8126,7 +8126,7 @@ _ACEOF
 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
 ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
 ac_cs_version="\\
-mysqltcl config.status 3.051
+mysqltcl config.status 3.052
 configured by $0, generated by GNU Autoconf 2.68,
   with options \\"\$ac_cs_config\\"
 
index 214aa3c769d27e72a518c7485cc13a87b75ceb43..1a248cec71ebed59eef2944424a8ee03fb675eb4 100755 (executable)
@@ -19,7 +19,7 @@ dnl   to configure the system for the local environment.
 # so you can encode the package version directly into the source files.
 #-----------------------------------------------------------------------
 
-AC_INIT([mysqltcl], [3.051])
+AC_INIT([mysqltcl], [3.052])
 
 #--------------------------------------------------------------------
 # Call TEA_INIT as the first TEA_ macro to set up initial vars.
index 1269e85596e141fdb9dbafb819c7708684b4def3..53195b9a4d942acae134e5f7d07ebc1833ec9767 100755 (executable)
@@ -36,7 +36,7 @@
 #ifdef _WINDOWS\r
    #include <windows.h>\r
    #define PACKAGE "mysqltcl"\r
-   #define PACKAGE_VERSION "3.051"\r
+   #define PACKAGE_VERSION "3.052"\r
 #endif\r
 \r
 #include <tcl.h>\r
@@ -2163,6 +2163,7 @@ static int Mysqltcl_NextResult(ClientData clientData, Tcl_Interp *interp, int ob
       return mysql_server_confl(interp,objc,objv,handle->connection);\r
   }\r
   handle->result = mysql_store_result(handle->connection);\r
+  handle->col_count = mysql_num_fields(handle->result);\r
   if (handle->result == NULL) {\r
       Tcl_SetObjResult(interp, Tcl_NewIntObj(-1));\r
   } else {\r
@@ -2767,4 +2768,4 @@ int Mysqltcl_SafeInit(interp)
 {\r
   return Mysqltcl_Init(interp);\r
 }\r
-
+\r
index 66a71dd67bf1b25c401de384de68ef997e0461de..d05946581cda223ebe0b845eff995a99c9fb7bf2 100755 (executable)
@@ -1,4 +1,4 @@
-set file libmysqltcl3.05
+set file libmysqltcl3.052
 
 if {[file exists ./${file}[info sharedlibextension]]} {
     load ./${file}[info sharedlibextension]
index 399f443de3ab3d48e2d4b3ad8baf115a5e0de385..fd78ad817fe66534262a9aa47e9a9ca3d8951240 100755 (executable)
@@ -190,6 +190,18 @@ tcltest::test {nextresult-1.0} {only one result} -body {
    return $hadRow
 } -result 1 -returnCodes 2
 
+tcltest::test {nextresult-rows-1.1} {rows number} -body {
+   mysql::ping $conn
+   mysql::sel $conn {
+      select name from Student where name='Sojka';
+      select name,semester from Student;
+   }
+   set r1 [mysql::result $conn cols]
+   mysql::nextresult $conn
+   set r2 [mysql::result $conn cols]
+   expr {$r1+$r2}
+} -result 3
+
 tcltest::test {setserveroption-1.0} {set multistatment off} -body {
    mysql::setserveroption $conn -multi_statment_off
    mysql::exec $conn {