From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <jboulnois@rashitoul.net>
Delivered-To: caml-list@yquem.inria.fr
Received: from concorde.inria.fr (concorde.inria.fr [192.93.2.39])
	by yquem.inria.fr (Postfix) with ESMTP id EE1FEBC88
	for <caml-list@yquem.inria.fr>; Mon,  7 Feb 2005 09:41:39 +0100 (CET)
Received: from mta-gw1.infomaniak.ch (mta-gw1.infomaniak.ch [84.16.68.70])
	by concorde.inria.fr (8.13.0/8.13.0) with ESMTP id j178fdR1001713
	(version=TLSv1/SSLv3 cipher=EDH-RSA-DES-CBC3-SHA bits=168 verify=FAIL)
	for <caml-list@yquem.inria.fr>; Mon, 7 Feb 2005 09:41:39 +0100
Received: from webmail.infomaniak.ch (mta-web1.infomaniak.ch [84.16.68.34])
	by mta-gw1.infomaniak.ch (8.13.1/8.13.1) with ESMTP id j178feBv029539
	for <caml-list@yquem.inria.fr>; Mon, 7 Feb 2005 09:41:40 +0100
Date: Mon,  7 Feb 2005 09:41:40 +0100
From: Julien Boulnois <jboulnois@rashitoul.net>
To: caml-list@yquem.inria.fr
Subject: Socket and Threads on windows
Message-ID: <1107765700-e20070018019e5a283e3267b340928dc@rashitoul.net>
X-Mailer: Infomaniak Webmail
X-Origin-IP: 81.185.80.129
MIME-Version: 1.0
X-Priority: 3 (Normal)
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-AntiVirus: checked by Vexira Milter 1.0.7; VAE 6.29.0.7; VDF 6.29.0.100
X-Miltered: at concorde with ID 420729C3.000 by Joe's j-chkmail (http://j-chkmail.ensmp.fr)!
X-Spam: no; 0.00; threads:01 threads:01 ...:98 ...:98 unix:01 unix:01 data:02 data:02 thread:02 exists:02 descr:02 descr:02 output:02 seems:03 let:03 
X-Spam-Checker-Version: SpamAssassin 3.0.2 (2004-11-16) on yquem.inria.fr
X-Spam-Status: No, score=0.1 required=5.0 tests=FORGED_RCVD_HELO 
	autolearn=disabled version=3.0.2
X-Spam-Level: 

Hi,

I try to use socket and threads for a receiving/sending client. My code works fine on linux but seems to block the whole program on windows ...

It looks like this:

***

let sock=Unix.socket Unix.PF_INET Unix.SOCK_STREAM 0;;

(* sock connection ... *)

let (ic,oc)=(Unix.in_channel_of_descr sock,Unix.out_channel_of_descr sock);;

let my_receive()=
  let d=input_value ic in
 (* data utilisation ... *)
;;
let my_send d=
  output_value oc d;;

let run()=
 while true do
  my_receive()
 done;;

let t=Thread.create (fun()->run()) ();;

(* ... *)

***

Now when I try to send data with my_send, the program just block and nothing more happen ...

I want to know if it exists some issue on windows for this case.

Thanks.

Julien Boulnois