Remove trailing space from perlipc.pod.
[perl.git] / NetWare / nw5sck.c
1
2 /*
3  * Copyright © 2001 Novell, Inc. All Rights Reserved.
4  *
5  * You may distribute under the terms of either the GNU General Public
6  * License or the Artistic License, as specified in the README file.
7  *
8  */
9
10 /*
11  * FILENAME     :  nw5sck.c
12  * DESCRIPTION  :  Socket related functions.
13  * Author               :  SGP
14  * Date                 :  January 2001.
15  * Date Modified:  June 26th 2001.
16  */
17
18
19
20 #include "EXTERN.h"
21 #include "perl.h"
22
23 #include "nw5iop.h"
24 #include "nw5sck.h"
25 #include <fcntl.h>
26 #include <sys/stat.h>
27
28 // This is defined here since  arpa\inet.h  defines this array as an extern,
29 // and  arpa\inet.h  gets included by the  inet_ntoa  call.
30 char nwinet_scratch[18] = {'\0'};
31
32
33 u_long
34 nw_htonl(u_long hostlong)
35 {
36     return htonl(hostlong);
37 }
38
39 u_short
40 nw_htons(u_short hostshort)
41 {
42     return htons(hostshort);
43 }
44
45 u_long
46 nw_ntohl(u_long netlong)
47 {
48     return ntohl(netlong);
49 }
50
51 u_short
52 nw_ntohs(u_short netshort)
53 {
54     return ntohs(netshort);
55 }
56
57 SOCKET
58 nw_accept(SOCKET s, struct sockaddr *addr, int *addrlen)
59 {
60         return ((SOCKET)(accept(s, addr, addrlen)));
61 }
62
63 int
64 nw_bind(SOCKET s, const struct sockaddr *addr, int addrlen)
65 {
66         return ((int)bind(s, (struct sockaddr *)addr, addrlen));
67
68 }
69
70 int
71 nw_connect(SOCKET s, const struct sockaddr *addr, int addrlen)
72 {
73         return((int)connect(s, (struct sockaddr *)addr, addrlen));
74 }
75
76 void
77 nw_endhostent() 
78 {
79         endhostent();
80 }
81
82 void
83 nw_endnetent()
84 {
85         endnetent();
86 }
87
88 void
89 nw_endprotoent()
90 {
91         endprotoent();
92 }
93
94 void
95 nw_endservent()
96 {
97         endservent();
98 }
99
100 struct hostent *
101 nw_gethostent()
102 {
103         return(gethostent());
104 }
105
106 struct netent *
107 nw_getnetent(void) 
108 {
109     return ((struct netent *) getnetent());
110 }
111
112 struct protoent *
113 nw_getprotoent(void) 
114 {
115     return ((struct protoent *) getprotoent());
116 }
117
118 struct hostent *
119 nw_gethostbyname(const char *name)
120 {
121         return(gethostbyname((char*)name));
122 }
123
124 int
125 nw_gethostname(char *name, int len)
126 {
127     return(gethostname(name, len));
128 }
129
130 struct hostent *
131 nw_gethostbyaddr(const char *addr, int len, int type)
132 {
133         return(gethostbyaddr((char*)addr, len, type));
134 }
135
136 struct netent *
137 nw_getnetbyaddr(long net, int type) 
138 {
139         return(getnetbyaddr(net,type));
140 }
141
142 struct netent *
143 nw_getnetbyname(char *name) 
144 {
145     return (struct netent *)getnetbyname(name);
146 }
147
148 int
149 nw_getpeername(SOCKET s, struct sockaddr *addr, int *addrlen)
150 {
151         return((int)getpeername(s, addr, addrlen));
152 }
153
154 struct protoent *
155 nw_getprotobyname(const char *name)
156 {
157         return ((struct protoent *)getprotobyname((char*)name));
158 }
159
160 struct protoent *
161 nw_getprotobynumber(int num)
162 {
163         return ((struct protoent *)getprotobynumber(num));
164 }
165
166 struct servent *
167 nw_getservbyname(const char *name, const char *proto)
168 {
169     return (struct servent *)getservbyname((char*)name, (char*)proto);
170 }
171
172
173 struct servent *
174 nw_getservbyport(int port, const char *proto)
175 {
176     return (struct servent *)getservbyport(port, (char*)proto);
177 }
178
179 struct servent *
180 nw_getservent(void) 
181 {
182     return (struct servent *) getservent();
183 }
184
185 void
186 nw_sethostent(int stayopen)
187 {
188 #ifdef HAS_SETHOSTENT
189         sethostent(stayopen);
190 #endif
191 }
192
193 void
194 nw_setnetent(int stayopen)
195 {
196 #ifdef HAS_SETNETENT
197         setnetent(stayopen);
198 #endif
199 }
200
201 void
202 nw_setprotoent(int stayopen)
203 {
204 #ifdef HAS_SETPROTENT
205         setprotoent(stayopen);
206 #endif
207 }
208
209 void
210 nw_setservent(int stayopen)
211 {
212 #ifdef HAS_SETSERVENT
213         setservent(stayopen);
214 #endif
215 }
216
217 int
218 nw_setsockopt(SOCKET s, int level, int optname, const char* optval, int optlen)
219 {
220         return setsockopt(s, level, optname, (char*)optval, optlen);
221 }
222
223 int
224 nw_getsockname(SOCKET s, struct sockaddr *addr, int *addrlen)
225 {
226         return getsockname(s, addr, addrlen);
227 }
228
229 int
230 nw_getsockopt(SOCKET s, int level, int optname, char *optval, int *optlen)
231 {
232         return ((int)getsockopt(s, level, optname, optval, optlen));
233 }
234
235 unsigned long
236 nw_inet_addr(const char *cp)
237 {
238     return inet_addr((char*)cp);
239 }
240
241 char *
242 nw_inet_ntoa(struct in_addr in)
243 {
244     return inet_ntoa(in);
245 }
246
247 SOCKET
248 nw_socket(int af, int type, int protocol)
249 {
250     SOCKET s;
251
252 #ifndef USE_SOCKETS_AS_HANDLES
253     s = socket(af, type, protocol);
254 #else
255     if((s = socket(af, type, protocol)) == INVALID_SOCKET)
256         //errno = WSAGetLastError();
257     else
258         s = s;
259 #endif  /* USE_SOCKETS_AS_HANDLES */
260
261     return s;
262 }
263
264 int
265 nw_listen(SOCKET s, int backlog)
266 {
267     return(listen(s, backlog));
268 }
269
270 int
271 nw_send(SOCKET s, const char *buf, int len, int flags)
272 {
273         return(send(s,(char*)buf,len,flags));
274 }
275
276 int
277 nw_recv(SOCKET s, char *buf, int len, int flags)
278 {
279         return (recv(s, buf, len, flags));
280 }
281
282 int
283 nw_sendto(SOCKET s, const char *buf, int len, int flags,
284              const struct sockaddr *to, int tolen)
285 {
286     return(sendto(s, (char*)buf, len, flags, (struct sockaddr *)to, tolen));
287 }
288
289 int
290 nw_recvfrom(SOCKET s, char *buf, int len, int flags, struct sockaddr *from, int *fromlen)
291 {
292     int r;
293     int frombufsize = *fromlen;
294
295     r = recvfrom(s, buf, len, flags, from, fromlen);
296         //Not sure if the is required - chksgp
297     if (r && frombufsize == *fromlen)
298         (void)nw_getpeername(s, from, fromlen);
299     return r;
300 }
301
302 int
303 nw_select(int nfds, fd_set* rd, fd_set* wr, fd_set* ex, const struct timeval* timeout)
304 {
305         return(select(nfds, rd, wr, ex, (struct timeval*)timeout));
306 }
307
308 int
309 nw_shutdown(SOCKET s, int how)
310 {
311     return (shutdown(s, how));
312 }
313