Mercurial > urweb
annotate tests/ffi.lac @ 49:874e877d2c51
Detecting FFI functions
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 22 Jun 2008 10:00:25 -0400 |
parents | 0a5c312de09a |
children | d37518b67bd2 |
rev | line source |
---|---|
adamc@48 | 1 extern structure Lib : sig |
adamc@48 | 2 type t |
adamc@49 | 3 type u |
adamc@48 | 4 val x : t |
adamc@49 | 5 val f1 : t -> t |
adamc@49 | 6 val f2 : t -> u -> t |
adamc@48 | 7 end |
adamc@48 | 8 |
adamc@48 | 9 type t' = Lib.t |
adamc@48 | 10 val x' : t' = Lib.x |
adamc@49 | 11 val f1' = Lib.f1 |
adamc@49 | 12 val f2' = Lib.f2 |
adamc@48 | 13 |
adamc@48 | 14 structure Lib' = Lib |
adamc@48 | 15 |
adamc@48 | 16 type t'' = Lib'.t |
adamc@48 | 17 val x'' : t'' = Lib'.x |