Changes to make it work and compile on NT, by Mark Hammond.

(NT changes for posixmodule.c re-invented by Guido.)

diff --git a/Modules/posixmodule.c b/Modules/posixmodule.c
index a0f34e5aa1d7b472fc670ff692c953c7639834bd..5f26b621484c3c8d089e3f41a29d0f01291459a2 100644 (file)
--- a/Modules/posixmodule.c
+++ b/Modules/posixmodule.c
@@ -24,37 +24,25 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 
 /* POSIX module implementation */
 
-#ifdef _M_IX86
-#define NT
-/* NT may be defined externally as well.  If it is defined, the module is
-   actually called 'nt', not 'posix', and some functions don't exist. */
-#endif
-
 #include "allobjects.h"
 #include "modsupport.h"
 #include "ceval.h"
 
 #include <string.h>
 #include <errno.h>
-
-#ifndef macintosh
 #include <sys/types.h>
 #include <sys/stat.h>
-#endif 
 
 #include "mytime.h"            /* For clock_t on some systems */
 
 #ifdef HAVE_FCNTL_H
 #include <fcntl.h>
-#endif
+#endif /* HAVE_FCNTL_H */
 
+#ifndef NT
 #ifdef HAVE_UNISTD_H
 #include <unistd.h>
 #else /* !HAVE_UNISTD_H */
-
-#ifdef macintosh
-#include "macdefs.h"
-#else
 extern int mkdir PROTO((const char *, mode_t));
 extern int chdir PROTO((const char *));
 extern int rmdir PROTO((const char *));
@@ -69,40 +57,40 @@ extern int unlink PROTO((const char *));
 extern int pclose PROTO((FILE *));
 #ifdef HAVE_SYMLINK
 extern int symlink PROTO((const char *, const char *));
-#endif
+#endif /_ HAVE_SYMLINK */
 #ifdef HAVE_LSTAT
 extern int lstat PROTO((const char *, struct stat *));
-#endif
-#endif /* macintosh */
+#endif /* HAVE_LSTAT */
 #endif /* !HAVE_UNISTD_H */
+#endif /* !NT */
 
-#if 1
+#ifndef NT
 /* XXX These are for SunOS4.1.3 but shouldn't hurt elsewhere */
 extern int rename();
 extern int pclose();
 extern int lstat();
 extern int symlink();
-#endif
+#endif /* !NT */
 
 #ifdef HAVE_UTIME_H
 #include <utime.h>
-#endif
+#endif /* HAVE_UTIME_H */
 
 #ifdef HAVE_SYS_TIMES_H
 #include <sys/times.h>
-#endif
+#endif /* HAVE_SYS_TIMES_H */
 
 #ifdef HAVE_SYS_PARAM_H
 #include <sys/param.h>
-#endif
+#endif /* HAVE_SYS_PARAM_H */
 
 #ifdef HAVE_SYS_UTSNAME_H
 #include <sys/utsname.h>
-#endif
+#endif /* HAVE_SYS_UTSNAME_H */
 
 #ifndef MAXPATHLEN
 #define MAXPATHLEN 1024
-#endif
+#endif /* MAXPATHLEN */
 
 /* unistd.h defines _POSIX_VERSION on POSIX.1 systems.  */
 #if defined(DIRENT) || defined(_POSIX_VERSION)
@@ -132,11 +120,13 @@ extern int symlink();
 
 #ifdef OS2
 #include <io.h>
-#endif
+#endif /* OS2 */
 
 /* Return a dictionary corresponding to the POSIX environment table */
 
+#ifndef NT
 extern char **environ;
+#endif /* !NT */
 
 static object *
 convertenviron()
@@ -306,7 +296,7 @@ posix_chown(self, args)
 {
        return posix_strintint(args, chown);
 }
-#endif
+#endif /* HAVE_CHOWN */
 
 static object *
 posix_getcwd(self, args)
@@ -333,14 +323,15 @@ posix_link(self, args)
 {
        return posix_2str(args, link);
 }
-#endif
+#endif /* HAVE_LINK */
 
-#ifdef NT
 static object *
 posix_listdir(self, args)
        object *self;
        object *args;
 {
+#ifdef NT
+
        char *name;
        int len;
        object *d, *v;
@@ -389,13 +380,9 @@ posix_listdir(self, args)
        }
 
        return d;
