vms/sockadapt.h

   1 /*  sockadapt.h
   2  *
   3  *  Authors: Charles Bailey  bailey@genetics.upenn.edu
   4  *           David Denholm  denholm@conmat.phys.soton.ac.uk
   5  *  Last Revised: 17-Mar-1995
   6  *
   7  *  This file should include any other header files and procide any
   8  *  declarations, typedefs, and prototypes needed by perl for TCP/IP
   9  *  operations.
  10  *
  11  *  This version is set up for perl5 with socketshr 0.9D TCP/IP support.
  12  */
  13
  14 /* SocketShr doesn't support these routines, but the DECC RTL contains
  15  * stubs with these names, designed to be used with the UCX socket
  16  * library.  We avoid linker collisions by substituting new names.
  17  */
  18 #define getnetbyaddr no_getnetbyaddr
  19 #define getnetbyname no_getnetbyname
  20 #define getnetent    no_getnetent
  21 #define setnetent    no_setnetent
  22 #define endnetent    no_endnetent
  23
  24
  25 #ifdef __GNU_CC__
  26
  27 /* we may not have netdb.h etc, so lets just do this here  - div */
  28 /* no harm doing this for all .c files - needed only by pp_sys.c */
  29
  30 struct  hostent {
  31     char        *h_name;        /* official name of host */
  32     char        **h_aliases;    /* alias list */
  33     int h_addrtype;     /* host address type */
  34     int h_length;       /* length of address */
  35     char        **h_addr_list;  /* address */
  36 };
  37 #ifdef h_addr
  38 #   undef h_addr
  39 #endif
  40 #define h_addr h_addr_list[0]
  41
  42 struct  protoent {
  43     char        *p_name;        /* official protocol name */
  44     char        **p_aliases;    /* alias list */
  45     int p_proto;        /* protocol # */
  46 };
  47
  48 struct  servent {
  49     char        *s_name;        /* official service name */
  50     char        **s_aliases;    /* alias list */
  51     int s_port;         /* port # */
  52     char        *s_proto;       /* protocol to use */
  53 };
  54
  55 struct  in_addr {
  56     unsigned long s_addr;
  57 };
  58
  59 struct  sockaddr {
  60     unsigned short      sa_family;              /* address family */
  61     char        sa_data[14];            /* up to 14 bytes of direct address */
  62 };
  63
  64 /*
  65  * Socket address, internet style.
  66  */
  67 struct sockaddr_in {
  68         short   sin_family;
  69         unsigned short  sin_port;
  70         struct  in_addr sin_addr;
  71         char    sin_zero[8];
  72 };
  73
  74 struct timeval {
  75     long tv_sec;
  76     long tv_usec;
  77 };
  78
  79 struct netent {
  80         char *n_name;
  81         char **n_aliases;
  82         int n_addrtype;
  83         long n_net;
  84 };
  85
  86 /* Since socketshr.h won't declare function prototypes unless it thinks
  87  * the system headers have already been included, we convince it that
  88  * this is the case.
  89  */
  90
  91 #ifndef AF_INET
  92 #  define AF_INET 2
  93 #endif
  94 #ifndef IPPROTO_TCP
  95 #  define IPPROTO_TCP 6
  96 #endif
  97 #ifndef __INET_LOADED
  98 #  define __INET_LOADED
  99 #endif
 100 #ifndef __NETDB_LOADED
 101 #  define __NETDB_LOADED
 102 #endif
 103
 104 /* Finally, we provide prototypes for routines not supported by SocketShr,
 105  * so that the stubs in sockadapt.c won't cause complaints about
 106  * undeclared routines.
 107  */
 108
 109 struct netent *getnetbyaddr( long net, int type);
 110 struct netent *getnetbyname( char *name);
 111 struct netent *getnetent();
 112 void setnetent();
 113 void endnetent();
 114
 115 #else /* !__GNU_CC__ */
 116
 117 /* DECC and VAXC have socket headers in the system set; they're for UCX, but
 118  * we'll assume that the actual calling sequence is identical across the
 119  * various TCP/IP stacks; these routines are pretty standard.
 120  */
 121 #include <socket.h>
 122 #include <in.h>
 123 #include <inet.h>
 124 #include <netdb.h>
 125 /* However, we don't have these two in the system headers. */
 126 void setnetent();
 127 void endnetent();
 128
 129 #endif
 130
 131 #include <socketshr.h>
 132 /* socketshr.h from SocketShr 0.9D doesn't alias fileno; it's comments say
 133  * that the CRTL version works OK.  This isn't the case, at least with
 134  * VAXC, so we use the SocketShr version.
 135  * N.B. This means that sockadapt.h must be included *after* stdio.h.
 136  *      This is presently the case for Perl.
 137  */
 138 #ifdef fileno
 139 #  undef fileno
 140 #endif
 141 #define fileno si_fileno
 142 int si_fileno(FILE *);
 143
 144
 145 /* Catch erroneous results for UDP sockets -- see sockadapt.c */
 146 #ifdef getpeername
 147 #  undef getpeername
 148 #endif
 149 #define getpeername my_getpeername
 150 int my_getpeername _((int, struct sockaddr *, int *));