Overview
| Comment: | Updated to load boot.tcl in new interpreters, issue with previous workaround and fixing creating new interpreters |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
d5bcf0ec063272082ffa85557b2f2fca |
| User & Date: | rkeene on 2010-09-26 04:50:00 |
| Other Links: | manifest | tags |
Context
|
2010-09-26
| ||
| 04:50 | Updated to use dladdr() to find ourselves if possible check-in: eb6f15ad72 user: rkeene tags: trunk | |
| 04:50 | Updated to load boot.tcl in new interpreters, issue with previous workaround and fixing creating new interpreters check-in: d5bcf0ec06 user: rkeene tags: trunk | |
| 04:49 |
Added guard to only run one nightly test at atime
Added new interp test check-in: d9e99beea7 user: rkeene tags: trunk | |
Changes
Modified kitsh/buildsrc/kitsh-0.0/kitInit.c from [a33903368c] to [0506bc15b0].
| ︙ | ︙ | |||
124 125 126 127 128 129 130 |
"set s [zlib decompress $s]\n"
"}\n"
"}\n"
#endif /* KIT_STORAGE_MK4 */
#ifdef KIT_STORAGE_ZIP
"set ::tclKitStorage \"zip\"\n"
"catch { load {} vfs }\n"
| > > | > > | > > > < | < | | < | 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 |
"set s [zlib decompress $s]\n"
"}\n"
"}\n"
#endif /* KIT_STORAGE_MK4 */
#ifdef KIT_STORAGE_ZIP
"set ::tclKitStorage \"zip\"\n"
"catch { load {} vfs }\n"
"if {![info exists s]} {\n"
"catch {\n"
"set bootfile [file join [info nameofexecutable] boot.tcl]\n"
"if {[file exists $bootfile]} {\n"
"set f [open $bootfile]\n"
"set s [read $f]\n"
"close $f\n"
"}\n"
"}\n"
"}\n"
"if {![info exists s]} {\n"
# include "zipvfs.tcl.h"
"catch {\n"
"set ::tclKitStorage_fd [::zip::open [info nameofexecutable]]\n"
"::zip::stat $::tclKitStorage_fd boot.tcl sb\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"
|
| ︙ | ︙ |