106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
"}\n"
"}\n"
#endif /* KIT_STORAGE_MK4 */
#ifdef KIT_STORAGE_ZIP
"set ::tclKitStorage \"zip\"\n"
"catch { load {} vfs }\n"
# include "zipvfs.tcl.h"
"set ::tclKitStorage_fd [zip::open [info nameofexecutable]]\n"
"if {![catch { ::zip::stat $::tclKitStorage_fd boot.tcl sb }]} {\n"
"seek $::tclKitStorage_fd $sb(ino)\n"
"zip::Data $::tclKitStorage_fd sb s\n"
"}\n"
#endif /* KIT_STORAGE_ZIP */
"if {![info exists s]} {\n"
"set f [open setup.tcl]\n"
"set s [read $f]\n"
"close $f\n"
"}\n"
|
>
|
>
>
|
|
>
|
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
"}\n"
"}\n"
#endif /* KIT_STORAGE_MK4 */
#ifdef KIT_STORAGE_ZIP
"set ::tclKitStorage \"zip\"\n"
"catch { load {} vfs }\n"
# include "zipvfs.tcl.h"
"catch {\n"
"set ::tclKitStorage_fd [zip::open [info nameofexecutable]]\n"
"}\n"
"if {![catch { ::zip::stat $::tclKitStorage_fd boot.tcl sb }]} {\n"
"catch {\n"
"seek $::tclKitStorage_fd $sb(ino)\n"
"zip::Data $::tclKitStorage_fd sb s\n"
"}\n"
"}\n"
#endif /* KIT_STORAGE_ZIP */
"if {![info exists s]} {\n"
"set f [open setup.tcl]\n"
"set s [read $f]\n"
"close $f\n"
"}\n"
|