suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

openssl: fix ssl-addresses, docs for ports->ssl-ports

Browse Source
This commit is contained in:
Ryan Culpepper 2019-06-28 17:56:37 +02:00
parent 65e2d802dd
commit b4d7885b16
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/racket-doc/openssl/openssl.scrbl
View File

@ -328,7 +328,8 @@ Analogous to @racket[tcp-abandon-port].}
@defproc[(ssl-addresses [p (or/c ssl-port? ssl-listener?)]
[port-numbers? any/c #f])
void?]{
(or/c (values string? string?)
(values string? port-number? string? listen-port-number?))]{
Analogous to @racket[tcp-addresses].}
@ -398,7 +399,7 @@ current platform for server connections.
@defproc[(ports->ssl-ports
[input-port input-port?]
[output-port output-port?]
[#:mode mode symbol? 'accept]
[#:mode mode (or/c 'connect 'accept) 'accept]
[#:context context
(or/c ssl-client-context? ssl-server-context?)
((if (eq? mode 'accept)

10
racket/collects/openssl/mzssl.rkt
View File

@ -1543,10 +1543,12 @@ TO DO:
(define (ssl-addresses p [port-numbers? #f])
(let-values ([(mzssl input?) (lookup 'ssl-addresses p)])
(tcp-addresses (if (eq? 'listener input?)
(ssl-listener-l mzssl)
(if input? (mzssl-i mzssl) (mzssl-o mzssl)))
port-numbers?)))
(define port
(if (eq? 'listener input?)
(ssl-listener-l mzssl)
(if input? (mzssl-i mzssl) (mzssl-o mzssl))))
(cond [(tcp-port? port) (tcp-addresses port port-numbers?)]
[else (error 'ssl-addresses "not connected to TCP port")])))
(define (ssl-abandon-port p)
(let-values ([(mzssl input?) (lookup 'ssl-abandon-port p)])