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 9b8a994f35b86aa57fc35d2fb50835ba8b0e418c Author: Massimo Manghi <[email protected]> AuthorDate: Thu Oct 2 11:21:11 2025 +0200 Now defining ::rivet::lempty if not available --- ChangeLog | 21 +++++++++++++++++++-- rivet/packages/dio/dio.tcl | 18 +++++++++++++++++- 2 files changed, 36 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index f6439e0..57b65f1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,23 @@ +2025-10-02 Massimo Manghi <[email protected]> + * rivet/packages/dio/dio.tcl: definining command ::rivet::lempty if not present + as it's extensively used but available only when running from mod_rivet (DIO + package version number bumped to 1.2.1) + +2025-08-19 Massimo Manghi <[email protected]> + * src/mod_rivet_ng/rivet_types.h,src/parser/rivetParser.c: Introducting definition + of Tcl_Size when TCL_MAJOR_VERSION == 8 in order to provide backward compatibility + with Tcl 8 builds + 2025-07-13 Massimo Manghi <[email protected]> - * rivet/packages/dio/dio_Tdbc.tcl: fixed error in variable name made impossible - to actually pass TDBC specific options to a DBMS connector. Package version is bumped as 1.2.1 + * rivet/packages/dio/dio_Tdbc.tcl: fixed error in variable name made impossible + to actually pass TDBC specific options to a DBMS connector. Package version is + bumped to 1.2.1 + +2025-05-05 Massimo Manghi <[email protected]> + * VERSION: Version 3.3.0. Merging tcl-novem into master after branching current + Tcl8.6 only development to branch 3.2. Development continues on a Tcl9 ready master branch + * rivet/packages/aida: reset development with the purpose of refactoring + DIO and rebase the code on TclOO supporting only tdbc connectors 2025-04-13 Massimo Manghi <[email protected]> * src/Makefile.am: wrap long definitions for improved readability diff --git a/rivet/packages/dio/dio.tcl b/rivet/packages/dio/dio.tcl index d45cf33..d841413 100644 --- a/rivet/packages/dio/dio.tcl +++ b/rivet/packages/dio/dio.tcl @@ -18,6 +18,22 @@ catch {package require Tclx} package require Itcl package require dio::formatters +# Command ::rivet::lempty is extensively used within this class but it's +# defined only when we run DIO from mod_rivet. We load it here for convenience + +if {[info commands ::rivet::lempty] == ""} { + + namespace eval ::rivet { + + proc lempty {list} { + if {[catch {llength $list} len]} { return 0 } + return [expr {$len == 0}] + } + + } + +} + ##set auto_path [linsert $auto_path 0 [file dirname [info script]]] namespace eval ::DIO { @@ -908,4 +924,4 @@ proc handle {interface args} { } ; ## namespace eval DIO -package provide DIO 1.2 +package provide DIO 1.2.1 --------------------------------------------------------------------- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
