Re: [Axiom-developer] RE: [Gcl-devel] Re: axiom porting

[Bill Page]

Camm Maguire wrote:

> OK, I've just tested on Linux under ANSI, and it works the same for
> me (as it should).  If this is not the case on Windows, please someone
> let me know asap.
>  
Perhaps Mike's test demonstrates that this is not working on the
Windows ANSI version, but it works fine for me on Windows XP
with the non-ANSI version.

> As for bombing when the file is not there, this would appear to be an
> error in probe-file on Windows.  The 'server' example is supposed to
> return a blank page and continue in this case.  Please let me know if
> there is a bug here.
>  
This works properly now with the most recent Version_2_6_7pre
from cvs *and* your revised `foo' routine below. Note that with
the new behaviour of (probe-file "xxx") which returns NIL if xxx
is a directory, the old version of `foo' no longer worked.

> =============================================================================
>  
>
> > (open "/etc" :if-does-not-exist nil)
> >    
>
> NIL
>  
On Windows XP/sp2 with latest Version_2_6_7pre compiled non-ansi
I get (using /msys/ instead of /etc/ for windows compatibility):

>  (open "/msys" :if-does-not-exist nil)

NIL

> > (open "/etc/" :if-does-not-exist nil)
> >    
>
> NIL
>  
> (open "/msys/" :if-does-not-exist nil)

NIL

> > (open "/etc/passwd" :if-does-not-exist nil)
> >    
>
> #<input stream "/etc/passwd">
>  
> (open "/msys/1.0/msys.bat" :if-does-not-exist nil)

#<input stream "/msys/1.0/msys.bat">

> > (directory "/etc")
> >    
>
> (#p"/etc")
>  
> (directory "/msys/1.0")

(#p"/msys/1.0")

> > (directory "/etc/")
> >    
>
> (#p"/etc/R" #p"/etc/X11" #p"/etc/adduser.conf" #p"/etc/adjtime"
> ...
> #p"/etc/xml" #p"/etc/xpdf")
>  
> (directory "/msys/1.0/")

(#p"/msys/1.0/.bash_history" #p"/msys/1.0/bin" #p"/msys/1.0/doc"
#p"/msys/1.0/etc" #p"/msys/1.0/home" #p"/msys/1.0/lib"
#p"/msys/1.0/m.ico" #p"/msys/1.0/mingw" #p"/msys/1.0/msys.bat"
#p"/msys/1.0/msys.ico" #p"/msys/1.0/share" #p"/msys/1.0/uninstall")

> > (directory "/etc/passwd")
> >    
>
> (#p"/etc/passwd" #p"/etc/passwd-")
>  
> (directory "/msys/1.0/msys.bat")

(#p"/msys/1.0/msys.bat")

Perhaps this last one is a little strange since `msys.bat' is a file?

> =============================================================================
>
> Here is a little modification to the server example:
>
> (defun foo (s) 
>  (let* ((get (read s nil 'eof)) 
>         (fn (and (eq get 'get) (string-downcase (read s nil 'eof))))
>          (dn (if (eql (aref fn (1- (length fn))) #\/) fn (si::string-concatenate fn 
> "/")))
>          (dir (directory dn))
>         (file (unless dir (when (probe-file fn) fn))))
>    (format s "HTTP/1.1 ~S~%" (if fn 404 500))
>    (format s "Content-type: text/html~%~%")
>    (format t "get ~a fn ~a dn ~a~%" get fn dn)
>    (cond (file (with-open-file (q file) (si::copy-stream q s)))
>           (dir  (dolist (l dir)
>                   (let ((n (namestring l)))
>                     (format s "<a href=\"~a\">~a</a> <a href=\"~a/\"> /... 
> </a><br>~%" n n n)))))
>    (close s)))
>
> =============================================================================
>
> These are just toys of course, just meant to illustrate my limited
> understanding of how one can distinguish files from directories in
> *standard* lisp.  We can add anything non-standard we might need, of
> course. 
>  
I like it. As I said, it works for me with the non-ansi gcl Version_2_6_7pre
on Windows XP/sp2. No aborts this time.

And I am learning a little lisp too :) Thanks.

Cheers,
Bill Page.