[hcoop/smlsql.git] / libpq / libpq-h.sml

structure LibpqH = struct
    local
        val lh = DynLinkage.open_lib
             { name = "/usr/lib/libpq.so", global = true, lazy = true }
    in
        fun libh s = let
            val sh = DynLinkage.lib_symbol (lh, s)
        in
            fn () => DynLinkage.addr sh
        end
    end
end
Commit	Line	Data
f147efc8 AC	1	structure LibpqH = struct
	2	local
	3	val lh = DynLinkage.open_lib
	4	{ name = "/usr/lib/libpq.so", global = true, lazy = true }
	5	in
	6	fun libh s = let
	7	val sh = DynLinkage.lib_symbol (lh, s)
	8	in
	9	fn () => DynLinkage.addr sh
	10	end
	11	end
	12	end