[Ecls-list] Another logical-pathname case problem.

[Juan Jose Garcia-Ripoll]

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 <
pjb at 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 at 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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/ecl-devel/attachments/20100701/375a9a2f/attachment.html>