Seems to be working now with a minor change. Thanks again for your very
precise bug reports, Pascal.
$ ecl
ECL (Embeddable Common-Lisp) 10.7.1
Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya
Copyright (C) 1993 Giuseppe Attardi
Copyright (C) 2000 Juan J. Garcia-Ripoll
ECL is free software, and you are welcome to redistribute it
under certain conditions; see file 'Copyright' for details.
Type :h for Help.
Top level.
> (setf (logical-pathname-translations "FOO") '(("FOO:**;*.LSP"
"HOME:**;*.A")))
((#P"FOO:**;*.LSP" #P"HOME:**;*.A"))
> (logical-pathname-translations "SYS")
((#P"SYS:**;*.*" #P"/Users/jjgarcia/lib/ecl-10.7.1/**/*.*"))
> (translate-logical-pathname "FOO:FAA.LSP")
#P"/Users/jjgarcia/faa.a"
On Tue, Jun 29, 2010 at 10:58 PM, Pascal J. Bourguignon <
p...@informatimago.com> wrote:
>
> Logical pathname translations may translate to logical pathnames or to
> physical pathnames.
>
> When they translate to a physical pathname, case is correctly
> converted to the native lowcase.
>
> But when they translate to a logical pathname, they're not. (There
> may be a string of translations required before ending with a physical
> pathname).
>
>
> CL-USER> (values (logical-pathname-translations "LIBCL")
> (translate-logical-pathname #P"LIBCL:AAA;BBB;CCC.DDD")
> (logical-pathname-translations "PROJECT")
> (translate-logical-pathname #P"PROJECT:AAA;BBB;CCC.DDD"))
> ((#P"LIBCL:**;*.*"
>
>
> #P"/home/pjb/firms/medicalis/src/mdi/subprojects/dependencies/lisp/libcl/**/*.*")
> (#P"LIBCL:**;*"
>
>
> #P"/home/pjb/firms/medicalis/src/mdi/subprojects/dependencies/lisp/libcl/**/*.lisp"))
>
> #P"/home/pjb/firms/medicalis/src/mdi/subprojects/dependencies/lisp/libcl/aaa/bbb/ccc.ddd"
> ((#P"PROJECT:**;*.*" #P"HOME:FIRMS;MEDICALIS;SRC;MDI;**;*.*")
> (#P"PROJECT:**;*" #P"HOME:FIRMS;MEDICALIS;SRC;MDI;**;*"))
> #P"/home/pjb/firms/medicalis/src/mdi/AAA/BBB/CCC.DDD"
>
> I expected #P"/home/pjb/firms/medicalis/src/mdi/aaa/bbb/ccc.ddd" for the
> last result.
>
>
>
> --
> __Pascal Bourguignon__ http://www.informatimago.com/
>
>
>
> ------------------------------------------------------------------------------
> This SF.net email is sponsored by Sprint
> What will you do first with EVO, the first 4G phone?
> Visit sprint.com/first -- http://p.sf.net/sfu/sprint-com-first
> _______________________________________________
> Ecls-list mailing list
> Ecls-list@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/ecls-list
>
--
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com
------------------------------------------------------------------------------
This SF.net email is sponsored by Sprint
What will you do first with EVO, the first 4G phone?
Visit sprint.com/first -- http://p.sf.net/sfu/sprint-com-first
_______________________________________________
Ecls-list mailing list
Ecls-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ecls-list
