[hcoop/domtool2.git] / openssl / mlton / libssl-h.sml

structure LibsslH = struct
    local
        val lh = DynLinkage.open_lib
             { name = "/usr/local/lib/openssl_sml.so", global = true, lazy = true }
	    handle DynLinkage.DynLinkError s => raise Fail s
    in
        fun libh s = let
            val sh = DynLinkage.lib_symbol (lh, s)
        in
            fn () => DynLinkage.addr sh
        end
    end
end
Commit	Line	Data
a49a9bfb AC	1	structure 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
	13	end