Documentation fix
[perl.git] / 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 */