TCL Packages

Are you looking for pointers on how to create a package or looking for ideas on what ODBC tcl scripts to include?

Here is an example for the format of a package:

package provide shmc_email [lindex {Revision: 1.0 } 1]

namespace eval shmc_email {

   namespace export email

   proc email {aEmail aSubject aMessage} {

       ….

   }

}

Here is how to use/call the package from another tcl script:

package require shmc_email

if [catch {shmc_email::email $email $subject $message} err] {

   echo “Error Calling SHMC_Email –$err”

}

You will need to add the package file to the ../../integrator/tclprocs/lib directory.  

Also, add a line to the pkgIndex.tcl file so the system knows about the package:

package ifneeded shmc_email 1.0

]

I hope this helps.  It’s been a few months since I’ve done one and while mine works, it may not be the exact way others do it.

Nate.

To keep packages from being blown away here at MD Ancerson Cancer Center when doing a cloverleaf upgrade, we created a mda_global site and create the following directory to house our packages

$HCIROOT/mda_global/tclprocs/packages

then we create the following link as follows

ln -sf   $HCIROOT/mda_global/tclprocs/packages   packages

By the way, the pkg_mkIndex is a hcitcl command and not a standalone script like mktclindex so to run in our case we do the following:

hcitcl -c “pkg_mkIndex -verbose — $HCIROOT/tclprocs/packages”

which will create a file called

pkgIndex.tcl