structure LibsslH = struct
local
+ val global = "/usr/local/lib/openssl_sml.so"
+ val locl = "openssl/openssl_sml.so"
+
val lh = DynLinkage.open_lib
- { name = "/usr/local/lib/openssl_sml.so", global = true, lazy = true }
+ { name = if Posix.FileSys.access (global, []) then global else locl, global = true, lazy = true }
handle DynLinkage.DynLinkError s => raise Fail s
in
fun libh s = let