perlsock.h

   1 #ifndef H_PERLSOCK
   2 #define H_PERLSOCK 1
   3
   4 #ifdef PERL_OBJECT
   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())
  38 #define PerlSock_recv(s, b, l, f) piSock->Recv(s, b, l, f, ErrorNo())
  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())
  51 #else
  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)
  59
  60 #define PerlSock_gethostbyaddr(a, l, t) gethostbyaddr(a, l, t)
  61 #define PerlSock_gethostbyname(n) gethostbyname(n)
  62 #define PerlSock_gethostent gethostent
  63 #define PerlSock_endhostent endhostent
  64 #define PerlSock_gethostname(n, l) gethostname(n, l)
  65
  66 #define PerlSock_getnetbyaddr(n, t) getnetbyaddr(n, t)
  67 #define PerlSock_getnetbyname(n) getnetbyname(n)
  68 #define PerlSock_getnetent getnetent
  69 #define PerlSock_endnetent endnetent
  70 #define PerlSock_getpeername(s, n, l) getpeername(s, n, l)
  71
  72 #define PerlSock_getprotobyname(n) getprotobyname(n)
  73 #define PerlSock_getprotobynumber(n) getprotobynumber(n)
  74 #define PerlSock_getprotoent getprotoent
  75 #define PerlSock_endprotoent endprotoent
  76
  77 #define PerlSock_getservbyname(n, p) getservbyname(n, p)
  78 #define PerlSock_getservbyport(port, p) getservbyport(port, p)
  79 #define PerlSock_getservent getservent
  80 #define PerlSock_endservent endservent
  81
  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)
  99 #endif  /* PERL_OBJECT */
 100
 101 #endif /* Include guard */
 102