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

[Martin Rubey]

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~%" 
            "file:/users/rubey/martin/Axiom/hyperdoc-replacement/stretch.html")
;    (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.

Martin