Re: Loading a Tcl package during ChildInitScript

[Scott Pitcher]

I tried ...

    set website(basedir) [file dir [info script]]
    set website(libdir) [file join $website(basedir) lib]
    set website(3rdpartydir) [file join $website(basedir) .. 3rdparty]


    if {[file isdirectory $website(3rdpartydir)]} {

    }

    # Test package loading.



........................................................................
    } on ok {} {
    ::rivet::apache_log_error notice "childboot completed"
    }

    set ::auto_path [concat [file normalize $website(libdir)] $::auto_path]         set ::auto_path [concat [file normalize $website(3rdpartydir)] $::auto_path]     ::rivet::apache_log_error notice "Apackage versions=[package versions Apackage]"     ::rivet::apache_log_error notice "Apackage loaded=[package require -exact Apackage 1.0]"

Restart apache, but /package versions..../ still show 1.1 and not the 1.0:

[Mon Mar 17 20:26:28.235295 2025] [:notice] [pid 753] Apackage versions=1.1

[Mon Mar 17 20:26:28.264136 2025] [:notice] [pid 753] Apackage loaded=1.0
[Mon Mar 17 20:26:28.264178 2025] [:notice] [pid 753] childboot completed

Kind regards,

Scott



On 17/3/25 19:34, Massimo Manghi wrote:

Note here in this test site I can /package require -exact/ and it will load 1.0. That doesn't happen on the website - only 1.1 is available. The strange behaviour there is that If I remove the 1.1 from the system (sudo rm -rv /usr/local/lib/tcltk/A-package) and reload apache, the local 1.0 package in 3rdparty directory is available again. It loads, but does not show up /package versions/.

I've spotted these lines

set website(basedir) [file dir [info script]]
set website(libdir) [file join $website(basedir) lib]
set website(3rdpartydir) [file join $website(basedir) .. 3rdparty]*

lappend ::auto_path [file normalize $website(libdir)]



set ::auto_path [concat [file normalize $website(libdir)] $::auto_path]

and have the packages take precedence?

  -- Massimo

On 3/17/25 09:01, Scott Pitcher wrote:

is this the hierarchy of directories adjacent to the website code? What if build the auto_path the way around?

Hi,













Kind regards,

Scott

I'm trying to load only a 1.0 version of the package from a "3rdparty" directory adjacent to the website code. I discovered that the 1.1 wasn't 100% compatible and that caused the Maintenance threads to cycle like crazy without their customary waiting time. There were many many months between using 1.0 on the website and installing the 1.1 package independently so it caught me by surprise. But the trouble came when I tried to load the /-exact ... 1.0/ version and that failed because only 1.1 is available, now (with 1.1 installed under /usr/local/....). It could not see the 1.0 anymore. But, if I remove 1.1 from the system and restart apache then it loads the 1.0 once again and uses it quite happily. In the cut down test code I posted I couldn't replicate a step. With both packages available I can successfully/package require -exact ... 1.0/, even with 1.1 installed under /usr/local/... HOWEVER there is a little strangeness as the 1.0 package does not show up in /package versions/, but I can still load it anyway.

    set website(basedir) [file dir [info script]]
    set website(logdir)  [file join $website(basedir) .. log]
    set website(libdir) [file join $website(basedir) lib]
* set website(3rdpartydir) [file join $website(basedir) .. 3rdparty]*
    set website(tmpdir) [file join $website(basedir) .. tmp]

    #

    #
    lappend ::auto_path [file normalize $website(libdir)]
    if {[file isdirectory $website(3rdpartydir)]} {
*lappend ::auto_path [file normalize $website(3rdpartydir)]*
    }

..............................................................................................     # Set the path for loading tclIndex files. This is all we need and the rest of the library     # will load. Any source directories in the website configuration should be in     # website(SourceDirs) after content is loaded, and we'll set those after.

---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-dev-unsubscr...@tcl.apache.org
For additional commands, e-mail: rivet-dev-h...@tcl.apache.org

--
+-----------------------------------------------------------------------------+
|...will make the wilderness a pool of water, the dry land springs of water...|
+-----------------------------------------------------------------------------+
| Scott pitchersco...@svptechnicalservices.com.au  |
| +61-3-9008-5695 (B)                                  SVP Technical Services |
|PGP:https://gnupg.org/                                    ABN 79 220 496 603 |
|KEY:https://pgp.mit.edu/pks/lookup?op=vindex&search=0xEDBE43639EFD884D       |
+-----------------------------------------------------------------------------+

DISCLAIMER:
The content of this email is confidential and strictly intended only for the
recipient(s) specified in the message. If you have received this message by
mistake it is strictly forbidden to keep this email in any form, electronic
or hard copy, or to share any part of it with any one else, without the prior,
written consent of the author. If you have received this message by mistake,
please let me know by replying to this email, and then destroy it and any
copies.

SECURITY:
I prefer to send and receive confidential messages protected by PGP public
key encryption. If you are willing to or are interested in protecting our
email communication with PGP encryption, please refer tohttps://gnupg.org/.

OpenPGP_0xEDBE43639EFD884D.asc
Description: OpenPGP public key

OpenPGP_signature.asc
Description: OpenPGP digital signature