From: Eli Zaretskii <eliz@gnu.org>
To: Andy Wingo <wingo@pobox.com>
Cc: ludo@gnu.org, 10474@debbugs.gnu.org
Subject: bug#10474: Building guile 2.x under mingw + msys
Date: Tue, 19 Feb 2013 19:53:57 +0200 [thread overview]
Message-ID: <83bobgp4ui.fsf@gnu.org> (raw)
In-Reply-To: <87sj4s7fcc.fsf@pobox.com>
> From: Andy Wingo <wingo@pobox.com>
> Cc: ludo@gnu.org, 10474@debbugs.gnu.org
> Date: Tue, 19 Feb 2013 11:44:35 +0100
>
> > . module/ice-9/boot-9.scm -- absolute-path? does not support Windows
> > file names with drive letters. Windows
> > absolute file names match the regex
> > "\([a-zA-Z]:\)?[\\/]". I don't know
> > Scheme well enough to write this in a
> > clean way, sorry...
>
> Ludo, what do you think about the attached patch? Eli, is it correct
> and sufficient to fix path handling?
Yes, I think so. I have a couple of comments, though:
> + (define (unc-path?)
> + ;; Universal Naming Convention (UNC) paths start with \\, and
> + ;; are always absolute.
> + (string-prefix? "\\\\" path))
A UNC file name can also begin with 2 slashes, as in "//foo/bar/". In
general, Windows system calls treat both kinds of slashes identically.
> (define (canonical->suffix canon)
> (cond
> - ((string-prefix? "/" canon) canon)
> - ((and (> (string-length canon) 2)
> - (eqv? (string-ref canon 1) #\:))
> - ;; Paths like C:... transform to /C...
> - (string-append "/" (substring canon 0 1) (substring canon 2)))
> + ((and (not (string-null? canon))
> + (path-separator? (string-ref canon 0)))
> + canon)
> + ((and (eq? (system-path-convention) 'windows)
> + (absolute-path? canon))
> + ;; An absolute path that doesn't start with a path separator starts with a
> + ;; drive component. Transform the drive component to a path element:
> + ;; c:\foo -> \c\foo.
Why is this transformation needed? Native Windows system calls will
not understand "/c/foo" syntax. What is this about? (I know it was
in the original code, but I didn't understand it then, either.)
next prev parent reply other threads:[~2013-02-19 17:53 UTC|newest]
Thread overview: 44+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <CAL+StqnixLW+QwOP2BpZrjnz1wAQjnio9H6P=VM=9Cnn-B2-ng@mail.gmail.com>
2012-01-10 22:00 ` bug#10474: Building guile 2.x under mingw + msys Andy Wingo
[not found] ` <87pqerdxq4.fsf@pobox.com>
2012-01-17 8:09 ` Eli Zaretskii
2012-01-17 18:14 ` Eli Zaretskii
2012-01-18 23:55 ` Ludovic Courtès
2012-01-19 4:04 ` Eli Zaretskii
2012-02-02 0:59 ` Andy Wingo
2012-02-02 3:53 ` Eli Zaretskii
2012-02-02 16:39 ` Ludovic Courtès
2012-02-02 17:14 ` Eli Zaretskii
2012-02-02 17:34 ` Eli Zaretskii
2013-02-18 18:10 ` Andy Wingo
2013-02-18 19:56 ` Eli Zaretskii
2013-02-19 10:44 ` Andy Wingo
2013-02-19 12:55 ` Ludovic Courtès
2013-02-19 13:39 ` Andy Wingo
2013-02-19 17:53 ` Eli Zaretskii [this message]
2013-02-19 21:44 ` Andy Wingo
2013-02-20 19:16 ` Eli Zaretskii
2013-02-24 12:08 ` Andy Wingo
2013-02-19 15:47 ` Andy Wingo
2013-02-19 18:00 ` Eli Zaretskii
2013-02-24 13:25 ` Andy Wingo
2013-02-24 15:43 ` Eli Zaretskii
2013-05-07 17:18 ` bug#14361: Building guile 2.0.9 " Eli Zaretskii
2016-06-20 21:19 ` Andy Wingo
2016-06-21 12:46 ` Eli Zaretskii
2016-06-21 15:06 ` Andy Wingo
2016-06-21 15:42 ` Eli Zaretskii
2016-06-21 20:52 ` Andy Wingo
2016-06-24 9:51 ` Eli Zaretskii
2013-02-19 21:39 ` bug#10474: Building guile 2.x " Andy Wingo
2013-02-20 19:14 ` Eli Zaretskii
2013-02-20 21:57 ` Andy Wingo
2013-02-21 3:49 ` Eli Zaretskii
2013-02-21 8:18 ` Andy Wingo
2012-01-19 17:35 ` Eli Zaretskii
2012-01-21 11:09 ` Eli Zaretskii
2012-01-24 12:27 ` Eli Zaretskii
2012-01-25 21:12 ` Ludovic Courtès
2012-01-26 5:37 ` Eli Zaretskii
2012-01-29 18:30 ` Ludovic Courtès
2012-01-29 19:17 ` Eli Zaretskii
2012-01-29 22:56 ` Ludovic Courtès
2012-01-10 21:58 Andy Wingo
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/guile/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=83bobgp4ui.fsf@gnu.org \
--to=eliz@gnu.org \
--cc=10474@debbugs.gnu.org \
--cc=ludo@gnu.org \
--cc=wingo@pobox.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).