-}
-#else /* ! NT */
-static object *
-posix_listdir(self, args)
-       object *self;
-       object *args;
-{
+
+#else /* !NT */
+
        char *name;
        object *d, *v;
        DIR *dirp;
@@ -431,8 +418,9 @@ posix_listdir(self, args)
        END_SAVE
 
        return d;
+
+#endif /* !NT */
 }
-#endif /* ! NT */
 
 static object *
 posix_mkdir(self, args)
@@ -558,12 +546,12 @@ posix_utime(self, args)
 #define ATIME buf.actime
 #define MTIME buf.modtime
 #define UTIME_ARG &buf
-#else
+#else /* HAVE_UTIME_H */
        time_t buf[2];
 #define ATIME buf[0]
 #define MTIME buf[1]
 #define UTIME_ARG buf
-#endif
+#endif /* HAVE_UTIME_H */
 
        if (!getargs(args, "(s(ll))", &path, &ATIME, &MTIME))
                return NULL;
@@ -637,9 +625,9 @@ posix_execv(self, args)
 
 #ifdef BAD_EXEC_PROTOTYPES
        execv(path, (const char **) argvlist);
-#else
+#else /* BAD_EXEC_PROTOTYPES */
        execv(path, argvlist);
-#endif
+#endif /* BAD_EXEC_PROTOTYPES */
 
        /* If we get here it's definitely an error */
 
@@ -724,9 +712,9 @@ posix_execve(self, args)
 
 #ifdef BAD_EXEC_PROTOTYPES
        execve(path, (const char **)argvlist, envlist);
-#else
+#else /* BAD_EXEC_PROTOTYPES */
        execve(path, argvlist, envlist);
-#endif
+#endif /* BAD_EXEC_PROTOTYPES */
        
        /* If we get here it's definitely an error */
 
@@ -806,9 +794,9 @@ posix_getpgrp(self, args)
                return NULL;
 #ifdef GETPGRP_HAVE_ARG
        return newintobject((long)getpgrp(0));
-#else
+#else /* GETPGRP_HAVE_ARG */
        return newintobject((long)getpgrp());
-#endif
+#endif /* GETPGRP_HAVE_ARG */
 }
 #endif /* HAVE_GETPGRP */
 
@@ -822,9 +810,9 @@ posix_setpgrp(self, args)
                return NULL;
 #ifdef GETPGRP_HAVE_ARG
        if (setpgrp(0, 0) < 0)
-#else
+#else /* GETPGRP_HAVE_ARG */
        if (setpgrp() < 0)
-#endif
+#endif /* GETPGRP_HAVE_ARG */
                return posix_error();
        INCREF(None);
        return None;
@@ -897,7 +885,7 @@ posix_setuid(self, args)
        INCREF(None);
        return None;
 }
-#endif
+#endif /* HAVE_SETUID */
 
 #ifdef HAVE_SETGID
 static object *
@@ -913,7 +901,7 @@ posix_setgid(self, args)
        INCREF(None);
        return None;
 }
-#endif
+#endif /* HAVE_SETGID */
 
 #ifdef HAVE_WAITPID
 static object *
@@ -994,7 +982,7 @@ posix_symlink(self, args)
 #ifdef HAVE_TIMES
 #ifndef HZ
 #define HZ 60 /* Universal constant :-) */
-#endif
+#endif /* HZ */
 static object *
 posix_times(self, args)
        object *self;
@@ -1169,7 +1157,7 @@ posix_lseek(self, args)
        case 1: how = SEEK_CUR; break;
        case 2: how = SEEK_END; break;
        }
-#endif
+#endif /* SEEK_END */
        BGN_SAVE
        res = lseek(fd, pos, how);
        END_SAVE
