| Commit | Line | Data |
|---|
| 3028581b |
1 | #ifndef H_PERLSOCK |
| 2 | #define H_PERLSOCK 1 |
| 3 | |
| 4 | #ifdef PERL_OBJECT |
| 0824fdcb |
5 | |
| 6 | #include "ipsock.h" |
| 7 | |
| 8 | #define PerlSock_htonl(x) piSock->Htonl(x) |
| 9 | #define PerlSock_htons(x) piSock->Htons(x) |
| 10 | #define PerlSock_ntohl(x) piSock->Ntohl(x) |
| 11 | #define PerlSock_ntohs(x) piSock->Ntohs(x) |
| 12 | #define PerlSock_accept(s, a, l) piSock->Accept(s, a, l, ErrorNo()) |
| 13 | #define PerlSock_bind(s, n, l) piSock->Bind(s, n, l, ErrorNo()) |
| 14 | #define PerlSock_connect(s, n, l) piSock->Connect(s, n, l, ErrorNo()) |
| 15 | #define PerlSock_endhostent() piSock->Endhostent(ErrorNo()) |
| 16 | #define PerlSock_endnetent() piSock->Endnetent(ErrorNo()) |
| 17 | #define PerlSock_endprotoent() piSock->Endprotoent(ErrorNo()) |
| 18 | #define PerlSock_endservent() piSock->Endservent(ErrorNo()) |
| 19 | #define PerlSock_gethostbyaddr(a, l, t) piSock->Gethostbyaddr(a, l, t, ErrorNo()) |
| 20 | #define PerlSock_gethostbyname(n) piSock->Gethostbyname(n, ErrorNo()) |
| 21 | #define PerlSock_gethostent() piSock->Gethostent(ErrorNo()) |
| 22 | #define PerlSock_gethostname(n, l) piSock->Gethostname(n, l, ErrorNo()) |
| 23 | #define PerlSock_getnetbyaddr(n, t) piSock->Getnetbyaddr(n, t, ErrorNo()) |
| 24 | #define PerlSock_getnetbyname(c) piSock->Getnetbyname(c, ErrorNo()) |
| 25 | #define PerlSock_getnetent() piSock->Getnetent(ErrorNo()) |
| 26 | #define PerlSock_getpeername(s, n, l) piSock->Getpeername(s, n, l, ErrorNo()) |
| 27 | #define PerlSock_getprotobyname(n) piSock->Getprotobyname(n, ErrorNo()) |
| 28 | #define PerlSock_getprotobynumber(n) piSock->Getprotobynumber(n, ErrorNo()) |
| 29 | #define PerlSock_getprotoent() piSock->Getprotoent(ErrorNo()) |
| 30 | #define PerlSock_getservbyname(n, p) piSock->Getservbyname(n, p, ErrorNo()) |
| 31 | #define PerlSock_getservbyport(port, p) piSock->Getservbyport(port, p, ErrorNo()) |
| 32 | #define PerlSock_getservent() piSock->Getservent(ErrorNo()) |
| 33 | #define PerlSock_getsockname(s, n, l) piSock->Getsockname(s, n, l, ErrorNo()) |
| 34 | #define PerlSock_getsockopt(s, l, n, v, i) piSock->Getsockopt(s, l, n, v, i, ErrorNo()) |
| 35 | #define PerlSock_inet_addr(c) piSock->InetAddr(c, ErrorNo()) |
| 36 | #define PerlSock_inet_ntoa(i) piSock->InetNtoa(i, ErrorNo()) |
| 37 | #define PerlSock_listen(s, b) piSock->Listen(s, b, ErrorNo()) |
| 9e6b2b00 |
38 | #define PerlSock_recv(s, b, l, f) piSock->Recv(s, b, l, f, ErrorNo()) |
| 0824fdcb |
39 | #define PerlSock_recvfrom(s, b, l, f, from, fromlen) piSock->Recvfrom(s, b, l, f, from, fromlen, ErrorNo()) |
| 40 | #define PerlSock_select(n, r, w, e, t) piSock->Select(n, (char*)r, (char*)w, (char*)e, t, ErrorNo()) |
| 41 | #define PerlSock_send(s, b, l, f) piSock->Send(s, b, l, f, ErrorNo()) |
| 42 | #define PerlSock_sendto(s, b, l, f, t, tlen) piSock->Sendto(s, b, l, f, t, tlen, ErrorNo()) |
| 43 | #define PerlSock_sethostent(f) piSock->Sethostent(f, ErrorNo()) |
| 44 | #define PerlSock_setnetent(f) piSock->Setnetent(f, ErrorNo()) |
| 45 | #define PerlSock_setprotoent(f) piSock->Setprotoent(f, ErrorNo()) |
| 46 | #define PerlSock_setservent(f) piSock->Setservent(f, ErrorNo()) |
| 47 | #define PerlSock_setsockopt(s, l, n, v, len) piSock->Setsockopt(s, l, n, v, len, ErrorNo()) |
| 48 | #define PerlSock_shutdown(s, h) piSock->Shutdown(s, h, ErrorNo()) |
| 49 | #define PerlSock_socket(a, t, p) piSock->Socket(a, t, p, ErrorNo()) |
| 50 | #define PerlSock_socketpair(a, t, p, f) piSock->Socketpair(a, t, p, f, ErrorNo()) |
| 3028581b |
51 | #else |
| 0824fdcb |
52 | #define PerlSock_htonl(x) htonl(x) |
| 53 | #define PerlSock_htons(x) htons(x) |
| 54 | #define PerlSock_ntohl(x) ntohl(x) |
| 55 | #define PerlSock_ntohs(x) ntohs(x) |
| 56 | #define PerlSock_accept(s, a, l) accept(s, a, l) |
| 57 | #define PerlSock_bind(s, n, l) bind(s, n, l) |
| 58 | #define PerlSock_connect(s, n, l) connect(s, n, l) |
| dc45a647 |
59 | |
| 0824fdcb |
60 | #define PerlSock_gethostbyaddr(a, l, t) gethostbyaddr(a, l, t) |
| 61 | #define PerlSock_gethostbyname(n) gethostbyname(n) |
| dc45a647 |
62 | #define PerlSock_gethostent gethostent |
| 63 | #define PerlSock_endhostent endhostent |
| 0824fdcb |
64 | #define PerlSock_gethostname(n, l) gethostname(n, l) |
| dc45a647 |
65 | |
| 0824fdcb |
66 | #define PerlSock_getnetbyaddr(n, t) getnetbyaddr(n, t) |
| dc45a647 |
67 | #define PerlSock_getnetbyname(n) getnetbyname(n) |
| 68 | #define PerlSock_getnetent getnetent |
| 69 | #define PerlSock_endnetent endnetent |
| 0824fdcb |
70 | #define PerlSock_getpeername(s, n, l) getpeername(s, n, l) |
| dc45a647 |
71 | |
| 0824fdcb |
72 | #define PerlSock_getprotobyname(n) getprotobyname(n) |
| 73 | #define PerlSock_getprotobynumber(n) getprotobynumber(n) |
| dc45a647 |
74 | #define PerlSock_getprotoent getprotoent |
| 75 | #define PerlSock_endprotoent endprotoent |
| 76 | |
| 0824fdcb |
77 | #define PerlSock_getservbyname(n, p) getservbyname(n, p) |
| 78 | #define PerlSock_getservbyport(port, p) getservbyport(port, p) |
| dc45a647 |
79 | #define PerlSock_getservent getservent |
| 80 | #define PerlSock_endservent endservent |
| 81 | |
| 0824fdcb |
82 | #define PerlSock_getsockname(s, n, l) getsockname(s, n, l) |
| 83 | #define PerlSock_getsockopt(s, l, n, v, i) getsockopt(s, l, n, v, i) |
| 84 | #define PerlSock_inet_addr(c) inet_addr(c) |
| 85 | #define PerlSock_inet_ntoa(i) inet_ntoa(i) |
| 86 | #define PerlSock_listen(s, b) listen(s, b) |
| 87 | #define PerlSock_recvfrom(s, b, l, f, from, fromlen) recvfrom(s, b, l, f, from, fromlen) |
| 88 | #define PerlSock_select(n, r, w, e, t) select(n, r, w, e, t) |
| 89 | #define PerlSock_send(s, b, l, f) send(s, b, l, f) |
| 90 | #define PerlSock_sendto(s, b, l, f, t, tlen) sendto(s, b, l, f, t, tlen) |
| 91 | #define PerlSock_sethostent(f) sethostent(f) |
| 92 | #define PerlSock_setnetent(f) setnetent(f) |
| 93 | #define PerlSock_setprotoent(f) setprotoent(f) |
| 94 | #define PerlSock_setservent(f) setservent(f) |
| 95 | #define PerlSock_setsockopt(s, l, n, v, len) setsockopt(s, l, n, v, len) |
| 96 | #define PerlSock_shutdown(s, h) shutdown(s, h) |
| 97 | #define PerlSock_socket(a, t, p) socket(a, t, p) |
| 98 | #define PerlSock_socketpair(a, t, p, f) socketpair(a, t, p, f) |
| 3028581b |
99 | #endif /* PERL_OBJECT */ |
| 100 | |
| 101 | #endif /* Include guard */ |
| 0824fdcb |
102 | |
projects / p5sagit/p5-mst-13.2.git / blame