Fossil

Hex Artifact Content
Login

Artifact 05f8965cb99af1c9bb78ff437e991f49a598f7b7:


0000: 2f 2a 0a 20 2a 20 74 63 6c 50 6c 61 74 44 65 63  /*. * tclPlatDec
0010: 6c 73 2e 68 20 2d 2d 0a 20 2a 0a 20 2a 09 44 65  ls.h --. *. *.De
0020: 63 6c 61 72 61 74 69 6f 6e 73 20 6f 66 20 70 6c  clarations of pl
0030: 61 74 66 6f 72 6d 20 73 70 65 63 69 66 69 63 20  atform specific 
0040: 54 63 6c 20 41 50 49 73 2e 0a 20 2a 0a 20 2a 20  Tcl APIs.. *. * 
0050: 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 31 39  Copyright (c) 19
0060: 39 38 2d 31 39 39 39 20 62 79 20 53 63 72 69 70  98-1999 by Scrip
0070: 74 69 63 73 20 43 6f 72 70 6f 72 61 74 69 6f 6e  tics Corporation
0080: 2e 0a 20 2a 20 41 6c 6c 20 72 69 67 68 74 73 20  .. * All rights 
0090: 72 65 73 65 72 76 65 64 2e 0a 20 2a 2f 0a 0a 23  reserved.. */..#
00a0: 69 66 6e 64 65 66 20 5f 54 43 4c 50 4c 41 54 44  ifndef _TCLPLATD
00b0: 45 43 4c 53 0a 23 64 65 66 69 6e 65 20 5f 54 43  ECLS.#define _TC
00c0: 4c 50 4c 41 54 44 45 43 4c 53 0a 0a 23 75 6e 64  LPLATDECLS..#und
00d0: 65 66 20 54 43 4c 5f 53 54 4f 52 41 47 45 5f 43  ef TCL_STORAGE_C
00e0: 4c 41 53 53 0a 23 69 66 64 65 66 20 42 55 49 4c  LASS.#ifdef BUIL
00f0: 44 5f 74 63 6c 0a 23 20 20 20 64 65 66 69 6e 65  D_tcl.#   define
0100: 20 54 43 4c 5f 53 54 4f 52 41 47 45 5f 43 4c 41   TCL_STORAGE_CLA
0110: 53 53 20 44 4c 4c 45 58 50 4f 52 54 0a 23 65 6c  SS DLLEXPORT.#el
0120: 73 65 0a 23 20 20 20 69 66 64 65 66 20 55 53 45  se.#   ifdef USE
0130: 5f 54 43 4c 5f 53 54 55 42 53 0a 23 20 20 20 20  _TCL_STUBS.#    
0140: 20 20 64 65 66 69 6e 65 20 54 43 4c 5f 53 54 4f    define TCL_STO
0150: 52 41 47 45 5f 43 4c 41 53 53 0a 23 20 20 20 65  RAGE_CLASS.#   e
0160: 6c 73 65 0a 23 20 20 20 20 20 20 64 65 66 69 6e  lse.#      defin
0170: 65 20 54 43 4c 5f 53 54 4f 52 41 47 45 5f 43 4c  e TCL_STORAGE_CL
0180: 41 53 53 20 44 4c 4c 49 4d 50 4f 52 54 0a 23 20  ASS DLLIMPORT.# 
0190: 20 20 65 6e 64 69 66 0a 23 65 6e 64 69 66 0a 0a    endif.#endif..
01a0: 2f 2a 0a 20 2a 20 57 41 52 4e 49 4e 47 3a 20 54  /*. * WARNING: T
01b0: 68 69 73 20 66 69 6c 65 20 69 73 20 61 75 74 6f  his file is auto
01c0: 6d 61 74 69 63 61 6c 6c 79 20 67 65 6e 65 72 61  matically genera
01d0: 74 65 64 20 62 79 20 74 68 65 20 74 6f 6f 6c 73  ted by the tools
01e0: 2f 67 65 6e 53 74 75 62 73 2e 74 63 6c 0a 20 2a  /genStubs.tcl. *
01f0: 20 73 63 72 69 70 74 2e 20 20 41 6e 79 20 6d 6f   script.  Any mo
0200: 64 69 66 69 63 61 74 69 6f 6e 73 20 74 6f 20 74  difications to t
0210: 68 65 20 66 75 6e 63 74 69 6f 6e 20 64 65 63 6c  he function decl
0220: 61 72 61 74 69 6f 6e 73 20 62 65 6c 6f 77 20 73  arations below s
0230: 68 6f 75 6c 64 20 62 65 20 6d 61 64 65 0a 20 2a  hould be made. *
0240: 20 69 6e 20 74 68 65 20 67 65 6e 65 72 69 63 2f   in the generic/
0250: 74 63 6c 2e 64 65 63 6c 73 20 73 63 72 69 70 74  tcl.decls script
0260: 2e 0a 20 2a 2f 0a 0a 2f 2a 0a 20 2a 20 54 43 48  .. */../*. * TCH
0270: 41 52 20 69 73 20 6e 65 65 64 65 64 20 68 65 72  AR is needed her
0280: 65 20 66 6f 72 20 77 69 6e 33 32 2c 20 73 6f 20  e for win32, so 
0290: 69 66 20 69 74 20 69 73 20 6e 6f 74 20 64 65 66  if it is not def
02a0: 69 6e 65 64 20 79 65 74 20 64 6f 20 69 74 20 68  ined yet do it h
02b0: 65 72 65 2e 0a 20 2a 20 54 68 69 73 20 77 61 79  ere.. * This way
02c0: 2c 20 77 65 20 64 6f 6e 27 74 20 6e 65 65 64 20  , we don't need 
02d0: 74 6f 20 69 6e 63 6c 75 64 65 20 3c 74 63 68 61  to include <tcha
02e0: 72 2e 68 3e 20 6a 75 73 74 20 66 6f 72 20 6f 6e  r.h> just for on
02f0: 65 20 64 65 66 69 6e 65 2e 0a 20 2a 2f 0a 23 69  e define.. */.#i
0300: 66 20 28 64 65 66 69 6e 65 64 28 5f 57 49 4e 33  f (defined(_WIN3
0310: 32 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 5f 5f  2) || defined(__
0320: 43 59 47 57 49 4e 5f 5f 29 29 20 26 26 20 21 64  CYGWIN__)) && !d
0330: 65 66 69 6e 65 64 28 5f 54 43 48 41 52 5f 44 45  efined(_TCHAR_DE
0340: 46 49 4e 45 44 29 0a 23 20 20 20 69 66 20 64 65  FINED).#   if de
0350: 66 69 6e 65 64 28 5f 55 4e 49 43 4f 44 45 29 0a  fined(_UNICODE).
0360: 09 74 79 70 65 64 65 66 20 77 63 68 61 72 5f 74  .typedef wchar_t
0370: 20 54 43 48 41 52 3b 0a 23 20 20 20 65 6c 73 65   TCHAR;.#   else
0380: 0a 09 74 79 70 65 64 65 66 20 63 68 61 72 20 54  ..typedef char T
0390: 43 48 41 52 3b 0a 23 20 20 20 65 6e 64 69 66 0a  CHAR;.#   endif.
03a0: 23 20 20 20 64 65 66 69 6e 65 20 5f 54 43 48 41  #   define _TCHA
03b0: 52 5f 44 45 46 49 4e 45 44 0a 23 65 6e 64 69 66  R_DEFINED.#endif
03c0: 0a 0a 2f 2a 20 21 42 45 47 49 4e 21 3a 20 44 6f  ../* !BEGIN!: Do
03d0: 20 6e 6f 74 20 65 64 69 74 20 62 65 6c 6f 77 20   not edit below 
03e0: 74 68 69 73 20 6c 69 6e 65 2e 20 2a 2f 0a 0a 2f  this line. */../
03f0: 2a 0a 20 2a 20 45 78 70 6f 72 74 65 64 20 66 75  *. * Exported fu
0400: 6e 63 74 69 6f 6e 20 64 65 63 6c 61 72 61 74 69  nction declarati
0410: 6f 6e 73 3a 0a 20 2a 2f 0a 0a 23 69 66 20 64 65  ons:. */..#if de
0420: 66 69 6e 65 64 28 5f 5f 57 49 4e 33 32 5f 5f 29  fined(__WIN32__)
0430: 20 7c 7c 20 64 65 66 69 6e 65 64 28 5f 5f 43 59   || defined(__CY
0440: 47 57 49 4e 5f 5f 29 20 2f 2a 20 57 49 4e 20 2a  GWIN__) /* WIN *
0450: 2f 0a 2f 2a 20 30 20 2a 2f 0a 45 58 54 45 52 4e  /./* 0 */.EXTERN
0460: 20 54 43 48 41 52 20 2a 09 09 54 63 6c 5f 57 69   TCHAR *..Tcl_Wi
0470: 6e 55 74 66 54 6f 54 43 68 61 72 28 63 6f 6e 73  nUtfToTChar(cons
0480: 74 20 63 68 61 72 20 2a 73 74 72 2c 20 69 6e 74  t char *str, int
0490: 20 6c 65 6e 2c 0a 09 09 09 09 54 63 6c 5f 44 53   len,.....Tcl_DS
04a0: 74 72 69 6e 67 20 2a 64 73 50 74 72 29 3b 0a 2f  tring *dsPtr);./
04b0: 2a 20 31 20 2a 2f 0a 45 58 54 45 52 4e 20 63 68  * 1 */.EXTERN ch
04c0: 61 72 20 2a 09 09 54 63 6c 5f 57 69 6e 54 43 68  ar *..Tcl_WinTCh
04d0: 61 72 54 6f 55 74 66 28 63 6f 6e 73 74 20 54 43  arToUtf(const TC
04e0: 48 41 52 20 2a 73 74 72 2c 20 69 6e 74 20 6c 65  HAR *str, int le
04f0: 6e 2c 0a 09 09 09 09 54 63 6c 5f 44 53 74 72 69  n,.....Tcl_DStri
0500: 6e 67 20 2a 64 73 50 74 72 29 3b 0a 23 65 6e 64  ng *dsPtr);.#end
0510: 69 66 20 2f 2a 20 57 49 4e 20 2a 2f 0a 23 69 66  if /* WIN */.#if
0520: 64 65 66 20 4d 41 43 5f 4f 53 58 5f 54 43 4c 20  def MAC_OSX_TCL 
0530: 2f 2a 20 4d 41 43 4f 53 58 20 2a 2f 0a 2f 2a 20  /* MACOSX */./* 
0540: 30 20 2a 2f 0a 45 58 54 45 52 4e 20 69 6e 74 09  0 */.EXTERN int.
0550: 09 54 63 6c 5f 4d 61 63 4f 53 58 4f 70 65 6e 42  .Tcl_MacOSXOpenB
0560: 75 6e 64 6c 65 52 65 73 6f 75 72 63 65 73 28 54  undleResources(T
0570: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
0580: 70 2c 0a 09 09 09 09 63 6f 6e 73 74 20 63 68 61  p,.....const cha
0590: 72 20 2a 62 75 6e 64 6c 65 4e 61 6d 65 2c 20 69  r *bundleName, i
05a0: 6e 74 20 68 61 73 52 65 73 6f 75 72 63 65 46 69  nt hasResourceFi
05b0: 6c 65 2c 0a 09 09 09 09 69 6e 74 20 6d 61 78 50  le,.....int maxP
05c0: 61 74 68 4c 65 6e 2c 20 63 68 61 72 20 2a 6c 69  athLen, char *li
05d0: 62 72 61 72 79 50 61 74 68 29 3b 0a 2f 2a 20 31  braryPath);./* 1
05e0: 20 2a 2f 0a 45 58 54 45 52 4e 20 69 6e 74 09 09   */.EXTERN int..
05f0: 54 63 6c 5f 4d 61 63 4f 53 58 4f 70 65 6e 56 65  Tcl_MacOSXOpenVe
0600: 72 73 69 6f 6e 65 64 42 75 6e 64 6c 65 52 65 73  rsionedBundleRes
0610: 6f 75 72 63 65 73 28 0a 09 09 09 09 54 63 6c 5f  ources(.....Tcl_
0620: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
0630: 63 6f 6e 73 74 20 63 68 61 72 20 2a 62 75 6e 64  const char *bund
0640: 6c 65 4e 61 6d 65 2c 0a 09 09 09 09 63 6f 6e 73  leName,.....cons
0650: 74 20 63 68 61 72 20 2a 62 75 6e 64 6c 65 56 65  t char *bundleVe
0660: 72 73 69 6f 6e 2c 0a 09 09 09 09 69 6e 74 20 68  rsion,.....int h
0670: 61 73 52 65 73 6f 75 72 63 65 46 69 6c 65 2c 20  asResourceFile, 
0680: 69 6e 74 20 6d 61 78 50 61 74 68 4c 65 6e 2c 0a  int maxPathLen,.
0690: 09 09 09 09 63 68 61 72 20 2a 6c 69 62 72 61 72  ....char *librar
06a0: 79 50 61 74 68 29 3b 0a 23 65 6e 64 69 66 20 2f  yPath);.#endif /
06b0: 2a 20 4d 41 43 4f 53 58 20 2a 2f 0a 0a 74 79 70  * MACOSX */..typ
06c0: 65 64 65 66 20 73 74 72 75 63 74 20 54 63 6c 50  edef struct TclP
06d0: 6c 61 74 53 74 75 62 73 20 7b 0a 20 20 20 20 69  latStubs {.    i
06e0: 6e 74 20 6d 61 67 69 63 3b 0a 20 20 20 20 76 6f  nt magic;.    vo
06f0: 69 64 20 2a 68 6f 6f 6b 73 3b 0a 0a 23 69 66 20  id *hooks;..#if 
0700: 64 65 66 69 6e 65 64 28 5f 5f 57 49 4e 33 32 5f  defined(__WIN32_
0710: 5f 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 5f 5f  _) || defined(__
0720: 43 59 47 57 49 4e 5f 5f 29 20 2f 2a 20 57 49 4e  CYGWIN__) /* WIN
0730: 20 2a 2f 0a 20 20 20 20 54 43 48 41 52 20 2a 20   */.    TCHAR * 
0740: 28 2a 74 63 6c 5f 57 69 6e 55 74 66 54 6f 54 43  (*tcl_WinUtfToTC
0750: 68 61 72 29 20 28 63 6f 6e 73 74 20 63 68 61 72  har) (const char
0760: 20 2a 73 74 72 2c 20 69 6e 74 20 6c 65 6e 2c 20   *str, int len, 
0770: 54 63 6c 5f 44 53 74 72 69 6e 67 20 2a 64 73 50  Tcl_DString *dsP
0780: 74 72 29 3b 20 2f 2a 20 30 20 2a 2f 0a 20 20 20  tr); /* 0 */.   
0790: 20 63 68 61 72 20 2a 20 28 2a 74 63 6c 5f 57 69   char * (*tcl_Wi
07a0: 6e 54 43 68 61 72 54 6f 55 74 66 29 20 28 63 6f  nTCharToUtf) (co
07b0: 6e 73 74 20 54 43 48 41 52 20 2a 73 74 72 2c 20  nst TCHAR *str, 
07c0: 69 6e 74 20 6c 65 6e 2c 20 54 63 6c 5f 44 53 74  int len, Tcl_DSt
07d0: 72 69 6e 67 20 2a 64 73 50 74 72 29 3b 20 2f 2a  ring *dsPtr); /*
07e0: 20 31 20 2a 2f 0a 23 65 6e 64 69 66 20 2f 2a 20   1 */.#endif /* 
07f0: 57 49 4e 20 2a 2f 0a 23 69 66 64 65 66 20 4d 41  WIN */.#ifdef MA
0800: 43 5f 4f 53 58 5f 54 43 4c 20 2f 2a 20 4d 41 43  C_OSX_TCL /* MAC
0810: 4f 53 58 20 2a 2f 0a 20 20 20 20 69 6e 74 20 28  OSX */.    int (
0820: 2a 74 63 6c 5f 4d 61 63 4f 53 58 4f 70 65 6e 42  *tcl_MacOSXOpenB
0830: 75 6e 64 6c 65 52 65 73 6f 75 72 63 65 73 29 20  undleResources) 
0840: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74  (Tcl_Interp *int
0850: 65 72 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  erp, const char 
0860: 2a 62 75 6e 64 6c 65 4e 61 6d 65 2c 20 69 6e 74  *bundleName, int
0870: 20 68 61 73 52 65 73 6f 75 72 63 65 46 69 6c 65   hasResourceFile
0880: 2c 20 69 6e 74 20 6d 61 78 50 61 74 68 4c 65 6e  , int maxPathLen
0890: 2c 20 63 68 61 72 20 2a 6c 69 62 72 61 72 79 50  , char *libraryP
08a0: 61 74 68 29 3b 20 2f 2a 20 30 20 2a 2f 0a 20 20  ath); /* 0 */.  
08b0: 20 20 69 6e 74 20 28 2a 74 63 6c 5f 4d 61 63 4f    int (*tcl_MacO
08c0: 53 58 4f 70 65 6e 56 65 72 73 69 6f 6e 65 64 42  SXOpenVersionedB
08d0: 75 6e 64 6c 65 52 65 73 6f 75 72 63 65 73 29 20  undleResources) 
08e0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74  (Tcl_Interp *int
08f0: 65 72 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20  erp, const char 
0900: 2a 62 75 6e 64 6c 65 4e 61 6d 65 2c 20 63 6f 6e  *bundleName, con
0910: 73 74 20 63 68 61 72 20 2a 62 75 6e 64 6c 65 56  st char *bundleV
0920: 65 72 73 69 6f 6e 2c 20 69 6e 74 20 68 61 73 52  ersion, int hasR
0930: 65 73 6f 75 72 63 65 46 69 6c 65 2c 20 69 6e 74  esourceFile, int
0940: 20 6d 61 78 50 61 74 68 4c 65 6e 2c 20 63 68 61   maxPathLen, cha
0950: 72 20 2a 6c 69 62 72 61 72 79 50 61 74 68 29 3b  r *libraryPath);
0960: 20 2f 2a 20 31 20 2a 2f 0a 23 65 6e 64 69 66 20   /* 1 */.#endif 
0970: 2f 2a 20 4d 41 43 4f 53 58 20 2a 2f 0a 7d 20 54  /* MACOSX */.} T
0980: 63 6c 50 6c 61 74 53 74 75 62 73 3b 0a 0a 23 69  clPlatStubs;..#i
0990: 66 64 65 66 20 5f 5f 63 70 6c 75 73 70 6c 75 73  fdef __cplusplus
09a0: 0a 65 78 74 65 72 6e 20 22 43 22 20 7b 0a 23 65  .extern "C" {.#e
09b0: 6e 64 69 66 0a 65 78 74 65 72 6e 20 63 6f 6e 73  ndif.extern cons
09c0: 74 20 54 63 6c 50 6c 61 74 53 74 75 62 73 20 2a  t TclPlatStubs *
09d0: 74 63 6c 50 6c 61 74 53 74 75 62 73 50 74 72 3b  tclPlatStubsPtr;
09e0: 0a 23 69 66 64 65 66 20 5f 5f 63 70 6c 75 73 70  .#ifdef __cplusp
09f0: 6c 75 73 0a 7d 0a 23 65 6e 64 69 66 0a 0a 23 69  lus.}.#endif..#i
0a00: 66 20 64 65 66 69 6e 65 64 28 55 53 45 5f 54 43  f defined(USE_TC
0a10: 4c 5f 53 54 55 42 53 29 0a 0a 2f 2a 0a 20 2a 20  L_STUBS)../*. * 
0a20: 49 6e 6c 69 6e 65 20 66 75 6e 63 74 69 6f 6e 20  Inline function 
0a30: 64 65 63 6c 61 72 61 74 69 6f 6e 73 3a 0a 20 2a  declarations:. *
0a40: 2f 0a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 5f  /..#if defined(_
0a50: 5f 57 49 4e 33 32 5f 5f 29 20 7c 7c 20 64 65 66  _WIN32__) || def
0a60: 69 6e 65 64 28 5f 5f 43 59 47 57 49 4e 5f 5f 29  ined(__CYGWIN__)
0a70: 20 2f 2a 20 57 49 4e 20 2a 2f 0a 23 64 65 66 69   /* WIN */.#defi
0a80: 6e 65 20 54 63 6c 5f 57 69 6e 55 74 66 54 6f 54  ne Tcl_WinUtfToT
0a90: 43 68 61 72 20 5c 0a 09 28 74 63 6c 50 6c 61 74  Char \..(tclPlat
0aa0: 53 74 75 62 73 50 74 72 2d 3e 74 63 6c 5f 57 69  StubsPtr->tcl_Wi
0ab0: 6e 55 74 66 54 6f 54 43 68 61 72 29 20 2f 2a 20  nUtfToTChar) /* 
0ac0: 30 20 2a 2f 0a 23 64 65 66 69 6e 65 20 54 63 6c  0 */.#define Tcl
0ad0: 5f 57 69 6e 54 43 68 61 72 54 6f 55 74 66 20 5c  _WinTCharToUtf \
0ae0: 0a 09 28 74 63 6c 50 6c 61 74 53 74 75 62 73 50  ..(tclPlatStubsP
0af0: 74 72 2d 3e 74 63 6c 5f 57 69 6e 54 43 68 61 72  tr->tcl_WinTChar
0b00: 54 6f 55 74 66 29 20 2f 2a 20 31 20 2a 2f 0a 23  ToUtf) /* 1 */.#
0b10: 65 6e 64 69 66 20 2f 2a 20 57 49 4e 20 2a 2f 0a  endif /* WIN */.
0b20: 23 69 66 64 65 66 20 4d 41 43 5f 4f 53 58 5f 54  #ifdef MAC_OSX_T
0b30: 43 4c 20 2f 2a 20 4d 41 43 4f 53 58 20 2a 2f 0a  CL /* MACOSX */.
0b40: 23 64 65 66 69 6e 65 20 54 63 6c 5f 4d 61 63 4f  #define Tcl_MacO
0b50: 53 58 4f 70 65 6e 42 75 6e 64 6c 65 52 65 73 6f  SXOpenBundleReso
0b60: 75 72 63 65 73 20 5c 0a 09 28 74 63 6c 50 6c 61  urces \..(tclPla
0b70: 74 53 74 75 62 73 50 74 72 2d 3e 74 63 6c 5f 4d  tStubsPtr->tcl_M
0b80: 61 63 4f 53 58 4f 70 65 6e 42 75 6e 64 6c 65 52  acOSXOpenBundleR
0b90: 65 73 6f 75 72 63 65 73 29 20 2f 2a 20 30 20 2a  esources) /* 0 *
0ba0: 2f 0a 23 64 65 66 69 6e 65 20 54 63 6c 5f 4d 61  /.#define Tcl_Ma
0bb0: 63 4f 53 58 4f 70 65 6e 56 65 72 73 69 6f 6e 65  cOSXOpenVersione
0bc0: 64 42 75 6e 64 6c 65 52 65 73 6f 75 72 63 65 73  dBundleResources
0bd0: 20 5c 0a 09 28 74 63 6c 50 6c 61 74 53 74 75 62   \..(tclPlatStub
0be0: 73 50 74 72 2d 3e 74 63 6c 5f 4d 61 63 4f 53 58  sPtr->tcl_MacOSX
0bf0: 4f 70 65 6e 56 65 72 73 69 6f 6e 65 64 42 75 6e  OpenVersionedBun
0c00: 64 6c 65 52 65 73 6f 75 72 63 65 73 29 20 2f 2a  dleResources) /*
0c10: 20 31 20 2a 2f 0a 23 65 6e 64 69 66 20 2f 2a 20   1 */.#endif /* 
0c20: 4d 41 43 4f 53 58 20 2a 2f 0a 0a 23 65 6e 64 69  MACOSX */..#endi
0c30: 66 20 2f 2a 20 64 65 66 69 6e 65 64 28 55 53 45  f /* defined(USE
0c40: 5f 54 43 4c 5f 53 54 55 42 53 29 20 2a 2f 0a 0a  _TCL_STUBS) */..
0c50: 2f 2a 20 21 45 4e 44 21 3a 20 44 6f 20 6e 6f 74  /* !END!: Do not
0c60: 20 65 64 69 74 20 61 62 6f 76 65 20 74 68 69 73   edit above this
0c70: 20 6c 69 6e 65 2e 20 2a 2f 0a 0a 23 75 6e 64 65   line. */..#unde
0c80: 66 20 54 43 4c 5f 53 54 4f 52 41 47 45 5f 43 4c  f TCL_STORAGE_CL
0c90: 41 53 53 0a 23 64 65 66 69 6e 65 20 54 43 4c 5f  ASS.#define TCL_
0ca0: 53 54 4f 52 41 47 45 5f 43 4c 41 53 53 20 44 4c  STORAGE_CLASS DL
0cb0: 4c 49 4d 50 4f 52 54 0a 0a 23 65 6e 64 69 66 20  LIMPORT..#endif 
0cc0: 2f 2a 20 5f 54 43 4c 50 4c 41 54 44 45 43 4c 53  /* _TCLPLATDECLS
0cd0: 20 2a 2f 0a 0a 0a                                 */...