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

#ifndef H_PERLSOCK
#define H_PERLSOCK 1

#ifdef PERL_OBJECT
#else
#define PerlSock_htonl(x) htonl((x))
#define PerlSock_htons(x) htons((x))
#define PerlSock_ntohl(x) ntohl((x))
#define PerlSock_ntohs(x) 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
	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 */