A beginner example to start with package on TCL : HelloWorld

The package file

A package use the notion of namespace to avoid name collision. This happens when two pieces of code try to define a procedure or variable with the same name. In Tcl when this occurs the old procedure or variable is simply overwritten. This is sometimes a useful feature, but more often it is the cause of bugs if the two definitions are not compatible.

Each namespace can contain :

• local commands
• local variables

When a command in a namespace is invoked it can see all the other commands and variables in its namespace, as well as those in the global namespace.

Items in a namespace can be accessed by creating a path to the item. This is done by joining the names of the items with ::. For instance, to access the variable bar in the namespace foo, you could use the path foo::bar.

The command “namespace export pattern pattern …” adds any procedure matching one of the patterns to the list of commands.

Example :

# Create the namespace
namespace eval ::HelloWorld {
    	
	# Export proc
    	namespace export Talk
	
	# Set up Variable
	set version 1.0
	set HelloWorldDescription "HelloWorld"

        # Variable for the path of the script
        variable home [file join [pwd] [file dirname [info script]]]

}

# Definition of the procedure talk
proc ::HelloWorld::Talk {} {
	puts $HelloWorld::HelloWorldDescription
}
# Definition of the procedure getpath
proc ::HelloWorld::GetPath {} {
	variable home
        return $home
}
package provide HelloWorld $HelloWorld::version
package require Tcl      8.0

The index package file

This file tells Tcl how to load your package. In essence the index file is simply a Tcl file which is loaded into the interpreter when Tcl searches for packages. It should use the package ifneeded command register a script which will load the package when it is required.

The index package must be :

• named : pkgIndex.tcl
• located in the directories define by the tcl_pkgPath or auto_path global variables list.

package ifneeded HelloWorld 1.0 [list source [file join $dir helloworld.tcl]]
package ifneeded OtherPackage 1.0 [list source [file join $dir otherpackage.tcl]]

OMB+> package ifneeded Pk_ExternalTable 1.0
source C:/EclipseWorkspace/OMB/Package_ExternalTableProcedures.tcl