diff options
| author | Gabriel Kerneis | 2013-10-10 14:43:29 +0100 |
|---|---|---|
| committer | Gabriel Kerneis | 2013-10-10 14:43:29 +0100 |
| commit | 8d42d2a0c5c3069f9eb9314f129d4b4f5120af78 (patch) | |
| tree | 79ea1fdd9826ef2f5590b836d768a0986afb2ecb /src/test/test1.sail | |
| parent | c140486c55213052db3b97723da6d745cc15fd62 (diff) | |
Use ocamlbuild, no findlib required
Diffstat (limited to 'src/test/test1.sail')
| -rw-r--r-- | src/test/test1.sail | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/test/test1.sail b/src/test/test1.sail new file mode 100644 index 00000000..29f479d6 --- /dev/null +++ b/src/test/test1.sail @@ -0,0 +1,13 @@ +default Nat i +default Order o +default bool b +default forall a. (list a) b +val forall a, b . ((a * b) -> b pure) snd +val forall Type i, b. ((i * b) -> i pure) fst +typedef int_list [name = "il"] = list nat +typedef reco = const struct forall i, a, b. { (a[i]) v; b w; } +typedef maybe = const union forall a. { unit None; a Some; } +typedef colors = enumerate { red; green; blue } +typedef creg = register bits [5:i] { 5 : h ; 6..7 : j} +let bool e = true +let unit x = main () |
