Re: cl-http/client/client.lisp on ACL/SunOS

• To: Marc Friedman <friedman@cs.washington.edu>
• Subject: Re: cl-http/client/client.lisp on ACL/SunOS
• From: Kelly Murray <kem@franz.com>
• Date: Fri, 28 Jun 1996 17:42:43 -0700
• Cc: www-cl@ai.mit.edu
• In-Reply-To: Your message of "Fri, 28 Jun 1996 15:00:08 PDT." <31D455E8.41C6@cs.washington.edu>
• Sender: owner-www-cl@ai.mit.edu

> I'm trying to get enough of the cl-http loaded to run client.lisp.
> However, I'm beginning to suspect that the function 
> INVOKE-HTTP-SERVICE-ON-HOST may not be ported to ACL.

This is correct.  Here is the ACL Unix implementation-specific
function you can use to implement it.  This code clip is doing just
the simple HTTP GET:

(defun download-url (url)
   (let ((stream  (ipc::open-network-stream
		       :element-type '(unsigned-byte 8)
		       :host (url::host-string url)
		       :port (or (url::host-port url) 80))))
    (format stream "GET ~A~%" (url::relative-name-string url))
    (force-output stream)
    (setf html (read-html-into-string stream))
    (close stream)
    html))

Hope that helps --kelly murray  kem@franz.com

• Re: cl-http/client/client.lisp on ACL/SunOS
• From: olivier.clarisse@lucent.com

• cl-http/client/client.lisp on ACL/SunOS
• From: Marc Friedman <friedman@cs.washington.edu>

• Prev: cl-http/client/client.lisp on ACL/SunOS
• Next: Re: cl-http/client/client.lisp on ACL/SunOS
• Index(es):
  • Main
  • Thread