summaryrefslogtreecommitdiff
path: root/src/test/test1.sail
diff options
context:
space:
mode:
authorGabriel Kerneis2013-10-10 14:43:29 +0100
committerGabriel Kerneis2013-10-10 14:43:29 +0100
commit8d42d2a0c5c3069f9eb9314f129d4b4f5120af78 (patch)
tree79ea1fdd9826ef2f5590b836d768a0986afb2ecb /src/test/test1.sail
parentc140486c55213052db3b97723da6d745cc15fd62 (diff)
Use ocamlbuild, no findlib required
Diffstat (limited to 'src/test/test1.sail')
-rw-r--r--src/test/test1.sail13
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 ()