package async_ssl

  1. Overview
  2. Docs
An Async-pipe-based interface with OpenSSL

Install 

dune-project
 Dependency

github.com Changelog MIT License Edit opam file Versions (11)

Authors

  1. J
    Jane Street Group, LLC

Maintainers

  1. J
    Jane Street developers

Sources

v0.16.1.tar.gz
md5=7e404ed41467b7ac0ef985f5ac6eccd8
sha512=e4545e91d15d43f1a53ca8d05e8b7d39d11627671d0da2b2b02451b197387b396a310d51397decbd6448fc2bb13aa237b052685263dea4e2010f7884ad94371d

doc/src/async_ssl/initialize.ml.html

Source file initialize.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
open! Core
open Import

let initialized = Set_once.create ()

(* OpenSSL_add_all_algorithms is a macro, so we have to replicate it manually. :( *)
let add_all_algorithms () =
  Bindings.add_all_ciphers ();
  Bindings.add_all_digests ()
;;

(* openssl initialization method, run during module initialization. Hopefully
   before anything uses OpenSSL. *)
let initialize () =
  match Set_once.get initialized with
  | Some () -> ()
  | None ->
    Set_once.set_exn initialized [%here] ();
    (* Static initialization *)
    Bindings.ssl_load_error_strings ();
    Bindings.err_load_crypto_strings ();
    (* Use /etc/ssl/openssl.conf or similar *)
    Bindings.openssl_config None;
    (* Make hardware accelaration available *)
    Bindings.Engine.load_builtin_engines ();
    (* Finish engine registration *)
    Bindings.Engine.register_all_complete ();
    (* SSL_library_init() initializes the SSL algorithms.
       It always returns "1", so it is safe to discard the return value *)
    ignore (Bindings.init () : Unsigned.ulong);
    (* Load any other algorithms, just in case *)
    add_all_algorithms ()
;;