ocaml/otherlibs/win32unix
Xavier Leroy 1202945db5 Utiliser le mode binaire pour {in,out}_channel_of_descr
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1779 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1997-11-17 17:40:29 +00:00
..
.depend Macintosh 1997-11-12 18:59:32 +00:00
Makefile.nt Debug, tests 1997-09-04 13:45:56 +00:00
README MAJ pour release 0.6 1997-11-10 18:20:48 +00:00
accept.c Debug, tests 1997-09-04 13:45:56 +00:00
bind.c Debug, tests 1997-09-04 13:45:56 +00:00
channels.c Erreur dans l'appel de convert_flag_list 1997-11-17 17:15:28 +00:00
close.c Implementation du type file_descr par le type HANDLE de Win32. Court-circuite la libc de MSVC. 1997-09-03 14:38:02 +00:00
close_on.c Implementation du type file_descr par le type HANDLE de Win32. Court-circuite la libc de MSVC. 1997-09-03 14:38:02 +00:00
connect.c Debug, tests 1997-09-04 13:45:56 +00:00
createprocess.c Implementation du type file_descr par le type HANDLE de Win32. Court-circuite la libc de MSVC. 1997-09-03 14:38:02 +00:00
dup.c Debug, tests 1997-09-04 13:45:56 +00:00
dup2.c Debug, tests 1997-09-04 13:45:56 +00:00
getpeername.c Debug, tests 1997-09-04 13:45:56 +00:00
getpid.c Merge du stage de Pascal Cuoq 1996-09-04 14:17:43 +00:00
getsockname.c Implementation du type file_descr par le type HANDLE de Win32. Court-circuite la libc de MSVC. 1997-09-03 14:38:02 +00:00
gettimeofday.c Debug, tests 1997-09-04 13:45:56 +00:00
listen.c Debug, tests 1997-09-04 13:45:56 +00:00
lseek.c Implementation du type file_descr par le type HANDLE de Win32. Court-circuite la libc de MSVC. 1997-09-03 14:38:02 +00:00
mkdir.c Premiere compilation. 1996-09-05 13:32:25 +00:00
open.c Debug, tests 1997-09-04 13:45:56 +00:00
pipe.c Debug, tests 1997-09-04 13:45:56 +00:00
read.c Implementation du type file_descr par le type HANDLE de Win32. Court-circuite la libc de MSVC. 1997-09-03 14:38:02 +00:00
select.c Debug, tests 1997-09-04 13:45:56 +00:00
sendrecv.c Debug, tests 1997-09-04 13:45:56 +00:00
shutdown.c Debug, tests 1997-09-04 13:45:56 +00:00
sleep.c Premiere compilation. 1996-09-05 13:32:25 +00:00
socket.c Debug, tests 1997-09-04 13:45:56 +00:00
socketaddr.h MAJ portage Win32 1997-09-02 16:01:39 +00:00
sockopt.c Debug, tests 1997-09-04 13:45:56 +00:00
startup.c Debug, tests 1997-09-04 13:45:56 +00:00
system.c Marquage des primitives ML (pour le toplevel Windows). 1997-03-11 10:38:06 +00:00
unix.ml Utiliser le mode binaire pour {in,out}_channel_of_descr 1997-11-17 17:40:29 +00:00
unix.mli Utiliser le mode binaire pour {in,out}_channel_of_descr 1997-11-17 17:40:29 +00:00
unixsupport.c Implementation du type file_descr par le type HANDLE de Win32. Court-circuite la libc de MSVC. 1997-09-03 14:38:02 +00:00
unixsupport.h Debug, tests 1997-09-04 13:45:56 +00:00
windir.c Changement de Push/Pop_roots en Begin/End_roots 1997-05-26 17:16:31 +00:00
winwait.c Debug, tests 1997-09-04 13:45:56 +00:00
write.c Implementation du type file_descr par le type HANDLE de Win32. Court-circuite la libc de MSVC. 1997-09-03 14:38:02 +00:00

