diff options
author | hypnotoad <yoda@etoyoc.com> | 2014-10-19 20:03:00 (GMT) |
---|---|---|
committer | hypnotoad <yoda@etoyoc.com> | 2014-10-19 20:03:00 (GMT) |
commit | 7065edbe7f71d7e48d606dac424e0a540e4a6049 (patch) | |
tree | d2e2bb22932d17e8be03afe0675ddbd7d9e6665f /unix/tclAppInit.c | |
parent | bc2e2d80d513f1a9fd0500fbfe21b014e1e4560f (diff) | |
download | tcl-7065edbe7f71d7e48d606dac424e0a540e4a6049.zip tcl-7065edbe7f71d7e48d606dac424e0a540e4a6049.tar.gz tcl-7065edbe7f71d7e48d606dac424e0a540e4a6049.tar.bz2 |
Update the zipvfs implementation with additional code from both Odie and
Dennis LaBelle's FreeWrap.
Split the boot loader code out of tclZipVfs.c and into its own File.
Altered the structure of tclZipVfs.c to better mirror that which is distributed
in Odie and FreeWrap to make popping and swapping improvements easier.
Diffstat (limited to 'unix/tclAppInit.c')
-rw-r--r-- | unix/tclAppInit.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/unix/tclAppInit.c b/unix/tclAppInit.c index 4df6387..1be1ce3 100644 --- a/unix/tclAppInit.c +++ b/unix/tclAppInit.c @@ -42,7 +42,9 @@ MODULE_SCOPE int TCL_LOCAL_APPINIT(Tcl_Interp *); MODULE_SCOPE int main(int, char **); #ifdef TCL_ZIPVFS MODULE_SCOPE int Tcl_Zvfs_Boot(const char *,const char *,const char *); - MODULE_SCOPE int TclZvfsInit(Tcl_Interp *); + MODULE_SCOPE int Zvfs_Init(Tcl_Interp *); + MODULE_SCOPE int Zvfs_SafeInit(Tcl_Interp *); + #endif /* TCL_ZIPVFS */ /* * The following #if block allows you to change how Tcl finds the startup @@ -122,7 +124,8 @@ Tcl_AppInit( } #ifdef TCL_ZIPVFS /* Load the ZipVfs package */ - if (TclZvfsInit(interp) == TCL_ERROR) { + Tcl_StaticPackage(interp, "zvfs", Zvfs_Init, Zvfs_SafeInit); + if(Zvfs_Init(interp) == TCL_ERROR) { return TCL_ERROR; } #endif |