Artifact
9ae291a22acb5892d592c00deaee995462efc843:
0000: 23 21 20 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20 #! /usr/bin/env
0010: 74 63 6c 73 68 0a 0a 73 65 74 20 61 75 74 6f 5f tclsh..set auto_
0020: 70 61 74 68 20 5b 6c 69 6e 73 65 72 74 20 24 61 path [linsert $a
0030: 75 74 6f 5f 70 61 74 68 20 30 20 5b 66 69 6c 65 uto_path 0 [file
0040: 20 6e 6f 72 6d 61 6c 69 7a 65 20 5b 66 69 6c 65 normalize [file
0050: 20 6a 6f 69 6e 20 5b 66 69 6c 65 20 64 69 72 6e join [file dirn
0060: 61 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 ame [info script
0070: 5d 5d 20 2e 2e 5d 5d 5d 0a 70 61 63 6b 61 67 65 ]] ..]]].package
0080: 20 72 65 71 75 69 72 65 20 74 6c 73 0a 0a 73 65 require tls..se
0090: 74 20 73 20 5b 74 6c 73 3a 3a 73 6f 63 6b 65 74 t s [tls::socket
00a0: 20 31 32 37 2e 30 2e 30 2e 31 20 31 32 33 30 30 127.0.0.1 12300
00b0: 5d 0a 70 75 74 73 20 24 73 20 22 41 20 6c 69 6e ].puts $s "A lin
00c0: 65 22 0a 66 6c 75 73 68 20 24 73 0a 70 75 74 73 e".flush $s.puts
00d0: 20 5b 6a 6f 69 6e 20 5b 74 6c 73 3a 3a 73 74 61 [join [tls::sta
00e0: 74 75 73 20 24 73 5d 20 5c 6e 5d 0a 65 78 69 74 tus $s] \n].exit
00f0: 0a .