Hex Artifact Content

Artifact d64d5caca7db50fac772275606f0a6f42eecc723:


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 74 63 6c 74 6c   join $dir tcltl
00d0: 73 2e 40 53 48 4f 42 4a 45 58 54 40 5d 20 54 6c  s.@SHOBJEXT@] Tl
00e0: 73 0a 09 09 7d 0a 0a 09 09 73 65 74 20 74 6c 73  s...}....set tls
00f0: 54 63 6c 49 6e 69 74 53 63 72 69 70 74 20 5b 66  TclInitScript [f
0100: 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 74 6c  ile join $dir tl
0110: 73 2e 74 63 6c 5d 0a 09 09 69 66 20 7b 5b 66 69  s.tcl]...if {[fi
0120: 6c 65 20 65 78 69 73 74 73 20 24 74 6c 73 54 63  le exists $tlsTc
0130: 6c 49 6e 69 74 53 63 72 69 70 74 5d 7d 20 7b 0a  lInitScript]} {.
0140: 09 09 09 73 6f 75 72 63 65 20 24 74 6c 73 54 63  ...source $tlsTc
0150: 6c 49 6e 69 74 53 63 72 69 70 74 0a 09 09 7d 0a  lInitScript...}.
0160: 09 7d 7d 20 24 64 69 72 5d 0a 7d 20 65 6c 73 65  .}} $dir].} else
0170: 69 66 20 7b 5b 70 61 63 6b 61 67 65 20 76 73 61  if {[package vsa
0180: 74 69 73 66 69 65 73 20 5b 70 61 63 6b 61 67 65  tisfies [package
0190: 20 70 72 65 73 65 6e 74 20 54 63 6c 5d 20 38 2e   present Tcl] 8.
01a0: 34 5d 7d 20 7b 0a 09 70 61 63 6b 61 67 65 20 69  4]} {..package i
01b0: 66 6e 65 65 64 65 64 20 74 6c 73 20 40 50 41 43  fneeded tls @PAC
01c0: 4b 41 47 45 5f 56 45 52 53 49 4f 4e 40 20 5b 6c  KAGE_VERSION@ [l
01d0: 69 73 74 20 6c 6f 61 64 20 5b 66 69 6c 65 20 6a  ist load [file j
01e0: 6f 69 6e 20 24 64 69 72 20 74 63 6c 74 6c 73 2e  oin $dir tcltls.
01f0: 40 53 48 4f 42 4a 45 58 54 40 5d 20 54 6c 73 5d  @SHOBJEXT@] Tls]
0200: 0a 7d 0a                                         .}.