Artifact
de5bedeb58bcc4dd85b16ef23866a21b0a0375cf0818b85c2ec394398280de2e:
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: 72 65 71 75 69 72 65 20 74 6c 73 0a 0a 73 65 74 require tls..set
0090: 20 73 20 5b 74 6c 73 3a 3a 73 6f 63 6b 65 74 20 s [tls::socket
00a0: 31 32 37 2e 30 2e 30 2e 31 20 31 32 33 30 30 5d 127.0.0.1 12300]
00b0: 0a 70 75 74 73 20 24 73 20 22 41 20 6c 69 6e 65 .puts $s "A line
00c0: 22 0a 66 6c 75 73 68 20 24 73 0a 70 75 74 73 20 ".flush $s.puts
00d0: 5b 6a 6f 69 6e 20 5b 74 6c 73 3a 3a 73 74 61 74 [join [tls::stat
00e0: 75 73 20 24 73 5d 20 5c 6e 5d 0a 65 78 69 74 0a us $s] \n].exit.