Hex Artifact Content

Artifact 534a43d0fd986e22a4cce8c3cd49ea00fbc6ec61:


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 64 65 66 20 48 41 56 45 5f 55 4e 49  .#ifdef HAVE_UNI
0370: 53 54 44 5f 48 0a 23 20 20 69 6e 63 6c 75 64 65  STD_H.#  include
0380: 20 3c 75 6e 69 73 74 64 2e 68 3e 0a 23 65 6e 64   <unistd.h>.#end
0390: 69 66 0a 0a 2f 2a 20 46 6f 72 20 64 6c 61 64 64  if../* For dladd
03a0: 72 28 29 20 61 6e 64 20 44 6c 5f 69 6e 66 6f 20  r() and Dl_info 
03b0: 2a 2f 0a 23 69 66 64 65 66 20 48 41 56 45 5f 44  */.#ifdef HAVE_D
03c0: 4c 46 43 4e 5f 48 0a 23 20 20 69 6e 63 6c 75 64  LFCN_H.#  includ
03d0: 65 20 3c 64 6c 66 63 6e 2e 68 3e 0a 23 65 6e 64  e <dlfcn.h>.#end
03e0: 69 66 0a 0a 23 69 66 20 64 65 66 69 6e 65 64 28  if..#if defined(
03f0: 48 41 56 45 5f 54 43 4c 5f 47 45 54 45 4e 43 4f  HAVE_TCL_GETENCO
0400: 44 49 4e 47 4e 41 4d 45 46 52 4f 4d 45 4e 56 49  DINGNAMEFROMENVI
0410: 52 4f 4e 4d 45 4e 54 29 20 26 26 20 64 65 66 69  RONMENT) && defi
0420: 6e 65 64 28 48 41 56 45 5f 54 43 4c 5f 53 45 54  ned(HAVE_TCL_SET
0430: 53 59 53 54 45 4d 45 4e 43 4f 44 49 4e 47 29 0a  SYSTEMENCODING).
0440: 23 20 20 64 65 66 69 6e 65 20 54 43 4c 4b 49 54  #  define TCLKIT
0450: 5f 43 41 4e 5f 53 45 54 5f 45 4e 43 4f 44 49 4e  _CAN_SET_ENCODIN
0460: 47 20 31 0a 23 65 6e 64 69 66 0a 23 69 66 20 31  G 1.#endif.#if 1
0470: 30 20 2a 20 54 43 4c 5f 4d 41 4a 4f 52 5f 56 45  0 * TCL_MAJOR_VE
0480: 52 53 49 4f 4e 20 2b 20 54 43 4c 5f 4d 49 4e 4f  RSION + TCL_MINO
0490: 52 5f 56 45 52 53 49 4f 4e 20 3c 20 38 35 0a 23  R_VERSION < 85.#
04a0: 20 20 64 65 66 69 6e 65 20 54 43 4c 4b 49 54 5f    define TCLKIT_
04b0: 52 45 51 55 49 52 45 5f 54 43 4c 45 58 45 43 55  REQUIRE_TCLEXECU
04c0: 54 41 42 4c 45 4e 41 4d 45 20 31 0a 23 65 6e 64  TABLENAME 1.#end
04d0: 69 66 0a 0a 23 69 66 20 31 30 20 2a 20 54 43 4c  if..#if 10 * TCL
04e0: 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f 4e 20 2b  _MAJOR_VERSION +
04f0: 20 54 43 4c 5f 4d 49 4e 4f 52 5f 56 45 52 53 49   TCL_MINOR_VERSI
0500: 4f 4e 20 3c 20 38 35 0a 23 20 20 64 65 66 69 6e  ON < 85.#  defin
0510: 65 20 4b 49 54 5f 49 4e 43 4c 55 44 45 53 5f 50  e KIT_INCLUDES_P
0520: 57 42 20 31 0a 23 65 6e 64 69 66 0a 23 69 66 20  WB 1.#endif.#if 
0530: 31 30 20 2a 20 54 43 4c 5f 4d 41 4a 4f 52 5f 56  10 * TCL_MAJOR_V
0540: 45 52 53 49 4f 4e 20 2b 20 54 43 4c 5f 4d 49 4e  ERSION + TCL_MIN
0550: 4f 52 5f 56 45 52 53 49 4f 4e 20 3c 20 38 36 0a  OR_VERSION < 86.
0560: 23 20 20 64 65 66 69 6e 65 20 4b 49 54 5f 49 4e  #  define KIT_IN
0570: 43 4c 55 44 45 53 5f 5a 4c 49 42 20 31 0a 23 65  CLUDES_ZLIB 1.#e
0580: 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 4b 49 54  ndif..#ifdef KIT
0590: 5f 49 4e 43 4c 55 44 45 53 5f 49 54 43 4c 0a 54  _INCLUDES_ITCL.T
05a0: 63 6c 5f 41 70 70 49 6e 69 74 50 72 6f 63 09 49  cl_AppInitProc.I
05b0: 74 63 6c 5f 49 6e 69 74 3b 0a 23 65 6e 64 69 66  tcl_Init;.#endif
05c0: 0a 23 69 66 64 65 66 20 4b 49 54 5f 49 4e 43 4c  .#ifdef KIT_INCL
05d0: 55 44 45 53 5f 4d 4b 34 54 43 4c 0a 54 63 6c 5f  UDES_MK4TCL.Tcl_
05e0: 41 70 70 49 6e 69 74 50 72 6f 63 09 4d 6b 34 74  AppInitProc.Mk4t
05f0: 63 6c 5f 49 6e 69 74 3b 0a 23 65 6e 64 69 66 0a  cl_Init;.#endif.
0600: 54 63 6c 5f 41 70 70 49 6e 69 74 50 72 6f 63 20  Tcl_AppInitProc 
0610: 56 66 73 5f 49 6e 69 74 2c 20 52 65 63 68 61 6e  Vfs_Init, Rechan
0620: 5f 49 6e 69 74 3b 0a 23 69 66 64 65 66 20 4b 49  _Init;.#ifdef KI
0630: 54 5f 49 4e 43 4c 55 44 45 53 5f 50 57 42 0a 54  T_INCLUDES_PWB.T
0640: 63 6c 5f 41 70 70 49 6e 69 74 50 72 6f 63 09 50  cl_AppInitProc.P
0650: 77 62 5f 49 6e 69 74 3b 0a 23 65 6e 64 69 66 0a  wb_Init;.#endif.
0660: 23 69 66 64 65 66 20 4b 49 54 5f 49 4e 43 4c 55  #ifdef KIT_INCLU
0670: 44 45 53 5f 5a 4c 49 42 0a 54 63 6c 5f 41 70 70  DES_ZLIB.Tcl_App
0680: 49 6e 69 74 50 72 6f 63 20 5a 6c 69 62 5f 49 6e  InitProc Zlib_In
0690: 69 74 3b 0a 23 65 6e 64 69 66 0a 23 69 66 64 65  it;.#endif.#ifde
06a0: 66 20 54 43 4c 5f 54 48 52 45 41 44 53 0a 54 63  f TCL_THREADS.Tc
06b0: 6c 5f 41 70 70 49 6e 69 74 50 72 6f 63 09 54 68  l_AppInitProc.Th
06c0: 72 65 61 64 5f 49 6e 69 74 3b 0a 23 65 6e 64 69  read_Init;.#endi
06d0: 66 0a 23 69 66 64 65 66 20 5f 57 49 4e 33 32 0a  f.#ifdef _WIN32.
06e0: 54 63 6c 5f 41 70 70 49 6e 69 74 50 72 6f 63 09  Tcl_AppInitProc.
06f0: 44 64 65 5f 49 6e 69 74 2c 20 52 65 67 69 73 74  Dde_Init, Regist
0700: 72 79 5f 49 6e 69 74 3b 0a 23 65 6e 64 69 66 0a  ry_Init;.#endif.
0710: 0a 2f 2a 20 44 65 74 65 72 6d 69 6e 65 20 77 68  ./* Determine wh
0720: 69 63 68 20 74 79 70 65 20 6f 66 20 73 74 6f 72  ich type of stor
0730: 61 67 65 20 74 6f 20 75 73 65 20 2d 2d 20 4d 4b  age to use -- MK
0740: 34 20 6f 72 20 5a 49 50 20 2a 2f 0a 23 69 66 20  4 or ZIP */.#if 
0750: 64 65 66 69 6e 65 64 28 4b 49 54 5f 53 54 4f 52  defined(KIT_STOR
0760: 41 47 45 5f 4d 4b 34 29 20 26 26 20 64 65 66 69  AGE_MK4) && defi
0770: 6e 65 64 28 4b 49 54 5f 53 54 4f 52 41 47 45 5f  ned(KIT_STORAGE_
0780: 5a 49 50 29 0a 23 20 20 75 6e 64 65 66 20 4b 49  ZIP).#  undef KI
0790: 54 5f 53 54 4f 52 41 47 45 5f 5a 49 50 0a 23 65  T_STORAGE_ZIP.#e
07a0: 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65  ndif.#if !define
07b0: 64 28 4b 49 54 5f 53 54 4f 52 41 47 45 5f 4d 4b  d(KIT_STORAGE_MK
07c0: 34 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4b  4) && !defined(K
07d0: 49 54 5f 53 54 4f 52 41 47 45 5f 5a 49 50 29 0a  IT_STORAGE_ZIP).
07e0: 23 20 20 69 66 64 65 66 20 4b 49 54 5f 49 4e 43  #  ifdef KIT_INC
07f0: 4c 55 44 45 53 5f 4d 4b 34 54 43 4c 0a 23 20 20  LUDES_MK4TCL.#  
0800: 20 20 64 65 66 69 6e 65 20 4b 49 54 5f 53 54 4f    define KIT_STO
0810: 52 41 47 45 5f 4d 4b 34 20 31 0a 23 20 20 65 6c  RAGE_MK4 1.#  el
0820: 73 65 0a 23 20 20 20 20 64 65 66 69 6e 65 20 4b  se.#    define K
0830: 49 54 5f 53 54 4f 52 41 47 45 5f 5a 49 50 20 31  IT_STORAGE_ZIP 1
0840: 0a 23 20 20 65 6e 64 69 66 0a 23 65 6e 64 69 66  .#  endif.#endif
0850: 0a 0a 23 69 66 64 65 66 20 54 43 4c 4b 49 54 5f  ..#ifdef TCLKIT_
0860: 52 45 51 55 49 52 45 5f 54 43 4c 45 58 45 43 55  REQUIRE_TCLEXECU
0870: 54 41 42 4c 45 4e 41 4d 45 0a 63 68 61 72 20 2a  TABLENAME.char *
0880: 74 63 6c 45 78 65 63 75 74 61 62 6c 65 4e 61 6d  tclExecutableNam
0890: 65 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 2f  e;.#endif..    /
08a0: 2a 0a 20 20 20 20 20 2a 20 20 41 74 74 65 6d 70  *.     *  Attemp
08b0: 74 20 74 6f 20 6c 6f 61 64 20 61 20 22 62 6f 6f  t to load a "boo
08c0: 74 2e 74 63 6c 22 20 65 6e 74 72 79 20 66 72 6f  t.tcl" entry fro
08d0: 6d 20 74 68 65 20 65 6d 62 65 64 64 65 64 20 4d  m the embedded M
08e0: 65 74 61 4b 69 74 20 66 69 6c 65 2e 0a 20 20 20  etaKit file..   
08f0: 20 20 2a 20 20 49 66 20 74 68 65 72 65 20 69 73    *  If there is
0900: 6e 27 74 20 6f 6e 65 2c 20 74 72 79 20 74 6f 20  n't one, try to 
0910: 6f 70 65 6e 20 61 20 72 65 67 75 6c 61 72 20 22  open a regular "
0920: 73 65 74 75 70 2e 74 63 6c 22 20 66 69 6c 65 20  setup.tcl" file 
0930: 69 6e 73 74 65 61 64 2e 0a 20 20 20 20 20 2a 20  instead..     * 
0940: 20 49 66 20 74 68 61 74 20 66 61 69 6c 73 2c 20   If that fails, 
0950: 74 68 69 73 20 63 6f 64 65 20 77 69 6c 6c 20 74  this code will t
0960: 68 72 6f 77 20 61 6e 20 65 72 72 6f 72 2c 20 75  hrow an error, u
0970: 73 69 6e 67 20 61 20 6d 65 73 73 61 67 65 20 62  sing a message b
0980: 6f 78 2e 0a 20 20 20 20 20 2a 2f 0a 0a 73 74 61  ox..     */..sta
0990: 74 69 63 20 63 68 61 72 20 2a 70 72 65 49 6e 69  tic char *preIni
09a0: 74 43 6d 64 20 3d 20 0a 23 69 66 64 65 66 20 5f  tCmd = .#ifdef _
09b0: 57 49 4e 33 32 5f 57 43 45 0a 2f 2a 20 73 69 6c  WIN32_WCE./* sil
09c0: 6c 79 20 68 61 63 6b 20 74 6f 20 67 65 74 20 77  ly hack to get w
09d0: 69 6e 63 65 20 70 6f 72 74 20 74 6f 20 6c 61 75  ince port to lau
09e0: 6e 63 68 2c 20 73 6f 6d 65 20 73 6f 72 74 20 6f  nch, some sort o
09f0: 66 20 73 74 64 7b 69 6e 2c 6f 75 74 2c 65 72 72  f std{in,out,err
0a00: 7d 20 70 72 6f 62 6c 65 6d 20 2a 2f 0a 22 6f 70  } problem */."op
0a10: 65 6e 20 2f 6b 69 74 6f 75 74 2e 74 78 74 20 61  en /kitout.txt a
0a20: 3b 20 6f 70 65 6e 20 2f 6b 69 74 6f 75 74 2e 74  ; open /kitout.t
0a30: 78 74 20 61 3b 20 6f 70 65 6e 20 2f 6b 69 74 6f  xt a; open /kito
0a40: 75 74 2e 74 78 74 20 61 5c 6e 22 0a 2f 2a 20 74  ut.txt a\n"./* t
0a50: 68 69 73 20 74 6f 6f 20 73 65 65 6d 73 20 74 6f  his too seems to
0a60: 20 62 65 20 6e 65 65 64 65 64 20 6f 6e 20 77 69   be needed on wi
0a70: 6e 63 65 20 2d 20 69 74 20 61 70 70 65 61 72 73  nce - it appears
0a80: 20 74 6f 20 62 65 20 72 65 6c 61 74 65 64 20 74   to be related t
0a90: 6f 20 74 68 65 20 61 62 6f 76 65 20 2a 2f 0a 22  o the above */."
0aa0: 63 61 74 63 68 20 7b 72 65 6e 61 6d 65 20 73 6f  catch {rename so
0ab0: 75 72 63 65 20 3a 3a 74 63 6c 3a 3a 73 6f 75 72  urce ::tcl::sour
0ac0: 63 65 7d 5c 6e 22 0a 22 70 72 6f 63 20 73 6f 75  ce}\n"."proc sou
0ad0: 72 63 65 20 66 69 6c 65 20 7b 5c 6e 22 0a 09 22  rce file {\n".."
0ae0: 73 65 74 20 6f 6c 64 20 5b 69 6e 66 6f 20 73 63  set old [info sc
0af0: 72 69 70 74 5d 5c 6e 22 0a 09 22 69 6e 66 6f 20  ript]\n".."info 
0b00: 73 63 72 69 70 74 20 24 66 69 6c 65 5c 6e 22 0a  script $file\n".
0b10: 09 22 73 65 74 20 66 69 64 20 5b 6f 70 65 6e 20  ."set fid [open 
0b20: 24 66 69 6c 65 5d 5c 6e 22 0a 09 22 73 65 74 20  $file]\n".."set 
0b30: 64 61 74 61 20 5b 72 65 61 64 20 24 66 69 64 5d  data [read $fid]
0b40: 5c 6e 22 0a 09 22 63 6c 6f 73 65 20 24 66 69 64  \n".."close $fid
0b50: 5c 6e 22 0a 09 22 73 65 74 20 63 6f 64 65 20 5b  \n".."set code [
0b60: 63 61 74 63 68 20 7b 75 70 6c 65 76 65 6c 20 31  catch {uplevel 1
0b70: 20 24 64 61 74 61 7d 20 72 65 73 5d 5c 6e 22 0a   $data} res]\n".
0b80: 09 22 69 6e 66 6f 20 73 63 72 69 70 74 20 24 6f  ."info script $o
0b90: 6c 64 5c 6e 22 0a 09 22 69 66 20 7b 24 63 6f 64  ld\n".."if {$cod
0ba0: 65 20 3d 3d 20 32 7d 20 7b 20 73 65 74 20 63 6f  e == 2} { set co
0bb0: 64 65 20 30 20 7d 5c 6e 22 0a 09 22 72 65 74 75  de 0 }\n".."retu
0bc0: 72 6e 20 2d 63 6f 64 65 20 24 63 6f 64 65 20 24  rn -code $code $
0bd0: 72 65 73 5c 6e 22 0a 22 7d 5c 6e 22 0a 23 65 6e  res\n"."}\n".#en
0be0: 64 69 66 20 2f 2a 20 5f 57 49 4e 33 32 5f 57 43  dif /* _WIN32_WC
0bf0: 45 20 2a 2f 0a 22 70 72 6f 63 20 74 63 6c 4b 69  E */."proc tclKi
0c00: 74 49 6e 69 74 20 7b 7d 20 7b 5c 6e 22 0a 09 22  tInit {} {\n".."
0c10: 72 65 6e 61 6d 65 20 74 63 6c 4b 69 74 49 6e 69  rename tclKitIni
0c20: 74 20 7b 7d 5c 6e 22 0a 23 69 66 64 65 66 20 4b  t {}\n".#ifdef K
0c30: 49 54 5f 49 4e 43 4c 55 44 45 53 5f 4d 4b 34 54  IT_INCLUDES_MK4T
0c40: 43 4c 0a 09 22 63 61 74 63 68 20 7b 20 6c 6f 61  CL.."catch { loa
0c50: 64 20 7b 7d 20 4d 6b 34 74 63 6c 20 7d 5c 6e 22  d {} Mk4tcl }\n"
0c60: 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 4b  .#endif.#ifdef K
0c70: 49 54 5f 53 54 4f 52 41 47 45 5f 4d 4b 34 0a 09  IT_STORAGE_MK4..
0c80: 22 73 65 74 20 3a 3a 74 63 6c 4b 69 74 53 74 6f  "set ::tclKitSto
0c90: 72 61 67 65 20 5c 22 6d 6b 34 5c 22 5c 6e 22 0a  rage \"mk4\"\n".
0ca0: 09 22 6d 6b 3a 3a 66 69 6c 65 20 6f 70 65 6e 20  ."mk::file open 
0cb0: 65 78 65 20 5b 69 6e 66 6f 20 6e 61 6d 65 6f 66  exe [info nameof
0cc0: 65 78 65 63 75 74 61 62 6c 65 5d 20 2d 72 65 61  executable] -rea
0cd0: 64 6f 6e 6c 79 5c 6e 22 0a 09 22 73 65 74 20 6e  donly\n".."set n
0ce0: 20 5b 6d 6b 3a 3a 73 65 6c 65 63 74 20 65 78 65   [mk::select exe
0cf0: 2e 64 69 72 73 21 30 2e 66 69 6c 65 73 20 6e 61  .dirs!0.files na
0d00: 6d 65 20 62 6f 6f 74 2e 74 63 6c 5d 5c 6e 22 0a  me boot.tcl]\n".
0d10: 09 22 69 66 20 7b 24 6e 20 21 3d 20 5c 22 5c 22  ."if {$n != \"\"
0d20: 7d 20 7b 5c 6e 22 0a 09 09 22 73 65 74 20 73 20  } {\n"..."set s 
0d30: 5b 6d 6b 3a 3a 67 65 74 20 65 78 65 2e 64 69 72  [mk::get exe.dir
0d40: 73 21 30 2e 66 69 6c 65 73 21 24 6e 20 63 6f 6e  s!0.files!$n con
0d50: 74 65 6e 74 73 5d 5c 6e 22 0a 09 09 22 69 66 20  tents]\n"..."if 
0d60: 7b 21 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68  {![string length
0d70: 20 24 73 5d 7d 20 7b 20 65 72 72 6f 72 20 5c 22   $s]} { error \"
0d80: 65 6d 70 74 79 20 62 6f 6f 74 2e 74 63 6c 5c 22  empty boot.tcl\"
0d90: 20 7d 5c 6e 22 0a 09 09 22 63 61 74 63 68 20 7b   }\n"..."catch {
0da0: 6c 6f 61 64 20 7b 7d 20 7a 6c 69 62 7d 5c 6e 22  load {} zlib}\n"
0db0: 0a 09 09 22 69 66 20 7b 5b 6d 6b 3a 3a 67 65 74  ..."if {[mk::get
0dc0: 20 65 78 65 2e 64 69 72 73 21 30 2e 66 69 6c 65   exe.dirs!0.file
0dd0: 73 21 24 6e 20 73 69 7a 65 5d 20 21 3d 20 5b 73  s!$n size] != [s
0de0: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 73 5d  tring length $s]
0df0: 7d 20 7b 5c 6e 22 0a 09 09 09 22 73 65 74 20 73  } {\n"...."set s
0e00: 20 5b 7a 6c 69 62 20 64 65 63 6f 6d 70 72 65 73   [zlib decompres
0e10: 73 20 24 73 5d 5c 6e 22 0a 09 09 22 7d 5c 6e 22  s $s]\n"..."}\n"
0e20: 0a 09 22 7d 5c 6e 22 0a 23 65 6e 64 69 66 20 2f  .."}\n".#endif /
0e30: 2a 20 4b 49 54 5f 53 54 4f 52 41 47 45 5f 4d 4b  * KIT_STORAGE_MK
0e40: 34 20 2a 2f 0a 23 69 66 64 65 66 20 4b 49 54 5f  4 */.#ifdef KIT_
0e50: 53 54 4f 52 41 47 45 5f 5a 49 50 0a 09 22 73 65  STORAGE_ZIP.."se
0e60: 74 20 3a 3a 74 63 6c 4b 69 74 53 74 6f 72 61 67  t ::tclKitStorag
0e70: 65 20 5c 22 7a 69 70 5c 22 5c 6e 22 0a 09 22 63  e \"zip\"\n".."c
0e80: 61 74 63 68 20 7b 20 6c 6f 61 64 20 7b 7d 20 76  atch { load {} v
0e90: 66 73 20 7d 5c 6e 22 0a 09 22 69 66 20 7b 21 5b  fs }\n".."if {![
0ea0: 69 6e 66 6f 20 65 78 69 73 74 73 20 73 5d 7d 20  info exists s]} 
0eb0: 7b 5c 6e 22 0a 09 09 22 63 61 74 63 68 20 7b 5c  {\n"..."catch {\
0ec0: 6e 22 0a 09 09 09 22 73 65 74 20 62 6f 6f 74 66  n"...."set bootf
0ed0: 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b  ile [file join [
0ee0: 69 6e 66 6f 20 6e 61 6d 65 6f 66 65 78 65 63 75  info nameofexecu
0ef0: 74 61 62 6c 65 5d 20 62 6f 6f 74 2e 74 63 6c 5d  table] boot.tcl]
0f00: 5c 6e 22 0a 09 09 09 22 69 66 20 7b 5b 66 69 6c  \n"...."if {[fil
0f10: 65 20 65 78 69 73 74 73 20 24 62 6f 6f 74 66 69  e exists $bootfi
0f20: 6c 65 5d 7d 20 7b 5c 6e 22 0a 09 09 09 09 22 73  le]} {\n"....."s
0f30: 65 74 20 66 20 5b 6f 70 65 6e 20 24 62 6f 6f 74  et f [open $boot
0f40: 66 69 6c 65 5d 5c 6e 22 0a 09 09 09 09 22 73 65  file]\n"....."se
0f50: 74 20 73 20 5b 72 65 61 64 20 24 66 5d 5c 6e 22  t s [read $f]\n"
0f60: 0a 09 09 09 09 22 63 6c 6f 73 65 20 24 66 5c 6e  ....."close $f\n
0f70: 22 0a 09 09 09 22 7d 5c 6e 22 0a 09 09 22 7d 5c  "...."}\n"..."}\
0f80: 6e 22 0a 09 22 7d 5c 6e 22 0a 09 22 69 66 20 7b  n".."}\n".."if {
0f90: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 73 5d  ![info exists s]
0fa0: 7d 20 7b 5c 6e 22 0a 23 20 20 69 6e 63 6c 75 64  } {\n".#  includ
0fb0: 65 20 22 7a 69 70 76 66 73 2e 74 63 6c 2e 68 22  e "zipvfs.tcl.h"
0fc0: 0a 09 09 22 63 61 74 63 68 20 7b 5c 6e 22 0a 09  ..."catch {\n"..
0fd0: 09 09 22 73 65 74 20 3a 3a 74 63 6c 4b 69 74 53  .."set ::tclKitS
0fe0: 74 6f 72 61 67 65 5f 66 64 20 5b 3a 3a 7a 69 70  torage_fd [::zip
0ff0: 3a 3a 6f 70 65 6e 20 5b 69 6e 66 6f 20 6e 61 6d  ::open [info nam
1000: 65 6f 66 65 78 65 63 75 74 61 62 6c 65 5d 5d 5c  eofexecutable]]\
1010: 6e 22 0a 09 09 09 22 3a 3a 7a 69 70 3a 3a 73 74  n"...."::zip::st
1020: 61 74 20 24 3a 3a 74 63 6c 4b 69 74 53 74 6f 72  at $::tclKitStor
1030: 61 67 65 5f 66 64 20 62 6f 6f 74 2e 74 63 6c 20  age_fd boot.tcl 
1040: 73 62 5c 6e 22 0a 09 09 09 22 73 65 65 6b 20 24  sb\n"...."seek $
1050: 3a 3a 74 63 6c 4b 69 74 53 74 6f 72 61 67 65 5f  ::tclKitStorage_
1060: 66 64 20 24 73 62 28 69 6e 6f 29 5c 6e 22 0a 09  fd $sb(ino)\n"..
1070: 09 09 22 7a 69 70 3a 3a 44 61 74 61 20 24 3a 3a  .."zip::Data $::
1080: 74 63 6c 4b 69 74 53 74 6f 72 61 67 65 5f 66 64  tclKitStorage_fd
1090: 20 73 62 20 73 5c 6e 22 0a 09 09 22 7d 5c 6e 22   sb s\n"..."}\n"
10a0: 0a 09 22 7d 5c 6e 22 0a 23 65 6e 64 69 66 20 2f  .."}\n".#endif /
10b0: 2a 20 4b 49 54 5f 53 54 4f 52 41 47 45 5f 5a 49  * KIT_STORAGE_ZI
10c0: 50 20 2a 2f 0a 09 22 69 66 20 7b 21 5b 69 6e 66  P */.."if {![inf
10d0: 6f 20 65 78 69 73 74 73 20 73 5d 7d 20 7b 5c 6e  o exists s]} {\n
10e0: 22 0a 09 09 22 73 65 74 20 66 20 5b 6f 70 65 6e  "..."set f [open
10f0: 20 73 65 74 75 70 2e 74 63 6c 5d 5c 6e 22 0a 09   setup.tcl]\n"..
1100: 09 22 73 65 74 20 73 20 5b 72 65 61 64 20 24 66  ."set s [read $f
1110: 5d 5c 6e 22 0a 09 09 22 63 6c 6f 73 65 20 24 66  ]\n"..."close $f
1120: 5c 6e 22 0a 09 22 7d 5c 6e 22 0a 09 22 75 70 6c  \n".."}\n".."upl
1130: 65 76 65 6c 20 23 30 20 24 73 5c 6e 22 0a 23 69  evel #0 $s\n".#i
1140: 66 20 64 65 66 69 6e 65 64 28 4b 49 54 5f 49 4e  f defined(KIT_IN
1150: 43 4c 55 44 45 53 5f 54 4b 29 20 26 26 20 64 65  CLUDES_TK) && de
1160: 66 69 6e 65 64 28 4b 49 54 5f 54 4b 5f 56 45 52  fined(KIT_TK_VER
1170: 53 49 4f 4e 29 0a 23 20 20 69 66 6e 64 65 66 20  SION).#  ifndef 
1180: 5f 57 49 4e 33 32 0a 09 22 70 61 63 6b 61 67 65  _WIN32.."package
1190: 20 69 66 6e 65 65 64 65 64 20 54 6b 20 22 20 4b   ifneeded Tk " K
11a0: 49 54 5f 54 4b 5f 56 45 52 53 49 4f 4e 20 22 20  IT_TK_VERSION " 
11b0: 7b 5c 6e 22 0a 09 09 22 6c 6f 61 64 20 7b 7d 20  {\n"..."load {} 
11c0: 54 6b 5c 6e 22 0a 09 22 7d 5c 6e 22 0a 23 20 20  Tk\n".."}\n".#  
11d0: 65 6e 64 69 66 0a 23 65 6e 64 69 66 0a 23 69 66  endif.#endif.#if
11e0: 64 65 66 20 5f 57 49 4e 33 32 0a 09 22 63 61 74  def _WIN32.."cat
11f0: 63 68 20 7b 6c 6f 61 64 20 7b 7d 20 64 64 65 7d  ch {load {} dde}
1200: 5c 6e 22 0a 09 22 63 61 74 63 68 20 7b 6c 6f 61  \n".."catch {loa
1210: 64 20 7b 7d 20 72 65 67 69 73 74 72 79 7d 5c 6e  d {} registry}\n
1220: 22 0a 23 65 6e 64 69 66 20 2f 2a 20 5f 57 49 4e  ".#endif /* _WIN
1230: 33 32 20 2a 2f 0a 09 22 72 65 74 75 72 6e 20 30  32 */.."return 0
1240: 5c 6e 22 0a 22 7d 5c 6e 22 0a 22 74 63 6c 4b 69  \n"."}\n"."tclKi
1250: 74 49 6e 69 74 22 3b 0a 0a 73 74 61 74 69 63 20  tInit";..static 
1260: 63 6f 6e 73 74 20 63 68 61 72 20 69 6e 69 74 53  const char initS
1270: 63 72 69 70 74 5b 5d 20 3d 0a 22 69 66 20 7b 5b  cript[] =."if {[
1280: 66 69 6c 65 20 69 73 66 69 6c 65 20 5b 66 69 6c  file isfile [fil
1290: 65 20 6a 6f 69 6e 20 5b 69 6e 66 6f 20 6e 61 6d  e join [info nam
12a0: 65 6f 66 65 78 65 5d 20 6d 61 69 6e 2e 74 63 6c  eofexe] main.tcl
12b0: 5d 5d 7d 20 7b 5c 6e 22 0a 09 22 69 66 20 7b 5b  ]]} {\n".."if {[
12c0: 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73 20 63 6f  info commands co
12d0: 6e 73 6f 6c 65 5d 20 21 3d 20 7b 7d 7d 20 7b 20  nsole] != {}} { 
12e0: 63 6f 6e 73 6f 6c 65 20 68 69 64 65 20 7d 5c 6e  console hide }\n
12f0: 22 0a 09 22 73 65 74 20 74 63 6c 5f 69 6e 74 65  ".."set tcl_inte
1300: 72 61 63 74 69 76 65 20 30 5c 6e 22 0a 09 22 69  ractive 0\n".."i
1310: 6e 63 72 20 61 72 67 63 5c 6e 22 0a 09 22 73 65  ncr argc\n".."se
1320: 74 20 61 72 67 76 20 5b 6c 69 6e 73 65 72 74 20  t argv [linsert 
1330: 24 61 72 67 76 20 30 20 24 61 72 67 76 30 5d 5c  $argv 0 $argv0]\
1340: 6e 22 0a 09 22 73 65 74 20 61 72 67 76 30 20 5b  n".."set argv0 [
1350: 66 69 6c 65 20 6a 6f 69 6e 20 5b 69 6e 66 6f 20  file join [info 
1360: 6e 61 6d 65 6f 66 65 78 65 5d 20 6d 61 69 6e 2e  nameofexe] main.
1370: 74 63 6c 5d 5c 6e 22 0a 22 7d 20 65 6c 73 65 20  tcl]\n"."} else 
1380: 63 6f 6e 74 69 6e 75 65 5c 6e 22 3b 0a 0a 2f 2a  continue\n";../*
1390: 20 53 65 74 45 78 65 63 4e 61 6d 65 20 2d 2d 0a   SetExecName --.
13a0: 0a 20 20 20 48 61 63 6b 20 74 6f 20 67 65 74 20  .   Hack to get 
13b0: 61 72 6f 75 6e 64 20 54 63 6c 20 62 75 67 20 31  around Tcl bug 1
13c0: 32 32 34 38 38 38 2e 0a 2a 2f 0a 73 74 61 74 69  224888..*/.stati
13d0: 63 20 76 6f 69 64 20 53 65 74 45 78 65 63 4e 61  c void SetExecNa
13e0: 6d 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  me(Tcl_Interp *i
13f0: 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20 63 68 61  nterp, const cha
1400: 72 20 2a 70 61 74 68 29 20 7b 0a 23 69 66 64 65  r *path) {.#ifde
1410: 66 20 54 43 4c 4b 49 54 5f 52 45 51 55 49 52 45  f TCLKIT_REQUIRE
1420: 5f 54 43 4c 45 58 45 43 55 54 41 42 4c 45 4e 41  _TCLEXECUTABLENA
1430: 4d 45 0a 09 74 63 6c 45 78 65 63 75 74 61 62 6c  ME..tclExecutabl
1440: 65 4e 61 6d 65 20 3d 20 73 74 72 64 75 70 28 70  eName = strdup(p
1450: 61 74 68 29 3b 0a 23 65 6e 64 69 66 0a 09 54 63  ath);.#endif..Tc
1460: 6c 5f 46 69 6e 64 45 78 65 63 75 74 61 62 6c 65  l_FindExecutable
1470: 28 70 61 74 68 29 3b 0a 0a 09 72 65 74 75 72 6e  (path);...return
1480: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 76 6f 69 64  ;.}..static void
1490: 20 46 69 6e 64 41 6e 64 53 65 74 45 78 65 63 4e   FindAndSetExecN
14a0: 61 6d 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ame(Tcl_Interp *
14b0: 69 6e 74 65 72 70 29 20 7b 0a 09 69 6e 74 20 6c  interp) {..int l
14c0: 65 6e 20 3d 20 30 3b 0a 09 54 63 6c 5f 4f 62 6a  en = 0;..Tcl_Obj
14d0: 20 2a 65 78 65 63 4e 61 6d 65 4f 62 6a 3b 0a 09   *execNameObj;..
14e0: 54 63 6c 5f 4f 62 6a 20 2a 6c 6f 62 6a 76 5b 31  Tcl_Obj *lobjv[1
14f0: 5d 3b 0a 23 69 66 64 65 66 20 48 41 56 45 5f 52  ];.#ifdef HAVE_R
1500: 45 41 44 4c 49 4e 4b 0a 09 73 73 69 7a 65 5f 74  EADLINK..ssize_t
1510: 20 72 65 61 64 6c 69 6e 6b 5f 72 65 74 3b 0a 09   readlink_ret;..
1520: 63 68 61 72 20 70 72 6f 63 70 61 74 68 5b 34 30  char procpath[40
1530: 39 36 5d 3b 0a 09 63 68 61 72 20 65 78 65 5f 62  96];..char exe_b
1540: 75 66 5b 34 30 39 36 5d 3b 0a 09 69 6e 74 20 73  uf[4096];..int s
1550: 6e 70 72 69 6e 74 66 5f 72 65 74 3b 0a 23 65 6e  nprintf_ret;.#en
1560: 64 69 66 20 2f 2a 20 48 41 56 45 5f 52 45 41 44  dif /* HAVE_READ
1570: 4c 49 4e 4b 20 2a 2f 0a 23 69 66 64 65 66 20 48  LINK */.#ifdef H
1580: 41 56 45 5f 41 43 43 45 50 54 41 42 4c 45 5f 44  AVE_ACCEPTABLE_D
1590: 4c 41 44 44 52 0a 09 44 6c 5f 69 6e 66 6f 20 73  LADDR..Dl_info s
15a0: 79 6d 69 6e 66 6f 3b 0a 09 69 6e 74 20 64 6c 61  yminfo;..int dla
15b0: 64 64 72 5f 72 65 74 3b 0a 23 65 6e 64 69 66 20  ddr_ret;.#endif 
15c0: 2f 2a 20 48 41 56 45 5f 41 43 43 45 50 54 41 42  /* HAVE_ACCEPTAB
15d0: 4c 45 5f 44 4c 41 44 44 52 20 2a 2f 20 0a 0a 23  LE_DLADDR */ ..#
15e0: 69 66 64 65 66 20 48 41 56 45 5f 52 45 41 44 4c  ifdef HAVE_READL
15f0: 49 4e 4b 0a 09 69 66 20 28 54 63 6c 5f 47 65 74  INK..if (Tcl_Get
1600: 4e 61 6d 65 4f 66 45 78 65 63 75 74 61 62 6c 65  NameOfExecutable
1610: 28 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09  () == NULL) {...
1620: 73 6e 70 72 69 6e 74 66 5f 72 65 74 20 3d 20 73  snprintf_ret = s
1630: 6e 70 72 69 6e 74 66 28 70 72 6f 63 70 61 74 68  nprintf(procpath
1640: 2c 20 73 69 7a 65 6f 66 28 70 72 6f 63 70 61 74  , sizeof(procpat
1650: 68 29 2c 20 22 2f 70 72 6f 63 2f 25 6c 75 2f 65  h), "/proc/%lu/e
1660: 78 65 22 2c 20 28 75 6e 73 69 67 6e 65 64 20 6c  xe", (unsigned l
1670: 6f 6e 67 29 20 67 65 74 70 69 64 28 29 29 3b 0a  ong) getpid());.
1680: 09 09 69 66 20 28 73 6e 70 72 69 6e 74 66 5f 72  ..if (snprintf_r
1690: 65 74 20 3c 20 73 69 7a 65 6f 66 28 70 72 6f 63  et < sizeof(proc
16a0: 70 61 74 68 29 29 20 7b 0a 09 09 09 72 65 61 64  path)) {....read
16b0: 6c 69 6e 6b 5f 72 65 74 20 3d 20 72 65 61 64 6c  link_ret = readl
16c0: 69 6e 6b 28 70 72 6f 63 70 61 74 68 2c 20 65 78  ink(procpath, ex
16d0: 65 5f 62 75 66 2c 20 73 69 7a 65 6f 66 28 65 78  e_buf, sizeof(ex
16e0: 65 5f 62 75 66 29 20 2d 20 31 29 3b 0a 0a 09 09  e_buf) - 1);....
16f0: 09 69 66 20 28 72 65 61 64 6c 69 6e 6b 5f 72 65  .if (readlink_re
1700: 74 20 3e 20 30 20 26 26 20 72 65 61 64 6c 69 6e  t > 0 && readlin
1710: 6b 5f 72 65 74 20 3c 20 28 73 69 7a 65 6f 66 28  k_ret < (sizeof(
1720: 65 78 65 5f 62 75 66 29 20 2d 20 31 29 29 20 7b  exe_buf) - 1)) {
1730: 0a 09 09 09 09 65 78 65 5f 62 75 66 5b 72 65 61  .....exe_buf[rea
1740: 64 6c 69 6e 6b 5f 72 65 74 5d 20 3d 20 27 5c 30  dlink_ret] = '\0
1750: 27 3b 0a 0a 09 09 09 09 53 65 74 45 78 65 63 4e  ';......SetExecN
1760: 61 6d 65 28 69 6e 74 65 72 70 2c 20 65 78 65 5f  ame(interp, exe_
1770: 62 75 66 29 3b 0a 0a 09 09 09 09 72 65 74 75 72  buf);......retur
1780: 6e 3b 0a 09 09 09 7d 0a 09 09 7d 0a 09 7d 0a 23  n;....}...}..}.#
1790: 65 6e 64 69 66 20 2f 2a 20 48 41 56 45 5f 52 45  endif /* HAVE_RE
17a0: 41 44 4c 49 4e 4b 20 2a 2f 0a 0a 23 69 66 64 65  ADLINK */..#ifde
17b0: 66 20 48 41 56 45 5f 41 43 43 45 50 54 41 42 4c  f HAVE_ACCEPTABL
17c0: 45 5f 44 4c 41 44 44 52 0a 09 69 66 20 28 54 63  E_DLADDR..if (Tc
17d0: 6c 5f 47 65 74 4e 61 6d 65 4f 66 45 78 65 63 75  l_GetNameOfExecu
17e0: 74 61 62 6c 65 28 29 20 3d 3d 20 4e 55 4c 4c 29  table() == NULL)
17f0: 20 7b 0a 09 09 64 6c 61 64 64 72 5f 72 65 74 20   {...dladdr_ret 
1800: 3d 20 64 6c 61 64 64 72 28 26 53 65 74 45 78 65  = dladdr(&SetExe
1810: 63 4e 61 6d 65 2c 20 26 73 79 6d 69 6e 66 6f 29  cName, &syminfo)
1820: 3b 0a 09 09 69 66 20 28 64 6c 61 64 64 72 5f 72  ;...if (dladdr_r
1830: 65 74 20 21 3d 20 30 29 20 7b 0a 09 09 09 53 65  et != 0) {....Se
1840: 74 45 78 65 63 4e 61 6d 65 28 69 6e 74 65 72 70  tExecName(interp
1850: 2c 20 73 79 6d 69 6e 66 6f 2e 64 6c 69 5f 66 6e  , syminfo.dli_fn
1860: 61 6d 65 29 3b 0a 09 09 7d 0a 09 7d 0a 23 65 6e  ame);...}..}.#en
1870: 64 69 66 20 2f 2a 20 48 41 56 45 5f 41 43 43 45  dif /* HAVE_ACCE
1880: 50 54 41 42 4c 45 5f 44 4c 41 44 44 52 20 2a 2f  PTABLE_DLADDR */
1890: 0a 0a 09 69 66 20 28 54 63 6c 5f 47 65 74 4e 61  ...if (Tcl_GetNa
18a0: 6d 65 4f 66 45 78 65 63 75 74 61 62 6c 65 28 29  meOfExecutable()
18b0: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 6c 6f   == NULL) {...lo
18c0: 62 6a 76 5b 30 5d 20 3d 20 54 63 6c 5f 47 65 74  bjv[0] = Tcl_Get
18d0: 56 61 72 32 45 78 28 69 6e 74 65 72 70 2c 20 22  Var2Ex(interp, "
18e0: 61 72 67 76 30 22 2c 20 4e 55 4c 4c 2c 20 54 43  argv0", NULL, TC
18f0: 4c 5f 47 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a  L_GLOBAL_ONLY);.
1900: 09 09 65 78 65 63 4e 61 6d 65 4f 62 6a 20 3d 20  ..execNameObj = 
1910: 54 63 6c 5f 46 53 4a 6f 69 6e 54 6f 50 61 74 68  Tcl_FSJoinToPath
1920: 28 54 63 6c 5f 46 53 47 65 74 43 77 64 28 69 6e  (Tcl_FSGetCwd(in
1930: 74 65 72 70 29 2c 20 31 2c 20 6c 6f 62 6a 76 29  terp), 1, lobjv)
1940: 3b 0a 0a 09 09 53 65 74 45 78 65 63 4e 61 6d 65  ;....SetExecName
1950: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74  (interp, Tcl_Get
1960: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 65 78  StringFromObj(ex
1970: 65 63 4e 61 6d 65 4f 62 6a 2c 20 26 6c 65 6e 29  ecNameObj, &len)
1980: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 3b 0a 09 7d  );....return;..}
1990: 0a 0a 09 72 65 74 75 72 6e 3b 0a 7d 0a 0a 69 6e  ...return;.}..in
19a0: 74 20 54 63 6c 4b 69 74 5f 41 70 70 49 6e 69 74  t TclKit_AppInit
19b0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74  (Tcl_Interp *int
19c0: 65 72 70 29 20 7b 0a 23 69 66 64 65 66 20 4b 49  erp) {.#ifdef KI
19d0: 54 5f 49 4e 43 4c 55 44 45 53 5f 54 4b 0a 23 20  T_INCLUDES_TK.# 
19e0: 20 69 66 64 65 66 20 5f 57 49 4e 33 32 0a 23 20   ifdef _WIN32.# 
19f0: 20 20 20 69 66 6e 64 65 66 20 5f 57 49 4e 33 32     ifndef _WIN32
1a00: 5f 57 43 45 0a 09 63 68 61 72 20 6d 73 67 42 75  _WCE..char msgBu
1a10: 66 5b 32 30 34 39 5d 3b 0a 23 20 20 20 20 65 6e  f[2049];.#    en
1a20: 64 69 66 20 2f 2a 20 21 5f 57 49 4e 33 32 5f 57  dif /* !_WIN32_W
1a30: 43 45 20 2a 2f 0a 23 20 20 65 6e 64 69 66 20 2f  CE */.#  endif /
1a40: 2a 20 5f 57 49 4e 33 32 20 2a 2f 0a 23 65 6e 64  * _WIN32 */.#end
1a50: 69 66 20 2f 2a 20 4b 49 54 5f 49 4e 43 4c 55 44  if /* KIT_INCLUD
1a60: 45 53 5f 54 4b 20 2a 2f 0a 23 69 66 64 65 66 20  ES_TK */.#ifdef 
1a70: 54 43 4c 4b 49 54 5f 43 41 4e 5f 53 45 54 5f 45  TCLKIT_CAN_SET_E
1a80: 4e 43 4f 44 49 4e 47 0a 09 54 63 6c 5f 44 53 74  NCODING..Tcl_DSt
1a90: 72 69 6e 67 20 65 6e 63 6f 64 69 6e 67 4e 61 6d  ring encodingNam
1aa0: 65 3b 0a 23 65 6e 64 69 66 20 2f 2a 20 54 43 4c  e;.#endif /* TCL
1ab0: 4b 49 54 5f 43 41 4e 5f 53 45 54 5f 45 4e 43 4f  KIT_CAN_SET_ENCO
1ac0: 44 49 4e 47 20 2a 2f 0a 0a 23 69 66 64 65 66 20  DING */..#ifdef 
1ad0: 4b 49 54 5f 49 4e 43 4c 55 44 45 53 5f 49 54 43  KIT_INCLUDES_ITC
1ae0: 4c 0a 09 54 63 6c 5f 53 74 61 74 69 63 50 61 63  L..Tcl_StaticPac
1af0: 6b 61 67 65 28 30 2c 20 22 49 74 63 6c 22 2c 20  kage(0, "Itcl", 
1b00: 49 74 63 6c 5f 49 6e 69 74 2c 20 4e 55 4c 4c 29  Itcl_Init, NULL)
1b10: 3b 0a 23 65 6e 64 69 66 20 0a 23 69 66 64 65 66  ;.#endif .#ifdef
1b20: 20 4b 49 54 5f 49 4e 43 4c 55 44 45 53 5f 4d 4b   KIT_INCLUDES_MK
1b30: 34 54 43 4c 0a 09 54 63 6c 5f 53 74 61 74 69 63  4TCL..Tcl_Static
1b40: 50 61 63 6b 61 67 65 28 30 2c 20 22 4d 6b 34 74  Package(0, "Mk4t
1b50: 63 6c 22 2c 20 4d 6b 34 74 63 6c 5f 49 6e 69 74  cl", Mk4tcl_Init
1b60: 2c 20 4e 55 4c 4c 29 3b 0a 23 65 6e 64 69 66 0a  , NULL);.#endif.
1b70: 23 69 66 64 65 66 20 4b 49 54 5f 49 4e 43 4c 55  #ifdef KIT_INCLU
1b80: 44 45 53 5f 50 57 42 0a 09 54 63 6c 5f 53 74 61  DES_PWB..Tcl_Sta
1b90: 74 69 63 50 61 63 6b 61 67 65 28 30 2c 20 22 70  ticPackage(0, "p
1ba0: 77 62 22 2c 20 50 77 62 5f 49 6e 69 74 2c 20 4e  wb", Pwb_Init, N
1bb0: 55 4c 4c 29 3b 0a 23 65 6e 64 69 66 20 0a 09 54  ULL);.#endif ..T
1bc0: 63 6c 5f 53 74 61 74 69 63 50 61 63 6b 61 67 65  cl_StaticPackage
1bd0: 28 30 2c 20 22 72 65 63 68 61 6e 22 2c 20 52 65  (0, "rechan", Re
1be0: 63 68 61 6e 5f 49 6e 69 74 2c 20 4e 55 4c 4c 29  chan_Init, NULL)
1bf0: 3b 0a 09 54 63 6c 5f 53 74 61 74 69 63 50 61 63  ;..Tcl_StaticPac
1c00: 6b 61 67 65 28 30 2c 20 22 76 66 73 22 2c 20 56  kage(0, "vfs", V
1c10: 66 73 5f 49 6e 69 74 2c 20 4e 55 4c 4c 29 3b 0a  fs_Init, NULL);.
1c20: 23 69 66 64 65 66 20 4b 49 54 5f 49 4e 43 4c 55  #ifdef KIT_INCLU
1c30: 44 45 53 5f 5a 4c 49 42 0a 09 54 63 6c 5f 53 74  DES_ZLIB..Tcl_St
1c40: 61 74 69 63 50 61 63 6b 61 67 65 28 30 2c 20 22  aticPackage(0, "
1c50: 7a 6c 69 62 22 2c 20 5a 6c 69 62 5f 49 6e 69 74  zlib", Zlib_Init
1c60: 2c 20 4e 55 4c 4c 29 3b 0a 23 65 6e 64 69 66 0a  , NULL);.#endif.
1c70: 23 69 66 64 65 66 20 54 43 4c 5f 54 48 52 45 41  #ifdef TCL_THREA
1c80: 44 53 0a 09 54 63 6c 5f 53 74 61 74 69 63 50 61  DS..Tcl_StaticPa
1c90: 63 6b 61 67 65 28 30 2c 20 22 54 68 72 65 61 64  ckage(0, "Thread
1ca0: 22 2c 20 54 68 72 65 61 64 5f 49 6e 69 74 2c 20  ", Thread_Init, 
1cb0: 4e 55 4c 4c 29 3b 0a 23 65 6e 64 69 66 0a 23 69  NULL);.#endif.#i
1cc0: 66 64 65 66 20 5f 57 49 4e 33 32 0a 09 54 63 6c  fdef _WIN32..Tcl
1cd0: 5f 53 74 61 74 69 63 50 61 63 6b 61 67 65 28 30  _StaticPackage(0
1ce0: 2c 20 22 64 64 65 22 2c 20 44 64 65 5f 49 6e 69  , "dde", Dde_Ini
1cf0: 74 2c 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 53  t, NULL);..Tcl_S
1d00: 74 61 74 69 63 50 61 63 6b 61 67 65 28 30 2c 20  taticPackage(0, 
1d10: 22 72 65 67 69 73 74 72 79 22 2c 20 52 65 67 69  "registry", Regi
1d20: 73 74 72 79 5f 49 6e 69 74 2c 20 4e 55 4c 4c 29  stry_Init, NULL)
1d30: 3b 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20  ;.#endif.#ifdef 
1d40: 4b 49 54 5f 49 4e 43 4c 55 44 45 53 5f 54 4b 0a  KIT_INCLUDES_TK.
1d50: 09 54 63 6c 5f 53 74 61 74 69 63 50 61 63 6b 61  .Tcl_StaticPacka
1d60: 67 65 28 30 2c 20 22 54 6b 22 2c 20 54 6b 5f 49  ge(0, "Tk", Tk_I
1d70: 6e 69 74 2c 20 54 6b 5f 53 61 66 65 49 6e 69 74  nit, Tk_SafeInit
1d80: 29 3b 0a 23 65 6e 64 69 66 0a 0a 09 2f 2a 20 74  );.#endif.../* t
1d90: 68 65 20 74 63 6c 5f 72 63 46 69 6c 65 4e 61 6d  he tcl_rcFileNam
1da0: 65 20 76 61 72 69 61 62 6c 65 20 6f 6e 6c 79 20  e variable only 
1db0: 65 78 69 73 74 73 20 69 6e 20 74 68 65 20 69 6e  exists in the in
1dc0: 69 74 69 61 6c 20 69 6e 74 65 72 70 72 65 74 65  itial interprete
1dd0: 72 20 2a 2f 0a 23 69 66 64 65 66 20 5f 57 49 4e  r */.#ifdef _WIN
1de0: 33 32 0a 09 54 63 6c 5f 53 65 74 56 61 72 28 69  32..Tcl_SetVar(i
1df0: 6e 74 65 72 70 2c 20 22 74 63 6c 5f 72 63 46 69  nterp, "tcl_rcFi
1e00: 6c 65 4e 61 6d 65 22 2c 20 22 7e 2f 74 63 6c 6b  leName", "~/tclk
1e10: 69 74 72 63 2e 74 63 6c 22 2c 20 54 43 4c 5f 47  itrc.tcl", TCL_G
1e20: 4c 4f 42 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6c  LOBAL_ONLY);.#el
1e30: 73 65 0a 09 54 63 6c 5f 53 65 74 56 61 72 28 69  se..Tcl_SetVar(i
1e40: 6e 74 65 72 70 2c 20 22 74 63 6c 5f 72 63 46 69  nterp, "tcl_rcFi
1e50: 6c 65 4e 61 6d 65 22 2c 20 22 7e 2f 2e 74 63 6c  leName", "~/.tcl
1e60: 6b 69 74 72 63 22 2c 20 54 43 4c 5f 47 4c 4f 42  kitrc", TCL_GLOB
1e70: 41 4c 5f 4f 4e 4c 59 29 3b 0a 23 65 6e 64 69 66  AL_ONLY);.#endif
1e80: 0a 0a 23 69 66 64 65 66 20 54 43 4c 4b 49 54 5f  ..#ifdef TCLKIT_
1e90: 43 41 4e 5f 53 45 54 5f 45 4e 43 4f 44 49 4e 47  CAN_SET_ENCODING
1ea0: 0a 09 2f 2a 20 53 65 74 20 74 68 65 20 65 6e 63  ../* Set the enc
1eb0: 6f 64 69 6e 67 20 66 72 6f 6d 20 74 68 65 20 45  oding from the E
1ec0: 6e 76 69 72 6f 6e 6d 65 6e 74 20 2a 2f 0a 09 54  nvironment */..T
1ed0: 63 6c 5f 47 65 74 45 6e 63 6f 64 69 6e 67 4e 61  cl_GetEncodingNa
1ee0: 6d 65 46 72 6f 6d 45 6e 76 69 72 6f 6e 6d 65 6e  meFromEnvironmen
1ef0: 74 28 26 65 6e 63 6f 64 69 6e 67 4e 61 6d 65 29  t(&encodingName)
1f00: 3b 0a 09 54 63 6c 5f 53 65 74 53 79 73 74 65 6d  ;..Tcl_SetSystem
1f10: 45 6e 63 6f 64 69 6e 67 28 4e 55 4c 4c 2c 20 54  Encoding(NULL, T
1f20: 63 6c 5f 44 53 74 72 69 6e 67 56 61 6c 75 65 28  cl_DStringValue(
1f30: 26 65 6e 63 6f 64 69 6e 67 4e 61 6d 65 29 29 3b  &encodingName));
1f40: 0a 09 54 63 6c 5f 53 65 74 56 61 72 28 69 6e 74  ..Tcl_SetVar(int
1f50: 65 72 70 2c 20 22 74 63 6c 6b 69 74 5f 73 79 73  erp, "tclkit_sys
1f60: 74 65 6d 5f 65 6e 63 6f 64 69 6e 67 22 2c 20 54  tem_encoding", T
1f70: 63 6c 5f 44 53 74 72 69 6e 67 56 61 6c 75 65 28  cl_DStringValue(
1f80: 26 65 6e 63 6f 64 69 6e 67 4e 61 6d 65 29 2c 20  &encodingName), 
1f90: 30 29 3b 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67  0);..Tcl_DString
1fa0: 46 72 65 65 28 26 65 6e 63 6f 64 69 6e 67 4e 61  Free(&encodingNa
1fb0: 6d 65 29 3b 0a 23 65 6e 64 69 66 0a 0a 09 2f 2a  me);.#endif.../*
1fc0: 20 48 61 63 6b 20 74 6f 20 67 65 74 20 61 72 6f   Hack to get aro
1fd0: 75 6e 64 20 54 63 6c 20 62 75 67 20 31 32 32 34  und Tcl bug 1224
1fe0: 38 38 38 2e 20 20 54 68 69 73 20 6d 75 73 74 20  888.  This must 
1ff0: 62 65 20 72 75 6e 20 68 65 72 65 20 61 6e 64 0a  be run here and.
2000: 09 20 2a 20 69 6e 20 4c 69 62 72 61 72 79 50 61  . * in LibraryPa
2010: 74 68 4f 62 6a 43 6d 64 20 62 65 63 61 75 73 65  thObjCmd because
2020: 20 74 68 69 73 20 69 6e 66 6f 72 6d 61 74 69 6f   this informatio
2030: 6e 20 69 73 20 6e 65 65 64 65 64 20 62 6f 74 68  n is needed both
2040: 0a 09 20 2a 20 62 65 66 6f 72 65 20 61 6e 64 20  .. * before and 
2050: 61 66 74 65 72 20 74 68 61 74 20 63 6f 6d 6d 61  after that comma
2060: 6e 64 20 69 73 20 72 75 6e 2e 20 2a 2f 0a 09 46  nd is run. */..F
2070: 69 6e 64 41 6e 64 53 65 74 45 78 65 63 4e 61 6d  indAndSetExecNam
2080: 65 28 69 6e 74 65 72 70 29 3b 0a 0a 09 54 63 6c  e(interp);...Tcl
2090: 53 65 74 50 72 65 49 6e 69 74 53 63 72 69 70 74  SetPreInitScript
20a0: 28 70 72 65 49 6e 69 74 43 6d 64 29 3b 0a 09 69  (preInitCmd);..i
20b0: 66 20 28 54 63 6c 5f 49 6e 69 74 28 69 6e 74 65  f (Tcl_Init(inte
20c0: 72 70 29 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52  rp) == TCL_ERROR
20d0: 29 20 7b 0a 09 09 67 6f 74 6f 20 65 72 72 6f 72  ) {...goto error
20e0: 3b 0a 09 7d 0a 0a 23 69 66 64 65 66 20 4b 49 54  ;..}..#ifdef KIT
20f0: 5f 49 4e 43 4c 55 44 45 53 5f 54 4b 0a 23 20 20  _INCLUDES_TK.#  
2100: 69 66 64 65 66 20 5f 57 49 4e 33 32 0a 09 69 66  ifdef _WIN32..if
2110: 20 28 54 6b 5f 49 6e 69 74 28 69 6e 74 65 72 70   (Tk_Init(interp
2120: 29 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20  ) == TCL_ERROR) 
2130: 7b 0a 09 09 67 6f 74 6f 20 65 72 72 6f 72 3b 0a  {...goto error;.
2140: 09 7d 0a 09 69 66 20 28 54 6b 5f 43 72 65 61 74  .}..if (Tk_Creat
2150: 65 43 6f 6e 73 6f 6c 65 57 69 6e 64 6f 77 28 69  eConsoleWindow(i
2160: 6e 74 65 72 70 29 20 3d 3d 20 54 43 4c 5f 45 52  nterp) == TCL_ER
2170: 52 4f 52 29 20 7b 0a 09 09 67 6f 74 6f 20 65 72  ROR) {...goto er
2180: 72 6f 72 3b 0a 09 7d 0a 23 20 20 65 6e 64 69 66  ror;..}.#  endif
2190: 20 2f 2a 20 5f 57 49 4e 33 32 20 2a 2f 0a 23 65   /* _WIN32 */.#e
21a0: 6e 64 69 66 20 2f 2a 20 4b 49 54 5f 49 4e 43 4c  ndif /* KIT_INCL
21b0: 55 44 45 53 5f 54 4b 20 2a 2f 0a 0a 09 2f 2a 20  UDES_TK */.../* 
21c0: 6d 65 73 73 79 20 62 65 63 61 75 73 65 20 54 63  messy because Tc
21d0: 6c 53 65 74 53 74 61 72 74 75 70 53 63 72 69 70  lSetStartupScrip
21e0: 74 50 61 74 68 20 69 73 20 63 61 6c 6c 65 64 20  tPath is called 
21f0: 73 6c 69 67 68 74 6c 79 20 74 6f 6f 20 6c 61 74  slightly too lat
2200: 65 20 2a 2f 0a 09 69 66 20 28 54 63 6c 5f 45 76  e */..if (Tcl_Ev
2210: 61 6c 28 69 6e 74 65 72 70 2c 20 69 6e 69 74 53  al(interp, initS
2220: 63 72 69 70 74 29 20 3d 3d 20 54 43 4c 5f 4f 4b  cript) == TCL_OK
2230: 29 20 7b 0a 09 09 54 63 6c 5f 4f 62 6a 2a 20 70  ) {...Tcl_Obj* p
2240: 61 74 68 3b 0a 23 69 66 64 65 66 20 48 41 56 45  ath;.#ifdef HAVE
2250: 5f 54 43 4c 53 45 54 53 54 41 52 54 55 50 53 43  _TCLSETSTARTUPSC
2260: 52 49 50 54 50 41 54 48 0a 09 09 70 61 74 68 20  RIPTPATH...path 
2270: 3d 20 54 63 6c 47 65 74 53 74 61 72 74 75 70 53  = TclGetStartupS
2280: 63 72 69 70 74 50 61 74 68 28 29 3b 0a 09 09 54  criptPath();...T
2290: 63 6c 53 65 74 53 74 61 72 74 75 70 53 63 72 69  clSetStartupScri
22a0: 70 74 50 61 74 68 28 54 63 6c 5f 47 65 74 4f 62  ptPath(Tcl_GetOb
22b0: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 29  jResult(interp))
22c0: 3b 0a 23 65 6c 69 66 20 64 65 66 69 6e 65 64 28  ;.#elif defined(
22d0: 48 41 56 45 5f 54 43 4c 5f 53 45 54 53 54 41 52  HAVE_TCL_SETSTAR
22e0: 54 55 50 53 43 52 49 50 54 29 0a 09 09 70 61 74  TUPSCRIPT)...pat
22f0: 68 20 3d 20 54 63 6c 5f 47 65 74 53 74 61 72 74  h = Tcl_GetStart
2300: 75 70 53 63 72 69 70 74 28 4e 55 4c 4c 29 3b 0a  upScript(NULL);.
2310: 09 09 54 63 6c 5f 53 65 74 53 74 61 72 74 75 70  ..Tcl_SetStartup
2320: 53 63 72 69 70 74 28 54 63 6c 5f 47 65 74 4f 62  Script(Tcl_GetOb
2330: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 2c  jResult(interp),
2340: 20 4e 55 4c 4c 29 3b 0a 23 65 6e 64 69 66 0a 09   NULL);.#endif..
2350: 09 69 66 20 28 70 61 74 68 20 3d 3d 20 4e 55 4c  .if (path == NUL
2360: 4c 29 20 7b 0a 09 09 09 54 63 6c 5f 45 76 61 6c  L) {....Tcl_Eval
2370: 28 69 6e 74 65 72 70 2c 20 22 69 6e 63 72 20 61  (interp, "incr a
2380: 72 67 63 20 2d 31 3b 20 73 65 74 20 61 72 67 76  rgc -1; set argv
2390: 20 5b 6c 72 61 6e 67 65 20 24 61 72 67 76 20 31   [lrange $argv 1
23a0: 20 65 6e 64 5d 22 29 3b 0a 09 09 7d 0a 09 7d 0a   end]");...}..}.
23b0: 0a 09 54 63 6c 5f 53 65 74 56 61 72 28 69 6e 74  ..Tcl_SetVar(int
23c0: 65 72 70 2c 20 22 65 72 72 6f 72 49 6e 66 6f 22  erp, "errorInfo"
23d0: 2c 20 22 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c  , "", TCL_GLOBAL
23e0: 5f 4f 4e 4c 59 29 3b 0a 09 54 63 6c 5f 52 65 73  _ONLY);..Tcl_Res
23f0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29  etResult(interp)
2400: 3b 0a 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f  ;...return TCL_O
2410: 4b 3b 0a 0a 65 72 72 6f 72 3a 0a 23 69 66 64 65  K;..error:.#ifde
2420: 66 20 4b 49 54 5f 49 4e 43 4c 55 44 45 53 5f 54  f KIT_INCLUDES_T
2430: 4b 0a 23 20 20 69 66 64 65 66 20 5f 57 49 4e 33  K.#  ifdef _WIN3
2440: 32 0a 09 4d 65 73 73 61 67 65 42 65 65 70 28 4d  2..MessageBeep(M
2450: 42 5f 49 43 4f 4e 45 58 43 4c 41 4d 41 54 49 4f  B_ICONEXCLAMATIO
2460: 4e 29 3b 0a 23 20 20 20 20 69 66 6e 64 65 66 20  N);.#    ifndef 
2470: 5f 57 49 4e 33 32 5f 57 43 45 0a 09 73 6e 70 72  _WIN32_WCE..snpr
2480: 69 6e 74 66 28 6d 73 67 42 75 66 2c 20 73 69 7a  intf(msgBuf, siz
2490: 65 6f 66 28 6d 73 67 42 75 66 29 2c 0a 09 09 22  eof(msgBuf),..."
24a0: 41 20 63 72 69 74 69 63 61 6c 20 65 72 72 6f 72  A critical error
24b0: 20 68 61 73 20 6f 63 63 75 72 72 65 64 2e 20 20   has occurred.  
24c0: 50 6c 65 61 73 65 20 72 65 70 6f 72 74 20 74 68  Please report th
24d0: 69 73 20 74 6f 20 74 68 65 20 54 63 6c 6b 69 74  is to the Tclkit
24e0: 20 76 65 6e 64 6f 72 2e 5c 6e 49 6e 74 65 72 70   vendor.\nInterp
24f0: 72 65 74 65 72 20 52 65 74 75 72 6e 65 64 3a 20  reter Returned: 
2500: 25 73 5c 6e 45 72 72 6f 72 20 49 6e 66 6f 3a 20  %s\nError Info: 
2510: 25 73 22 2c 0a 09 09 54 63 6c 5f 47 65 74 53 74  %s",...Tcl_GetSt
2520: 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72  ringResult(inter
2530: 70 29 2c 0a 09 09 54 63 6c 5f 47 65 74 56 61 72  p),...Tcl_GetVar
2540: 28 69 6e 74 65 72 70 2c 20 22 65 72 72 6f 72 49  (interp, "errorI
2550: 6e 66 6f 22 2c 20 54 43 4c 5f 47 4c 4f 42 41 4c  nfo", TCL_GLOBAL
2560: 5f 4f 4e 4c 59 29 29 3b 0a 0a 09 4d 65 73 73 61  _ONLY));...Messa
2570: 67 65 42 6f 78 28 4e 55 4c 4c 2c 20 6d 73 67 42  geBox(NULL, msgB
2580: 75 66 2c 20 22 45 72 72 6f 72 20 69 6e 20 54 63  uf, "Error in Tc
2590: 6c 4b 69 74 22 2c 0a 09 09 4d 42 5f 49 43 4f 4e  lKit",...MB_ICON
25a0: 53 54 4f 50 20 7c 20 4d 42 5f 4f 4b 20 7c 20 4d  STOP | MB_OK | M
25b0: 42 5f 54 41 53 4b 4d 4f 44 41 4c 20 7c 20 4d 42  B_TASKMODAL | MB
25c0: 5f 53 45 54 46 4f 52 45 47 52 4f 55 4e 44 29 3b  _SETFOREGROUND);
25d0: 0a 0a 09 45 78 69 74 50 72 6f 63 65 73 73 28 31  ...ExitProcess(1
25e0: 29 3b 0a 23 20 20 20 20 65 6e 64 69 66 20 2f 2a  );.#    endif /*
25f0: 20 21 5f 57 49 4e 33 32 5f 57 43 45 20 2a 2f 0a   !_WIN32_WCE */.
2600: 20 20 20 20 2f 2a 20 77 65 20 77 6f 6e 27 74 20      /* we won't 
2610: 72 65 61 63 68 20 74 68 69 73 2c 20 62 75 74 20  reach this, but 
2620: 77 65 20 6e 65 65 64 20 74 68 65 20 72 65 74 75  we need the retu
2630: 72 6e 20 2a 2f 0a 23 20 20 65 6e 64 69 66 20 2f  rn */.#  endif /
2640: 2a 20 5f 57 49 4e 33 32 20 2a 2f 0a 23 65 6e 64  * _WIN32 */.#end
2650: 69 66 20 2f 2a 20 4b 49 54 5f 49 4e 43 4c 55 44  if /* KIT_INCLUD
2660: 45 53 5f 54 4b 20 2a 2f 0a 0a 09 72 65 74 75 72  ES_TK */...retur
2670: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 7d 0a     n TCL_ERROR;.}.