Commit 4980a91f authored by Zach Beane's avatar Zach Beane
Browse files

Implement client SSL streams via CL+SSL.

parent 1d22975d
......@@ -29,7 +29,7 @@
:reader socket)
(real-stream
:initarg :real-stream
:reader real-stream
:accessor real-stream
:reader underlying-input-stream
:reader underlying-output-stream)))
......@@ -85,7 +85,7 @@
(read-sequence sequence (real-stream stream) :start start :end end)))
(defmethod stream-force-output ((stream zacl-socket))
(force-output (socket-stream (socket stream))))
(force-output (real-stream stream)))
(defmethod close ((stream zacl-socket) &key abort)
(declare (ignore abort))
......@@ -152,14 +152,16 @@
(defun socket:lookup-hostname (name)
(lookup-hostname name))
(defun socket::make-ssl-client-stream (socket &key &allow-other-keys)
(let ((stream (make-ssl-client-stream (real-stream socket)
)))
(setf (real-stream socket) stream)
socket))
(defun socket::make-ssl-server-stream (&rest args)
(declare (ignore args))
(error "Not implemented -- MAKE-SSL-SERVER-STREAM"))
(defun socket::make-ssl-client-stream (&rest args)
(declare (ignore args))
(error "Not implemented -- MAKE-SSL-CLIENT-STREAM"))
(defun socket:socket-control (socket &key read-timeout write-timeout)
(declare (ignore socket read-timeout write-timeout))
nil)
......@@ -10,6 +10,8 @@
(:import-from #:sb-sys
;; XXX Private package
#:without-interrupts)
(:import-from #:cl+ssl
#:make-ssl-client-stream)
#+ccl
(:import-from #:ccl
#:without-interrupts
......
......@@ -18,7 +18,8 @@
#:queues.simple-cqueue
#:cl-store
#:alexandria
#:md5)
#:md5
#:cl+ssl)
:serial t
:components ((:file "package")
#+clozure
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment