Artifact
d0a52b9ad83b1e9d4cc2151445d961a73fddafc12b93a2ff0a283763a1340d43:
0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20 74 #!/usr/bin/env t
0010: 63 6c 73 68 0a 0a 73 65 74 20 61 75 74 6f 5f 70 clsh..set auto_p
0020: 61 74 68 20 5b 6c 69 6e 73 65 72 74 20 24 61 75 ath [linsert $au
0030: 74 6f 5f 70 61 74 68 20 30 20 5b 66 69 6c 65 20 to_path 0 [file
0040: 6e 6f 72 6d 61 6c 69 7a 65 20 5b 66 69 6c 65 20 normalize [file
0050: 6a 6f 69 6e 20 5b 66 69 6c 65 20 64 69 72 6e 61 join [file dirna
0060: 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d me [info script]
0070: 5d 20 2e 2e 5d 5d 5d 0a 70 61 63 6b 61 67 65 20 ] ..]]].package
0080: 70 72 65 66 65 72 20 6c 61 74 65 73 74 0a 70 61 prefer latest.pa
0090: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 6c ckage require tl
00a0: 73 0a 0a 73 65 74 20 73 20 5b 74 6c 73 3a 3a 73 s..set s [tls::s
00b0: 6f 63 6b 65 74 20 2d 72 65 71 75 69 72 65 20 30 ocket -require 0
00c0: 20 31 32 37 2e 30 2e 30 2e 31 20 31 32 33 30 30 127.0.0.1 12300
00d0: 5d 0a 70 75 74 73 20 24 73 20 22 41 20 6c 69 6e ].puts $s "A lin
00e0: 65 22 0a 66 6c 75 73 68 20 24 73 0a 70 75 74 73 e".flush $s.puts
00f0: 20 5b 6a 6f 69 6e 20 5b 74 6c 73 3a 3a 73 74 61 [join [tls::sta
0100: 74 75 73 20 24 73 5d 20 5c 6e 5d 0a 65 78 69 74 tus $s] \n].exit
0110: 0a .