[Chicken-users] OpenSSL bindings

[Thomas Chust]

Hello,

a preliminary version of my OpenSSL SSL/TLS library bindings for chicken  
is available at
        http://www.chust.org/projects/openssl.egg
so far only the client side is implemented and verification of peer  
certificates is useless, because you cannot load certificate chains, yet.  
For simple applications it's already useful, though:

-----BEGIN FILE: "openssl-example.scm"-----
(use openssl http-client htmlprag)

(define https-server "freemail.web.de")

(define-values (in out) (ssl-connect https-server 443))
(let-values (((result headers i o)
              (http:send-request
               (string-append "https://"; https-server "/") in out)))
  (print "Result code from server: " result)
  (print "Headers from server:")
  (pp headers)
  (print "---")
  (print "Content as SXML:")
  (pp (html->sxml in))
  (print "---"))

(close-input-port in)
(close-output-port out)
-----END FILE:   "openssl-example.scm"-----

Documentation for the full interface as it will be (in a few days or so)  
is at
        http://www.chust.org/projects/openssl.html

cu,
Thomas