@@ -1289,38 +1277,36 @@ static struct methodlist posix_methods[] = {
        {"chmod",       posix_chmod},
 #ifdef HAVE_CHOWN
        {"chown",       posix_chown},
-#endif
+#endif /* HAVE_CHOWN */
        {"getcwd",      posix_getcwd},
 #ifdef HAVE_LINK
        {"link",        posix_link},
-#endif 
+#endif /* HAVE_LINK */
        {"listdir",     posix_listdir},
        {"lstat",       posix_lstat},
        {"mkdir",       posix_mkdir},
 #ifdef HAVE_NICE
        {"nice",        posix_nice},
-#endif
+#endif /* HAVE_NICE */
 #ifdef HAVE_READLINK
        {"readlink",    posix_readlink},
-#endif
+#endif /* HAVE_READLINK */
        {"rename",      posix_rename},
        {"rmdir",       posix_rmdir},
        {"stat",        posix_stat},
 #ifdef HAVE_SYMLINK
        {"symlink",     posix_symlink},
-#endif
+#endif /* HAVE_SYMLINK */
        {"system",      posix_system},
        {"umask",       posix_umask},
 #ifdef HAVE_UNAME
        {"uname",       posix_uname},
-#endif
+#endif /* HAVE_UNAME */
        {"unlink",      posix_unlink},
-#ifndef NT
        {"utime",       posix_utime},
-#endif /* ! NT */
 #ifdef HAVE_TIMES
        {"times",       posix_times},
-#endif
+#endif /* HAVE_TIMES */
        {"_exit",       posix__exit},
        {"execv",       posix_execv},
        {"execve",      posix_execve},
@@ -1329,44 +1315,44 @@ static struct methodlist posix_methods[] = {
        {"getegid",     posix_getegid},
        {"geteuid",     posix_geteuid},
        {"getgid",      posix_getgid},
-#endif /* ! NT */
+#endif /* !NT */
        {"getpid",      posix_getpid},
 #ifdef HAVE_GETPGRP
        {"getpgrp",     posix_getpgrp},
-#endif
+#endif /* HAVE_GETPGRP */
 #ifndef NT
        {"getppid",     posix_getppid},
        {"getuid",      posix_getuid},
        {"kill",        posix_kill},
-#endif /* ! NT */
+#endif /* !NT */
        {"popen",       posix_popen},
 #ifdef HAVE_SETUID
        {"setuid",      posix_setuid},
-#endif
+#endif /* HAVE_SETUID */
 #ifdef HAVE_SETGID
        {"setgid",      posix_setgid},
-#endif
+#endif /* HAVE_SETGID */
 #ifdef HAVE_SETPGRP
        {"setpgrp",     posix_setpgrp},
-#endif
+#endif /* HAVE_SETPGRP */
 #ifndef NT
        {"wait",        posix_wait},
-#endif /* ! NT */
+#endif /* !NT */
 #ifdef HAVE_WAITPID
        {"waitpid",     posix_waitpid},
-#endif
+#endif /* HAVE_WAITPID */
 #ifdef HAVE_SETSID
        {"setsid",      posix_setsid},
-#endif
+#endif /* HAVE_SETSID */
 #ifdef HAVE_SETPGID
        {"setpgid",     posix_setpgid},
-#endif
+#endif /* HAVE_SETPGID */
 #ifdef HAVE_TCGETPGRP
        {"tcgetpgrp",   posix_tcgetpgrp},
-#endif
+#endif /* HAVE_TCGETPGRP */
 #ifdef HAVE_TCSETPGRP
        {"tcsetpgrp",   posix_tcsetpgrp},
-#endif
+#endif /* HAVE_TCSETPGRP */
        {"open",        posix_open},
        {"close",       posix_close},
        {"dup",         posix_dup},
@@ -1378,7 +1364,7 @@ static struct methodlist posix_methods[] = {
        {"fdopen",      posix_fdopen},
 #ifndef NT
        {"pipe",        posix_pipe},
-#endif /* ! NT */
+#endif /* !NT */
 
        {NULL,          NULL}            /* Sentinel */
 };
@@ -1404,7 +1390,7 @@ initnt()
        if (PosixError == NULL || dictinsert(d, "error", PosixError) != 0)
                fatal("can't define nt.error");
 }
-#else /* ! NT */
+#else /* !NT */
 void
 initposix()
 {
@@ -1424,4 +1410,4 @@ initposix()
        if (PosixError == NULL || dictinsert(d, "error", PosixError) != 0)
                fatal("can't define posix.error");
 }
-#endif /* ! NT */
+#endif /* !NT */

diff --git a/Modules/socketmodule.c b/Modules/socketmodule.c
index 6340fbcc73bae355f1b6bfda04fe2f73b60e78c2..8cacfb2793ff5b6f573ca79d0b27768c841cf6af 100644 (file)
--- a/Modules/socketmodule.c
+++ b/Modules/socketmodule.c
@@ -76,15 +76,68 @@ Socket methods:
 #include "mytime.h"
 
 #include <signal.h>
+#ifndef NT
 #include <netdb.h>
 #include <sys/socket.h>
 #include <netinet/in.h>
+#else
+#include <winsock.h>
+#endif
 #ifdef HAVE_SYS_UN_H
 #include <sys/un.h>
 #else
 #undef AF_UNIX
 #endif
 
+/* Here we have some hacks to choose between K&R or ANSI style function
+   definitions.  For NT to build this as an extension module (ie, DLL)
+   it must be compiled by the C++ compiler, as it takes the address of
+   a static data item exported from the main Python DLL.
+*/
+#ifdef NT
+/* seem to be a few differences in the API */
+#define close closesocket
+#define NO_DUP /* I wont trust passing a socket to NT's RTL!!  */
+#define FORCE_ANSI_FUNC_DEFS
+#endif
+
+#ifdef FORCE_ANSI_FUNC_DEFS
+#define BUILD_FUNC_DEF_1( fnname, arg1type, arg1name ) \
+fnname( arg1type arg1name )
+
+#define BUILD_FUNC_DEF_2( fnname, arg1type, arg1name, arg2type, arg2name ) \
+fnname( arg1type arg1name, arg2type arg2name )
+
+#define BUILD_FUNC_DEF_3( fnname, arg1type, arg1name, arg2type, arg2name , arg3type, arg3name )        \
+fnname( arg1type arg1name, arg2type arg2name, arg3type arg3name )
+
+#define BUILD_FUNC_DEF_4( fnname, arg1type, arg1name, arg2type, arg2name , arg3type, arg3name, arg4type, arg4name )    \
+fnname( arg1type arg1name, arg2type arg2name, arg3type arg3name, arg4type arg4name )
+
+#else /* !FORCE_ANSI_FN_DEFS */
+#define BUILD_FUNC_DEF_1( fnname, arg1type, arg1name ) \
+fnname( arg1name )     \
+       arg1type arg1name;
+
+#define BUILD_FUNC_DEF_2( fnname, arg1type, arg1name, arg2type, arg2name ) \
+fnname( arg1name, arg2name )   \
+       arg1type arg1name;      \
+       arg2type arg2name;
+
+#define BUILD_FUNC_DEF_3( fnname, arg1type, arg1name, arg2type, arg2name, arg3type, arg3name ) \
+fnname( arg1name, arg2name, arg3name ) \
+       arg1type arg1name;      \
+       arg2type arg2name;      \
+       arg3type arg3name;
+
+#define BUILD_FUNC_DEF_4( fnname, arg1type, arg1name, arg2type, arg2name, arg3type, arg3name, arg4type, arg4name ) \
+fnname( arg1name, arg2name, arg3name, arg4name )       \
+       arg1type arg1name;      \
+       arg2type arg2name;      \
+       arg3type arg3name;      \
+       arg4type arg4name;
+
+#endif /* !FORCE_ANSI_FN_DEFS */
 
 /* Global variable holding the exception type for errors detected
    by this module (but not argument type or memory errors, etc.). */
@@ -129,8 +182,7 @@ staticforward typeobject Socktype;
    in NEWOBJ()). */
 
 static sockobject *
