Update of /project/osicat/cvsroot/src In directory common-lisp.net:/tmp/cvs-serv28260
Modified Files: osicat-glue.c osicat.lisp version.txt Log Message: Fixed FILE-KIND on symbolic links. Date: Sun Oct 26 10:54:56 2003 Author: nsiivola
Index: src/osicat-glue.c diff -u src/osicat-glue.c:1.3 src/osicat-glue.c:1.4 --- src/osicat-glue.c:1.3 Sun Oct 26 09:19:32 2003 +++ src/osicat-glue.c Sun Oct 26 10:54:55 2003 @@ -31,10 +31,14 @@ struct stat buf; int err;
- if (follow_p) + if (follow_p) { + printf ("stat\n"); err = stat (name, &buf); - else + } + else { + printf ("lstat\n"); err = lstat (name, &buf); + }
if (! err) return buf.st_mode;
Index: src/osicat.lisp diff -u src/osicat.lisp:1.5 src/osicat.lisp:1.6 --- src/osicat.lisp:1.5 Sun Oct 26 10:31:27 2003 +++ src/osicat.lisp Sun Oct 26 10:54:55 2003 @@ -84,8 +84,10 @@ (let ((path (pathname pathspec))) (when (wild-pathname-p path) (error "Pathname is wild: ~S." path)) + (print (list 'namestring (namestring path))) (with-cstring (cfile (namestring path)) - (c-file-kind cfile 0)))) + (print (list 'cfile cfile)) + (c-file-kind cfile nil))))
(def-function "opendir" ((name :cstring)) :module "osicat"
Index: src/version.txt diff -u src/version.txt:1.3 src/version.txt:1.4 --- src/version.txt:1.3 Sun Oct 26 09:38:02 2003 +++ src/version.txt Sun Oct 26 10:54:55 2003 @@ -1 +1 @@ -0.3 +0.3.1