Tcl Source Code

Hex Artifact Content
Login

Artifact 76686b7bd80e48b3b5b98bd1a6c50863e9366621:

Attachment "tclPkgConfig.c" to ticket [507083ffff] added by andreas_kupries 2002-01-25 00:32:17.
0000: 2f 2a 20 0a 20 2a 20 74 63 6c 50 6b 67 43 6f 6e  /* . * tclPkgCon
0010: 66 69 67 2e 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54  fig.c --. *. *.T
0020: 68 69 73 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e  his file contain
0030: 73 20 74 68 65 20 63 6f 6e 66 69 67 75 72 61 74  s the configurat
0040: 69 6f 6e 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20  ion information 
0050: 74 6f 0a 20 2a 09 65 6d 62 65 64 20 69 6e 74 6f  to. *.embed into
0060: 20 74 68 65 20 74 63 6c 20 62 69 6e 61 72 79 20   the tcl binary 
0070: 6c 69 62 72 61 72 79 2e 0a 20 2a 0a 20 2a 20 43  library.. *. * C
0080: 6f 70 79 72 69 67 68 74 20 28 63 29 20 32 30 30  opyright (c) 200
0090: 32 20 41 6e 64 72 65 61 73 20 4b 75 70 72 69 65  2 Andreas Kuprie
00a0: 73 20 3c 61 6e 64 72 65 61 73 5f 6b 75 70 72 69  s <andreas_kupri
00b0: 65 73 40 75 73 65 72 73 2e 73 6f 75 72 63 65 66  [email protected]
00c0: 6f 72 67 65 2e 6e 65 74 3e 0a 20 2a 0a 20 2a 20  orge.net>. *. * 
00d0: 53 65 65 20 74 68 65 20 66 69 6c 65 20 22 6c 69  See the file "li
00e0: 63 65 6e 73 65 2e 74 65 72 6d 73 22 20 66 6f 72  cense.terms" for
00f0: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20   information on 
0100: 75 73 61 67 65 20 61 6e 64 20 72 65 64 69 73 74  usage and redist
0110: 72 69 62 75 74 69 6f 6e 0a 20 2a 20 6f 66 20 74  ribution. * of t
0120: 68 69 73 20 66 69 6c 65 2c 20 61 6e 64 20 66 6f  his file, and fo
0130: 72 20 61 20 44 49 53 43 4c 41 49 4d 45 52 20 4f  r a DISCLAIMER O
0140: 46 20 41 4c 4c 20 57 41 52 52 41 4e 54 49 45 53  F ALL WARRANTIES
0150: 2e 0a 20 2a 0a 20 2a 20 52 43 53 3a 20 40 28 23  .. *. * RCS: @(#
0160: 29 20 24 49 64 3a 20 74 63 6c 49 4f 2e 63 2c 76  ) $Id: tclIO.c,v
0170: 20 31 2e 34 37 20 32 30 30 32 2f 30 31 2f 31 37   1.47 2002/01/17
0180: 20 30 34 3a 33 37 3a 33 33 20 64 67 70 20 45 78   04:37:33 dgp Ex
0190: 70 20 24 0a 20 2a 2f 0a 0a 2f 2a 20 4e 6f 74 65  p $. */../* Note
01a0: 2c 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e  , the definition
01b0: 73 20 69 6e 20 74 68 69 73 20 6d 6f 64 75 6c 65  s in this module
01c0: 20 61 72 65 20 69 6e 66 6c 75 65 6e 63 65 64 20   are influenced 
01d0: 62 79 20 74 68 65 0a 20 2a 20 66 6f 6c 6c 6f 77  by the. * follow
01e0: 69 6e 67 20 43 20 70 72 65 70 72 6f 63 65 73 73  ing C preprocess
01f0: 6f 72 20 6d 61 63 72 6f 73 3a 0a 20 2a 0a 20 2a  or macros:. *. *
0200: 20 4f 53 43 4d 61 20 20 3d 20 73 68 6f 72 74 63   OSCMa  = shortc
0210: 75 74 20 66 6f 72 20 22 6f 6c 64 20 73 74 79 6c  ut for "old styl
0220: 65 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20  e configuration 
0230: 6d 61 63 72 6f 20 61 63 74 69 76 61 74 65 73 22  macro activates"
0240: 0a 20 2a 20 4e 53 43 4d 64 74 20 3d 20 73 68 6f  . * NSCMdt = sho
0250: 72 74 63 75 74 20 66 6f 72 20 22 6e 65 77 20 73  rtcut for "new s
0260: 74 79 6c 65 20 63 6f 6e 66 69 67 75 72 61 74 69  tyle configurati
0270: 6f 6e 20 6d 61 63 72 6f 20 64 65 63 6c 61 72 65  on macro declare
0280: 73 20 74 68 61 74 22 0a 20 2a 0a 20 2a 20 2d 20  s that". *. * - 
0290: 54 43 4c 5f 54 48 52 45 41 44 53 09 09 4f 53 43  TCL_THREADS..OSC
02a0: 4d 61 20 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20  Ma  compilation 
02b0: 61 73 20 74 68 72 65 61 64 65 64 20 63 6f 72 65  as threaded core
02c0: 2e 0a 20 2a 20 2d 20 54 43 4c 5f 4d 45 4d 5f 44  .. * - TCL_MEM_D
02d0: 45 42 55 47 09 09 4f 53 43 4d 61 20 20 6d 65 6d  EBUG..OSCMa  mem
02e0: 6f 72 79 20 64 65 62 75 67 67 69 6e 67 2e 0a 20  ory debugging.. 
02f0: 2a 20 2d 20 54 43 4c 5f 43 4f 4d 50 49 4c 45 5f  * - TCL_COMPILE_
0300: 44 45 42 55 47 09 09 4f 53 43 4d 61 20 20 64 65  DEBUG..OSCMa  de
0310: 62 75 67 67 69 6e 67 20 6f 66 20 62 79 74 65 63  bugging of bytec
0320: 6f 64 65 20 63 6f 6d 70 69 6c 65 72 2e 0a 20 2a  ode compiler.. *
0330: 20 2d 20 54 43 4c 5f 43 4f 4d 50 49 4c 45 5f 53   - TCL_COMPILE_S
0340: 54 41 54 53 09 09 4f 53 43 4d 61 20 20 62 79 74  TATS..OSCMa  byt
0350: 65 63 6f 64 65 20 63 6f 6d 70 69 6c 65 72 20 73  ecode compiler s
0360: 74 61 74 69 73 74 69 63 73 2e 0a 20 2a 0a 20 2a  tatistics.. *. *
0370: 20 2d 20 54 43 4c 5f 43 46 47 5f 44 4f 36 34 42   - TCL_CFG_DO64B
0380: 49 54 09 09 4e 53 43 4d 64 74 20 74 63 6c 20 69  IT..NSCMdt tcl i
0390: 73 20 63 6f 6d 70 69 6c 65 64 20 66 6f 72 20 61  s compiled for a
03a0: 20 36 34 62 69 74 20 73 79 73 74 65 6d 2e 0a 20   64bit system.. 
03b0: 2a 20 2d 20 54 43 4c 5f 43 46 47 5f 44 45 42 55  * - TCL_CFG_DEBU
03c0: 47 09 09 4e 53 43 4d 64 74 20 74 63 6c 20 69 73  G..NSCMdt tcl is
03d0: 20 63 6f 6d 70 69 6c 65 64 20 77 69 74 68 20 73   compiled with s
03e0: 79 6d 62 6f 6c 20 69 6e 66 6f 20 6f 6e 2e 0a 20  ymbol info on.. 
03f0: 2a 20 2d 20 54 43 4c 5f 43 46 47 5f 4f 50 54 49  * - TCL_CFG_OPTI
0400: 4d 49 5a 45 44 09 09 4e 53 43 4d 64 74 20 74 63  MIZED..NSCMdt tc
0410: 6c 20 69 73 20 63 6f 6d 70 69 6c 65 64 20 77 69  l is compiled wi
0420: 74 68 20 63 63 20 6f 70 74 69 6d 69 7a 61 74 69  th cc optimizati
0430: 6f 6e 73 20 6f 6e 2e 0a 20 2a 20 2d 20 54 43 4c  ons on.. * - TCL
0440: 5f 43 46 47 5f 50 52 4f 46 49 4c 45 44 09 09 4e  _CFG_PROFILED..N
0450: 53 43 4d 64 74 20 74 63 6c 20 69 73 20 63 6f 6d  SCMdt tcl is com
0460: 70 69 6c 65 64 20 77 69 74 68 20 70 72 6f 66 69  piled with profi
0470: 6c 69 6e 67 20 69 6e 66 6f 2e 0a 20 2a 0a 20 2a  ling info.. *. *
0480: 20 2d 20 43 46 47 5f 52 55 4e 54 49 4d 45 5f 50   - CFG_RUNTIME_P
0490: 52 45 46 49 58 09 09 50 61 74 68 20 74 6f 20 70  REFIX..Path to p
04a0: 6c 61 74 66 6f 72 6d 20 69 6e 64 65 70 65 6e 64  latform independ
04b0: 65 6e 74 20 64 61 74 61 20 61 74 20 72 75 6e 74  ent data at runt
04c0: 69 6d 65 0a 20 2a 20 2d 20 43 46 47 5f 52 55 4e  ime. * - CFG_RUN
04d0: 54 49 4d 45 5f 45 58 45 43 5f 50 52 45 46 49 58  TIME_EXEC_PREFIX
04e0: 09 50 61 74 68 20 74 6f 20 70 6c 61 74 66 6f 72  .Path to platfor
04f0: 6d 20 64 65 70 65 6e 64 65 6e 74 20 64 61 74 61  m dependent data
0500: 20 61 74 20 72 75 6e 74 69 6d 65 0a 20 2a 20 2d   at runtime. * -
0510: 20 43 46 47 5f 49 4e 53 54 41 4c 4c 5f 50 52 45   CFG_INSTALL_PRE
0520: 46 49 58 09 09 50 61 74 68 20 74 6f 20 70 6c 61  FIX..Path to pla
0530: 74 66 6f 72 6d 20 69 6e 64 65 70 65 6e 64 65 6e  tform independen
0540: 74 20 64 61 74 61 20 64 75 72 69 6e 67 20 69 6e  t data during in
0550: 73 74 61 6c 6c 61 74 69 6f 6e 0a 20 2a 20 2d 20  stallation. * - 
0560: 43 46 47 5f 49 4e 53 54 41 4c 4c 5f 45 58 45 43  CFG_INSTALL_EXEC
0570: 5f 50 52 45 46 49 58 09 50 61 74 68 20 74 6f 20  _PREFIX.Path to 
0580: 70 6c 61 74 66 6f 72 6d 20 64 65 70 65 6e 64 65  platform depende
0590: 6e 74 20 64 61 74 61 20 64 75 72 69 6e 67 20 69  nt data during i
05a0: 6e 73 74 61 6c 6c 61 74 69 6f 6e 0a 20 2a 0a 20  nstallation. *. 
05b0: 2a 20 2d 20 54 43 4c 5f 43 46 47 56 41 4c 5f 45  * - TCL_CFGVAL_E
05c0: 4e 43 4f 44 49 4e 47 09 73 74 72 69 6e 67 20 63  NCODING.string c
05d0: 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 65 6e  ontaining the en
05e0: 63 6f 64 69 6e 67 20 75 73 65 64 20 66 6f 72 20  coding used for 
05f0: 74 68 65 0a 20 2a 20 20 20 20 20 20 20 20 20 20  the. *          
0600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0610: 20 20 20 20 63 6f 6e 66 69 67 75 72 61 74 69 6f      configuratio
0620: 6e 20 76 61 6c 75 65 73 2e 0a 20 2a 2f 0a 0a 23  n values.. */..#
0630: 69 6e 63 6c 75 64 65 20 22 74 63 6c 49 6e 74 2e  include "tclInt.
0640: 68 22 0a 0a 0c 0a 0a 2f 2a 20 55 73 65 20 43 20  h"...../* Use C 
0650: 70 72 65 70 72 6f 63 65 73 73 6f 72 20 73 74 61  preprocessor sta
0660: 74 65 6d 65 6e 74 73 20 74 6f 20 64 65 66 69 6e  tements to defin
0670: 65 20 74 68 65 20 76 61 72 69 6f 75 73 20 76 61  e the various va
0680: 6c 75 65 73 20 66 6f 72 20 74 68 65 0a 20 2a 20  lues for the. * 
0690: 65 6d 62 65 64 64 65 64 20 63 6f 6e 66 69 67 75  embedded configu
06a0: 72 61 74 69 6f 6e 20 69 6e 66 6f 72 6d 61 74 69  ration informati
06b0: 6f 6e 2e 20 20 2a 2f 0a 0a 23 69 66 64 65 66 20  on.  */..#ifdef 
06c0: 54 43 4c 5f 54 48 52 45 41 44 53 0a 23 20 20 64  TCL_THREADS.#  d
06d0: 65 66 69 6e 65 20 20 43 46 47 5f 54 48 52 45 41  efine  CFG_THREA
06e0: 44 45 44 20 22 31 22 0a 23 65 6c 73 65 0a 23 20  DED "1".#else.# 
06f0: 20 64 65 66 69 6e 65 20 20 43 46 47 5f 54 48 52   define  CFG_THR
0700: 45 41 44 45 44 20 22 30 22 0a 23 65 6e 64 69 66  EADED "0".#endif
0710: 0a 23 69 66 64 65 66 20 54 43 4c 5f 4d 45 4d 5f  .#ifdef TCL_MEM_
0720: 44 45 42 55 47 0a 23 20 20 64 65 66 69 6e 65 20  DEBUG.#  define 
0730: 43 46 47 5f 4d 45 4d 44 45 42 55 47 20 22 31 22  CFG_MEMDEBUG "1"
0740: 0a 23 65 6c 73 65 0a 23 20 20 64 65 66 69 6e 65  .#else.#  define
0750: 20 43 46 47 5f 4d 45 4d 44 45 42 55 47 20 22 30   CFG_MEMDEBUG "0
0760: 22 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20  ".#endif.#ifdef 
0770: 54 43 4c 5f 43 4f 4d 50 49 4c 45 5f 44 45 42 55  TCL_COMPILE_DEBU
0780: 47 0a 23 20 20 64 65 66 69 6e 65 20 43 46 47 5f  G.#  define CFG_
0790: 43 4f 4d 50 49 4c 45 5f 44 45 42 55 47 20 22 31  COMPILE_DEBUG "1
07a0: 22 0a 23 65 6c 73 65 0a 23 20 20 64 65 66 69 6e  ".#else.#  defin
07b0: 65 20 43 46 47 5f 43 4f 4d 50 49 4c 45 5f 44 45  e CFG_COMPILE_DE
07c0: 42 55 47 20 22 30 22 0a 23 65 6e 64 69 66 0a 23  BUG "0".#endif.#
07d0: 69 66 64 65 66 20 54 43 4c 5f 43 4f 4d 50 49 4c  ifdef TCL_COMPIL
07e0: 45 5f 53 54 41 54 53 0a 23 20 20 64 65 66 69 6e  E_STATS.#  defin
07f0: 65 20 43 46 47 5f 43 4f 4d 50 49 4c 45 5f 53 54  e CFG_COMPILE_ST
0800: 41 54 53 20 22 31 22 0a 23 65 6c 73 65 0a 23 20  ATS "1".#else.# 
0810: 20 64 65 66 69 6e 65 20 43 46 47 5f 43 4f 4d 50   define CFG_COMP
0820: 49 4c 45 5f 53 54 41 54 53 20 22 30 22 0a 23 65  ILE_STATS "0".#e
0830: 6e 64 69 66 0a 23 69 66 64 65 66 20 54 43 4c 5f  ndif.#ifdef TCL_
0840: 43 46 47 5f 44 4f 36 34 42 49 54 0a 23 20 20 64  CFG_DO64BIT.#  d
0850: 65 66 69 6e 65 20 43 46 47 5f 36 34 20 20 20 20  efine CFG_64    
0860: 20 20 20 20 20 20 20 20 22 31 22 0a 23 65 6c 73          "1".#els
0870: 65 0a 23 20 20 64 65 66 69 6e 65 20 43 46 47 5f  e.#  define CFG_
0880: 36 34 20 20 20 20 20 20 20 20 20 20 20 20 22 30  64            "0
0890: 22 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20  ".#endif.#ifdef 
08a0: 54 43 4c 5f 43 46 47 5f 44 45 42 55 47 0a 23 20  TCL_CFG_DEBUG.# 
08b0: 20 64 65 66 69 6e 65 20 43 46 47 5f 44 45 42 55   define CFG_DEBU
08c0: 47 20 20 20 20 20 20 20 20 20 22 31 22 0a 23 65  G         "1".#e
08d0: 6c 73 65 0a 23 20 20 64 65 66 69 6e 65 20 43 46  lse.#  define CF
08e0: 47 5f 44 45 42 55 47 20 20 20 20 20 20 20 20 20  G_DEBUG         
08f0: 22 30 22 0a 23 65 6e 64 69 66 0a 23 69 66 64 65  "0".#endif.#ifde
0900: 66 20 54 43 4c 5f 43 46 47 5f 4f 50 54 49 4d 49  f TCL_CFG_OPTIMI
0910: 5a 45 44 0a 23 20 20 64 65 66 69 6e 65 20 43 46  ZED.#  define CF
0920: 47 5f 4f 50 54 49 4d 49 5a 45 44 20 20 20 20 20  G_OPTIMIZED     
0930: 22 31 22 0a 23 65 6c 73 65 0a 23 20 20 64 65 66  "1".#else.#  def
0940: 69 6e 65 20 43 46 47 5f 4f 50 54 49 4d 49 5a 45  ine CFG_OPTIMIZE
0950: 44 20 20 20 20 20 22 30 22 0a 23 65 6e 64 69 66  D     "0".#endif
0960: 0a 23 69 66 64 65 66 20 54 43 4c 5f 43 46 47 5f  .#ifdef TCL_CFG_
0970: 50 52 4f 46 49 4c 45 44 0a 23 20 20 64 65 66 69  PROFILED.#  defi
0980: 6e 65 20 43 46 47 5f 50 52 4f 46 49 4c 45 44 20  ne CFG_PROFILED 
0990: 20 20 20 20 22 31 22 0a 23 65 6c 73 65 0a 23 20      "1".#else.# 
09a0: 20 64 65 66 69 6e 65 20 43 46 47 5f 50 52 4f 46   define CFG_PROF
09b0: 49 4c 45 44 20 20 20 20 20 22 30 22 0a 23 65 6e  ILED     "0".#en
09c0: 64 69 66 0a 0a 73 74 61 74 69 63 20 54 63 6c 5f  dif..static Tcl_
09d0: 43 6f 6e 66 69 67 20 63 66 67 20 5b 5d 20 3d 20  Config cfg [] = 
09e0: 7b 0a 20 20 7b 22 64 65 62 75 67 22 2c 20 20 20  {.  {"debug",   
09f0: 20 20 20 20 20 20 20 20 20 20 20 20 43 46 47 5f              CFG_
0a00: 44 45 42 55 47 7d 2c 0a 20 20 7b 22 74 68 72 65  DEBUG},.  {"thre
0a10: 61 64 65 64 22 2c 20 20 20 20 20 20 20 20 20 20  aded",          
0a20: 20 20 43 46 47 5f 54 48 52 45 41 44 45 44 7d 2c    CFG_THREADED},
0a30: 0a 20 20 7b 22 70 72 6f 66 69 6c 65 64 22 2c 20  .  {"profiled", 
0a40: 20 20 20 20 20 20 20 20 20 20 20 43 46 47 5f 50             CFG_P
0a50: 52 4f 46 49 4c 45 44 7d 2c 0a 20 20 7b 22 36 34  ROFILED},.  {"64
0a60: 62 69 74 22 2c 20 20 20 20 20 20 20 20 20 20 20  bit",           
0a70: 20 20 20 20 43 46 47 5f 36 34 7d 2c 0a 20 20 7b      CFG_64},.  {
0a80: 22 6f 70 74 69 6d 69 7a 65 64 22 2c 20 20 20 20  "optimized",    
0a90: 20 20 20 20 20 20 20 43 46 47 5f 4f 50 54 49 4d         CFG_OPTIM
0aa0: 49 5a 45 44 7d 2c 0a 20 20 7b 22 6d 65 6d 5f 64  IZED},.  {"mem_d
0ab0: 65 62 75 67 22 2c 20 20 20 20 20 20 20 20 20 20  ebug",          
0ac0: 20 43 46 47 5f 4d 45 4d 44 45 42 55 47 7d 2c 0a   CFG_MEMDEBUG},.
0ad0: 20 20 7b 22 63 6f 6d 70 69 6c 65 5f 64 65 62 75    {"compile_debu
0ae0: 67 22 2c 20 20 20 20 20 20 20 43 46 47 5f 43 4f  g",       CFG_CO
0af0: 4d 50 49 4c 45 5f 44 45 42 55 47 7d 2c 0a 20 20  MPILE_DEBUG},.  
0b00: 7b 22 63 6f 6d 70 69 6c 65 5f 73 74 61 74 73 22  {"compile_stats"
0b10: 2c 20 20 20 20 20 20 20 43 46 47 5f 43 4f 4d 50  ,       CFG_COMP
0b20: 49 4c 45 5f 53 54 41 54 53 7d 2c 0a 20 20 7b 22  ILE_STATS},.  {"
0b30: 70 72 65 66 69 78 2c 72 75 6e 74 69 6d 65 22 2c  prefix,runtime",
0b40: 20 20 20 20 20 20 43 46 47 5f 52 55 4e 54 49 4d        CFG_RUNTIM
0b50: 45 5f 50 52 45 46 49 58 7d 2c 0a 20 20 7b 22 65  E_PREFIX},.  {"e
0b60: 78 65 63 5f 70 72 65 66 69 78 2c 72 75 6e 74 69  xec_prefix,runti
0b70: 6d 65 22 2c 20 43 46 47 5f 52 55 4e 54 49 4d 45  me", CFG_RUNTIME
0b80: 5f 45 58 45 43 5f 50 52 45 46 49 58 7d 2c 0a 20  _EXEC_PREFIX},. 
0b90: 20 7b 22 70 72 65 66 69 78 2c 69 6e 73 74 61 6c   {"prefix,instal
0ba0: 6c 22 2c 20 20 20 20 20 20 43 46 47 5f 49 4e 53  l",      CFG_INS
0bb0: 54 41 4c 4c 5f 50 52 45 46 49 58 7d 2c 0a 20 20  TALL_PREFIX},.  
0bc0: 7b 22 65 78 65 63 5f 70 72 65 66 69 78 2c 69 6e  {"exec_prefix,in
0bd0: 73 74 61 6c 6c 22 2c 20 43 46 47 5f 49 4e 53 54  stall", CFG_INST
0be0: 41 4c 4c 5f 45 58 45 43 5f 50 52 45 46 49 58 7d  ALL_EXEC_PREFIX}
0bf0: 2c 0a 20 20 2f 2a 20 4c 61 73 74 20 65 6e 74 72  ,.  /* Last entr
0c00: 79 2c 20 63 6c 6f 73 65 73 20 74 68 65 20 61 72  y, closes the ar
0c10: 72 61 79 20 2a 2f 0a 20 20 7b 4e 55 4c 4c 2c 20  ray */.  {NULL, 
0c20: 4e 55 4c 4c 7d 0a 7d 3b 0a 0a 76 6f 69 64 0a 54  NULL}.};..void.T
0c30: 63 6c 49 6e 69 74 45 6d 62 65 64 64 65 64 43 6f  clInitEmbeddedCo
0c40: 6e 66 69 67 75 72 61 74 69 6f 6e 49 6e 66 6f 72  nfigurationInfor
0c50: 6d 61 74 69 6f 6e 20 28 69 6e 74 65 72 70 29 0a  mation (interp).
0c60: 20 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 2a       Tcl_Interp*
0c70: 20 69 6e 74 65 72 70 3b 20 20 20 20 20 20 20 20   interp;        
0c80: 20 20 20 20 2f 2a 20 69 6e 74 65 72 70 20 74 68      /* interp th
0c90: 65 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20  e configuration 
0ca0: 63 6f 6d 6d 61 6e 64 20 69 73 20 72 65 67 69 73  command is regis
0cb0: 74 65 72 65 64 20 69 6e 20 2a 2f 0a 7b 0a 20 20  tered in */.{.  
0cc0: 54 63 6c 5f 52 65 67 69 73 74 65 72 43 6f 6e 66  Tcl_RegisterConf
0cd0: 69 67 20 28 69 6e 74 65 72 70 2c 20 22 74 63 6c  ig (interp, "tcl
0ce0: 22 2c 20 63 66 67 2c 0a 09 09 20 20 20 20 20 20  ", cfg,...      
0cf0: 54 43 4c 5f 43 46 47 56 41 4c 5f 45 4e 43 4f 44  TCL_CFGVAL_ENCOD
0d00: 49 4e 47 29 3b 0a 7d 0a                          ING);.}.