openssl/mlton/libssl-h.sml

   1 structure LibsslH = struct
   2     local
   3         val lh = DynLinkage.open_lib
   4              { name = "openssl/openssl_sml.so", global = true, lazy = true }
   5             handle DynLinkage.DynLinkError s => raise Fail s
   6     in
   7         fun libh s = let
   8             val sh = DynLinkage.lib_symbol (lh, s)
   9         in
  10             fn () => DynLinkage.addr sh
  11         end
  12     end
  13 end