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

structure LibsslH = struct
    local
	val global = "/usr/local/lib/openssl_sml.so"
	val locl = "openssl/openssl_sml.so"

        val lh = DynLinkage.open_lib
             { 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
            val sh = DynLinkage.lib_symbol (lh, s)
        in
            fn () => DynLinkage.addr sh
        end
    end
end
Commit	Line	Data
559e89e9 AC	1	structure LibsslH = struct
559e89e9 AC	2	local
64734132 AC	3	val global = "/usr/local/lib/openssl_sml.so"
	4	val locl = "openssl/openssl_sml.so"
	5
559e89e9	6	val lh = DynLinkage.open_lib
64734132	7	{ name = if Posix.FileSys.access (global, []) then global else locl, global = true, lazy = true }
559e89e9 AC	8	handle DynLinkage.DynLinkError s => raise Fail s
	9	in
	10	fun libh s = let
	11	val sh = DynLinkage.lib_symbol (lh, s)
	12	in
	13	fn () => DynLinkage.addr sh
	14	end
	15	end
	16	end