This is an automated email from the ASF dual-hosted git repository.
mxmanghi pushed a commit to branch master
in repository https://gitbox.apache.org/repos/asf/tcl-rivet.git
The following commit(s) were added to refs/heads/master by this push:
new 8e83e52 Fix wrong serial number management
new 64021dd Fix wrong serial number management
8e83e52 is described below
commit 8e83e52b0930daff196047b6aac8ac949a8b01f4
Author: Massimo Manghi <[email protected]>
AuthorDate: Fri Oct 24 18:03:20 2025 +0200
Fix wrong serial number management
---
ChangeLog | 5 +++++
rivet/packages/dio/dio_Tdbc.tcl | 10 ++++------
2 files changed, 9 insertions(+), 6 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 514064b..68ced10 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2025-10-24 Massimo Manghi <[email protected]>
+ * doc/rivet.xml.in: reformat and align entities definitions
+ * doc/xml/commands.xml: changed 'inspect' command definition in
reference list
+ * rivet/packages/dio/dio_Tdbc.tcl: fix wrong serial number management
+
2025-10-23 Massimo Manghi <[email protected]>
* rivet/packages/dio/formatters.tcl: a typo slipped in and spoiled
for formatter class name for Posgresql connectors
diff --git a/rivet/packages/dio/dio_Tdbc.tcl b/rivet/packages/dio/dio_Tdbc.tcl
index 3ab3f77..0e06e80 100644
--- a/rivet/packages/dio/dio_Tdbc.tcl
+++ b/rivet/packages/dio/dio_Tdbc.tcl
@@ -27,7 +27,7 @@ namespace eval DIO {
::itcl::class Tdbc {
inherit Database
- private common connector_n
+ private common connector_n -1
private variable connector
private variable connector_name
private variable tdbc_connector
@@ -37,7 +37,6 @@ namespace eval DIO {
-timeout]
constructor {interface_name args} {eval configure -interface
$interface_name $args} {
- set connector_n -1
set connector ""
# I should check this one: we only accept connector
@@ -100,7 +99,6 @@ namespace eval DIO {
if {$clientargs != ""} { lappend connector_cmd {*}$clientargs }
- #puts "evaluating $connector_cmd"
set connector [eval $connector_cmd]
incr connector_n
}
@@ -311,7 +309,7 @@ namespace eval DIO {
# errorinfo is a public variable of the parent class Database.
# Not a good object design practice
- if {[catch {set tdbc_result [uplevel 1 $tdbc_statement execute]}
errorinfo]} {
+ if {[catch {set tdbc_result [uplevel 1 $tdbc_statement execute]} e
errorinfo]} {
set result_obj [$this result TDBC -error 1 -errorinfo [::list
$errorinfo] -isselect false]
} else {
@@ -356,8 +354,8 @@ namespace eval DIO {
Result::destroy
}
- public method current_row {} {return $rowid}
- public method cached_results {} {return $cached_rows}
+ public method current_row {} { return $rowid }
+ public method cached_results {} { return $cached_rows }
public method nextrow {} {
if {[llength $cached_rows] == 0} {
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
