Check-in [ede635a763]
Overview
Comment:Fixed issue causing kit initialization failure when not boot strapping
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:ede635a763cd2fbb8d22ae01ece3d0795c5ea666
User & Date: rkeene on 2010-09-26 04:45:08
Other Links: manifest | tags
Context
2010-09-26
04:45
KitCreator 0.3.4.x check-in: 3f98704439 user: rkeene tags: trunk, 0.3.4
04:45
Fixed issue causing kit initialization failure when not boot strapping check-in: ede635a763 user: rkeene tags: trunk
04:45
Fixed result message for storage when not specified check-in: f71575204d user: rkeene tags: trunk
Changes

Modified kitsh/buildsrc/kitsh-0.0/kitInit.c from [55f719fa55] to [87800da22f].

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