logical-pathname-translations host => translations
(setf (logical-pathname-translations host) new-translations)
Arguments and Values:
host--a logical host designator.
translations, new-translations---a list.
Returns the host's list of translations. Each translation is a list of
at least two elements: from-wildcard and to-wildcard. Any additional
elements are implementation-defined. From-wildcard is a logical
pathname whose host is host. To-wildcard is a pathname.
* (logical-pathname-translations "PACKAGES")
(("COM;INFORMATIMAGO;**;*" #P"/home/pascal/lisp/**/*") ("COM;INFORMATIMAGO;**;*.*" #P"/home/pascal/lisp/**/*.*") ("COM;INFORMATIMAGO;**;*.*.*" #P"/home/pascal/lisp/**/*.*") ("**;*" #P"/usr/local/share/lisp/packages/**/*") ("**;*.*" #P"/usr/local/share/lisp/packages/**/*.*") ("**;*.*.*" #P"/usr/local/share/lisp/packages/**/*.*"))
Where is the logical host in the from-wildcards?
When setting the translations list, each from-wildcard can be a
logical pathname whose host is host or a logical pathname namestring
parseable by (parse-namestring string host), where host represents
the appropriate object as defined by parse-namestring. Each
to-wildcard can be anything coercible to a pathname by (pathname
to-wildcard). If to-wildcard coerces to a logical pathname,
translate-logical-pathname will perform repeated translation steps
when it uses it.
If thing is a string then the substring of thing bounded by start and
end is parsed into a pathname as follows:
* If host is a logical host then thing is parsed as a logical pathname
namestring on the host.
In the first of these cases, the host portion of the logical pathname
namestring and its following colon are optional.
So a conforming program is entitled to write:
(setf (logical-pathname-translations h) '(( "**;*.*" #P"/a/b/**/*.*")))
and still expect:
(string= h (caar (logical-pathname-translations h)) :end2 (length h))
__Pascal Bourguignon__ http://www.informatimago.com/
You're always typing.
Well, let's see you ignore my
sitting on your hands.