I'm trying to work out the package a proc belongs to so I can validate the package version
Say I have package
some::package 1.0
Which has a proc
some::package::some_proc
given some::package::some_proc i'd like to be able to get 1.0
I can't guarantee that the namespace has the same name as the package it belongs to
Any help greatly appreciated
Technically you cannot do this without providing your own version of package require. Namespaces and packages and files in Tcl are not linked, like they are in Python or Java.
If you know that all procs are statically defined (e.g. no dynamic code generation), you could replace package require with your own version and enumerate all procs before and after the call and put the names in some registry.
What are you trying to validate?
If you want to validate some kind of API, you could look at the pluginmgr package in Tcllib.
You're looking for namespace current:
% namespace eval some::package {
proc some_proc {} { puts [namespace current] }
}
% some::package::some_proc
::some::package
Conventionally, but not universally, you get the name of a package from the name of the namespace containing the command in question:
set pkg [namespace qualifiers [namespace which $theCommand]]
# Be aware, this produces the empty string for global commands
However, not all packages do this; some older packages do not put their public commands into a namespace (for historical/back-compatibility reasons). In that case, searching the documentation is about the only thing you can do.
Once you've got the package name, you can determine the currently-loaded version of the package with package present:
set version [package present $pkg]
This only works if the package has previously been package required, of course. You can also use package versions to determine what other versions of the package are available in your environment; though Tcl will only load one version of a package into an interpreter context, you can have many different ones installed without (necessarily) having problems.
