1 structure LibsslH
= struct
3 val global
= "/usr/local/lib/openssl_sml.so"
4 val locl
= "openssl/openssl_sml.so"
6 val lh
= DynLinkage
.open_lib
7 { name
= if Posix
.FileSys
.access (global
, []) then global
else locl
, global
= true, lazy
= true }
8 handle DynLinkage
.DynLinkError s
=> raise Fail s
11 val sh
= DynLinkage
.lib_symbol (lh
, s
)
13 fn () => DynLinkage
.addr sh