Hex Artifact Content

Artifact 8565374f0c3f6ef02f513250f52349cf13cecd51:


0000: 2f 2a 20 0a 20 2a 20 74 63 6c 41 70 70 49 6e 69  /* . * tclAppIni
0010: 74 2e 63 20 2d 2d 0a 20 2a 0a 20 2a 20 20 50 72  t.c --. *. *  Pr
0020: 6f 76 69 64 65 73 20 61 20 64 65 66 61 75 6c 74  ovides a default
0030: 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 68 65 20   version of the 
0040: 6d 61 69 6e 20 70 72 6f 67 72 61 6d 20 61 6e 64  main program and
0050: 20 54 63 6c 5f 41 70 70 49 6e 69 74 0a 20 2a 20   Tcl_AppInit. * 
0060: 20 70 72 6f 63 65 64 75 72 65 20 66 6f 72 20 54   procedure for T
0070: 63 6c 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 20  cl applications 
0080: 28 77 69 74 68 6f 75 74 20 54 6b 29 2e 20 20 4e  (without Tk).  N
0090: 6f 74 65 20 74 68 61 74 20 74 68 69 73 0a 20 2a  ote that this. *
00a0: 20 20 70 72 6f 67 72 61 6d 20 6d 75 73 74 20 62    program must b
00b0: 65 20 62 75 69 6c 74 20 69 6e 20 57 69 6e 33 32  e built in Win32
00c0: 20 63 6f 6e 73 6f 6c 65 20 6d 6f 64 65 20 74 6f   console mode to
00d0: 20 77 6f 72 6b 20 70 72 6f 70 65 72 6c 79 2e 0a   work properly..
00e0: 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20   *. * Copyright 
00f0: 28 63 29 20 31 39 39 36 2d 31 39 39 37 20 62 79  (c) 1996-1997 by
0100: 20 53 75 6e 20 4d 69 63 72 6f 73 79 73 74 65 6d   Sun Microsystem
0110: 73 2c 20 49 6e 63 2e 0a 20 2a 20 43 6f 70 79 72  s, Inc.. * Copyr
0120: 69 67 68 74 20 28 63 29 20 31 39 39 38 2d 31 39  ight (c) 1998-19
0130: 39 39 20 62 79 20 53 63 72 69 70 74 69 63 73 20  99 by Scriptics 
0140: 43 6f 72 70 6f 72 61 74 69 6f 6e 2e 0a 20 2a 20  Corporation.. * 
0150: 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 32 30  Copyright (c) 20
0160: 30 30 2d 32 30 30 32 20 4a 65 61 6e 2d 43 6c 61  00-2002 Jean-Cla
0170: 75 64 65 20 57 69 70 70 6c 65 72 20 3c 6a 63 77  ude Wippler <jcw
0180: 40 65 71 75 69 34 2e 63 6f 6d 3e 0a 20 2a 0a 20  @equi4.com>. *. 
0190: 2a 20 53 65 65 20 74 68 65 20 66 69 6c 65 20 22  * See the file "
01a0: 6c 69 63 65 6e 73 65 2e 74 65 72 6d 73 22 20 66  license.terms" f
01b0: 6f 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f  or information o
01c0: 6e 20 75 73 61 67 65 20 61 6e 64 20 72 65 64 69  n usage and redi
01d0: 73 74 72 69 62 75 74 69 6f 6e 0a 20 2a 20 6f 66  stribution. * of
01e0: 20 74 68 69 73 20 66 69 6c 65 2c 20 61 6e 64 20   this file, and 
01f0: 66 6f 72 20 61 20 44 49 53 43 4c 41 49 4d 45 52  for a DISCLAIMER
0200: 20 4f 46 20 41 4c 4c 20 57 41 52 52 41 4e 54 49   OF ALL WARRANTI
0210: 45 53 2e 0a 20 2a 0a 20 2a 20 52 43 53 3a 20 40  ES.. *. * RCS: @
0220: 28 23 29 20 24 49 64 24 0a 20 2a 2f 0a 0a 23 69  (#) $Id$. */..#i
0230: 66 64 65 66 20 4b 49 54 5f 49 4e 43 4c 55 44 45  fdef KIT_INCLUDE
0240: 53 5f 54 4b 0a 23 20 20 69 6e 63 6c 75 64 65 20  S_TK.#  include 
0250: 3c 74 6b 2e 68 3e 0a 23 65 6c 73 65 0a 23 20 20  <tk.h>.#else.#  
0260: 69 6e 63 6c 75 64 65 20 3c 74 63 6c 2e 68 3e 0a  include <tcl.h>.
0270: 23 65 6e 64 69 66 20 2f 2a 20 4b 49 54 5f 49 4e  #endif /* KIT_IN
0280: 43 4c 55 44 45 53 5f 54 4b 20 2a 2f 0a 0a 23 69  CLUDES_TK */..#i
0290: 66 64 65 66 20 5f 57 49 4e 33 32 0a 23 20 20 64  fdef _WIN32.#  d
02a0: 65 66 69 6e 65 20 57 49 4e 33 32 5f 4c 45 41 4e  efine WIN32_LEAN
02b0: 5f 41 4e 44 5f 4d 45 41 4e 0a 23 20 20 69 6e 63  _AND_MEAN.#  inc
02c0: 6c 75 64 65 20 3c 77 69 6e 64 6f 77 73 2e 68 3e  lude <windows.h>
02d0: 0a 23 20 20 75 6e 64 65 66 20 57 49 4e 33 32 5f  .#  undef WIN32_
02e0: 4c 45 41 4e 5f 41 4e 44 5f 4d 45 41 4e 0a 23 65  LEAN_AND_MEAN.#e
02f0: 6e 64 69 66 20 2f 2a 20 5f 57 49 4e 33 32 20 2a  ndif /* _WIN32 *
0300: 2f 0a 0a 23 69 66 6e 64 65 66 20 4d 42 5f 54 41  /..#ifndef MB_TA
0310: 53 4b 4d 4f 44 41 4c 0a 23 20 20 64 65 66 69 6e  SKMODAL.#  defin
0320: 65 20 4d 42 5f 54 41 53 4b 4d 4f 44 41 4c 20 30  e MB_TASKMODAL 0
0330: 0a 23 65 6e 64 69 66 20 2f 2a 20 4d 42 5f 54 41  .#endif /* MB_TA
0340: 53 4b 4d 4f 44 41 4c 20 2a 2f 0a 0a 23 69 6e 63  SKMODAL */..#inc
0350: 6c 75 64 65 20 22 74 63 6c 49 6e 74 2e 68 22 0a  lude "tclInt.h".
0360: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 48 41 56  .#if defined(HAV
0370: 45 5f 54 43 4c 5f 47 45 54 45 4e 43 4f 44 49 4e  E_TCL_GETENCODIN
0380: 47 4e 41 4d 45 46 52 4f 4d 45 4e 56 49 52 4f 4e  GNAMEFROMENVIRON
0390: 4d 45 4e 54 29 20 26 26 20 64 65 66 69 6e 65 64  MENT) && defined
03a0: 28 48 41 56 45 5f 54 43 4c 5f 53 45 54 53 59 53  (HAVE_TCL_SETSYS
03b0: 54 45 4d 45 4e 43 4f 44 49 4e 47 29 0a 23 20 20  TEMENCODING).#  
03c0: 64 65 66 69 6e 65 20 54 43 4c 4b 49 54 5f 43 41  define TCLKIT_CA
03d0: 4e 5f 53 45 54 5f 45 4e 43 4f 44 49 4e 47 20 31  N_SET_ENCODING 1
03e0: 0a 23 65 6e 64 69 66 0a 23 69 66 20 31 30 20 2a  .#endif.#if 10 *
03f0: 20 54 43 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 49   TCL_MAJOR_VERSI
0400: 4f 4e 20 2b 20 54 43 4c 5f 4d 49 4e 4f 52 5f 56  ON + TCL_MINOR_V
0410: 45 52 53 49 4f 4e 20 3c 20 38 35 0a 23 20 20 64  ERSION < 85.#  d
0420: 65 66 69 6e 65 20 4b 49 54 5f 49 4e 43 4c 55 44  efine KIT_INCLUD
0430: 45 53 5f 50 57 42 20 31 0a 23 65 6e 64 69 66 0a  ES_PWB 1.#endif.
0440: 23 69 66 20 31 30 20 2a 20 54 43 4c 5f 4d 41 4a  #if 10 * TCL_MAJ
0450: 4f 52 5f 56 45 52 53 49 4f 4e 20 2b 20 54 43 4c  OR_VERSION + TCL
0460: 5f 4d 49 4e 4f 52 5f 56 45 52 53 49 4f 4e 20 3c  _MINOR_VERSION <
0470: 20 38 36 0a 23 20 20 64 65 66 69 6e 65 20 4b 49   86.#  define KI
0480: 54 5f 49 4e 43 4c 55 44 45 53 5f 5a 4c 49 42 20  T_INCLUDES_ZLIB 
0490: 31 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66  1.#endif..#ifdef
04a0: 20 4b 49 54 5f 49 4e 43 4c 55 44 45 53 5f 49 54   KIT_INCLUDES_IT
04b0: 43 4c 0a 54 63 6c 5f 41 70 70 49 6e 69 74 50 72  CL.Tcl_AppInitPr
04c0: 6f 63 09 49 74 63 6c 5f 49 6e 69 74 3b 0a 23 65  oc.Itcl_Init;.#e
04d0: 6e 64 69 66 0a 23 69 66 64 65 66 20 4b 49 54 5f  ndif.#ifdef KIT_
04e0: 49 4e 43 4c 55 44 45 53 5f 4d 4b 34 54 43 4c 0a  INCLUDES_MK4TCL.
04f0: 54 63 6c 5f 41 70 70 49 6e 69 74 50 72 6f 63 09  Tcl_AppInitProc.
0500: 4d 6b 34 74 63 6c 5f 49 6e 69 74 3b 0a 23 65 6e  Mk4tcl_Init;.#en
0510: 64 69 66 0a 54 63 6c 5f 41 70 70 49 6e 69 74 50  dif.Tcl_AppInitP
0520: 72 6f 63 20 56 66 73 5f 49 6e 69 74 2c 20 52 65  roc Vfs_Init, Re
0530: 63 68 61 6e 5f 49 6e 69 74 3b 0a 23 69 66 64 65  chan_Init;.#ifde
0540: 66 20 4b 49 54 5f 49 4e 43 4c 55 44 45 53 5f 50  f KIT_INCLUDES_P
0550: 57 42 0a 54 63 6c 5f 41 70 70 49 6e 69 74 50 72  WB.Tcl_AppInitPr
0560: 6f 63 09 50 77 62 5f 49 6e 69 74 3b 0a 23 65 6e  oc.Pwb_Init;.#en
0570: 64 69 66 0a 23 69 66 64 65 66 20 4b 49 54 5f 49  dif.#ifdef KIT_I
0580: 4e 43 4c 55 44 45 53 5f 5a 4c 49 42 0a 54 63 6c  NCLUDES_ZLIB.Tcl
0590: 5f 41 70 70 49 6e 69 74 50 72 6f 63 20 5a 6c 69  _AppInitProc Zli
05a0: 62 5f 49 6e 69 74 3b 0a 23 65 6e 64 69 66 0a 23  b_Init;.#endif.#
05b0: 69 66 64 65 66 20 54 43 4c 5f 54 48 52 45 41 44  ifdef TCL_THREAD
05c0: 53 0a 54 63 6c 5f 41 70 70 49 6e 69 74 50 72 6f  S.Tcl_AppInitPro
05d0: 63 09 54 68 72 65 61 64 5f 49 6e 69 74 3b 0a 23  c.Thread_Init;.#
05e0: 65 6e 64 69 66 0a 23 69 66 64 65 66 20 5f 57 49  endif.#ifdef _WI
05f0: 4e 33 32 0a 54 63 6c 5f 41 70 70 49 6e 69 74 50  N32.Tcl_AppInitP
0600: 72 6f 63 09 44 64 65 5f 49 6e 69 74 2c 20 52 65  roc.Dde_Init, Re
0610: 67 69 73 74 72 79 5f 49 6e 69 74 3b 0a 23 65 6e  gistry_Init;.#en
0620: 64 69 66 0a 0a 2f 2a 20 44 65 74 65 72 6d 69 6e  dif../* Determin
0630: 65 20 77 68 69 63 68 20 74 79 70 65 20 6f 66 20  e which type of 
0640: 73 74 6f 72 61 67 65 20 74 6f 20 75 73 65 20 2d  storage to use -
0650: 2d 20 4d 4b 34 20 6f 72 20 5a 49 50 20 2a 2f 0a  - MK4 or ZIP */.
0660: 23 69 66 20 64 65 66 69 6e 65 64 28 4b 49 54 5f  #if defined(KIT_
0670: 53 54 4f 52 41 47 45 5f 4d 4b 34 29 20 26 26 20  STORAGE_MK4) && 
0680: 64 65 66 69 6e 65 64 28 4b 49 54 5f 53 54 4f 52  defined(KIT_STOR
0690: 41 47 45 5f 5a 49 50 29 0a 23 20 20 75 6e 64 65  AGE_ZIP).#  unde
06a0: 66 20 4b 49 54 5f 53 54 4f 52 41 47 45 5f 5a 49  f KIT_STORAGE_ZI
06b0: 50 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65  P.#endif.#if !de
06c0: 66 69 6e 65 64 28 4b 49 54 5f 53 54 4f 52 41 47  fined(KIT_STORAG
06d0: 45 5f 4d 4b 34 29 20 26 26 20 21 64 65 66 69 6e  E_MK4) && !defin
06e0: 65 64 28 4b 49 54 5f 53 54 4f 52 41 47 45 5f 5a  ed(KIT_STORAGE_Z
06f0: 49 50 29 0a 23 20 20 69 66 64 65 66 20 4b 49 54  IP).#  ifdef KIT
0700: 5f 49 4e 43 4c 55 44 45 53 5f 4d 4b 34 54 43 4c  _INCLUDES_MK4TCL
0710: 0a 23 20 20 20 20 64 65 66 69 6e 65 20 4b 49 54  .#    define KIT
0720: 5f 53 54 4f 52 41 47 45 5f 4d 4b 34 20 31 0a 23  _STORAGE_MK4 1.#
0730: 20 20 65 6c 73 65 0a 23 20 20 20 20 64 65 66 69    else.#    defi
0740: 6e 65 20 4b 49 54 5f 53 54 4f 52 41 47 45 5f 5a  ne KIT_STORAGE_Z
0750: 49 50 20 31 0a 23 20 20 65 6e 64 69 66 0a 23 65  IP 1.#  endif.#e
0760: 6e 64 69 66 0a 0a 63 68 61 72 20 2a 74 63 6c 45  ndif..char *tclE
0770: 78 65 63 75 74 61 62 6c 65 4e 61 6d 65 3b 0a 0a  xecutableName;..
0780: 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 20 41      /*.     *  A
0790: 74 74 65 6d 70 74 20 74 6f 20 6c 6f 61 64 20 61  ttempt to load a
07a0: 20 22 62 6f 6f 74 2e 74 63 6c 22 20 65 6e 74 72   "boot.tcl" entr
07b0: 79 20 66 72 6f 6d 20 74 68 65 20 65 6d 62 65 64  y from the embed
07c0: 64 65 64 20 4d 65 74 61 4b 69 74 20 66 69 6c 65  ded MetaKit file
07d0: 2e 0a 20 20 20 20 20 2a 20 20 49 66 20 74 68 65  ..     *  If the
07e0: 72 65 20 69 73 6e 27 74 20 6f 6e 65 2c 20 74 72  re isn't one, tr
07f0: 79 20 74 6f 20 6f 70 65 6e 20 61 20 72 65 67 75  y to open a regu
0800: 6c 61 72 20 22 73 65 74 75 70 2e 74 63 6c 22 20  lar "setup.tcl" 
0810: 66 69 6c 65 20 69 6e 73 74 65 61 64 2e 0a 20 20  file instead..  
0820: 20 20 20 2a 20 20 49 66 20 74 68 61 74 20 66 61     *  If that fa
0830: 69 6c 73 2c 20 74 68 69 73 20 63 6f 64 65 20 77  ils, this code w
0840: 69 6c 6c 20 74 68 72 6f 77 20 61 6e 20 65 72 72  ill throw an err
0850: 6f 72 2c 20 75 73 69 6e 67 20 61 20 6d 65 73 73  or, using a mess
0860: 61 67 65 20 62 6f 78 2e 0a 20 20 20 20 20 2a 2f  age box..     */
0870: 0a 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a 70  ..static char *p
0880: 72 65 49 6e 69 74 43 6d 64 20 3d 20 0a 23 69 66  reInitCmd = .#if
0890: 64 65 66 20 5f 57 49 4e 33 32 5f 57 43 45 0a 2f  def _WIN32_WCE./
08a0: 2a 20 73 69 6c 6c 79 20 68 61 63 6b 20 74 6f 20  * silly hack to 
08b0: 67 65 74 20 77 69 6e 63 65 20 70 6f 72 74 20 74  get wince port t
08c0: 6f 20 6c 61 75 6e 63 68 2c 20 73 6f 6d 65 20 73  o launch, some s
08d0: 6f 72 74 20 6f 66 20 73 74 64 7b 69 6e 2c 6f 75  ort of std{in,ou
08e0: 74 2c 65 72 72 7d 20 70 72 6f 62 6c 65 6d 20 2a  t,err} problem *
08f0: 2f 0a 22 6f 70 65 6e 20 2f 6b 69 74 6f 75 74 2e  /."open /kitout.
0900: 74 78 74 20 61 3b 20 6f 70 65 6e 20 2f 6b 69 74  txt a; open /kit
0910: 6f 75 74 2e 74 78 74 20 61 3b 20 6f 70 65 6e 20  out.txt a; open 
0920: 2f 6b 69 74 6f 75 74 2e 74 78 74 20 61 5c 6e 22  /kitout.txt a\n"
0930: 0a 2f 2a 20 74 68 69 73 20 74 6f 6f 20 73 65 65  ./* this too see
0940: 6d 73 20 74 6f 20 62 65 20 6e 65 65 64 65 64 20  ms to be needed 
0950: 6f 6e 20 77 69 6e 63 65 20 2d 20 69 74 20 61 70  on wince - it ap
0960: 70 65 61 72 73 20 74 6f 20 62 65 20 72 65 6c 61  pears to be rela
0970: 74 65 64 20 74 6f 20 74 68 65 20 61 62 6f 76 65  ted to the above
0980: 20 2a 2f 0a 22 63 61 74 63 68 20 7b 72 65 6e 61   */."catch {rena
0990: 6d 65 20 73 6f 75 72 63 65 20 3a 3a 74 63 6c 3a  me source ::tcl:
09a0: 3a 73 6f 75 72 63 65 7d 5c 6e 22 0a 22 70 72 6f  :source}\n"."pro
09b0: 63 20 73 6f 75 72 63 65 20 66 69 6c 65 20 7b 5c  c source file {\
09c0: 6e 22 0a 09 22 73 65 74 20 6f 6c 64 20 5b 69 6e  n".."set old [in
09d0: 66 6f 20 73 63 72 69 70 74 5d 5c 6e 22 0a 09 22  fo script]\n".."
09e0: 69 6e 66 6f 20 73 63 72 69 70 74 20 24 66 69 6c  info script $fil
09f0: 65 5c 6e 22 0a 09 22 73 65 74 20 66 69 64 20 5b  e\n".."set fid [
0a00: 6f 70 65 6e 20 24 66 69 6c 65 5d 5c 6e 22 0a 09  open $file]\n"..
0a10: 22 73 65 74 20 64 61 74 61 20 5b 72 65 61 64 20  "set data [read 
0a20: 24 66 69 64 5d 5c 6e 22 0a 09 22 63 6c 6f 73 65  $fid]\n".."close
0a30: 20 24 66 69 64 5c 6e 22 0a 09 22 73 65 74 20 63   $fid\n".."set c
0a40: 6f 64 65 20 5b 63 61 74 63 68 20 7b 75 70 6c 65  ode [catch {uple
0a50: 76 65 6c 20 31 20 24 64 61 74 61 7d 20 72 65 73  vel 1 $data} res
0a60: 5d 5c 6e 22 0a 09 22 69 6e 66 6f 20 73 63 72 69  ]\n".."info scri
0a70: 70 74 20 24 6f 6c 64 5c 6e 22 0a 09 22 69 66 20  pt $old\n".."if 
0a80: 7b 24 63 6f 64 65 20 3d 3d 20 32 7d 20 7b 20 73  {$code == 2} { s
0a90: 65 74 20 63 6f 64 65 20 30 20 7d 5c 6e 22 0a 09  et code 0 }\n"..
0aa0: 22 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 24 63  "return -code $c
0ab0: 6f 64 65 20 24 72 65 73 5c 6e 22 0a 22 7d 5c 6e  ode $res\n"."}\n
0ac0: 22 0a 23 65 6e 64 69 66 20 2f 2a 20 5f 57 49 4e  ".#endif /* _WIN
0ad0: 33 32 5f 57 43 45 20 2a 2f 0a 22 70 72 6f 63 20  32_WCE */."proc 
0ae0: 74 63 6c 4b 69 74 49 6e 69 74 20 7b 7d 20 7b 5c  tclKitInit {} {\
0af0: 6e 22 0a 09 22 72 65 6e 61 6d 65 20 74 63 6c 4b  n".."rename tclK
0b00: 69 74 49 6e 69 74 20 7b 7d 5c 6e 22 0a 23 69 66  itInit {}\n".#if
0b10: 64 65 66 20 4b 49 54 5f 49 4e 43 4c 55 44 45 53  def KIT_INCLUDES
0b20: 5f 4d 4b 34 54 43 4c 0a 09 22 63 61 74 63 68 20  _MK4TCL.."catch 
0b30: 7b 20 6c 6f 61 64 20 7b 7d 20 4d 6b 34 74 63 6c  { load {} Mk4tcl
0b40: 20 7d 5c 6e 22 0a 23 65 6e 64 69 66 0a 23 69 66   }\n".#endif.#if
0b50: 64 65 66 20 4b 49 54 5f 53 54 4f 52 41 47 45 5f  def KIT_STORAGE_
0b60: 4d 4b 34 0a 09 22 73 65 74 20 3a 3a 74 63 6c 4b  MK4.."set ::tclK
0b70: 69 74 53 74 6f 72 61 67 65 20 5c 22 6d 6b 34 5c  itStorage \"mk4\
0b80: 22 5c 6e 22 0a 09 22 6d 6b 3a 3a 66 69 6c 65 20  "\n".."mk::file 
0b90: 6f 70 65 6e 20 65 78 65 20 5b 69 6e 66 6f 20 6e  open exe [info n
0ba0: 61 6d 65 6f 66 65 78 65 63 75 74 61 62 6c 65 5d  ameofexecutable]
0bb0: 20 2d 72 65 61 64 6f 6e 6c 79 5c 6e 22 0a 09 22   -readonly\n".."
0bc0: 73 65 74 20 6e 20 5b 6d 6b 3a 3a 73 65 6c 65 63  set n [mk::selec
0bd0: 74 20 65 78 65 2e 64 69 72 73 21 30 2e 66 69 6c  t exe.dirs!0.fil
0be0: 65 73 20 6e 61 6d 65 20 62 6f 6f 74 2e 74 63 6c  es name boot.tcl
0bf0: 5d 5c 6e 22 0a 09 22 69 66 20 7b 24 6e 20 21 3d  ]\n".."if {$n !=
0c00: 20 5c 22 5c 22 7d 20 7b 5c 6e 22 0a 09 09 22 73   \"\"} {\n"..."s
0c10: 65 74 20 73 20 5b 6d 6b 3a 3a 67 65 74 20 65 78  et s [mk::get ex
0c20: 65 2e 64 69 72 73 21 30 2e 66 69 6c 65 73 21 24  e.dirs!0.files!$
0c30: 6e 20 63 6f 6e 74 65 6e 74 73 5d 5c 6e 22 0a 09  n contents]\n"..
0c40: 09 22 69 66 20 7b 21 5b 73 74 72 69 6e 67 20 6c  ."if {![string l
0c50: 65 6e 67 74 68 20 24 73 5d 7d 20 7b 20 65 72 72  ength $s]} { err
0c60: 6f 72 20 5c 22 65 6d 70 74 79 20 62 6f 6f 74 2e  or \"empty boot.
0c70: 74 63 6c 5c 22 20 7d 5c 6e 22 0a 09 09 22 63 61  tcl\" }\n"..."ca
0c80: 74 63 68 20 7b 6c 6f 61 64 20 7b 7d 20 7a 6c 69  tch {load {} zli
0c90: 62 7d 5c 6e 22 0a 09 09 22 69 66 20 7b 5b 6d 6b  b}\n"..."if {[mk
0ca0: 3a 3a 67 65 74 20 65 78 65 2e 64 69 72 73 21 30  ::get exe.dirs!0
0cb0: 2e 66 69 6c 65 73 21 24 6e 20 73 69 7a 65 5d 20  .files!$n size] 
0cc0: 21 3d 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74  != [string lengt
0cd0: 68 20 24 73 5d 7d 20 7b 5c 6e 22 0a 09 09 09 22  h $s]} {\n"...."
0ce0: 73 65 74 20 73 20 5b 7a 6c 69 62 20 64 65 63 6f  set s [zlib deco
0cf0: 6d 70 72 65 73 73 20 24 73 5d 5c 6e 22 0a 09 09  mpress $s]\n"...
0d00: 22 7d 5c 6e 22 0a 09 22 7d 5c 6e 22 0a 23 65 6e  "}\n".."}\n".#en
0d10: 64 69 66 20 2f 2a 20 4b 49 54 5f 53 54 4f 52 41  dif /* KIT_STORA
0d20: 47 45 5f 4d 4b 34 20 2a 2f 0a 23 69 66 64 65 66  GE_MK4 */.#ifdef
0d30: 20 4b 49 54 5f 53 54 4f 52 41 47 45 5f 5a 49 50   KIT_STORAGE_ZIP
0d40: 0a 09 22 73 65 74 20 3a 3a 74 63 6c 4b 69 74 53  .."set ::tclKitS
0d50: 74 6f 72 61 67 65 20 5c 22 7a 69 70 5c 22 5c 6e  torage \"zip\"\n
0d60: 22 0a 09 22 63 61 74 63 68 20 7b 20 6c 6f 61 64  ".."catch { load
0d70: 20 7b 7d 20 76 66 73 20 7d 5c 6e 22 0a 23 20 20   {} vfs }\n".#  
0d80: 69 6e 63 6c 75 64 65 20 22 7a 69 70 76 66 73 2e  include "zipvfs.
0d90: 74 63 6c 2e 68 22 0a 09 22 63 61 74 63 68 20 7b  tcl.h".."catch {
0da0: 5c 6e 22 0a 09 09 22 73 65 74 20 3a 3a 74 63 6c  \n"..."set ::tcl
0db0: 4b 69 74 53 74 6f 72 61 67 65 5f 66 64 20 5b 7a  KitStorage_fd [z
0dc0: 69 70 3a 3a 6f 70 65 6e 20 5b 69 6e 66 6f 20 6e  ip::open [info n
0dd0: 61 6d 65 6f 66 65 78 65 63 75 74 61 62 6c 65 5d  ameofexecutable]
0de0: 5d 5c 6e 22 0a 09 22 7d 5c 6e 22 0a 09 22 69 66  ]\n".."}\n".."if
0df0: 20 7b 21 5b 63 61 74 63 68 20 7b 20 3a 3a 7a 69   {![catch { ::zi
0e00: 70 3a 3a 73 74 61 74 20 24 3a 3a 74 63 6c 4b 69  p::stat $::tclKi
0e10: 74 53 74 6f 72 61 67 65 5f 66 64 20 62 6f 6f 74  tStorage_fd boot
0e20: 2e 74 63 6c 20 73 62 20 7d 5d 7d 20 7b 5c 6e 22  .tcl sb }]} {\n"
0e30: 0a 09 09 22 63 61 74 63 68 20 7b 5c 6e 22 0a 09  ..."catch {\n"..
0e40: 09 09 22 73 65 65 6b 20 24 3a 3a 74 63 6c 4b 69  .."seek $::tclKi
0e50: 74 53 74 6f 72 61 67 65 5f 66 64 20 24 73 62 28  tStorage_fd $sb(
0e60: 69 6e 6f 29 5c 6e 22 0a 09 09 09 22 7a 69 70 3a  ino)\n"...."zip:
0e70: 3a 44 61 74 61 20 24 3a 3a 74 63 6c 4b 69 74 53  :Data $::tclKitS
0e80: 74 6f 72 61 67 65 5f 66 64 20 73 62 20 73 5c 6e  torage_fd sb s\n
0e90: 22 0a 09 09 22 7d 5c 6e 22 0a 09 22 7d 5c 6e 22  "..."}\n".."}\n"
0ea0: 0a 23 65 6e 64 69 66 20 2f 2a 20 4b 49 54 5f 53  .#endif /* KIT_S
0eb0: 54 4f 52 41 47 45 5f 5a 49 50 20 2a 2f 0a 09 22  TORAGE_ZIP */.."
0ec0: 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74  if {![info exist
0ed0: 73 20 73 5d 7d 20 7b 5c 6e 22 0a 09 09 22 73 65  s s]} {\n"..."se
0ee0: 74 20 66 20 5b 6f 70 65 6e 20 73 65 74 75 70 2e  t f [open setup.
0ef0: 74 63 6c 5d 5c 6e 22 0a 09 09 22 73 65 74 20 73  tcl]\n"..."set s
0f00: 20 5b 72 65 61 64 20 24 66 5d 5c 6e 22 0a 09 09   [read $f]\n"...
0f10: 22 63 6c 6f 73 65 20 24 66 5c 6e 22 0a 09 22 7d  "close $f\n".."}
0f20: 5c 6e 22 0a 09 22 75 70 6c 65 76 65 6c 20 23 30  \n".."uplevel #0
0f30: 20 24 73 5c 6e 22 0a 23 69 66 64 65 66 20 5f 57   $s\n".#ifdef _W
0f40: 49 4e 33 32 0a 09 22 63 61 74 63 68 20 7b 6c 6f  IN32.."catch {lo
0f50: 61 64 20 7b 7d 20 64 64 65 7d 5c 6e 22 0a 09 22  ad {} dde}\n".."
0f60: 63 61 74 63 68 20 7b 6c 6f 61 64 20 7b 7d 20 72  catch {load {} r
0f70: 65 67 69 73 74 72 79 7d 5c 6e 22 0a 23 65 6e 64  egistry}\n".#end
0f80: 69 66 20 2f 2a 20 5f 57 49 4e 33 32 20 2a 2f 0a  if /* _WIN32 */.
0f90: 09 22 72 65 74 75 72 6e 20 30 5c 6e 22 0a 22 7d  ."return 0\n"."}
0fa0: 5c 6e 22 0a 22 74 63 6c 4b 69 74 49 6e 69 74 22  \n"."tclKitInit"
0fb0: 3b 0a 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20  ;..static const 
0fc0: 63 68 61 72 20 69 6e 69 74 53 63 72 69 70 74 5b  char initScript[
0fd0: 5d 20 3d 0a 22 69 66 20 7b 5b 66 69 6c 65 20 69  ] =."if {[file i
0fe0: 73 66 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e  sfile [file join
0ff0: 20 5b 69 6e 66 6f 20 6e 61 6d 65 6f 66 65 78 65   [info nameofexe
1000: 5d 20 6d 61 69 6e 2e 74 63 6c 5d 5d 7d 20 7b 5c  ] main.tcl]]} {\
1010: 6e 22 0a 09 22 69 66 20 7b 5b 69 6e 66 6f 20 63  n".."if {[info c
1020: 6f 6d 6d 61 6e 64 73 20 63 6f 6e 73 6f 6c 65 5d  ommands console]
1030: 20 21 3d 20 7b 7d 7d 20 7b 20 63 6f 6e 73 6f 6c   != {}} { consol
1040: 65 20 68 69 64 65 20 7d 5c 6e 22 0a 09 22 73 65  e hide }\n".."se
1050: 74 20 74 63 6c 5f 69 6e 74 65 72 61 63 74 69 76  t tcl_interactiv
1060: 65 20 30 5c 6e 22 0a 09 22 69 6e 63 72 20 61 72  e 0\n".."incr ar
1070: 67 63 5c 6e 22 0a 09 22 73 65 74 20 61 72 67 76  gc\n".."set argv
1080: 20 5b 6c 69 6e 73 65 72 74 20 24 61 72 67 76 20   [linsert $argv 
1090: 30 20 24 61 72 67 76 30 5d 5c 6e 22 0a 09 22 73  0 $argv0]\n".."s
10a0: 65 74 20 61 72 67 76 30 20 5b 66 69 6c 65 20 6a  et argv0 [file j
10b0: 6f 69 6e 20 5b 69 6e 66 6f 20 6e 61 6d 65 6f 66  oin [info nameof
10c0: 65 78 65 5d 20 6d 61 69 6e 2e 74 63 6c 5d 5c 6e  exe] main.tcl]\n
10d0: 22 0a 22 7d 20 65 6c 73 65 20 63 6f 6e 74 69 6e  "."} else contin
10e0: 75 65 5c 6e 22 3b 0a 0a 2f 2a 20 53 65 74 45 78  ue\n";../* SetEx
10f0: 65 63 4e 61 6d 65 20 2d 2d 0a 0a 20 20 20 48 61  ecName --..   Ha
1100: 63 6b 20 74 6f 20 67 65 74 20 61 72 6f 75 6e 64  ck to get around
1110: 20 54 63 6c 20 62 75 67 20 31 32 32 34 38 38 38   Tcl bug 1224888
1120: 2e 0a 2a 2f 0a 76 6f 69 64 20 53 65 74 45 78 65  ..*/.void SetExe
1130: 63 4e 61 6d 65 28 54 63 6c 5f 49 6e 74 65 72 70  cName(Tcl_Interp
1140: 20 2a 69 6e 74 65 72 70 29 20 7b 0a 09 69 66 20   *interp) {..if 
1150: 28 74 63 6c 45 78 65 63 75 74 61 62 6c 65 4e 61  (tclExecutableNa
1160: 6d 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09  me == NULL) {...
1170: 69 6e 74 20 6c 65 6e 20 3d 20 30 3b 0a 09 09 54  int len = 0;...T
1180: 63 6c 5f 4f 62 6a 20 2a 65 78 65 63 4e 61 6d 65  cl_Obj *execName
1190: 4f 62 6a 3b 0a 09 09 54 63 6c 5f 4f 62 6a 20 2a  Obj;...Tcl_Obj *
11a0: 6c 6f 62 6a 76 5b 31 5d 3b 0a 0a 09 09 6c 6f 62  lobjv[1];....lob
11b0: 6a 76 5b 30 5d 20 3d 20 54 63 6c 5f 47 65 74 56  jv[0] = Tcl_GetV
11c0: 61 72 32 45 78 28 69 6e 74 65 72 70 2c 20 22 61  ar2Ex(interp, "a
11d0: 72 67 76 30 22 2c 20 4e 55 4c 4c 2c 20 54 43 4c  rgv0", NULL, TCL
11e0: 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 09  _GLOBAL_ONLY);..
11f0: 09 65 78 65 63 4e 61 6d 65 4f 62 6a 20 3d 20 54  .execNameObj = T
1200: 63 6c 5f 46 53 4a 6f 69 6e 54 6f 50 61 74 68 28  cl_FSJoinToPath(
1210: 54 63 6c 5f 46 53 47 65 74 43 77 64 28 69 6e 74  Tcl_FSGetCwd(int
1220: 65 72 70 29 2c 20 31 2c 20 6c 6f 62 6a 76 29 3b  erp), 1, lobjv);
1230: 0a 0a 09 09 74 63 6c 45 78 65 63 75 74 61 62 6c  ....tclExecutabl
1240: 65 4e 61 6d 65 20 3d 20 73 74 72 64 75 70 28 54  eName = strdup(T
1250: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d  cl_GetStringFrom
1260: 4f 62 6a 28 65 78 65 63 4e 61 6d 65 4f 62 6a 2c  Obj(execNameObj,
1270: 20 26 6c 65 6e 29 29 3b 0a 09 7d 0a 7d 0a 0a 69   &len));..}.}..i
1280: 6e 74 20 54 63 6c 4b 69 74 5f 41 70 70 49 6e 69  nt TclKit_AppIni
1290: 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  t(Tcl_Interp *in
12a0: 74 65 72 70 29 20 7b 0a 23 69 66 64 65 66 20 54  terp) {.#ifdef T
12b0: 43 4c 4b 49 54 5f 43 41 4e 5f 53 45 54 5f 45 4e  CLKIT_CAN_SET_EN
12c0: 43 4f 44 49 4e 47 0a 09 54 63 6c 5f 44 53 74 72  CODING..Tcl_DStr
12d0: 69 6e 67 20 65 6e 63 6f 64 69 6e 67 4e 61 6d 65  ing encodingName
12e0: 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66  ;.#endif..#ifdef
12f0: 20 4b 49 54 5f 49 4e 43 4c 55 44 45 53 5f 49 54   KIT_INCLUDES_IT
1300: 43 4c 0a 09 54 63 6c 5f 53 74 61 74 69 63 50 61  CL..Tcl_StaticPa
1310: 63 6b 61 67 65 28 30 2c 20 22 49 74 63 6c 22 2c  ckage(0, "Itcl",
1320: 20 49 74 63 6c 5f 49 6e 69 74 2c 20 4e 55 4c 4c   Itcl_Init, NULL
1330: 29 3b 0a 23 65 6e 64 69 66 20 0a 23 69 66 64 65  );.#endif .#ifde
1340: 66 20 4b 49 54 5f 49 4e 43 4c 55 44 45 53 5f 4d  f KIT_INCLUDES_M
1350: 4b 34 54 43 4c 0a 09 54 63 6c 5f 53 74 61 74 69  K4TCL..Tcl_Stati
1360: 63 50 61 63 6b 61 67 65 28 30 2c 20 22 4d 6b 34  cPackage(0, "Mk4
1370: 74 63 6c 22 2c 20 4d 6b 34 74 63 6c 5f 49 6e 69  tcl", Mk4tcl_Ini
1380: 74 2c 20 4e 55 4c 4c 29 3b 0a 23 65 6e 64 69 66  t, NULL);.#endif
1390: 0a 23 69 66 64 65 66 20 4b 49 54 5f 49 4e 43 4c  .#ifdef KIT_INCL
13a0: 55 44 45 53 5f 50 57 42 0a 09 54 63 6c 5f 53 74  UDES_PWB..Tcl_St
13b0: 61 74 69 63 50 61 63 6b 61 67 65 28 30 2c 20 22  aticPackage(0, "
13c0: 70 77 62 22 2c 20 50 77 62 5f 49 6e 69 74 2c 20  pwb", Pwb_Init, 
13d0: 4e 55 4c 4c 29 3b 0a 23 65 6e 64 69 66 20 0a 09  NULL);.#endif ..
13e0: 54 63 6c 5f 53 74 61 74 69 63 50 61 63 6b 61 67  Tcl_StaticPackag
13f0: 65 28 30 2c 20 22 72 65 63 68 61 6e 22 2c 20 52  e(0, "rechan", R
1400: 65 63 68 61 6e 5f 49 6e 69 74 2c 20 4e 55 4c 4c  echan_Init, NULL
1410: 29 3b 0a 09 54 63 6c 5f 53 74 61 74 69 63 50 61  );..Tcl_StaticPa
1420: 63 6b 61 67 65 28 30 2c 20 22 76 66 73 22 2c 20  ckage(0, "vfs", 
1430: 56 66 73 5f 49 6e 69 74 2c 20 4e 55 4c 4c 29 3b  Vfs_Init, NULL);
1440: 0a 23 69 66 64 65 66 20 4b 49 54 5f 49 4e 43 4c  .#ifdef KIT_INCL
1450: 55 44 45 53 5f 5a 4c 49 42 0a 09 54 63 6c 5f 53  UDES_ZLIB..Tcl_S
1460: 74 61 74 69 63 50 61 63 6b 61 67 65 28 30 2c 20  taticPackage(0, 
1470: 22 7a 6c 69 62 22 2c 20 5a 6c 69 62 5f 49 6e 69  "zlib", Zlib_Ini
1480: 74 2c 20 4e 55 4c 4c 29 3b 0a 23 65 6e 64 69 66  t, NULL);.#endif
1490: 0a 23 69 66 64 65 66 20 54 43 4c 5f 54 48 52 45  .#ifdef TCL_THRE
14a0: 41 44 53 0a 09 54 63 6c 5f 53 74 61 74 69 63 50  ADS..Tcl_StaticP
14b0: 61 63 6b 61 67 65 28 30 2c 20 22 54 68 72 65 61  ackage(0, "Threa
14c0: 64 22 2c 20 54 68 72 65 61 64 5f 49 6e 69 74 2c  d", Thread_Init,
14d0: 20 4e 55 4c 4c 29 3b 0a 23 65 6e 64 69 66 0a 23   NULL);.#endif.#
14e0: 69 66 64 65 66 20 5f 57 49 4e 33 32 0a 09 54 63  ifdef _WIN32..Tc
14f0: 6c 5f 53 74 61 74 69 63 50 61 63 6b 61 67 65 28  l_StaticPackage(
1500: 30 2c 20 22 64 64 65 22 2c 20 44 64 65 5f 49 6e  0, "dde", Dde_In
1510: 69 74 2c 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f  it, NULL);..Tcl_
1520: 53 74 61 74 69 63 50 61 63 6b 61 67 65 28 30 2c  StaticPackage(0,
1530: 20 22 72 65 67 69 73 74 72 79 22 2c 20 52 65 67   "registry", Reg
1540: 69 73 74 72 79 5f 49 6e 69 74 2c 20 4e 55 4c 4c  istry_Init, NULL
1550: 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66  );.#endif.#ifdef
1560: 20 4b 49 54 5f 49 4e 43 4c 55 44 45 53 5f 54 4b   KIT_INCLUDES_TK
1570: 0a 09 54 63 6c 5f 53 74 61 74 69 63 50 61 63 6b  ..Tcl_StaticPack
1580: 61 67 65 28 30 2c 20 22 54 6b 22 2c 20 54 6b 5f  age(0, "Tk", Tk_
1590: 49 6e 69 74 2c 20 54 6b 5f 53 61 66 65 49 6e 69  Init, Tk_SafeIni
15a0: 74 29 3b 0a 23 65 6e 64 69 66 0a 0a 09 2f 2a 20  t);.#endif.../* 
15b0: 74 68 65 20 74 63 6c 5f 72 63 46 69 6c 65 4e 61  the tcl_rcFileNa
15c0: 6d 65 20 76 61 72 69 61 62 6c 65 20 6f 6e 6c 79  me variable only
15d0: 20 65 78 69 73 74 73 20 69 6e 20 74 68 65 20 69   exists in the i
15e0: 6e 69 74 69 61 6c 20 69 6e 74 65 72 70 72 65 74  nitial interpret
15f0: 65 72 20 2a 2f 0a 23 69 66 64 65 66 20 5f 57 49  er */.#ifdef _WI
1600: 4e 33 32 0a 09 54 63 6c 5f 53 65 74 56 61 72 28  N32..Tcl_SetVar(
1610: 69 6e 74 65 72 70 2c 20 22 74 63 6c 5f 72 63 46  interp, "tcl_rcF
1620: 69 6c 65 4e 61 6d 65 22 2c 20 22 7e 2f 74 63 6c  ileName", "~/tcl
1630: 6b 69 74 72 63 2e 74 63 6c 22 2c 20 54 43 4c 5f  kitrc.tcl", TCL_
1640: 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65  GLOBAL_ONLY);.#e
1650: 6c 73 65 0a 09 54 63 6c 5f 53 65 74 56 61 72 28  lse..Tcl_SetVar(
1660: 69 6e 74 65 72 70 2c 20 22 74 63 6c 5f 72 63 46  interp, "tcl_rcF
1670: 69 6c 65 4e 61 6d 65 22 2c 20 22 7e 2f 2e 74 63  ileName", "~/.tc
1680: 6c 6b 69 74 72 63 22 2c 20 54 43 4c 5f 47 4c 4f  lkitrc", TCL_GLO
1690: 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69  BAL_ONLY);.#endi
16a0: 66 0a 0a 23 69 66 64 65 66 20 54 43 4c 4b 49 54  f..#ifdef TCLKIT
16b0: 5f 43 41 4e 5f 53 45 54 5f 45 4e 43 4f 44 49 4e  _CAN_SET_ENCODIN
16c0: 47 0a 09 2f 2a 20 53 65 74 20 74 68 65 20 65 6e  G../* Set the en
16d0: 63 6f 64 69 6e 67 20 66 72 6f 6d 20 74 68 65 20  coding from the 
16e0: 45 6e 76 69 72 6f 6e 6d 65 6e 74 20 2a 2f 0a 09  Environment */..
16f0: 54 63 6c 5f 47 65 74 45 6e 63 6f 64 69 6e 67 4e  Tcl_GetEncodingN
1700: 61 6d 65 46 72 6f 6d 45 6e 76 69 72 6f 6e 6d 65  ameFromEnvironme
1710: 6e 74 28 26 65 6e 63 6f 64 69 6e 67 4e 61 6d 65  nt(&encodingName
1720: 29 3b 0a 09 54 63 6c 5f 53 65 74 53 79 73 74 65  );..Tcl_SetSyste
1730: 6d 45 6e 63 6f 64 69 6e 67 28 4e 55 4c 4c 2c 20  mEncoding(NULL, 
1740: 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 6c 75 65  Tcl_DStringValue
1750: 28 26 65 6e 63 6f 64 69 6e 67 4e 61 6d 65 29 29  (&encodingName))
1760: 3b 0a 09 54 63 6c 5f 53 65 74 56 61 72 28 69 6e  ;..Tcl_SetVar(in
1770: 74 65 72 70 2c 20 22 74 63 6c 6b 69 74 5f 73 79  terp, "tclkit_sy
1780: 73 74 65 6d 5f 65 6e 63 6f 64 69 6e 67 22 2c 20  stem_encoding", 
1790: 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 6c 75 65  Tcl_DStringValue
17a0: 28 26 65 6e 63 6f 64 69 6e 67 4e 61 6d 65 29 2c  (&encodingName),
17b0: 20 30 29 3b 0a 09 54 63 6c 5f 44 53 74 72 69 6e   0);..Tcl_DStrin
17c0: 67 46 72 65 65 28 26 65 6e 63 6f 64 69 6e 67 4e  gFree(&encodingN
17d0: 61 6d 65 29 3b 0a 23 65 6e 64 69 66 0a 0a 09 2f  ame);.#endif.../
17e0: 2a 20 48 61 63 6b 20 74 6f 20 67 65 74 20 61 72  * Hack to get ar
17f0: 6f 75 6e 64 20 54 63 6c 20 62 75 67 20 31 32 32  ound Tcl bug 122
1800: 34 38 38 38 2e 20 20 54 68 69 73 20 6d 75 73 74  4888.  This must
1810: 20 62 65 20 72 75 6e 20 68 65 72 65 20 61 6e 64   be run here and
1820: 0a 09 20 2a 20 69 6e 20 4c 69 62 72 61 72 79 50  .. * in LibraryP
1830: 61 74 68 4f 62 6a 43 6d 64 20 62 65 63 61 75 73  athObjCmd becaus
1840: 65 20 74 68 69 73 20 69 6e 66 6f 72 6d 61 74 69  e this informati
1850: 6f 6e 20 69 73 20 6e 65 65 64 65 64 20 62 6f 74  on is needed bot
1860: 68 0a 09 20 2a 20 62 65 66 6f 72 65 20 61 6e 64  h.. * before and
1870: 20 61 66 74 65 72 20 74 68 61 74 20 63 6f 6d 6d   after that comm
1880: 61 6e 64 20 69 73 20 72 75 6e 2e 20 2a 2f 0a 09  and is run. */..
1890: 53 65 74 45 78 65 63 4e 61 6d 65 28 69 6e 74 65  SetExecName(inte
18a0: 72 70 29 3b 0a 0a 09 54 63 6c 53 65 74 50 72 65  rp);...TclSetPre
18b0: 49 6e 69 74 53 63 72 69 70 74 28 70 72 65 49 6e  InitScript(preIn
18c0: 69 74 43 6d 64 29 3b 0a 09 69 66 20 28 54 63 6c  itCmd);..if (Tcl
18d0: 5f 49 6e 69 74 28 69 6e 74 65 72 70 29 20 3d 3d  _Init(interp) ==
18e0: 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 09   TCL_ERROR) {...
18f0: 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 09 7d 0a 0a  goto error;..}..
1900: 23 69 66 64 65 66 20 4b 49 54 5f 49 4e 43 4c 55  #ifdef KIT_INCLU
1910: 44 45 53 5f 54 4b 0a 23 20 20 69 66 64 65 66 20  DES_TK.#  ifdef 
1920: 5f 57 49 4e 33 32 0a 09 69 66 20 28 54 6b 5f 49  _WIN32..if (Tk_I
1930: 6e 69 74 28 69 6e 74 65 72 70 29 20 3d 3d 20 54  nit(interp) == T
1940: 43 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 09 67 6f  CL_ERROR) {...go
1950: 74 6f 20 65 72 72 6f 72 3b 0a 09 7d 0a 09 69 66  to error;..}..if
1960: 20 28 54 6b 5f 43 72 65 61 74 65 43 6f 6e 73 6f   (Tk_CreateConso
1970: 6c 65 57 69 6e 64 6f 77 28 69 6e 74 65 72 70 29  leWindow(interp)
1980: 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b   == TCL_ERROR) {
1990: 0a 09 09 67 6f 74 6f 20 65 72 72 6f 72 3b 0a 09  ...goto error;..
19a0: 7d 0a 23 20 20 65 6e 64 69 66 20 2f 2a 20 5f 57  }.#  endif /* _W
19b0: 49 4e 33 32 20 2a 2f 0a 23 65 6e 64 69 66 20 2f  IN32 */.#endif /
19c0: 2a 20 4b 49 54 5f 49 4e 43 4c 55 44 45 53 5f 54  * KIT_INCLUDES_T
19d0: 4b 20 2a 2f 0a 0a 09 2f 2a 20 6d 65 73 73 79 20  K */.../* messy 
19e0: 62 65 63 61 75 73 65 20 54 63 6c 53 65 74 53 74  because TclSetSt
19f0: 61 72 74 75 70 53 63 72 69 70 74 50 61 74 68 20  artupScriptPath 
1a00: 69 73 20 63 61 6c 6c 65 64 20 73 6c 69 67 68 74  is called slight
1a10: 6c 79 20 74 6f 6f 20 6c 61 74 65 20 2a 2f 0a 09  ly too late */..
1a20: 69 66 20 28 54 63 6c 5f 45 76 61 6c 28 69 6e 74  if (Tcl_Eval(int
1a30: 65 72 70 2c 20 69 6e 69 74 53 63 72 69 70 74 29  erp, initScript)
1a40: 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09   == TCL_OK) {...
1a50: 54 63 6c 5f 4f 62 6a 2a 20 70 61 74 68 3b 0a 23  Tcl_Obj* path;.#
1a60: 69 66 64 65 66 20 48 41 56 45 5f 54 43 4c 53 45  ifdef HAVE_TCLSE
1a70: 54 53 54 41 52 54 55 50 53 43 52 49 50 54 50 41  TSTARTUPSCRIPTPA
1a80: 54 48 0a 09 09 70 61 74 68 20 3d 20 54 63 6c 47  TH...path = TclG
1a90: 65 74 53 74 61 72 74 75 70 53 63 72 69 70 74 50  etStartupScriptP
1aa0: 61 74 68 28 29 3b 0a 09 09 54 63 6c 53 65 74 53  ath();...TclSetS
1ab0: 74 61 72 74 75 70 53 63 72 69 70 74 50 61 74 68  tartupScriptPath
1ac0: 28 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c  (Tcl_GetObjResul
1ad0: 74 28 69 6e 74 65 72 70 29 29 3b 0a 23 65 6c 69  t(interp));.#eli
1ae0: 66 20 64 65 66 69 6e 65 64 28 48 41 56 45 5f 54  f defined(HAVE_T
1af0: 43 4c 5f 53 45 54 53 54 41 52 54 55 50 53 43 52  CL_SETSTARTUPSCR
1b00: 49 50 54 29 0a 09 09 70 61 74 68 20 3d 20 54 63  IPT)...path = Tc
1b10: 6c 5f 47 65 74 53 74 61 72 74 75 70 53 63 72 69  l_GetStartupScri
1b20: 70 74 28 4e 55 4c 4c 29 3b 0a 09 09 54 63 6c 5f  pt(NULL);...Tcl_
1b30: 53 65 74 53 74 61 72 74 75 70 53 63 72 69 70 74  SetStartupScript
1b40: 28 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c  (Tcl_GetObjResul
1b50: 74 28 69 6e 74 65 72 70 29 2c 20 4e 55 4c 4c 29  t(interp), NULL)
1b60: 3b 0a 23 65 6e 64 69 66 0a 09 09 69 66 20 28 70  ;.#endif...if (p
1b70: 61 74 68 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09  ath == NULL) {..
1b80: 09 09 54 63 6c 5f 45 76 61 6c 28 69 6e 74 65 72  ..Tcl_Eval(inter
1b90: 70 2c 20 22 69 6e 63 72 20 61 72 67 63 20 2d 31  p, "incr argc -1
1ba0: 3b 20 73 65 74 20 61 72 67 76 20 5b 6c 72 61 6e  ; set argv [lran
1bb0: 67 65 20 24 61 72 67 76 20 31 20 65 6e 64 5d 22  ge $argv 1 end]"
1bc0: 29 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 54 63 6c 5f  );...}..}...Tcl_
1bd0: 53 65 74 56 61 72 28 69 6e 74 65 72 70 2c 20 22  SetVar(interp, "
1be0: 65 72 72 6f 72 49 6e 66 6f 22 2c 20 22 22 2c 20  errorInfo", "", 
1bf0: 54 43 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29  TCL_GLOBAL_ONLY)
1c00: 3b 0a 09 54 63 6c 5f 52 65 73 65 74 52 65 73 75  ;..Tcl_ResetResu
1c10: 6c 74 28 69 6e 74 65 72 70 29 3b 0a 0a 09 72 65  lt(interp);...re
1c20: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 0a 65 72  turn TCL_OK;..er
1c30: 72 6f 72 3a 0a 23 69 66 64 65 66 20 4b 49 54 5f  ror:.#ifdef KIT_
1c40: 49 4e 43 4c 55 44 45 53 5f 54 4b 0a 23 20 20 69  INCLUDES_TK.#  i
1c50: 66 64 65 66 20 5f 57 49 4e 33 32 0a 09 4d 65 73  fdef _WIN32..Mes
1c60: 73 61 67 65 42 65 65 70 28 4d 42 5f 49 43 4f 4e  sageBeep(MB_ICON
1c70: 45 58 43 4c 41 4d 41 54 49 4f 4e 29 3b 0a 23 20  EXCLAMATION);.# 
1c80: 20 20 20 69 66 6e 64 65 66 20 5f 57 49 4e 33 32     ifndef _WIN32
1c90: 5f 57 43 45 0a 09 4d 65 73 73 61 67 65 42 6f 78  _WCE..MessageBox
1ca0: 28 4e 55 4c 4c 2c 20 54 63 6c 5f 47 65 74 53 74  (NULL, Tcl_GetSt
1cb0: 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72  ringResult(inter
1cc0: 70 29 2c 20 22 45 72 72 6f 72 20 69 6e 20 54 63  p), "Error in Tc
1cd0: 6c 4b 69 74 22 2c 0a 09 20 20 20 20 20 20 20 20  lKit",..        
1ce0: 20 20 20 4d 42 5f 49 43 4f 4e 53 54 4f 50 20 7c     MB_ICONSTOP |
1cf0: 20 4d 42 5f 4f 4b 20 7c 20 4d 42 5f 54 41 53 4b   MB_OK | MB_TASK
1d00: 4d 4f 44 41 4c 20 7c 20 4d 42 5f 53 45 54 46 4f  MODAL | MB_SETFO
1d10: 52 45 47 52 4f 55 4e 44 29 3b 0a 0a 09 45 78 69  REGROUND);...Exi
1d20: 74 50 72 6f 63 65 73 73 28 31 29 3b 0a 23 20 20  tProcess(1);.#  
1d30: 20 20 65 6e 64 69 66 20 2f 2a 20 21 5f 57 49 4e    endif /* !_WIN
1d40: 33 32 5f 57 43 45 20 2a 2f 0a 20 20 20 20 2f 2a  32_WCE */.    /*
1d50: 20 77 65 20 77 6f 6e 27 74 20 72 65 61 63 68 20   we won't reach 
1d60: 74 68 69 73 2c 20 62 75 74 20 77 65 20 6e 65 65  this, but we nee
1d70: 64 20 74 68 65 20 72 65 74 75 72 6e 20 2a 2f 0a  d the return */.
1d80: 23 20 20 65 6e 64 69 66 20 2f 2a 20 5f 57 49 4e  #  endif /* _WIN
1d90: 33 32 20 2a 2f 0a 23 65 6e 64 69 66 20 2f 2a 20  32 */.#endif /* 
1da0: 4b 49 54 5f 49 4e 43 4c 55 44 45 53 5f 54 4b 20  KIT_INCLUDES_TK 
1db0: 2a 2f 0a 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f  */...return TCL_
1dc0: 45 52 52 4f 52 3b 0a 7d 0a                       ERROR;.}.