From: JP Massar
Subject: Can no one help with this (logical pathnames question?)
Date: Wed, 03 Jan 2001 18:32:30 +0000
Message-ID: <3a537028.60083236@news.mindspring.com>

Using a Windows machine, Allegro 5.1

If I have a logical pathname translation for logical host XYZ

("ROOT;**;*.*" #p"C:\\")

and I want to have another translation, say SOURCE, for XYZ,
which uses ROOT as a base, and which is physically at C:\sourcedir\,
how do I achieve that (using ROOT, not repeating the C:\)

E.g., I want something like

("SOURCE;**;*.*" #p"XYZ:ROOT;sourcedir;**;*.*")

but that doesn't seem to work.  (not that I expected it to)

How can I achieve this effect?

• Re: Can no one help with this (logical pathnames question?) Martin ``rydis'' Rydstr|m
  • Re: Can no one help with this (logical pathnames question?) JP Massar

From: Martin ``rydis'' Rydstr|m
Subject: Re: Can no one help with this (logical pathnames question?)
Date: Thu, 04 Jan 2001 11:38:13 +0000
Message-ID: <xf1vgrv35ui.fsf@licia.dtek.chalmers.se>

>>>>> "JM" == JP Massar <······@alum.mit.edu> writes:

JM> Using a Windows machine, Allegro 5.1
JM> If I have a logical pathname translation for logical host XYZ

JM> ("ROOT;**;*.*" #p"C:\\")

JM> and I want to have another translation, say SOURCE, for XYZ,
JM> which uses ROOT as a base, and which is physically at C:\sourcedir\,
JM> how do I achieve that (using ROOT, not repeating the C:\)

JM> E.g., I want something like

JM> ("SOURCE;**;*.*" #p"XYZ:ROOT;sourcedir;**;*.*")

JM> but that doesn't seem to work.  (not that I expected it to)

JM> How can I achieve this effect?

I use CMU CL on Solaris. This seems to work for me:

(setf (logical-pathname-translations "XYZ")
      '(("ROOT;**;*.*" #p"/**/")
	("SOURCE;**;*.*" #p"XYZ:ROOT;usr;src;**;*.*")))

I think the problem is you didn't specify the wild-inferiors in the
translation of #p"XYZ:ROOT". I guess under Windows it would be

(setf (logical-pathname-translations "XYZ")
      '(("ROOT;**;*.*" #p"C:\\**\\")
	("SOURCE;**;*.*" #p"XYZ:ROOT;sourcedir;**;*.*")))

HTH,

'mr

-- 
Martin Rydstr|m,  ·····@cd.chalmers.se ; rationalize till I'm blue in the face,
				       ; you cannot lose if you throw the race.
     Looking for a LispM to play with. Any and all offers/ideas appreciated.
Also       - " -    job     - " -                   - " -

From: JP Massar
Subject: Re: Can no one help with this (logical pathnames question?)
Date: Fri, 05 Jan 2001 05:20:09 +0000
Message-ID: <3a555958.31552736@news.mindspring.com>

On 04 Jan 2001 12:38:13 +0100, Martin ``rydis'' Rydstr|m
<·····@cd.chalmers.se> wrote:
 
>(setf (logical-pathname-translations "XYZ")
>      '(("ROOT;**;*.*" #p"/**/")
>	("SOURCE;**;*.*" #p"XYZ:ROOT;usr;src;**;*.*")))
>
>I think the problem is you didn't specify the wild-inferiors in the
>translation of #p"XYZ:ROOT". I guess under Windows it would be
>
>(setf (logical-pathname-translations "XYZ")
>      '(("ROOT;**;*.*" #p"C:\\**\\")
>	("SOURCE;**;*.*" #p"XYZ:ROOT;sourcedir;**;*.*")))
>
 
Yes, that seems to do the trick.

Thank you very much!