| … | |
… | |
| 53 | ev_pipe (int filedes [2]) |
53 | ev_pipe (int filedes [2]) |
| 54 | { |
54 | { |
| 55 | struct sockaddr_in addr = { 0 }; |
55 | struct sockaddr_in addr = { 0 }; |
| 56 | int addr_size = sizeof (addr); |
56 | int addr_size = sizeof (addr); |
| 57 | struct sockaddr_in adr2; |
57 | struct sockaddr_in adr2; |
| 58 | int adr2_size; |
58 | int adr2_size = sizeof (adr2); |
| 59 | SOCKET listener; |
59 | SOCKET listener; |
| 60 | SOCKET sock [2] = { -1, -1 }; |
60 | SOCKET sock [2] = { -1, -1 }; |
| 61 | |
61 | |
| 62 | if ((listener = socket (AF_INET, SOCK_STREAM, 0)) == INVALID_SOCKET) |
62 | if ((listener = socket (AF_INET, SOCK_STREAM, 0)) == INVALID_SOCKET) |
| 63 | return -1; |
63 | return -1; |
| … | |
… | |
| 82 | goto fail; |
82 | goto fail; |
| 83 | |
83 | |
| 84 | if ((sock [1] = accept (listener, 0, 0)) < 0) |
84 | if ((sock [1] = accept (listener, 0, 0)) < 0) |
| 85 | goto fail; |
85 | goto fail; |
| 86 | |
86 | |
| 87 | /* windows vista returns fantasy port numbers for getpeername. |
87 | /* windows vista returns fantasy port numbers for sockets: |
| 88 | * example for two interconnected tcp sockets: |
88 | * example for two interconnected tcp sockets: |
| 89 | * |
89 | * |
| 90 | * (Socket::unpack_sockaddr_in getsockname $sock0)[0] == 53364 |
90 | * (Socket::unpack_sockaddr_in getsockname $sock0)[0] == 53364 |
| 91 | * (Socket::unpack_sockaddr_in getpeername $sock0)[0] == 53363 |
91 | * (Socket::unpack_sockaddr_in getpeername $sock0)[0] == 53363 |
| 92 | * (Socket::unpack_sockaddr_in getsockname $sock1)[0] == 53363 |
92 | * (Socket::unpack_sockaddr_in getsockname $sock1)[0] == 53363 |
