This is an automated email from the ASF dual-hosted git repository. mxmanghi pushed a commit to branch 3.2 in repository https://gitbox.apache.org/repos/asf/tcl-rivet.git
commit da2d25170ffcff535d0c114499d05a47809151af 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 a6846d7..aa03a74 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]
