Commit 61eb0dee authored by Zach Beane's avatar Zach Beane
Browse files

Add SOCKET::MAKE-SSL-SERVER-STREAM. Does not seem to work yet.

I get "no shared cipher" errors with it.
parent 113361b3
......@@ -153,14 +153,22 @@
(lookup-hostname name))
(defun socket::make-ssl-client-stream (socket &key &allow-other-keys)
(let ((stream (make-ssl-client-stream (real-stream socket)
)))
(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-server-stream (socket
&key
certificate key certificate-password
verify
ca-file ca-directory crl-file crl-check method max-depth)
(declare (ignore max-depth method crl-check crl-file ca-directory ca-file verify))
(let ((stream (make-ssl-server-stream (real-stream socket)
:certificate certificate
:key key
:password certificate-password)))
(setf (real-stream socket) stream)
socket))
(defun socket:socket-control (socket &key read-timeout write-timeout)
(declare (ignore socket read-timeout write-timeout))
......
......@@ -11,7 +11,8 @@
;; XXX Private package
#:without-interrupts)
(:import-from #:cl+ssl
#:make-ssl-client-stream)
#:make-ssl-client-stream
#:make-ssl-server-stream)
#+ccl
(:import-from #:ccl
#:without-interrupts
......
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