[p5sagit/p5-mst-13.2.git] / perlsock.h

#ifndef H_PERLSOCK
#define H_PERLSOCK 1

#ifdef PERL_OBJECT
#else
#define PerlSock_htonlx htonl(x)
#define PerlSock_htonsx htons(x)
#define PerlSock_ntohlx ntohl(x)
#define PerlSock_ntohsx ntohs(x)
#define PerlSock_accept(s, a, l) accept(s, a, l)
#define PerlSock_bind(s, n, l) bind(s, n, l)
#define PerlSock_connect(s, n, l) connect(s, n, l)
#define PerlSock_gethostbyaddr(a, l, t) gethostbyaddr(a, l, t)
#define PerlSock_gethostbyname(n) gethostbyname(n)
#define PerlSock_gethostent() gethostent()
#define PerlSock_gethostname(n, l) gethostname(n, l)
#define PerlSock_getpeername(s, n, l) getpeername(s, n, l)
#define PerlSock_getprotobyname(n) getprotobyname(n)
#define PerlSock_getprotobynumber(n) getprotobynumber(n)
#define PerlSock_getprotoent() getprotoent()
#define PerlSock_getservbyname(n, p) getservbyname(n, p)
#define PerlSock_getservbyport(port, p) getservbyport(port, p)
#define PerlSock_getservent() getservent()
#define PerlSock_getsockname(s, n, l) getsockname(s, n, l)
#define PerlSock_getsockopt(s, l, n, v, i) getsockopt(s, l, n, v, i)
#define PerlSock_listen(s, b) listen(s, b)
#define PerlSock_recvfrom(s, b, l, f, from, fromlen) recvfrom(s, b, l, f, from, fromlen)
#define PerlSock_select(n, r, w, e, t) select(n, r, w, e, t)
#define PerlSock_send(s, b, l, f) send(s, b, l, f)
#define PerlSock_sendto(s, b, l, f, t, tlen) sendto(s, b, l, f, t, tlen)
#define PerlSock_setsockopt(s, l, n, v, len) setsockopt(s, l, n, v, len)
#define PerlSock_shutdown(s, h) shutdown(s, h)
#define PerlSock_socket(a, t, p) socket(a, t, p)
#define PerlSock_socketpair(a, t, p, f) socketpair(a, t, p, f)
#endif	/* PERL_OBJECT */

#endif /* Include guard */
Commit	Line	Data
3028581b	1	#ifndef H_PERLSOCK
	2	#define H_PERLSOCK 1
	3
	4	#ifdef PERL_OBJECT
	5	#else
31da6858	6	#define PerlSock_htonlx htonl(x)
	7	#define PerlSock_htonsx htons(x)
	8	#define PerlSock_ntohlx ntohl(x)
	9	#define PerlSock_ntohsx 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)
3028581b	15	#define PerlSock_gethostent() gethostent()
31da6858	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)
3028581b	20	#define PerlSock_getprotoent() getprotoent()
31da6858	21	#define PerlSock_getservbyname(n, p) getservbyname(n, p)
31da6858	22	#define PerlSock_getservbyport(port, p) getservbyport(port, p)
3028581b	23	#define PerlSock_getservent() getservent()
31da6858	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)
3028581b	35	#endif /* PERL_OBJECT */
	36
	37	#endif /* Include guard */