-newsockobject(fd, family, type, proto)
-       int fd, family, type, proto;
+BUILD_FUNC_DEF_4(newsockobject, int, fd, int, family, int, type, int, proto)
 {
        sockobject *s;
        s = NEWOBJ(sockobject, &Socktype);
@@ -151,9 +203,7 @@ newsockobject(fd, family, type, proto)
    an error occurred; then an exception is raised. */
 
 static int
-setipaddr(name, addr_ret)
-       char *name;
-       struct sockaddr_in *addr_ret;
+BUILD_FUNC_DEF_2(setipaddr, char*, name, struct sockaddr_in *, addr_ret)
 {
        struct hostent *hp;
        int d1, d2, d3, d4;
@@ -192,8 +242,7 @@ setipaddr(name, addr_ret)
    size numbers). */
 
 static object *
-makeipaddr(addr)
-       struct sockaddr_in *addr;
+BUILD_FUNC_DEF_1(makeipaddr, struct sockaddr_in *,addr)
 {
        long x = ntohl(addr->sin_addr.s_addr);
        char buf[100];
@@ -211,9 +260,7 @@ makeipaddr(addr)
 
 /*ARGSUSED*/
 static object *
-makesockaddr(addr, addrlen)
-       struct sockaddr *addr;
-       int addrlen;
+BUILD_FUNC_DEF_2(makesockaddr,struct sockaddr *, addr, int, addrlen)
 {
        if (addrlen == 0) {
                /* No address -- may be recvfrom() from known socket */
@@ -256,11 +303,8 @@ makesockaddr(addr, addrlen)
    through len_ret. */
 
 static int
-getsockaddrarg(s, args, addr_ret, len_ret)
-       sockobject *s;
-       object *args;
-       struct sockaddr **addr_ret;
-       int *len_ret;
+BUILD_FUNC_DEF_4(
+getsockaddrarg,sockobject *,s, object *,args, struct sockaddr **,addr_ret, int *,len_ret)
 {
        switch (s->sock_family) {
 
@@ -315,9 +359,7 @@ getsockaddrarg(s, args, addr_ret, len_ret)
    through len_ret. */
 
 static int
-getsockaddrlen(s, len_ret)
-       sockobject *s;
-       int *len_ret;
+BUILD_FUNC_DEF_2(getsockaddrlen,sockobject *,s, int *,len_ret)
 {
        switch (s->sock_family) {
 
@@ -348,9 +390,7 @@ getsockaddrlen(s, len_ret)
 /* s.accept() method */
 
 static object *
-sock_accept(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_accept,sockobject *,s, object *,args)
 {
        char addrbuf[256];
        int addrlen, newfd;
@@ -385,9 +425,7 @@ sock_accept(s, args)
 /* XXX obsolete -- will disappear in next release */
 
 static object *
-sock_allowbroadcast(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_allowbroadcast,sockobject *,s, object *,args)
 {
        int flag;
        int res;
@@ -409,9 +447,7 @@ sock_allowbroadcast(s, args)
    use optional built-in module 'struct' to encode the string. */
 
 static object *
-sock_setsockopt(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_setsockopt,sockobject *,s, object *,args)
 {
        int level;
        int optname;
@@ -443,9 +479,7 @@ sock_setsockopt(s, args)
    use optional built-in module 'struct' to decode the string. */
 
 static object *
-sock_getsockopt(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_getsockopt,sockobject *,s, object *,args)
 {
        int level;
        int optname;
@@ -487,9 +521,7 @@ sock_getsockopt(s, args)
 /* s.bind(sockaddr) method */
 
 static object *
-sock_bind(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_bind,sockobject *,s, object *,args)
 {
        struct sockaddr *addr;
        int addrlen;
@@ -511,9 +543,7 @@ sock_bind(s, args)
    will surely fail. */
 
 static object *
-sock_close(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_close,sockobject *,s, object *,args)
 {
        if (!getnoarg(args))
                return NULL;
@@ -529,9 +559,7 @@ sock_close(s, args)
 /* s.connect(sockaddr) method */
 
 static object *
-sock_connect(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_connect,sockobject *,s, object *,args)
 {
        struct sockaddr *addr;
        int addrlen;
@@ -551,9 +579,7 @@ sock_connect(s, args)
 /* s.fileno() method */
 
 static object *
-sock_fileno(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_fileno,sockobject *,s, object *,args)
 {
        if (!getnoarg(args))
                return NULL;
@@ -564,9 +590,7 @@ sock_fileno(s, args)
 /* s.getsockname() method */
 
 static object *
-sock_getsockname(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_getsockname,sockobject *,s, object *,args)
 {
        char addrbuf[256];
        int addrlen, res;
@@ -587,9 +611,7 @@ sock_getsockname(s, args)
 /* s.getpeername() method */
 
 static object *
-sock_getpeername(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_getpeername,sockobject *,s, object *,args)
 {
        char addrbuf[256];
        int addrlen, res;
@@ -610,9 +632,7 @@ sock_getpeername(s, args)
 /* s.listen(n) method */
 
 static object *
-sock_listen(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_listen,sockobject *,s, object *,args)
 {
        int backlog;
        int res;
@@ -629,7 +649,7 @@ sock_listen(s, args)
        return None;
 }
 
-
+#ifndef NO_DUP
 /* s.makefile(mode) method.
    Create a new open file object referring to a dupped version of
    the socket's file descriptor.  (The dup() call is necessary so
@@ -638,9 +658,7 @@ sock_listen(s, args)
    The mode argument specifies 'r' or 'w' passed to fdopen(). */
 
 static object *
-sock_makefile(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_makefile,sockobject *,s, object *,args)
 {
        extern int fclose PROTO((FILE *));
        char *mode;
@@ -653,14 +671,12 @@ sock_makefile(s, args)
                return socket_error();
        return newopenfileobject(fp, "<socket>", mode, fclose);
 }
-
+#endif /* NO_DUP */
 
 /* s.recv(nbytes [,flags]) method */
 
 static object *
-sock_recv(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_recv,sockobject *,s, object *,args)
 {
        int len, n, flags;
        object *buf;
@@ -687,9 +703,7 @@ sock_recv(s, args)
 /* s.recvfrom(nbytes [,flags]) method */
 
 static object *
-sock_recvfrom(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_recvfrom,sockobject *,s, object *,args)
 {
        char addrbuf[256];
        object *buf, *addr, *ret;
@@ -707,7 +721,11 @@ sock_recvfrom(s, args)
                return NULL;
        BGN_SAVE
        n = recvfrom(s->sock_fd, getstringvalue(buf), len, flags,
+#ifndef NT
                     (ANY *)addrbuf, &addrlen);
+#else
+                    (struct sockaddr *)addrbuf, &addrlen);
+#endif
        END_SAVE
        if (n < 0)
                return socket_error();
@@ -724,9 +742,7 @@ sock_recvfrom(s, args)
 /* s.send(data [,flags]) method */
 
 static object *
-sock_send(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_send,sockobject *,s, object *,args)
 {
        char *buf;
        int len, n, flags;
@@ -748,9 +764,7 @@ sock_send(s, args)
 /* s.sendto(data, [flags,] sockaddr) method */
 
 static object *
-sock_sendto(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_sendto,sockobject *,s, object *,args)
 {
        object *addro;
        char *buf;
@@ -776,9 +790,7 @@ sock_sendto(s, args)
 /* s.shutdown(how) method */
 
 static object *
-sock_shutdown(s, args)
-       sockobject *s;
-       object *args;
+BUILD_FUNC_DEF_2(sock_shutdown,sockobject *,s, object *,args)
 {
        int how;
        int res;
@@ -812,7 +824,9 @@ static struct methodlist sock_methods[] = {
        {"getpeername",         (method)sock_getpeername},
 #endif
        {"listen",              (method)sock_listen},
+#ifndef NO_DUP
        {"makefile",            (method)sock_makefile},
+#endif
        {"recv",                (method)sock_recv},
        {"recvfrom",            (method)sock_recvfrom},
        {"send",                (method)sock_send},
@@ -826,8 +840,7 @@ static struct methodlist sock_methods[] = {
    First close the file description. */
 
 static void
-sock_dealloc(s)
-       sockobject *s;
+BUILD_FUNC_DEF_1(sock_dealloc, sockobject *,s)
 {
        (void) close(s->sock_fd);
        DEL(s);
@@ -837,9 +850,7 @@ sock_dealloc(s)
 /* Return a socket object's named attribute. */
 
 static object *
-sock_getattr(s, name)
-       sockobject *s;
-       char *name;
+BUILD_FUNC_DEF_2(sock_getattr,sockobject *,s, char *,name)
 {
        return findmethod(sock_methods, (object *) s, name);
 }
@@ -869,9 +880,7 @@ static typeobject Socktype = {
 
 /*ARGSUSED*/
 static object *
-socket_gethostname(self, args)
-       object *self;
-       object *args;
+BUILD_FUNC_DEF_2(socket_gethostname,object *,self, object *,args)
 {
        char buf[1024];
        int res;
@@ -891,11 +900,9 @@ socket_gethostname(self, args)
 
 /*ARGSUSED*/
 static object *
-socket_gethostbyname(self, args)
-       object *self;
-       object *args;
+BUILD_FUNC_DEF_2(socket_gethostbyname,object *,self, object *,args)
 {
-       object *name;
+       char *name;
        struct sockaddr_in addrbuf;
        if (!getargs(args, "s", &name))
                return NULL;
@@ -911,9 +918,7 @@ socket_gethostbyname(self, args)
 
 /*ARGSUSED*/
 static object *
-socket_getservbyname(self, args)
-       object *self;
-       object *args;
+BUILD_FUNC_DEF_2(socket_getservbyname,object *,self, object *,args)
 {
        char *name, *proto;
        struct servent *sp;
@@ -936,9 +941,7 @@ socket_getservbyname(self, args)
 
 /*ARGSUSED*/
 static object *
-socket_socket(self, args)
-       object *self;
-       object *args;
+BUILD_FUNC_DEF_2(socket_socket,object *,self,object *,args)
 {
        sockobject *s;
        int fd, family, type, proto;
@@ -960,20 +963,20 @@ socket_socket(self, args)
                (void) close(fd);
        /* From now on, ignore SIGPIPE and let the error checking
           do the work. */
+#ifdef SIGPIPE      
        (void) signal(SIGPIPE, SIG_IGN);
+#endif   
        return (object *) s;
 }
 
-
+#ifndef NO_DUP
 /* Create a socket object from a numeric file description.
    Useful e.g. if stdin is a socket.
    Additional arguments as for socket(). */
 
 /*ARGSUSED*/
 static object *
-socket_fromfd(self, args)
-       object *self;
-       object *args;
+BUILD_FUNC_DEF_2(socket_fromfd,object *,self,object *,args)
 {
        sockobject *s;
        int fd, family, type, proto;
@@ -990,10 +993,12 @@ socket_fromfd(self, args)
        s = newsockobject(fd, family, type, proto);
        /* From now on, ignore SIGPIPE and let the error checking
           do the work. */
+#ifdef SIGPIPE      
        (void) signal(SIGPIPE, SIG_IGN);
+#endif   
        return (object *) s;
 }
-
+#endif /* NO_DUP */
 
 /* List of functions exported by this module. */
 
@@ -1002,7 +1007,9 @@ static struct methodlist socket_methods[] = {
        {"gethostname",         socket_gethostname},
        {"getservbyname",       socket_getservbyname},
        {"socket",              socket_socket},
+#ifndef NO_DUP
        {"fromfd",              socket_fromfd},
+#endif
        {NULL,                  NULL}            /* Sentinel */
 };
 
@@ -1011,10 +1018,7 @@ static struct methodlist socket_methods[] = {
    For simplicity, errors (which are unlikely anyway) are ignored. */
 
 static void
-insint(d, name, value)
-       object *d;
-       char *name;
-       int value;
+BUILD_FUNC_DEF_3(insint,object *,d,char *,name,int,value)
 {
        object *v = newintobject((long) value);
        if (v == NULL) {
@@ -1037,7 +1041,6 @@ void
 initsocket()
 {
        object *m, *d;
-
        m = initmodule("socket", socket_methods);
        d = getmoduledict(m);
        SocketError = newstringobject("socket.error");
@@ -1053,3 +1056,26 @@ initsocket()
        insint(d, "SOCK_SEQPACKET", SOCK_SEQPACKET);
        insint(d, "SOCK_RDM", SOCK_RDM);
 }
+
+#ifdef NT
+BOOL   WINAPI  DllMain (HANDLE hInst, 
+                       ULONG ul_reason_for_call,
+                       LPVOID lpReserved)
+{
+       switch (ul_reason_for_call)
+       {
+               case DLL_PROCESS_ATTACH:
+                       WSADATA WSAData;
+                       if (WSAStartup(MAKEWORD(2,0), &WSAData)) {
+                               OutputDebugString("Python can't initialize Windows Sockets DLL!");
+                               return FALSE;
+                       }
+                       break;
+               case DLL_PROCESS_DETACH:
+                       WSACleanup();
+                       break;
+
+       }
+       return TRUE;
+}
+#endif /* NT */