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
  14 #define PerlSock_gethostbyaddr(a, l, t) gethostbyaddr(a, l, t)
  15 #define PerlSock_gethostbyname(n) gethostbyname(n)
  16 #define PerlSock_gethostent gethostent
  17 #define PerlSock_endhostent endhostent
  18 #define PerlSock_gethostname(n, l) gethostname(n, l)
  19
  20 #define PerlSock_getnetbyaddr(n, t) getnetbyaddr(n, t)
  21 #define PerlSock_getnetbyname(n) getnetbyname(n)
  22 #define PerlSock_getnetent getnetent
  23 #define PerlSock_endnetent endnetent
  24
  25 #define PerlSock_getpeername(s, n, l) getpeername(s, n, l)
  26
  27 #define PerlSock_getprotobyname(n) getprotobyname(n)
  28 #define PerlSock_getprotobynumber(n) getprotobynumber(n)
  29 #define PerlSock_getprotoent getprotoent
  30 #define PerlSock_endprotoent endprotoent
  31
  32 #define PerlSock_getservbyname(n, p) getservbyname(n, p)
  33 #define PerlSock_getservbyport(port, p) getservbyport(port, p)
  34 #define PerlSock_getservent getservent
  35 #define PerlSock_endservent endservent
  36
  37 #define PerlSock_getsockname(s, n, l) getsockname(s, n, l)
  38 #define PerlSock_getsockopt(s, l, n, v, i) getsockopt(s, l, n, v, i)
  39 #define PerlSock_listen(s, b) listen(s, b)
  40 #define PerlSock_recvfrom(s, b, l, f, from, fromlen) recvfrom(s, b, l, f, from, fromlen)
  41 #define PerlSock_select(n, r, w, e, t) select(n, r, w, e, t)
  42 #define PerlSock_send(s, b, l, f) send(s, b, l, f)
  43 #define PerlSock_sendto(s, b, l, f, t, tlen) sendto(s, b, l, f, t, tlen)
  44 #define PerlSock_setsockopt(s, l, n, v, len) setsockopt(s, l, n, v, len)
  45 #define PerlSock_shutdown(s, h) shutdown(s, h)
  46 #define PerlSock_socket(a, t, p) socket(a, t, p)
  47 #define PerlSock_socketpair(a, t, p, f) socketpair(a, t, p, f)
  48 #endif  /* PERL_OBJECT */
  49
  50 #endif /* Include guard */