diff options
| author | hypnotoad <yoda@etoyoc.com> | 2017-11-21 00:36:55 (GMT) |
|---|---|---|
| committer | hypnotoad <yoda@etoyoc.com> | 2017-11-21 00:36:55 (GMT) |
| commit | 04929b5983eb92ad670f8d380708a3eb5ba71e57 (patch) | |
| tree | 85470779494eca3dfd7a4519700fb3c5182fa685 /generic/tclInterp.c | |
| parent | 23a90c4a2e316e370d0b58a7ad524a0e4b997c83 (diff) | |
| download | tcl-04929b5983eb92ad670f8d380708a3eb5ba71e57.zip tcl-04929b5983eb92ad670f8d380708a3eb5ba71e57.tar.gz tcl-04929b5983eb92ad670f8d380708a3eb5ba71e57.tar.bz2 | |
Added a new function to the Zipfs: TclZipfs_TclLibrary, which returns a previously
discovered /library file system from a zip archive, performs the search to see
if the current dll has one (and return that), or NULL if zipfs cannot locate
/library.
Injected a call to [zipfs tcl_library] (which invokes TclZipfs_TclLibrary) inside
if interp.c as the first command to try to locate Tcl_Library (if a preinit
script hasn't already pointed one out to us.)
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index d9dfd37..b58aee0 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -402,6 +402,7 @@ Tcl_Init( " set scripts {{set tcl_library}}\n" " } else {\n" " set scripts {}\n" +" lappend scripts {zipfs tcl_library}\n" " if {[info exists env(TCL_LIBRARY)] && ($env(TCL_LIBRARY) ne {})} {\n" " lappend scripts {set env(TCL_LIBRARY)}\n" " lappend scripts {\n" |