This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
newCONSTSUB added (XSUB equivalent for inlinable sub () { 123 }).
[perl5.git] / perlsock.h
1 #ifndef H_PERLSOCK
2 #define H_PERLSOCK 1
3
4 #ifdef PERL_OBJECT
5 #else
6 #define PerlSock_htonl(x) htonl(x)
7 #define PerlSock_htons(x) htons(x)
8 #define PerlSock_ntohl(x) ntohl(x)
9 #define PerlSock_ntohs(x) ntohs(x)
10 #define PerlSock_accept(s, a, l) accept(s, a, l)
11 #define PerlSock_bind(s, n, l) bind(s, n, l)
12 #define PerlSock_connect(s, n, l) connect(s, n, l)
13 #define PerlSock_gethostbyaddr(a, l, t) gethostbyaddr(a, l, t)
14 #define PerlSock_gethostbyname(n) gethostbyname(n)
15 #define PerlSock_gethostent() gethostent()
16 #define PerlSock_gethostname(n, l) gethostname(n, l)
17 #define PerlSock_getpeername(s, n, l) getpeername(s, n, l)
18 #define PerlSock_getprotobyname(n) getprotobyname(n)
19 #define PerlSock_getprotobynumber(n) getprotobynumber(n)
20 #define PerlSock_getprotoent() getprotoent()
21 #define PerlSock_getservbyname(n, p) getservbyname(n, p)
22 #define PerlSock_getservbyport(port, p) getservbyport(port, p)
23 #define PerlSock_getservent() getservent()
24 #define PerlSock_getsockname(s, n, l) getsockname(s, n, l)
25 #define PerlSock_getsockopt(s, l, n, v, i) getsockopt(s, l, n, v, i)
26 #define PerlSock_listen(s, b) listen(s, b)
27 #define PerlSock_recvfrom(s, b, l, f, from, fromlen) recvfrom(s, b, l, f, from, fromlen)
28 #define PerlSock_select(n, r, w, e, t) select(n, r, w, e, t)
29 #define PerlSock_send(s, b, l, f) send(s, b, l, f)
30 #define PerlSock_sendto(s, b, l, f, t, tlen) sendto(s, b, l, f, t, tlen)
31 #define PerlSock_setsockopt(s, l, n, v, len) setsockopt(s, l, n, v, len)
32 #define PerlSock_shutdown(s, h) shutdown(s, h)
33 #define PerlSock_socket(a, t, p) socket(a, t, p)
34 #define PerlSock_socketpair(a, t, p, f) socketpair(a, t, p, f)
35 #endif  /* PERL_OBJECT */
36
37 #endif /* Include guard */