vms/sockadapt.h

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