1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/usr/bin/env jimsh
# Shows what [$handle filename] returns for each socket type
foreach {type addr} {
dgram {}
dgram.server 5000
dgram 127.0.0.1:5000
pair {}
pipe {}
pty {}
stream.server 127.0.0.1:5002
stream 127.0.0.1:5002
unix.server /tmp/uds.socket
unix /tmp/uds.socket
unix.dgram.server /tmp/uds.dgram.socket
unix.dgram /tmp/uds.dgram.socket
} {
try {
set socks [socket $type {*}$addr]
foreach s $socks {
puts "$type $addr => [$s filename]"
}
} on error msg {
puts "$type $addr => $msg"
}
}
|
