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 | 3df1a90364ee579fd64f37f49061fab042fd4647 (patch) | |
tree | f63ff64347762a52ad09abde4e031727526c05c5 /generic/tclLoad.c | |
parent | 804199d4b7c8ed967e5136c796a658fbbcfbb7c2 (diff) | |
parent | 0cd0bb6862a65142603ccbde70d3a894be70e9d4 (diff) | |
download | tcl-3df1a90364ee579fd64f37f49061fab042fd4647.zip tcl-3df1a90364ee579fd64f37f49061fab042fd4647.tar.gz tcl-3df1a90364ee579fd64f37f49061fab042fd4647.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 |