Re: DIRECTORY oddity

[Sam S. <sd...@gn...>]

> * Peter Seibel <crgre@wninzbaxrl.pbz> [2004-02-04 16:40:24 -0800]:
>
> So I've been testing out various pathname foo in different
> implementations. I ran into this seeming odditiy in CLISP (tested in
> 2.31 and 2.32 on GNU/Linux). I have this directory:
>
> [peter@xeon src]$ ls -l /tmp/foo
> total 28
> drwxrwxr-x    2 peter    peter        4096 Jan 28 10:29 empty-subdir
> drwxrwxr-x    2 peter    peter        4096 Jan 28 10:29 empty-subdir-with.type
> -rw-rw-r--    1 peter    peter          27 Feb  4 14:14 file-with-no-type
> -rw-rw-r--    1 peter    peter          28 Feb  4 14:14 file-with.two.dots
> -rw-rw-r--    1 peter    peter          28 Feb  4 14:14 file-with-type.txt
> drwxrwxr-x    3 peter    peter        4096 Jan 30 11:24 non-empty-subdir
> drwxrwxr-x    2 peter    peter        4096 Jan 28 10:29 non-empty-subdir-with.type
> [peter@xeon src]$ 
>
> Notice that the results of the following two calls to DIRECTORY return
> differ in one file: when both :name and :type are :wild the file
> "file-with-no-type" is not returned. But when :type is NIL it is. It
> seems that these two expressions ought to behave exactly the same. Am
> I missing something?

PATHNAME-MATCH-P appears to indicate that both `file-with-no-type' and
`.dotted' should be returned (and NIL is equivalent to :WILD for
matching purposes - even though this is somewhat hidden by
conditionals).

Bruno, isn't it time to drop LOGICAL_PATHNAMES conditionals?
I don't think LOGICAL_PATHNAMES=0 has been built in the last 5 years.

Ditto for PATHNAME_NOEXT - are there file systems with explicit
extensions - existing or envisioned?

> [3]> (defun x (p) `(:directory ,(pathname-directory p) :name ,(pathname-name p) :type ,(pathname-type p)))
> X
> [4]> (format t "~{~s~%~}" (mapcar #'x (directory (make-pathname :directory '(:absolute "tmp" "foo") :name :wild :type :wild))))
> (:DIRECTORY (:ABSOLUTE "tmp" "foo") :NAME ".dotted-with-two" :TYPE "dots")
> (:DIRECTORY (:ABSOLUTE "tmp" "foo") :NAME "file-with.two" :TYPE "dots")
> (:DIRECTORY (:ABSOLUTE "tmp" "foo") :NAME ".dotted" :TYPE NIL)
> (:DIRECTORY (:ABSOLUTE "tmp" "foo") :NAME "file-with-type" :TYPE "txt")
> NIL
> [5]> (format t "~{~s~%~}" (mapcar #'x (directory (make-pathname :directory '(:absolute "tmp" "foo") :name :wild :type nil))))
> (:DIRECTORY (:ABSOLUTE "tmp" "foo") :NAME ".dotted-with-two" :TYPE "dots")
> (:DIRECTORY (:ABSOLUTE "tmp" "foo") :NAME "file-with.two" :TYPE "dots")
> (:DIRECTORY (:ABSOLUTE "tmp" "foo") :NAME ".dotted" :TYPE NIL)
> (:DIRECTORY (:ABSOLUTE "tmp" "foo") :NAME "file-with-no-type" :TYPE NIL)
> (:DIRECTORY (:ABSOLUTE "tmp" "foo") :NAME "file-with-type" :TYPE "txt")
> NIL

I don't understand it either.
".dotted" and "file-with-no-type" should go together, so this is a bug.

Could you please fix it?

-- 
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.honestreporting.com>
If You Want Breakfast In Bed, Sleep In the Kitchen.