diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-08 17:52:36 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-08 17:52:36 (GMT) |
commit | 328461c6cf73105f97aee07048a22741b4d2cc2b (patch) | |
tree | f63ff64347762a52ad09abde4e031727526c05c5 /generic/tclLoad.c | |
parent | 99d3d95f4b8ae074c1c23d5599e32d976a6cb529 (diff) | |
parent | 6da0c767cd83c18aa8a2c152ad6b0298ea4f28ab (diff) | |
download | tcl-328461c6cf73105f97aee07048a22741b4d2cc2b.zip tcl-328461c6cf73105f97aee07048a22741b4d2cc2b.tar.gz tcl-328461c6cf73105f97aee07048a22741b4d2cc2b.tar.bz2 |
Bring back stub table in original state.
Merge trunk
Diffstat (limited to 'generic/tclLoad.c')
-rw-r--r-- | generic/tclLoad.c | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/generic/tclLoad.c b/generic/tclLoad.c index 2d8ed5f..aabe3bb 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -1012,7 +1012,7 @@ Tcl_StaticPackage( /* *---------------------------------------------------------------------- * - * TclGetLoadedPackages -- + * TclGetLoadedPackages, TclGetLoadedPackagesEx -- * * This function returns information about all of the files that are * loaded (either in a particular interpreter, or for all interpreters). @@ -1034,6 +1034,18 @@ int TclGetLoadedPackages( Tcl_Interp *interp, /* Interpreter in which to return information * or error message. */ + const char *targetName) /* Name of target interpreter or NULL. If + * NULL, return info about all interps; + * otherwise, just return info about this + * interpreter. */ +{ + return TclGetLoadedPackagesEx(interp, targetName, NULL); +} + +int +TclGetLoadedPackagesEx( + Tcl_Interp *interp, /* Interpreter in which to return information + * or error message. */ const char *targetName, /* Name of target interpreter or NULL. If * NULL, return info about all interps; * otherwise, just return info about this |