|
ANSI Common Lisp 19 Filenames 19.4 Dictionary of Filenames
19.4.16 translate-pathname |
Function |
- Syntax:
-
translate-pathname
source from-wildcard to-wildcard &key
translated-pathname
- Arguments and Values:
-
source - a pathname designator.
from-wildcard - a pathname designator.
to-wildcard - a pathname designator.
translated-pathname - a pathname.
- Description:
-
translate-pathname translates source
(that matches from-wildcard) into a corresponding pathname
that matches to-wildcard, and returns the corresponding pathname.
The resulting pathname is to-wildcard with each wildcard or missing
field replaced by a portion of source. A "wildcard field" is a
pathname component with a value of :wild, a :wild element of a
list-valued directory component, or an implementation-defined portion
of a component, such as the "*" in the complex wildcard string
"foo*bar" that some implementations support. An implementation that
adds other wildcard features, such as regular expressions, must define
how translate-pathname extends to those features.
A "missing field" is a pathname component with a value of nil.
The portion of source
that is copied into the resulting pathname is
implementation-defined. Typically
it is determined by the user interface conventions
of the file systems involved. Usually it is the portion of source
that matches a wildcard field of
from-wildcard that is in the same
position as the wildcard or missing field of
to-wildcard. If there
is no wildcard field in
from-wildcard at that position, then usually
it is the entire corresponding
pathname component of source, or in
the case of a
list-valued directory component, the entire corresponding
list element.
During the copying of a portion of source into
the resulting pathname, additional
implementation-defined translations of case or file naming
conventions might occur, especially when
from-wildcard and
to-wildcard are for different hosts.
It is valid for
source to be a wild
pathname; in general this will produce a wild
result. It
is valid for from-wildcard and/or to-wildcard to be
non-wild pathnames.
There are no specified keyword arguments for
translate-pathname, but
implementations are permitted to extend it by adding keyword arguments.
translate-pathname maps customary case in
source into customary case in the output pathname.
- Examples:
-
;; The results of the following five forms are all implementation-dependent.
;; The second item in particular is shown with multiple results just to
;; emphasize one of many particular variations which commonly occurs.
(pathname-name (translate-pathname "foobar" "foo*" "*baz")) "barbaz"
(pathname-name (translate-pathname "foobar" "foo*" "*"))
"foobar"
OR"bar"
(pathname-name (translate-pathname "foobar" "*" "foo*")) "foofoobar"
(pathname-name (translate-pathname "bar" "*" "foo*")) "foobar"
(pathname-name (translate-pathname "foobar" "foo*" "baz*")) "bazbar"
(defun translate-logical-pathname-1 (pathname rules)
(let ((rule (assoc pathname rules :test #'pathname-match-p)))
(unless rule (error "No translation rule for ~A" pathname))
(translate-pathname pathname (first rule) (second rule))))
(translate-logical-pathname-1 "FOO:CODE;BASIC.LISP"
'(("FOO:DOCUMENTATION;" "MY-UNIX:/doc/foo/")
("FOO:CODE;" "MY-UNIX:/lib/foo/")
("FOO:PATCHES;*;" "MY-UNIX:/lib/foo/patch/*/")))
#P"MY-UNIX:/lib/foo/basic.l"
;;;This example assumes one particular set of wildcard conventions
;;;Not all file systems will run this example exactly as written
(defun rename-files (from to)
(dolist (file (directory from))
(rename-file file (translate-pathname file from to))))
(rename-files "/usr/me/*.lisp" "/dev/her/*.l")
;Renames /usr/me/init.lisp to /dev/her/init.l
(rename-files "/usr/me/pcl*/*" "/sys/pcl/*/")
;Renames /usr/me/pcl-5-may/low.lisp to /sys/pcl/pcl-5-may/low.lisp
;In some file systems the result might be /sys/pcl/5-may/low.lisp
(rename-files "/usr/me/pcl*/*" "/sys/library/*/")
;Renames /usr/me/pcl-5-may/low.lisp to /sys/library/pcl-5-may/low.lisp
;In some file systems the result might be /sys/library/5-may/low.lisp
(rename-files "/usr/me/foo.bar" "/usr/me2/")
;Renames /usr/me/foo.bar to /usr/me2/foo.bar
(rename-files "/usr/joe/*-recipes.text" "/usr/jim/cookbook/joe's-*-rec.text")
;Renames /usr/joe/lamb-recipes.text to /usr/jim/cookbook/joe's-lamb-rec.text
;Renames /usr/joe/pork-recipes.text to /usr/jim/cookbook/joe's-pork-rec.text
;Renames /usr/joe/veg-recipes.text to /usr/jim/cookbook/joe's-veg-rec.text
- Exceptional Situations:
-
If any of source, from-wildcard, or to-wildcard
is not a pathname, a string, or a stream associated with a file
an error of type type-error is signaled.
(pathname-match-p source from-wildcard) must
be true or an error of type error is signaled.
- See Also:
-
namestring,
pathname-host,
pathname,
logical-pathname,
Section 20.1 File System Concepts,
Section 19.1.2 Pathnames as Filenames
- Notes:
-
The exact behavior of translate-pathname cannot be dictated
by the Common Lisp language and must be allowed to vary, depending on the
user interface conventions of the file systems involved.
The following is an implementation guideline.
One file system performs this operation by
examining each piece of the three
pathnames in turn, where a piece is a
pathname component or a
list element of a structured component such as
a hierarchical directory. Hierarchical directory elements in
from-wildcard and
to-wildcard are matched by whether they are
wildcards, not by depth in the directory hierarchy. If the piece in
to-wildcard is present and not wild, it is copied into the result.
If the piece in to-wildcard is
:wild or nil, the piece in source is
copied into the result. Otherwise, the piece in
to-wildcard might be
a complex wildcard such as "foo*bar" and the piece in
from-wildcard
should be wild; the portion of the piece in
source that matches the
wildcard portion of the piece in
from-wildcard replaces the wildcard
portion of the piece in
to-wildcard and the value produced is used in
the result.
- Allegro CL Implementation Details:
-
None.
|