/[cmucl]/src/code/filesys.lisp
ViewVC logotype

Diff of /src/code/filesys.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.40 by ram, Fri Jul 12 19:21:58 1996 UTC revision 1.41 by ram, Sat Jan 18 14:30:48 1997 UTC
# Line 632  Line 632 
632  (defun unix-namestring (pathname &optional (for-input t) executable-only)  (defun unix-namestring (pathname &optional (for-input t) executable-only)
633    "Convert PATHNAME into a string that can be used with UNIX system calls.    "Convert PATHNAME into a string that can be used with UNIX system calls.
634     Search-lists and wild-cards are expanded."     Search-lists and wild-cards are expanded."
635      ;; toy@rtp.ericsson.se: Let unix-namestring also handle logical
636      ;; pathnames too.
637      (let ((path (let ((lpn (pathname pathname)))
638                    (if (logical-pathname-p lpn)
639                        (namestring (translate-logical-pathname lpn))
640                        pathname))))
641    (enumerate-search-list    (enumerate-search-list
642        (pathname pathname)        (pathname path)
643      (collect ((names))      (collect ((names))
644        (enumerate-matches (name pathname nil :verify-existance for-input)        (enumerate-matches (name pathname nil :verify-existance for-input)
645          (when (or (not executable-only)          (when (or (not executable-only)
# Line 644  Line 650 
650          (when names          (when names
651            (when (cdr names)            (when (cdr names)
652              (error "~S is ambiguous:~{~%  ~A~}" pathname names))              (error "~S is ambiguous:~{~%  ~A~}" pathname names))
653            (return (car names)))))))            (return (car names))))))))
654    
655    
656  ;;;; TRUENAME and PROBE-FILE.  ;;;; TRUENAME and PROBE-FILE.
# Line 753  Line 759 
759      (unless name      (unless name
760        (error "~S doesn't exist." file))        (error "~S doesn't exist." file))
761      (multiple-value-bind (winp dev ino mode nlink uid)      (multiple-value-bind (winp dev ino mode nlink uid)
762                           (unix:unix-stat file)                           (unix:unix-stat name)
763        (declare (ignore dev ino mode nlink))        (declare (ignore dev ino mode nlink))
764        (if winp (lookup-login-name uid)))))        (if winp (lookup-login-name uid)))))
765    

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

  ViewVC Help
Powered by ViewVC 1.1.5