tests/ffi.lac


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

extern structure Lib : sig
        type t
        type u
        val x : t
        val f1 : t -> t
        val f2 : t -> u -> t
end

type t' = Lib.t
val x' : t' = Lib.x
val f1' = Lib.f1
val f2' = Lib.f2

structure Lib' = Lib

type t'' = Lib'.t
val x'' : t'' = Lib'.x