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 623861f fixed typo and incrementing connectors serial number on
dio_Tdbc.tcl
623861f is described below
commit 623861fc641e1dcf6f2736cbb9a70702a348c707
Author: Massimo Manghi <[email protected]>
AuthorDate: Thu Oct 23 15:32:36 2025 +0200
fixed typo and incrementing connectors serial number on dio_Tdbc.tcl
---
ChangeLog | 6 ++++++
rivet/packages/dio/dio_Tdbc.tcl | 6 +++---
rivet/packages/dio/formatters.tcl | 2 +-
3 files changed, 10 insertions(+), 4 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index fe9419f..514064b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+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
+ * rivet/packages/dio/dio_Tdbc.tcl: missing increment of a connector
+ serial number
+
2025-10-16 Massimo Manghi <[email protected]>
* rivet/packages/dio/dio_Tdbc.tcl: tdbc methods consolidation
into tdbc_exec, method 'fetch' reimplemented to allow
diff --git a/rivet/packages/dio/dio_Tdbc.tcl b/rivet/packages/dio/dio_Tdbc.tcl
index 3e0c4ee..3ab3f77 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 0
+ private common connector_n
private variable connector
private variable connector_name
private variable tdbc_connector
@@ -37,7 +37,7 @@ namespace eval DIO {
-timeout]
constructor {interface_name args} {eval configure -interface
$interface_name $args} {
- set connector_n 0
+ set connector_n -1
set connector ""
# I should check this one: we only accept connector
@@ -85,7 +85,7 @@ namespace eval DIO {
public method tdbc_connector {} { return $connector }
public method open {} {
- set connector_cmd "${tdbc_connector}::connection create
${tdbc_connector}#$connector_n"
+ set connector_cmd "${tdbc_connector}::connection create
${tdbc_connector}#[incr connector_n]"
if {$user != ""} { lappend connector_cmd -user $user }
if {$db != ""} {
if {$connector_name == "sqlite3"} {
diff --git a/rivet/packages/dio/formatters.tcl
b/rivet/packages/dio/formatters.tcl
index b61082b..871b328 100644
--- a/rivet/packages/dio/formatters.tcl
+++ b/rivet/packages/dio/formatters.tcl
@@ -197,7 +197,7 @@ namespace eval ::DIO::formatters {
}
}
- ::itcl::class Postgresql {
+ ::itcl::class Postgres {
inherit RootFormatter
public method DATE {field_name val convert_to} {
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
