Artifact 6c4c62dd82f3ef43060ad15358df0c1db52194c345e3b998db7f93968d1545ae:

• File pkgIndex.tcl.in — part of check-in [8e730964e5] at 2019-04-09 18:47:14 on branch trunk — Make extension filename more centralized (user: rkeene size: 517) [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 5d 7d 20 7b 0a 09 70 61 63 6b 61 67 65 20 69  5]} {..package i
0040: 66 6e 65 65 64 65 64 20 74 6c 73 20 40 50 41 43  fneeded tls @PAC
0050: 4b 41 47 45 5f 56 45 52 53 49 4f 4e 40 20 5b 6c  KAGE_VERSION@ [l
0060: 69 73 74 20 61 70 70 6c 79 20 7b 7b 64 69 72 7d  ist apply {{dir}
0070: 20 7b 0a 09 09 69 66 20 7b 7b 40 54 43 4c 45 58   {...if {{@TCLEX
0080: 54 5f 42 55 49 4c 44 40 7d 20 65 71 20 22 73 74  T_BUILD@} eq "st
0090: 61 74 69 63 22 7d 20 7b 0a 09 09 09 6c 6f 61 64  atic"} {....load
00a0: 20 7b 7d 20 54 6c 73 0a 09 09 7d 20 65 6c 73 65   {} Tls...} else
00b0: 20 7b 0a 09 09 09 6c 6f 61 64 20 5b 66 69 6c 65   {....load [file
00c0: 20 6a 6f 69 6e 20 24 64 69 72 20 40 45 58 54 45   join $dir @EXTE
00d0: 4e 53 49 4f 4e 5f 54 41 52 47 45 54 40 5d 20 54  NSION_TARGET@] T
00e0: 6c 73 0a 09 09 7d 0a 0a 09 09 73 65 74 20 74 6c  ls...}....set tl
00f0: 73 54 63 6c 49 6e 69 74 53 63 72 69 70 74 20 5b  sTclInitScript [
0100: 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 74  file join $dir t
0110: 6c 73 2e 74 63 6c 5d 0a 09 09 69 66 20 7b 5b 66  ls.tcl]...if {[f
0120: 69 6c 65 20 65 78 69 73 74 73 20 24 74 6c 73 54  ile exists $tlsT
0130: 63 6c 49 6e 69 74 53 63 72 69 70 74 5d 7d 20 7b  clInitScript]} {
0140: 0a 09 09 09 73 6f 75 72 63 65 20 24 74 6c 73 54  ....source $tlsT
0150: 63 6c 49 6e 69 74 53 63 72 69 70 74 0a 09 09 7d  clInitScript...}
0160: 0a 09 7d 7d 20 24 64 69 72 5d 0a 7d 20 65 6c 73  ..}} $dir].} els
0170: 65 69 66 20 7b 5b 70 61 63 6b 61 67 65 20 76 73  eif {[package vs
0180: 61 74 69 73 66 69 65 73 20 5b 70 61 63 6b 61 67  atisfies [packag
0190: 65 20 70 72 65 73 65 6e 74 20 54 63 6c 5d 20 38  e present Tcl] 8
01a0: 2e 34 5d 7d 20 7b 0a 09 70 61 63 6b 61 67 65 20  .4]} {..package 
01b0: 69 66 6e 65 65 64 65 64 20 74 6c 73 20 40 50 41  ifneeded tls @PA
01c0: 43 4b 41 47 45 5f 56 45 52 53 49 4f 4e 40 20 5b  CKAGE_VERSION@ [
01d0: 6c 69 73 74 20 6c 6f 61 64 20 5b 66 69 6c 65 20  list load [file 
01e0: 6a 6f 69 6e 20 24 64 69 72 20 40 45 58 54 45 4e  join $dir @EXTEN
01f0: 53 49 4f 4e 5f 54 41 52 47 45 54 40 5d 20 54 6c  SION_TARGET@] Tl
0200: 73 5d 0a 7d 0a                                   s].}.