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 |