[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Axiom-developer] Re: Axiom HyperDoc Replacement

From: Martin Rubey
Subject: Re: [Axiom-developer] Re: Axiom HyperDoc Replacement
Date: 21 Apr 2007 16:57:46 +0200
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.4

Martin Rubey <address@hidden> writes:

> OK, I got it to work now. 

Oh dear, no it doesn't work. Only the "click here" variant does.  I tried

(defun server (s)
  (let* ((get (read s nil 'eof))
         (fn (and (eq get 'get) (read s nil 'eof))))
    (format t "Got ~S~%~%" fn)
    (format s "HTTP/1.1 ~S~%" (if fn 303 403))
;    (format s "HTTP/1.1 ~S~%" (if fn 200 403))
;    (format s "Content-type: text/html~%~%")
    (format s "Location: ~S~%" 
;    (format s "<a href='~S'>click here</a>~%" 
;           "file:/home/martin/martin/Axiom/hyperdoc-replacement/stretch.html")
    (close s)))

but that only keeps displaying in the Axiom shell window

Got /

Got /

Got /


The other variant works fine, however is quite useless for my purpose.


reply via email to

[Prev in Thread] Current Thread [Next in Thread]