1 structure LibsslH
= struct
3 val lh
= DynLinkage
.open_lib
4 { name
= "/usr/local/lib/openssl_sml.so", global
= true, lazy
= true }
5 handle DynLinkage
.DynLinkError s
=> raise Fail s
8 val sh
= DynLinkage
.lib_symbol (lh
, s
)
10 fn () => DynLinkage
.addr sh