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: 05-Oct-1994
   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.9A TCP/IP support.
  12  */
  13
  14 #include <socketshr.h>
  15
  16 /* we may not have socket.h etc, so lets just do these here  - div */
  17 /* built up from a variety of sources */
  18 /* no harm doing this for all .c files - needed only by pp_sys.c */
  19
  20 struct hostent {
  21         char *h_name;
  22         char *h_aliases;
  23         int h_addrtype;
  24         int h_length;
  25         char **h_addr_list;
  26 };
  27 #define h_addr h_addr_list[0]
  28
  29 struct sockaddr_in {
  30         short sin_family;
  31         unsigned short sin_port;
  32         unsigned long sin_addr;
  33         char sin_zero[8];
  34 };
  35
  36 struct netent {
  37         char *n_name;
  38         char **n_aliases;
  39         int n_addrtype;
  40         long n_net;
  41 };
  42
  43 struct  servent {
  44         char    *s_name;        /* official service name */
  45         char    **s_aliases;    /* alias list */
  46         int     s_port;         /* port # */
  47         char    *s_proto;       /* protocol to use */
  48 };
  49
  50 struct  protoent {
  51         char    *p_name;        /* official protocol name */
  52         char    **p_aliases;    /* alias list */
  53         int     p_proto;        /* protocol # */
  54 };