352
((3) 0 () 1 ((q lib "net/win32-ssl.rkt")) () (h ! (equal) ((c def c (c (? . 0) q ports->win32-ssl-ports)) q (563 . 10)) ((c def c (c (? . 0) q win32-ssl-available?)) q (1025 . 2)) ((c def c (c (? . 0) q win32-ssl-abandon-port)) q (463 . 3)) ((c def c (c (? . 0) q win32-ssl-port?)) q (964 . 3)) ((c def c (c (? . 0) q win32-ssl-connect)) q (0 . 12))))
procedure
(win32-ssl-connect  hostname          
                    port-no           
                   [client-protocol]) 
 -> (and/c input-port? win32-ssl-port?)
    (and/c output-port? win32-ssl-port?)
  hostname : string?
  port-no : (integer-in 1 65535)
  client-protocol : (or/c 'sslv2-or-v3 = 'sslv2-or-v3
                          'sslv2
                          'sslv3
                          'tls)
procedure
(win32-ssl-abandon-port in) -> void?
  in : (and/c win32-ssl-port? output-port?)
procedure
(ports->win32-ssl-ports  input-port           
                         output-port          
                        [#:encrypt protocol]) 
 -> (and/c input-port? win32-ssl-port?)
    (and/c output-port? win32-ssl-port?)
  input-port : input-port?
  output-port : output-port?
  protocol : (or/c 'sslv2-or-v3 'sslv2 'sslv3 'tls)
           = 'sslv2-or-v3
procedure
(win32-ssl-port? v) -> boolean?
  v : any/c
value
win32-ssl-available? : boolean?
