From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.1.3 (2006-06-01) on yquem.inria.fr X-Spam-Level: ** X-Spam-Status: No, score=2.2 required=5.0 tests=AWL,DNS_FROM_RFC_POST, SPF_NEUTRAL autolearn=disabled version=3.1.3 X-Original-To: caml-list@yquem.inria.fr Delivered-To: caml-list@yquem.inria.fr Received: from mail3-relais-sop.national.inria.fr (mail3-relais-sop.national.inria.fr [192.134.164.104]) by yquem.inria.fr (Postfix) with ESMTP id 1AA39BB84 for ; Wed, 11 Feb 2009 17:30:52 +0100 (CET) X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: AoABAJuLkklC+VytlGdsb2JhbACUBz8BAQEBCQsICREDrxUIgQCPeAEDAQOEFwaCNoEn X-IronPort-AV: E=Sophos;i="4.38,193,1233529200"; d="scan'208";a="22825952" Received: from ug-out-1314.google.com ([66.249.92.173]) by mail3-smtp-sop.national.inria.fr with ESMTP; 11 Feb 2009 17:30:51 +0100 Received: by ug-out-1314.google.com with SMTP id z34so15080ugc.28 for ; Wed, 11 Feb 2009 08:30:51 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=domainkey-signature:received:received:message-id:date:from:reply-to :user-agent:mime-version:to:cc:subject:references:in-reply-to :content-type; bh=2no+oe8LdhGZsekebbgcMq54+otWWjk9qC+6LOfbork=; b=jndokYi3zaSare1Gq0pnOCu0mXHlmocTADJoCmbse1fkLmnDH7F+GrZjkm++HY7lAq osvOQ/KEnO1jQiaQBaz9qCDUBjGQviz3242KdpqxE7QkqH4Yi96+4z1/CcvK54l5rXFc JWXbUJgCJZXfnRB9/fCOEbdzv5zZhskzg5ZIA= DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=message-id:date:from:reply-to:user-agent:mime-version:to:cc:subject :references:in-reply-to:content-type; b=oZQH1ySPsfsQ+wjbX3I3PpcPlCOgjMRhTK1WH3GhdczpXhvWw8ZXW+IBraaqDvqv9H nD90mVO5l/8raXQ3F/S8YC8Mnx5heugkgxoFnlRukvx/ciBZlProSXuSYGx3rOA+tLUr kj3JRablnFwNaHVwqES/lLZNLEba1XHxuNmdc= Received: by 10.210.144.3 with SMTP id r3mr2964970ebd.16.1234369850533; Wed, 11 Feb 2009 08:30:50 -0800 (PST) Received: from ?192.168.0.102? (papillon.metalscan.fr [212.73.210.234]) by mx.google.com with ESMTPS id 10sm8746947eyz.30.2009.02.11.08.30.49 (version=TLSv1/SSLv3 cipher=RC4-MD5); Wed, 11 Feb 2009 08:30:50 -0800 (PST) Message-ID: <4992FD38.9050708@gmail.com> Date: Wed, 11 Feb 2009 17:30:48 +0100 From: Matthieu Dubuget Reply-To: matthieu.dubuget@gmail.com User-Agent: Thunderbird 2.0.0.19 (X11/20090105) MIME-Version: 1.0 To: caml-list@inria.fr Cc: Alain Frisch Subject: Re: [Caml-list] Re: Strange compilation problem -> solved References: <49929A28.8070708@gmail.com> <4992E0F9.6050300@gmail.com> In-Reply-To: Content-Type: multipart/mixed; boundary="------------020801000908050406040806" X-Spam: no; 0.00; matthieu:01 dubuget:01 matthieu:01 dubuget:01 compilation:01 frisch:01 frisch:01 node:01 dition:98 0410:98 2009:98 2009:98 caml-list:01 alain:01 caml:02 X-Attachments: cset="UTF-8" type="text/x-diff" name="long_path.patch" name="long_path.patch" This is a multi-part message in MIME format. --------------020801000908050406040806 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Here is a patch against subversion version of flexlink that solves my problem. Salutations P.S. Alain, j'ai eu un probl=C3=A8me d=E2=80=99=C3=A9dition de liens avec= flexlink, qui s=E2=80=99est av=C3=A9r=C3=A9 =C3=AAtre =C3=A0 ma port=C3=A9e (voir la liste de diffusion caml) ; d=E2=80=99autan= t plus que la solution =C3=A9tait d=C3=A9j=C3=A0 en partie dans les sources de flexlink ;-) Voici de quoi je suis parti. Path: . URL: svn://frisch.fr/flexdll/trunk Repository Root: svn://frisch.fr/flexdll Repository UUID: 673e9a06-3c3d-0410-add4-e21af864612f Revision: 153 Node Kind: directory Schedule: normal Last Changed Author: frisch Last Changed Rev: 153 Last Changed Date: 2009-01-28 17:17:06 +0100 (Wed, 28 Jan 2009) --------------020801000908050406040806 Content-Type: text/x-diff; name="long_path.patch" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="long_path.patch" Index: reloc.ml =================================================================== --- reloc.ml (revision 153) +++ reloc.ml (working copy) @@ -58,13 +58,25 @@ close_in ic; List.rev !r + let get_output cmd = let fn = Filename.temp_file "flexdll" "" in - if (Sys.command (cmd ^ " > " ^ fn) < 0) - then failwith ("Cannot run " ^ cmd); - let r = read_file fn in - Sys.remove fn; - r + let cmd' = cmd ^ " > " ^ (Filename.quote fn) in + if String.length cmd' < 8182 then + begin + if (Sys.command cmd' < 0) + then failwith ("Cannot run " ^ cmd); + end + else + begin + let (cfn, oc) = Filename.open_temp_file "longcmd" ".sh" in + output_string oc cmd'; close_out oc; + if Sys.command (Printf.sprintf "bash %s" cfn) < 0 + then failwith ("Cannot run " ^ cmd) + end; + let r = read_file fn in + Sys.remove fn; + r let get_output1 cmd = List.hd (get_output cmd) @@ -142,7 +154,7 @@ (* Looking for files *) let cygpath l = - get_output (Printf.sprintf "cygpath -m %s" (String.concat " " l)) + get_output (Printf.sprintf "cygpath -m %s" (String.concat " " (List.map Filename.quote l))) let gcclib () = let extra = match !toolchain with --------------020801000908050406040806--