bpt's domtool-mode auto-mode suggestion
[hcoop/domtool2.git] / openssl / mlton / libssl-h.sml
CommitLineData
a49a9bfb
AC
1structure LibsslH = struct
2 local
3 val lh = DynLinkage.open_lib
361a1e7f 4 { name = "/usr/local/lib/openssl_sml.so", global = true, lazy = true }
a49a9bfb
AC
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
13end