is it error?
> cat foo.c
short foo (short x) {
return x+1;
}
> clang -shared -o foo.so foo.c
> cat foo.sml
open Foreign;
val mylib = loadLibrary "foo.so"
fun foo x = buildCall1 ((getSymbol mylib "foo"), cShort, cShort) x
val r = foo ~5
val _ = print ( (Int.toString r) ^ "\n" )
> env LD_LIBRARY_PATH=. poly --script foo.sml
65532
P.S.
Polyml is from git 5 days ago.
_______________________________________________
polyml mailing list
[email protected]
http://lists.inf.ed.ac.uk/mailman/listinfo/polyml
