HCoop
/
hcoop
/
smlsql.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Fix string escaping
[hcoop/smlsql.git]
/
libpq
/
libpq-h.sml
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