Changeset 35554 in project


Ignore:
Timestamp:
05/27/18 14:35:55 (4 months ago)
Author:
sjamaan
Message:

openssl: Use tcp6 when available

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/openssl/trunk/openssl.scm

    r34564 r35554  
    4848   ##sys#check-string))
    4949
    50 (use srfi-13 srfi-18 tcp)
     50(use srfi-13 srfi-18)
    5151
    5252(import
     
    635635  (listener ssl-unwrap-listener))
    636636
     637;; Import from tcp6 when available, otherwise fall back to the
     638;; standard tcp library from CHICKEN core.
     639(define-values (tcp-listen tcp-listener-fileno tcp-listener-port
     640                           tcp-accept tcp-accept-ready? tcp-close
     641                           tcp-abandon-port tcp-buffer-size tcp-connect
     642                           tcp-read-timeout tcp-write-timeout)
     643  (handle-exceptions
     644      exn (eval
     645           '(let ()
     646              (use tcp)
     647              (values tcp-listen tcp-listener-fileno tcp-listener-port
     648                      tcp-accept tcp-accept-ready? tcp-close
     649                      tcp-abandon-port tcp-buffer-size tcp-connect
     650                      tcp-read-timeout tcp-write-timeout)))
     651    (eval '(let ()
     652             (use tcp6)
     653             (values tcp-listen tcp-listener-fileno tcp-listener-port
     654                     tcp-accept tcp-accept-ready? tcp-close
     655                     tcp-abandon-port tcp-buffer-size tcp-connect
     656                     tcp-read-timeout tcp-write-timeout)))))
     657
    637658(define (ssl-listen port #!optional (backlog 4) (hostname #f) (protocol 'sslv2-or-v3))
    638659  (ssl-wrap-listener
Note: See TracChangeset for help on using the changeset viewer.