Coverage report: /home/ellis/comp/core/lib/cry/ssl/stream.lisp

KindCoveredAll%
expression08 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; stream.lisp --- SSL Streams
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 (in-package :ssl)
7
 
8
 (defclass ssl-stream (wrapped-stream 
9
                       fundamental-binary-input-stream
10
                       fundamental-binary-output-stream)
11
   (socket sap))
12
 (defmethod stream-element-type ((stream ssl-stream)) '(unsigned-byte 8))
13
 
14
 (defclass ssl-client-stream (ssl-stream) ())
15
 (defun make-ssl-client-stream-from-fd (stream))
16
 ;; (defun make-ssl-client-stream (socket &rest args
17
 ;;                                       &key
18
 ;;                                       hostname
19
 ;;                                       close-callback
20
 ;;                                       external-format
21
 ;;                                       (verify (if (ssl-check-verify-p)
22
 ;;                                                   :optional
23
 ;;                                                   *make-ssl-client-stream-verify-default*))
24
 ;;                                       alpn-protocols
25
 ;;                                       certificate key password
26
 ;;                                       (cipher-list *default-cipher-list*)
27
 ;;                                       method
28
 ;;                                       (buffer-size *default-buffer-size*)
29
 ;;                                       (input-buffer-size buffer-size)
30
 ;;                                       (output-buffer-size buffer-size))
31
 ;;   (apply 'cl+ssl:make-ssl-client-stream socket args))
32
   
33
 
34
 (defclass ssl-server-stream (ssl-stream)
35
   (certificate key))
36
 (defun make-ssl-server-stream-from-fd (stream))
37
 ;; (defun make-ssl-server-stream (socket &rest args
38
 ;;                                       &key
39
 ;;                                       close-callback
40
 ;;                                       external-format
41
 ;;                                       certificate key password
42
 ;;                                       (cipher-list *ssl-cipher-list*)
43
 ;;                                       method
44
 ;;                                       (buffer-size *default-buffer-size*)
45
 ;;                                       (input-buffer-size *ssl-buffer-size*)
46
 ;;                                       (output-buffer-size *ssl-buffer-size*))
47
 ;;   (apply 'cl+ssl:make-ssl-server-stream stream args))
48
 
49
 
50
 ;; (defmethod close ((stream ssl-stream) &key abort))