README

This is a partial port of the Unix system interface to Win32.
It was done as a summer project by Pascal Cuoq (ENS Lyon),
supervised by Xavier Leroy and Francois Rouaix (INRIA), then heavily
hacked by Xavier Leroy.

See the interface file unix.mli in this directory for more
documentation on the functions implemented.

Recompiling this library requires Microsoft Visual C++ 4.0.

We've had to modify and recompile the Visual C++ standard C library to
work around the following problems:

- There's a bug in the library function _pipe() that can result in a
  deadlock (the library function attempts to lock the wrong file descriptor).

- Windows 95 classifies socket handles as "unknown", while Windows NT
  classifies them as "pipes". Thus, opening a file descriptor on a
  socket handle fails under Windows 95. We've just removed the check
  on the handle type in the library.

The first problem no longer affects the Win32unix library.

The second problem makes it impossible, under Windows 95, to create an
in_channel or out_channel on a file descriptor opened on a socket,
using the in_channel_of_descr* and out_channel_of_descr*.

The diffs are included at the end of this file. They must be applied
against a local copy of the libc sources found on the Visual C++ CD-ROM
(in \msdev\crt\src). Then, rebuild the libraries and install them.

-----------------------------------------------------------------------
diff -c -r d:/msdev/crt/src/osfinfo.c crt/src/osfinfo.c
*** d:/msdev/crt/src/osfinfo.c	Fri Jul 21 17:05:06 1995
--- crt/src/osfinfo.c	Mon Jul 22 15:56:40 1996
***************
*** 23,28 ****
--- 23,29 ----
  #include <stdlib.h>
  #include <dbgint.h>
  
+ #include <winsock.h>
  
  /***
  *int _alloc_osfhnd() - get free _ioinfo struct
***************
*** 141,150 ****
                       * The first element of the newly allocated array of ioinfo
                       * structs, *(__pioinfo[i]), is our first free entry.
                       */
  #if defined (_MT) && !defined (DLL_FOR_WIN32S)
!                     _lock_fhandle( i );
  #endif  /* defined (_MT) && !defined (DLL_FOR_WIN32S) */
-                     fh = i * IOINFO_ARRAY_ELTS;
                  }
  
                  break;
--- 142,151 ----
                       * The first element of the newly allocated array of ioinfo
                       * structs, *(__pioinfo[i]), is our first free entry.
                       */
+                     fh = i * IOINFO_ARRAY_ELTS;
  #if defined (_MT) && !defined (DLL_FOR_WIN32S)
!                     _lock_fhandle( fh );
  #endif  /* defined (_MT) && !defined (DLL_FOR_WIN32S) */
                  }
  
                  break;
***************
*** 335,346 ****
          /* find out what type of file (file/device/pipe) */
  
          isdev = GetFileType((HANDLE)osfhandle);
          if (isdev == FILE_TYPE_UNKNOWN) {
!                 /* OS error */
!                 _dosmaperr( GetLastError() );   /* map error */
!                 return -1;
          }
  
          /* is isdev value to set flags */
          if (isdev == FILE_TYPE_CHAR)
                  fileflags |= FDEV;
--- 336,352 ----
          /* find out what type of file (file/device/pipe) */
  
          isdev = GetFileType((HANDLE)osfhandle);
+ #if 0
          if (isdev == FILE_TYPE_UNKNOWN) {
! 				/* OS error */
! 				_dosmaperr( GetLastError() );   /* map error */
! 				return -1;
          }
+ #else
+ 		/* Windows 95 lossage */
+         if (isdev == FILE_TYPE_UNKNOWN) isdev = FILE_TYPE_PIPE;
  
+ #endif
          /* is isdev value to set flags */
          if (isdev == FILE_TYPE_CHAR)
                  fileflags |= FDEV;