From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=) Newsgroups: gmane.lisp.guile.bugs Subject: bug#10474: Building guile 2.x under mingw + msys Date: Tue, 19 Feb 2013 13:55:36 +0100 Message-ID: <87liak4g53.fsf@gnu.org> References: <87pqerdxq4.fsf@pobox.com> <83ehuy698u.fsf@gnu.org> <8362ga5h7h.fsf@gnu.org> <87r4ywpnv0.fsf@gnu.org> <83r4yw49u6.fsf@gnu.org> <87y5smnj86.fsf@pobox.com> <83ehudp29y.fsf@gnu.org> <87sj4s7fcc.fsf@pobox.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1361278561 13963 80.91.229.3 (19 Feb 2013 12:56:01 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 19 Feb 2013 12:56:01 +0000 (UTC) Cc: Eli Zaretskii , 10474@debbugs.gnu.org To: Andy Wingo Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Tue Feb 19 13:56:23 2013 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1U7mkB-0008QO-20 for guile-bugs@m.gmane.org; Tue, 19 Feb 2013 13:56:23 +0100 Original-Received: from localhost ([::1]:52749 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U7mjr-0004wf-1d for guile-bugs@m.gmane.org; Tue, 19 Feb 2013 07:56:03 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:51520) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U7mjn-0004vZ-47 for bug-guile@gnu.org; Tue, 19 Feb 2013 07:56:01 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1U7mjl-0005rs-U2 for bug-guile@gnu.org; Tue, 19 Feb 2013 07:55:59 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:58906) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U7mjl-0005rl-QI for bug-guile@gnu.org; Tue, 19 Feb 2013 07:55:57 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1U7mko-0001VP-8R for bug-guile@gnu.org; Tue, 19 Feb 2013 07:57:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=) Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-guile@gnu.org Resent-Date: Tue, 19 Feb 2013 12:57:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 10474 X-GNU-PR-Package: guile X-GNU-PR-Keywords: Original-Received: via spool by 10474-submit@debbugs.gnu.org id=B10474.13612786075766 (code B ref 10474); Tue, 19 Feb 2013 12:57:02 +0000 Original-Received: (at 10474) by debbugs.gnu.org; 19 Feb 2013 12:56:47 +0000 Original-Received: from localhost ([127.0.0.1]:36137 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1U7mkZ-0001Ux-04 for submit@debbugs.gnu.org; Tue, 19 Feb 2013 07:56:47 -0500 Original-Received: from xanadu.aquilenet.fr ([88.191.123.111]:52042) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1U7mkW-0001Uo-1I for 10474@debbugs.gnu.org; Tue, 19 Feb 2013 07:56:46 -0500 Original-Received: from localhost (localhost [127.0.0.1]) by xanadu.aquilenet.fr (Postfix) with ESMTP id 21FB8BFAA; Tue, 19 Feb 2013 13:55:38 +0100 (CET) Original-Received: from xanadu.aquilenet.fr ([127.0.0.1]) by localhost (xanadu.aquilenet.fr [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id ZAUv8SNjqAWZ; Tue, 19 Feb 2013 13:55:38 +0100 (CET) Original-Received: from pluto (unknown [193.50.110.200]) by xanadu.aquilenet.fr (Postfix) with ESMTPSA id CA4C8986F; Tue, 19 Feb 2013 13:55:37 +0100 (CET) X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 1 =?UTF-8?Q?Vent=C3=B4se?= an 221 de la =?UTF-8?Q?R=C3=A9volution?= X-PGP-Key-ID: 0xEA52ECF4 X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 83C4 F8E5 10A3 3B4C 5BEA D15D 77DD 95E2 EA52 ECF4 X-OS: x86_64-unknown-linux-gnu In-Reply-To: <87sj4s7fcc.fsf@pobox.com> (Andy Wingo's message of "Tue, 19 Feb 2013 11:44:35 +0100") User-Agent: Gnus/5.130005 (Ma Gnus v0.5) Emacs/24.2 (gnu/linux) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 140.186.70.43 X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:6755 Archived-At: Andy Wingo skribis: > +(let-syntax ((compile-time-case > + (lambda (stx) > + (syntax-case stx () > + ((_ exp clauses ...) > + (let ((val (primitive-eval (syntax->datum #'exp)))) > + (let next-clause ((clauses #'(clauses ...))) > + (syntax-case clauses (else) > + (() > + (syntax-violation 'compile-time-case > + "all clauses failed to match= " stx)) > + (((else form ...)) > + #'(begin form ...)) > + ((((k ...) form ...) clauses ...) > + (if (memv val (syntax->datum #'(k ...))) > + #'(begin form ...) > + (next-clause #'(clauses ...)))))))))))) > + ;; emacs: (put 'compile-time-case 'scheme-indent-function 1) > + (compile-time-case (system-path-convention) > + ((posix) > + (define (path-separator? c) > + (char=3D? c #\/)) > + > + (define path-separator-string "/") > + > + (define (absolute-path? path) > + (string-prefix? "/" path))) I think we must stick to GNU conventions=E2=80=93i.e., write =E2=80=9Cfile = name=E2=80=9D when speaking of the name of a file, as above, and =E2=80=9Cpath=E2=80=9D when s= peaking of a search path. This is important here because sooner or later someone will ask about =E2=80=9Cpath separators=E2=80=9D (semicolon vs. colon), not to be confused= with file name or directory separators. WDYT? (Yes, there are counter-examples in Guile code, but that=E2=80=99s no excus= e. ;-)) > + ((windows) > + (define (path-separator? c) > + (or (char=3D? c #\/) > + (char=3D? c #\\))) > + > + (define path-separator-string "\\") > + > + (define (absolute-path? path) > + (define (unc-path?) > + ;; Universal Naming Convention (UNC) paths start with \\, and > + ;; are always absolute. > + (string-prefix? "\\\\" path)) What about adding here a link to a page that describes =E2=80=9CUNC=E2=80= =9D? Otherwise, looks good to me, and it=E2=80=99s great that progress is made on that front! Ludo=E2=80=99.