support WIN32

packages/clib/Makefile.in

@@ -36,7 +36,7 @@ MKINDEX=true
 NETLIBS=@CLIB_NETLIBS@
 CRYPTLIBS=@CLIB_CRYPTLIBS@
 
-LD=@DO_SECOND_LD@	@SHLIB_CXX_LD@
+LD=@DO_SECOND_LD@	@SHLIB_LD@
 LDFLAGS=@EXTRA_LIBS_FOR_SWIDLLS@
 
 BINTARGET=$(DESTDIR)$(YAPLIBDIR)
@@ -105,7 +105,7 @@ TARGETS=	@CLIB_TARGETS@ readutil.@SO@ streaminfo.@SO@ process.@SO@ \
 UNXOBJ=		error.o unix.o
 SOCKOBJ=	error.o socket.o nonblockio.o
 CGIOBJ=		error.o form.o cgi.o
-CRYPTOBJ=	error.o crypt.o md5.o md5passwd.o
+CRYPTOBJ=	error.o crypt.o md5.o md5passwd.o @ENABLE_WINCONSOLE@ crypt-bsd.o
 MEMOBJ=		error.o memfile.o
 MIMEOBJ=	error.o mime.o
 TIMEOBJ=	error.o time.o

packages/clib/bsd-crypt.c

@@ -33,6 +33,8 @@
  */
 
 /* JW: Added to make this file compile as-is for SWI-Prolog */
+#include <SWI-Prolog.h>
+
 #define __RCSID(s) static char sccsid[] = s
 #define DES_ONLY
 #define CRYPT_ONLY

packages/clib/nonblockio.c

@@ -823,13 +823,21 @@ socket_wnd_proc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
 
     for(i=0; i<n; i++)
     { if ( s[i] )
-      { __try
+      {
+#if __MINGW32__
+	{ if ( s[i]->magic != PLSOCK_MAGIC )
+	  { goto nosocket;
+	  }
+	} 
+#else
+	__try
 	{ if ( s[i]->magic != PLSOCK_MAGIC )
 	  { goto nosocket;
 	  }
 	} __except(EXCEPTION_EXECUTE_HANDLER)
 	{ goto nosocket;
 	}
+#endif
 
 	doRequest(s[i]);
       }

packages/clib/process.c

@@ -150,7 +150,9 @@ resource_error(const char *resource)
 #include <stdio.h>
 #include <fcntl.h>
 #include <io.h>
+#ifndef __MINGW32__
 typedef DWORD  pid_t;
+#endif
 typedef wchar_t echar;			/* environment character */
 #else
 typedef char echar;

packages/clib/unix.c

@@ -30,7 +30,7 @@
 #include <stdio.h>
 #include <stdlib.h>
 #include <unistd.h>
-#include <sys/types.h>
+#include <sys/types.h>u
 #include <sys/wait.h>
 #include <fcntl.h>
 #include <assert.h>