Artifact 13eb9e8d80760c3668d8fe2f6baa2a7f4fe64c70b9432fbe45552488ce9de049:

• File pkgIndex.tcl.in — part of check-in [275ecbcc5d] at 2023-04-10 01:27:35 on branch trunk — Initial changes for TCL 9.0. Fixed package requires to work with TCL 9.0. Removed obsolete macro _ANSI_ARGS_, use ANSI arg definitions, etc. Macros: CONST84 to const, WIN32 to _WIN32, CONST to const, VOID to void, etc. Replaced Tcl_SaveResult with Tcl_SaveInterpState, Tcl_RestoreResult with Tcl_RestoreInterpState, and Tcl_DiscardResult with Tcl_DiscardInterpState. Use Tcl_BackgroundError for pre TCL 8.6 and Tcl_BackgroundException for TCL 8.6+. (user: bohagan, size: 518) [annotate] [blame] [check-ins using] [more...]

0000: 69 66 20 7b 5b 70 61 63 6b 61 67 65 20 76 73 61  if {[package vsa
0010: 74 69 73 66 69 65 73 20 5b 70 61 63 6b 61 67 65  tisfies [package
0020: 20 70 72 65 73 65 6e 74 20 54 63 6c 5d 20 38 2e   present Tcl] 8.
0030: 35 2d 5d 7d 20 7b 0a 09 70 61 63 6b 61 67 65 20  5-]} {..package 
0040: 69 66 6e 65 65 64 65 64 20 74 6c 73 20 40 50 41  ifneeded tls @PA
0050: 43 4b 41 47 45 5f 56 45 52 53 49 4f 4e 40 20 5b  CKAGE_VERSION@ [
0060: 6c 69 73 74 20 61 70 70 6c 79 20 7b 7b 64 69 72  list apply {{dir
0070: 7d 20 7b 0a 09 09 69 66 20 7b 7b 40 54 43 4c 45  } {...if {{@TCLE
0080: 58 54 5f 42 55 49 4c 44 40 7d 20 65 71 20 22 73  XT_BUILD@} eq "s
0090: 74 61 74 69 63 22 7d 20 7b 0a 09 09 09 6c 6f 61  tatic"} {....loa
00a0: 64 20 7b 7d 20 54 6c 73 0a 09 09 7d 20 65 6c 73  d {} Tls...} els
00b0: 65 20 7b 0a 09 09 09 6c 6f 61 64 20 5b 66 69 6c  e {....load [fil
00c0: 65 20 6a 6f 69 6e 20 24 64 69 72 20 40 45 58 54  e join $dir @EXT
00d0: 45 4e 53 49 4f 4e 5f 54 41 52 47 45 54 40 5d 20  ENSION_TARGET@] 
00e0: 54 6c 73 0a 09 09 7d 0a 0a 09 09 73 65 74 20 74  Tls...}....set t
00f0: 6c 73 54 63 6c 49 6e 69 74 53 63 72 69 70 74 20  lsTclInitScript 
0100: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20  [file join $dir 
0110: 74 6c 73 2e 74 63 6c 5d 0a 09 09 69 66 20 7b 5b  tls.tcl]...if {[
0120: 66 69 6c 65 20 65 78 69 73 74 73 20 24 74 6c 73  file exists $tls
0130: 54 63 6c 49 6e 69 74 53 63 72 69 70 74 5d 7d 20  TclInitScript]} 
0140: 7b 0a 09 09 09 73 6f 75 72 63 65 20 24 74 6c 73  {....source $tls
0150: 54 63 6c 49 6e 69 74 53 63 72 69 70 74 0a 09 09  TclInitScript...
0160: 7d 0a 09 7d 7d 20 24 64 69 72 5d 0a 7d 20 65 6c  }..}} $dir].} el
0170: 73 65 69 66 20 7b 5b 70 61 63 6b 61 67 65 20 76  seif {[package v
0180: 73 61 74 69 73 66 69 65 73 20 5b 70 61 63 6b 61  satisfies [packa
0190: 67 65 20 70 72 65 73 65 6e 74 20 54 63 6c 5d 20  ge present Tcl] 
01a0: 38 2e 34 5d 7d 20 7b 0a 09 70 61 63 6b 61 67 65  8.4]} {..package
01b0: 20 69 66 6e 65 65 64 65 64 20 74 6c 73 20 40 50   ifneeded tls @P
01c0: 41 43 4b 41 47 45 5f 56 45 52 53 49 4f 4e 40 20  ACKAGE_VERSION@ 
01d0: 5b 6c 69 73 74 20 6c 6f 61 64 20 5b 66 69 6c 65  [list load [file
01e0: 20 6a 6f 69 6e 20 24 64 69 72 20 40 45 58 54 45   join $dir @EXTE
01f0: 4e 53 49 4f 4e 5f 54 41 52 47 45 54 40 5d 20 54  NSION_TARGET@] T
0200: 6c 73 5d 0a 7d 0a                                ls].}.