This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Get PerlIO building on Win32
[perl5.git] / win32 / win32sck.c
CommitLineData
326b05e3 1/* win32sck.c
68dc0745
PP
2 *
3 * (c) 1995 Microsoft Corporation. All rights reserved.
4 * Developed by hip communications inc., http://info.hip.com/info/
5 * Portions (c) 1993 Intergraph Corporation. All rights reserved.
6 *
7 * You may distribute under the terms of either the GNU General Public
8 * License or the Artistic License, as specified in the README file.
9 */
0a753a76 10
390b85e7 11#define WIN32IO_IS_STDIO
55d25626 12#define WIN32SCK_IS_STDSCK
0a753a76 13#define WIN32_LEAN_AND_MEAN
a835ef8a
NIS
14#ifdef __GNUC__
15#define Win32_Winsock
16#endif
390b85e7 17#include <windows.h>
0a753a76
PP
18#include "EXTERN.h"
19#include "perl.h"
c69f6586
GS
20
21#if defined(PERL_OBJECT)
22#define NO_XSLOCKS
c69f6586
GS
23#include "XSUB.h"
24#endif
25
58a50f62 26#include "Win32iop.h"
0a753a76
PP
27#include <sys/socket.h>
28#include <fcntl.h>
29#include <sys/stat.h>
30#include <assert.h>
390b85e7 31#include <io.h>
0a753a76 32
68dc0745 33/* thanks to Beverly Brown (beverly@datacube.com) */
326b05e3 34#ifdef USE_SOCKETS_AS_HANDLES
58a50f62 35# define OPEN_SOCKET(x) win32_open_osfhandle(x,O_RDWR|O_BINARY)
326b05e3 36# define TO_SOCKET(x) _get_osfhandle(x)
0a753a76 37#else
0a753a76
PP
38# define OPEN_SOCKET(x) (x)
39# define TO_SOCKET(x) (x)
68dc0745 40#endif /* USE_SOCKETS_AS_HANDLES */
0a753a76 41
0401f841 42#if defined(USE_THREADS) || defined(USE_ITHREADS)
326b05e3
GS
43#define StartSockets() \
44 STMT_START { \
45 if (!wsock_started) \
46 start_sockets(); \
0401f841 47 set_socktype(); \
326b05e3 48 } STMT_END
401ef382
SN
49#else
50#define StartSockets() \
51 STMT_START { \
52 if (!wsock_started) { \
53 start_sockets(); \
54 set_socktype(); \
55 } \
56 } STMT_END
57#endif
326b05e3 58
326b05e3
GS
59#define SOCKET_TEST(x, y) \
60 STMT_START { \
61 StartSockets(); \
62 if((x) == (y)) \
63 errno = WSAGetLastError(); \
64 } STMT_END
65
66#define SOCKET_TEST_ERROR(x) SOCKET_TEST(x, SOCKET_ERROR)
67
137443ea
PP
68static struct servent* win32_savecopyservent(struct servent*d,
69 struct servent*s,
70 const char *proto);
0a753a76 71
326b05e3 72static int wsock_started = 0;
68dc0745 73
b73db59c
GS
74EXTERN_C void
75EndSockets(void)
76{
77 if (wsock_started)
78 WSACleanup();
79}
80
68dc0745 81void
326b05e3 82start_sockets(void)
68dc0745 83{
c5be433b 84 dTHXo;
68dc0745
PP
85 unsigned short version;
86 WSADATA retdata;
87 int ret;
68dc0745 88
68dc0745
PP
89 /*
90 * initalize the winsock interface and insure that it is
91 * cleaned up at exit.
92 */
93 version = 0x101;
326b05e3 94 if(ret = WSAStartup(version, &retdata))
4f63d024 95 Perl_croak_nocontext("Unable to locate winsock library!\n");
68dc0745 96 if(retdata.wVersion != version)
4f63d024 97 Perl_croak_nocontext("Could not find version 1.1 of winsock dll\n");
68dc0745
PP
98
99 /* atexit((void (*)(void)) EndSockets); */
401ef382
SN
100 wsock_started = 1;
101}
0a753a76 102
401ef382
SN
103void
104set_socktype(void)
105{
0a753a76 106#ifdef USE_SOCKETS_AS_HANDLES
0401f841 107#if defined(USE_THREADS) || defined(USE_ITHREADS)
65c97e0f 108 dTHXo;
3352bfcb 109 if (!w32_init_socktype) {
401ef382 110#endif
3352bfcb
GS
111 int iSockOpt = SO_SYNCHRONOUS_NONALERT;
112 /*
113 * Enable the use of sockets as filehandles
114 */
115 setsockopt(INVALID_SOCKET, SOL_SOCKET, SO_OPENTYPE,
116 (char *)&iSockOpt, sizeof(iSockOpt));
0401f841 117#if defined(USE_THREADS) || defined(USE_ITHREADS)
3352bfcb 118 w32_init_socktype = 1;
401ef382
SN
119 }
120#endif
68dc0745 121#endif /* USE_SOCKETS_AS_HANDLES */
0a753a76
PP
122}
123
124
125#ifndef USE_SOCKETS_AS_HANDLES
f3986ebb 126#undef fdopen
68dc0745 127FILE *
f3986ebb 128my_fdopen(int fd, char *mode)
0a753a76 129{
68dc0745
PP
130 FILE *fp;
131 char sockbuf[256];
132 int optlen = sizeof(sockbuf);
133 int retval;
0a753a76 134
326b05e3 135 if (!wsock_started)
fb73857a 136 return(fdopen(fd, mode));
0a753a76 137
326b05e3
GS
138 retval = getsockopt((SOCKET)fd, SOL_SOCKET, SO_TYPE, sockbuf, &optlen);
139 if(retval == SOCKET_ERROR && WSAGetLastError() == WSAENOTSOCK) {
fb73857a 140 return(fdopen(fd, mode));
68dc0745 141 }
0a753a76 142
68dc0745
PP
143 /*
144 * If we get here, then fd is actually a socket.
145 */
4e945249 146 Newz(1310, fp, 1, FILE); /* XXX leak, good thing this code isn't used */
68dc0745
PP
147 if(fp == NULL) {
148 errno = ENOMEM;
149 return NULL;
150 }
0a753a76 151
68dc0745
PP
152 fp->_file = fd;
153 if(*mode == 'r')
154 fp->_flag = _IOREAD;
155 else
156 fp->_flag = _IOWRT;
157
158 return fp;
0a753a76 159}
68dc0745 160#endif /* USE_SOCKETS_AS_HANDLES */
0a753a76
PP
161
162
68dc0745
PP
163u_long
164win32_htonl(u_long hostlong)
0a753a76 165{
326b05e3
GS
166 StartSockets();
167 return htonl(hostlong);
0a753a76
PP
168}
169
68dc0745
PP
170u_short
171win32_htons(u_short hostshort)
0a753a76 172{
326b05e3
GS
173 StartSockets();
174 return htons(hostshort);
0a753a76
PP
175}
176
68dc0745
PP
177u_long
178win32_ntohl(u_long netlong)
0a753a76 179{
326b05e3
GS
180 StartSockets();
181 return ntohl(netlong);
0a753a76
PP
182}
183
68dc0745
PP
184u_short
185win32_ntohs(u_short netshort)
0a753a76 186{
326b05e3
GS
187 StartSockets();
188 return ntohs(netshort);
0a753a76
PP
189}
190
191
0a753a76 192
68dc0745
PP
193SOCKET
194win32_accept(SOCKET s, struct sockaddr *addr, int *addrlen)
0a753a76 195{
68dc0745 196 SOCKET r;
0a753a76 197
326b05e3 198 SOCKET_TEST((r = accept(TO_SOCKET(s), addr, addrlen)), INVALID_SOCKET);
68dc0745 199 return OPEN_SOCKET(r);
0a753a76
PP
200}
201
68dc0745
PP
202int
203win32_bind(SOCKET s, const struct sockaddr *addr, int addrlen)
0a753a76 204{
68dc0745 205 int r;
0a753a76 206
326b05e3 207 SOCKET_TEST_ERROR(r = bind(TO_SOCKET(s), addr, addrlen));
68dc0745 208 return r;
0a753a76
PP
209}
210
68dc0745
PP
211int
212win32_connect(SOCKET s, const struct sockaddr *addr, int addrlen)
0a753a76 213{
68dc0745 214 int r;
0a753a76 215
326b05e3 216 SOCKET_TEST_ERROR(r = connect(TO_SOCKET(s), addr, addrlen));
68dc0745 217 return r;
0a753a76
PP
218}
219
220
68dc0745
PP
221int
222win32_getpeername(SOCKET s, struct sockaddr *addr, int *addrlen)
0a753a76 223{
68dc0745 224 int r;
0a753a76 225
326b05e3 226 SOCKET_TEST_ERROR(r = getpeername(TO_SOCKET(s), addr, addrlen));
68dc0745 227 return r;
0a753a76
PP
228}
229
68dc0745
PP
230int
231win32_getsockname(SOCKET s, struct sockaddr *addr, int *addrlen)
0a753a76 232{
68dc0745 233 int r;
0a753a76 234
326b05e3 235 SOCKET_TEST_ERROR(r = getsockname(TO_SOCKET(s), addr, addrlen));
68dc0745 236 return r;
0a753a76
PP
237}
238
68dc0745
PP
239int
240win32_getsockopt(SOCKET s, int level, int optname, char *optval, int *optlen)
0a753a76 241{
68dc0745 242 int r;
0a753a76 243
326b05e3 244 SOCKET_TEST_ERROR(r = getsockopt(TO_SOCKET(s), level, optname, optval, optlen));
68dc0745 245 return r;
0a753a76
PP
246}
247
2d7a9237 248int
68dc0745 249win32_ioctlsocket(SOCKET s, long cmd, u_long *argp)
0a753a76 250{
68dc0745 251 int r;
0a753a76 252
326b05e3 253 SOCKET_TEST_ERROR(r = ioctlsocket(TO_SOCKET(s), cmd, argp));
68dc0745 254 return r;
0a753a76
PP
255}
256
68dc0745
PP
257int
258win32_listen(SOCKET s, int backlog)
0a753a76 259{
68dc0745 260 int r;
0a753a76 261
326b05e3 262 SOCKET_TEST_ERROR(r = listen(TO_SOCKET(s), backlog));
68dc0745 263 return r;
0a753a76
PP
264}
265
68dc0745
PP
266int
267win32_recv(SOCKET s, char *buf, int len, int flags)
0a753a76 268{
68dc0745 269 int r;
0a753a76 270
326b05e3 271 SOCKET_TEST_ERROR(r = recv(TO_SOCKET(s), buf, len, flags));
68dc0745 272 return r;
0a753a76
PP
273}
274
68dc0745
PP
275int
276win32_recvfrom(SOCKET s, char *buf, int len, int flags, struct sockaddr *from, int *fromlen)
0a753a76 277{
68dc0745 278 int r;
e4449fe1 279 int frombufsize = *fromlen;
0a753a76 280
326b05e3 281 SOCKET_TEST_ERROR(r = recvfrom(TO_SOCKET(s), buf, len, flags, from, fromlen));
e4449fe1
GS
282 /* Winsock's recvfrom() only returns a valid 'from' when the socket
283 * is connectionless. Perl expects a valid 'from' for all types
284 * of sockets, so go the extra mile.
285 */
286 if (r != SOCKET_ERROR && frombufsize == *fromlen)
287 (void)win32_getpeername(s, from, fromlen);
68dc0745 288 return r;
0a753a76
PP
289}
290
68dc0745
PP
291/* select contributed by Vincent R. Slyngstad (vrs@ibeam.intel.com) */
292int
55d25626 293win32_select(int nfds, Perl_fd_set* rd, Perl_fd_set* wr, Perl_fd_set* ex, const struct timeval* timeout)
0a753a76 294{
55d25626
GS
295 int r;
296#ifdef USE_SOCKETS_AS_HANDLES
297 Perl_fd_set dummy;
68dc0745 298 int i, fd, bit, offset;
55d25626 299 FD_SET nrd, nwr, nex, *prd, *pwr, *pex;
0a753a76 300
7e3be867
GS
301 /* winsock seems incapable of dealing with all three null fd_sets,
302 * so do the (millisecond) sleep as a special case
303 */
304 if (!(rd || wr || ex)) {
87c2f9c4
BZ
305 if (timeout)
306 Sleep(timeout->tv_sec * 1000 +
307 timeout->tv_usec / 1000); /* do the best we can */
308 else
309 Sleep(UINT_MAX);
7e3be867
GS
310 return 0;
311 }
f2bb5751 312 StartSockets();
55d25626 313 PERL_FD_ZERO(&dummy);
68dc0745
PP
314 if (!rd)
315 rd = &dummy, prd = NULL;
316 else
317 prd = &nrd;
318 if (!wr)
319 wr = &dummy, pwr = NULL;
320 else
321 pwr = &nwr;
322 if (!ex)
323 ex = &dummy, pex = NULL;
324 else
325 pex = &nex;
0a753a76 326
68dc0745
PP
327 FD_ZERO(&nrd);
328 FD_ZERO(&nwr);
329 FD_ZERO(&nex);
330 for (i = 0; i < nfds; i++) {
331 fd = TO_SOCKET(i);
55d25626 332 if (PERL_FD_ISSET(i,rd))
68dc0745 333 FD_SET(fd, &nrd);
55d25626 334 if (PERL_FD_ISSET(i,wr))
68dc0745 335 FD_SET(fd, &nwr);
55d25626 336 if (PERL_FD_ISSET(i,ex))
68dc0745
PP
337 FD_SET(fd, &nex);
338 }
339
326b05e3 340 SOCKET_TEST_ERROR(r = select(nfds, prd, pwr, pex, timeout));
0a753a76 341
68dc0745
PP
342 for (i = 0; i < nfds; i++) {
343 fd = TO_SOCKET(i);
55d25626
GS
344 if (PERL_FD_ISSET(i,rd) && !FD_ISSET(fd, &nrd))
345 PERL_FD_CLR(i,rd);
346 if (PERL_FD_ISSET(i,wr) && !FD_ISSET(fd, &nwr))
347 PERL_FD_CLR(i,wr);
348 if (PERL_FD_ISSET(i,ex) && !FD_ISSET(fd, &nex))
349 PERL_FD_CLR(i,ex);
68dc0745 350 }
55d25626
GS
351#else
352 SOCKET_TEST_ERROR(r = select(nfds, rd, wr, ex, timeout));
353#endif
68dc0745 354 return r;
0a753a76
PP
355}
356
68dc0745
PP
357int
358win32_send(SOCKET s, const char *buf, int len, int flags)
0a753a76 359{
68dc0745 360 int r;
0a753a76 361
326b05e3 362 SOCKET_TEST_ERROR(r = send(TO_SOCKET(s), buf, len, flags));
68dc0745 363 return r;
0a753a76
PP
364}
365
68dc0745
PP
366int
367win32_sendto(SOCKET s, const char *buf, int len, int flags,
368 const struct sockaddr *to, int tolen)
0a753a76 369{
68dc0745 370 int r;
0a753a76 371
326b05e3 372 SOCKET_TEST_ERROR(r = sendto(TO_SOCKET(s), buf, len, flags, to, tolen));
68dc0745 373 return r;
0a753a76
PP
374}
375
68dc0745
PP
376int
377win32_setsockopt(SOCKET s, int level, int optname, const char *optval, int optlen)
0a753a76 378{
68dc0745 379 int r;
0a753a76 380
326b05e3 381 SOCKET_TEST_ERROR(r = setsockopt(TO_SOCKET(s), level, optname, optval, optlen));
68dc0745 382 return r;
0a753a76
PP
383}
384
68dc0745
PP
385int
386win32_shutdown(SOCKET s, int how)
0a753a76 387{
68dc0745 388 int r;
0a753a76 389
326b05e3 390 SOCKET_TEST_ERROR(r = shutdown(TO_SOCKET(s), how));
68dc0745 391 return r;
0a753a76
PP
392}
393
3a25acb4
GS
394int
395win32_closesocket(SOCKET s)
396{
397 int r;
398
399 SOCKET_TEST_ERROR(r = closesocket(TO_SOCKET(s)));
400 return r;
401}
402
68dc0745
PP
403SOCKET
404win32_socket(int af, int type, int protocol)
0a753a76 405{
68dc0745 406 SOCKET s;
0a753a76
PP
407
408#ifndef USE_SOCKETS_AS_HANDLES
326b05e3 409 SOCKET_TEST(s = socket(af, type, protocol), INVALID_SOCKET);
0a753a76 410#else
3a25acb4 411 StartSockets();
326b05e3
GS
412 if((s = socket(af, type, protocol)) == INVALID_SOCKET)
413 errno = WSAGetLastError();
68dc0745
PP
414 else
415 s = OPEN_SOCKET(s);
416#endif /* USE_SOCKETS_AS_HANDLES */
0a753a76 417
68dc0745 418 return s;
0a753a76
PP
419}
420
e601c439
BS
421/*\r
422 * close RTL fd while respecting sockets\r
423 * added as temporary measure until PerlIO has real\r
424 * Win32 native layer\r
425 * -- BKS, 11-11-2000\r
426*/\r
427\r
428int my_close(int fd)\r
429{\r
430 int osf;\r
431 if (!wsock_started) /* No WinSock? */\r
432 return(close(fd)); /* Then not a socket. */\r
433 osf = TO_SOCKET(fd);/* Get it now before it's gone! */\r
434 if (osf != -1) {\r
435 int err;\r
436 err = closesocket(osf);\r
437 if (err == 0) {\r
438#if defined(USE_FIXED_OSFHANDLE) || defined(PERL_MSVCRT_READFIX)\r
439 _set_osfhnd(fd, INVALID_HANDLE_VALUE);\r
440#endif\r
441 (void)close(fd); /* handle already closed, ignore error */\r
442 return 0;\r
443 }\r
444 else if (err == SOCKET_ERROR) {\r
445 err = WSAGetLastError();\r
446 if (err != WSAENOTSOCK) {\r
447 (void)close(fd);\r
448 errno = err;\r
449 return EOF;\r
450 }\r
451 }\r
452 }\r
453 return close(fd);\r
454}\r
455\r
fb73857a
PP
456#undef fclose
457int
458my_fclose (FILE *pf)
459{
4e945249 460 int osf;
326b05e3
GS
461 if (!wsock_started) /* No WinSock? */
462 return(fclose(pf)); /* Then not a socket. */
e601c439 463 osf = TO_SOCKET(win32_fileno(pf));/* Get it now before it's gone! */\r
d3d49e29
GS
464 if (osf != -1) {
465 int err;
466 win32_fflush(pf);
467 err = closesocket(osf);
468 if (err == 0) {
9114b071 469#if defined(USE_FIXED_OSFHANDLE) || defined(PERL_MSVCRT_READFIX)
e601c439 470 _set_osfhnd(win32_fileno(pf), INVALID_HANDLE_VALUE);\r
9114b071 471#endif
d3d49e29
GS
472 (void)fclose(pf); /* handle already closed, ignore error */
473 return 0;
474 }
475 else if (err == SOCKET_ERROR) {
476 err = WSAGetLastError();
477 if (err != WSAENOTSOCK) {
478 (void)fclose(pf);
479 errno = err;
480 return EOF;
481 }
482 }
326b05e3 483 }
d3d49e29 484 return fclose(pf);
fb73857a
PP
485}
486
68dc0745
PP
487struct hostent *
488win32_gethostbyaddr(const char *addr, int len, int type)
0a753a76 489{
68dc0745 490 struct hostent *r;
0a753a76 491
326b05e3 492 SOCKET_TEST(r = gethostbyaddr(addr, len, type), NULL);
68dc0745 493 return r;
0a753a76
PP
494}
495
68dc0745
PP
496struct hostent *
497win32_gethostbyname(const char *name)
0a753a76 498{
68dc0745 499 struct hostent *r;
0a753a76 500
326b05e3 501 SOCKET_TEST(r = gethostbyname(name), NULL);
68dc0745 502 return r;
0a753a76
PP
503}
504
68dc0745
PP
505int
506win32_gethostname(char *name, int len)
0a753a76 507{
68dc0745 508 int r;
0a753a76 509
326b05e3 510 SOCKET_TEST_ERROR(r = gethostname(name, len));
68dc0745 511 return r;
0a753a76
PP
512}
513
68dc0745
PP
514struct protoent *
515win32_getprotobyname(const char *name)
0a753a76 516{
68dc0745 517 struct protoent *r;
0a753a76 518
326b05e3 519 SOCKET_TEST(r = getprotobyname(name), NULL);
68dc0745 520 return r;
0a753a76
PP
521}
522
68dc0745
PP
523struct protoent *
524win32_getprotobynumber(int num)
0a753a76 525{
68dc0745 526 struct protoent *r;
0a753a76 527
326b05e3 528 SOCKET_TEST(r = getprotobynumber(num), NULL);
68dc0745 529 return r;
0a753a76
PP
530}
531
68dc0745
PP
532struct servent *
533win32_getservbyname(const char *name, const char *proto)
0a753a76 534{
c5be433b 535 dTHXo;
68dc0745 536 struct servent *r;
c53bd28a 537
326b05e3 538 SOCKET_TEST(r = getservbyname(name, proto), NULL);
68dc0745 539 if (r) {
3352bfcb 540 r = win32_savecopyservent(&w32_servent, r, proto);
68dc0745
PP
541 }
542 return r;
0a753a76
PP
543}
544
68dc0745
PP
545struct servent *
546win32_getservbyport(int port, const char *proto)
0a753a76 547{
c5be433b 548 dTHXo;
68dc0745 549 struct servent *r;
0a753a76 550
326b05e3 551 SOCKET_TEST(r = getservbyport(port, proto), NULL);
68dc0745 552 if (r) {
3352bfcb 553 r = win32_savecopyservent(&w32_servent, r, proto);
68dc0745
PP
554 }
555 return r;
0a753a76
PP
556}
557
f998180f
GS
558int
559win32_ioctl(int i, unsigned int u, char *data)
560{
c5be433b 561 dTHXo;
f998180f
GS
562 u_long argp = (u_long)data;
563 int retval;
564
565 if (!wsock_started) {
4f63d024 566 Perl_croak_nocontext("ioctl implemented only on sockets");
f998180f
GS
567 /* NOTREACHED */
568 }
569
570 retval = ioctlsocket(TO_SOCKET(i), (long)u, &argp);
571 if (retval == SOCKET_ERROR) {
572 if (WSAGetLastError() == WSAENOTSOCK) {
4f63d024 573 Perl_croak_nocontext("ioctl implemented only on sockets");
f998180f
GS
574 /* NOTREACHED */
575 }
576 errno = WSAGetLastError();
577 }
578 return retval;
579}
580
68dc0745
PP
581char FAR *
582win32_inet_ntoa(struct in_addr in)
0a753a76 583{
326b05e3
GS
584 StartSockets();
585 return inet_ntoa(in);
0a753a76
PP
586}
587
68dc0745
PP
588unsigned long
589win32_inet_addr(const char FAR *cp)
0a753a76 590{
326b05e3
GS
591 StartSockets();
592 return inet_addr(cp);
0a753a76 593}
68dc0745
PP
594
595/*
596 * Networking stubs
597 */
0a753a76 598
68dc0745
PP
599void
600win32_endhostent()
0a753a76 601{
c5be433b 602 dTHXo;
4f63d024 603 Perl_croak_nocontext("endhostent not implemented!\n");
0a753a76
PP
604}
605
68dc0745
PP
606void
607win32_endnetent()
0a753a76 608{
c5be433b 609 dTHXo;
4f63d024 610 Perl_croak_nocontext("endnetent not implemented!\n");
0a753a76
PP
611}
612
68dc0745
PP
613void
614win32_endprotoent()
0a753a76 615{
c5be433b 616 dTHXo;
4f63d024 617 Perl_croak_nocontext("endprotoent not implemented!\n");
0a753a76
PP
618}
619
68dc0745
PP
620void
621win32_endservent()
0a753a76 622{
c5be433b 623 dTHXo;
4f63d024 624 Perl_croak_nocontext("endservent not implemented!\n");
0a753a76
PP
625}
626
627
68dc0745
PP
628struct netent *
629win32_getnetent(void)
0a753a76 630{
c5be433b 631 dTHXo;
4f63d024 632 Perl_croak_nocontext("getnetent not implemented!\n");
68dc0745 633 return (struct netent *) NULL;
0a753a76
PP
634}
635
68dc0745
PP
636struct netent *
637win32_getnetbyname(char *name)
0a753a76 638{
c5be433b 639 dTHXo;
4f63d024 640 Perl_croak_nocontext("getnetbyname not implemented!\n");
68dc0745 641 return (struct netent *)NULL;
0a753a76
PP
642}
643
68dc0745
PP
644struct netent *
645win32_getnetbyaddr(long net, int type)
0a753a76 646{
c5be433b 647 dTHXo;
4f63d024 648 Perl_croak_nocontext("getnetbyaddr not implemented!\n");
68dc0745 649 return (struct netent *)NULL;
0a753a76
PP
650}
651
68dc0745
PP
652struct protoent *
653win32_getprotoent(void)
0a753a76 654{
c5be433b 655 dTHXo;
4f63d024 656 Perl_croak_nocontext("getprotoent not implemented!\n");
68dc0745 657 return (struct protoent *) NULL;
0a753a76
PP
658}
659
68dc0745
PP
660struct servent *
661win32_getservent(void)
0a753a76 662{
c5be433b 663 dTHXo;
4f63d024 664 Perl_croak_nocontext("getservent not implemented!\n");
68dc0745 665 return (struct servent *) NULL;
0a753a76
PP
666}
667
68dc0745
PP
668void
669win32_sethostent(int stayopen)
0a753a76 670{
c5be433b 671 dTHXo;
4f63d024 672 Perl_croak_nocontext("sethostent not implemented!\n");
0a753a76
PP
673}
674
675
68dc0745
PP
676void
677win32_setnetent(int stayopen)
0a753a76 678{
c5be433b 679 dTHXo;
4f63d024 680 Perl_croak_nocontext("setnetent not implemented!\n");
0a753a76
PP
681}
682
683
68dc0745
PP
684void
685win32_setprotoent(int stayopen)
0a753a76 686{
c5be433b 687 dTHXo;
4f63d024 688 Perl_croak_nocontext("setprotoent not implemented!\n");
0a753a76
PP
689}
690
691
68dc0745
PP
692void
693win32_setservent(int stayopen)
0a753a76 694{
c5be433b 695 dTHXo;
4f63d024 696 Perl_croak_nocontext("setservent not implemented!\n");
0a753a76
PP
697}
698
137443ea
PP
699static struct servent*
700win32_savecopyservent(struct servent*d, struct servent*s, const char *proto)
701{
702 d->s_name = s->s_name;
703 d->s_aliases = s->s_aliases;
704 d->s_port = s->s_port;
0af56dfe 705#ifndef __BORLANDC__ /* Buggy on Win95 and WinNT-with-Borland-WSOCK */
137443ea
PP
706 if (!IsWin95() && s->s_proto && strlen(s->s_proto))
707 d->s_proto = s->s_proto;
0af56dfe
GS
708 else
709#endif
c69f6586 710 if (proto && strlen(proto))
137443ea
PP
711 d->s_proto = (char *)proto;
712 else
713 d->s_proto = "tcp";
714
715 return d;
716}
717
0a753a76 718