Skip to content
Snippets Groups Projects
Commit 79f25573 authored by dtc's avatar dtc
Browse files

Add the new keyword argument :TRUENAMEP to the function directory,

replacing the former :FOLLOW-LINKS argument, and redefine
:FOLLOW-LINKS to control the following of symbolic links while
searching for matching directories.
parent 1e8bacb7
No related branches found
No related tags found
No related merge requests found
......@@ -6,7 +6,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.57 2000/08/23 15:52:46 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.58 2000/08/24 14:22:56 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -869,14 +869,15 @@
;;; DIRECTORY -- public.
;;;
(defun directory (pathname &key (all t) (check-for-subdirs t)
(follow-links t))
(truenamep t) (follow-links t))
"Returns a list of pathnames, one for each file that matches the given
pathname. Supplying :ALL as nil causes this to ignore Unix dot files. This
never includes Unix dot and dot-dot in the result. If :FOLLOW-LINKS is NIL,
then symblolic links in the result are not expanded. This is not the
never includes Unix dot and dot-dot in the result. If :TRUENAMEP is NIL,
then symblolic links in the result are not expanded which is not the
default because TRUENAME does follow links, and the result pathnames are
defined to be the TRUENAME of the pathname (the truename of a link may well
be in another directory.)"
be in another directory.) If FOLLOW-LINKS is NIL then symbolic links are
not followed."
(let ((results nil))
(enumerate-search-list
(pathname (merge-pathnames pathname
......@@ -897,7 +898,7 @@
:directory))
(concatenate 'string name "/")
name)))
(if follow-links (truename name) (pathname name))))
(if truenamep (truename name) (pathname name))))
(sort (delete-duplicates results :test #'string=) #'string<)))))
......@@ -919,7 +920,7 @@
(defun print-directory-verbose (pathname all return-list)
(let ((contents (directory pathname :all all :check-for-subdirs nil
:follow-links nil))
:truenamep nil))
(result nil))
(format t "Directory of ~A :~%" (namestring pathname))
(dolist (file contents)
......@@ -994,7 +995,7 @@
(names ())
(cnt 0)
(max-len 0)
(result (directory pathname :all all :follow-links nil)))
(result (directory pathname :all all :truenamep nil)))
(declare (list names) (fixnum max-len cnt))
;;
;; Get the data.
......@@ -1123,7 +1124,7 @@
ignore-types)
(let ((files (directory (complete-file-directory-arg pathname defaults)
:check-for-subdirs nil
:follow-links nil)))
:truenamep nil)))
(cond ((null files)
(values nil nil))
((null (cdr files))
......@@ -1191,7 +1192,7 @@
We look in the directory specified by Defaults as well as looking down
the search list."
(directory (complete-file-directory-arg pathname defaults)
:follow-links nil
:truenamep nil
:check-for-subdirs nil))
......
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.88 2000/07/10 06:31:11 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.89 2000/08/24 14:23:02 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1044,7 +1044,7 @@
t)
(defknown directory (pathnamelike &key (:check-for-subdirs t) (:all t)
(:follow-links t))
(:truenamep t) (:follow-links t))
list (flushable))
......
......@@ -2712,7 +2712,7 @@ matches.) Filesystem operations treat \kwd{wild-inferiors} the same as\
\kwd{wild}.
 
\begin{defun}{}{directory}{\var{wildname} \keys{\kwd{all} \kwd{check-for-subdirs}}
\morekeys{\kwd{follow-links}}}
\kwd{truenamep} \morekeys{\kwd{follow-links}}}
The keyword arguments to this \clisp{} function are a CMU extension.
The arguments (all default to \code{t}) have the following
......@@ -2724,10 +2724,13 @@ matches.) Filesystem operations treat \kwd{wild-inferiors} the same as\
\item[\kwd{check-for-subdirs}] Test whether files are directories,
similar to ``\code{ls -F}''.
\item[\kwd{follow-links}] Call \code{truename} on each file, which
\item[\kwd{truenamep}] Call \code{truename} on each file, which
expands out all symbolic links. Note that this option can easily
result in pathnames being returned which have a different
directory from the one in the \var{wildname} argument.
\item[\kwd{follow-links}] Follow symbolic links when searching for
matching directories.
\end{Lentry}
\end{defun}
 
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment