Check-in [b41fe67416]
Overview
Comment:Updated to not read "setup.tcl"
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:b41fe67416acc213472ce6d9f6b829b1033f68b7
User & Date: rkeene on 2013-08-06 23:55:41
Other Links: manifest | tags
Context
2013-08-09
02:02
KitCreator 0.7.0 check-in: 4de8841dfc user: rkeene tags: trunk, 0.7.0
2013-08-06
23:55
Updated to not read "setup.tcl" check-in: b41fe67416 user: rkeene tags: trunk
23:55
Updated to use Tcl 8.5.14 as default build check-in: 31c33b52d5 user: rkeene tags: trunk
Changes

Modified kitsh/buildsrc/kitsh-0.0/kitInit.c from [9bfdc99cac] to [9995cd87d7].

   106    106   
   107    107   #ifdef TCLKIT_REQUIRE_TCLEXECUTABLENAME
   108    108   char *tclExecutableName;
   109    109   #endif
   110    110   
   111    111   /*
   112    112    *  Attempt to load a "boot.tcl" entry from the embedded MetaKit file.
   113         - *  If there isn't one, try to open a regular "setup.tcl" file instead.
   114         - *  If that fails, this code will throw an error, using a message box.
   115    113    */
   116    114   /*
   117    115    * This Tcl code is invoked whenever Tcl_Init() is called on an
   118    116    * interpreter.  It should mount up the VFS and make everything ready for
   119    117    * that interpreter to do its job.
   120    118    */
   121    119   static char *preInitCmd = 
................................................................................
   196    194   		"catch {\n"
   197    195   			"set s [::vfs::cvfs::data::getData tcl boot.tcl]\n"
   198    196   		"}\n"
   199    197   	"}\n"
   200    198   #endif /* KIT_STORAGE_CVFS */
   201    199   #ifndef TCLKIT_DLL
   202    200   	"if {![info exists s]} {\n"
   203         -		"set f [open setup.tcl]\n"
   204         -		"set s [read $f]\n"
   205         -		"close $f\n"
          201  +		"set s \"\"\n"
   206    202   	"}\n"
   207    203   #endif /* !TCLKIT_DLL */
   208    204   #ifdef TCLKIT_DLL
   209    205   	"set ::TCLKIT_TYPE \"kitdll\"\n"
   210    206   #else
   211    207   	"set ::TCLKIT_TYPE \"tclkit\"\n"
   212    208   #endif /* TCLKIT_DLL */