[inseparable changes from match from perl-5.003_94 to perl-5.003_95]
[p5sagit/p5-mst-13.2.git] / win32 / win32aux.c
1
2 #ifdef __cplusplus
3 extern "C" {
4 #endif
5
6 #define WIN32_LEAN_AND_MEAN
7 #define WIN32IO_IS_STDIO
8 #define EXT
9 #include <windows.h>
10 #include <stdio.h>
11 #include <stdlib.h>
12 #include <io.h>
13 #include <sys/stat.h>
14 #include <sys/socket.h>
15 #include <fcntl.h>
16 #include <assert.h>
17 #include <errno.h>
18
19 #include "win32.h"
20 #include "win32iop.h"
21
22 struct servent*
23 win32_savecopyservent(struct servent*d, struct servent*s, const char *proto)
24 {
25     d->s_name = s->s_name;
26     d->s_aliases = s->s_aliases;
27     d->s_port = s->s_port;
28     if (!IsWin95() && s->s_proto && strlen(s->s_proto))
29         d->s_proto = s->s_proto;
30     else if (proto && strlen(proto))
31         d->s_proto = (char *)proto;
32     else
33         d->s_proto = "tcp";
34    
35     return d;
36 }
37
38 #ifdef __cplusplus
39 }
40 #endif
41