Skip to content
Snippets Groups Projects
Commit f32a1e50 authored by Etienne Kneuss's avatar Etienne Kneuss
Browse files

Generate Sets as well

parent 2134ee16
Branches
Tags
No related merge requests found
...@@ -69,6 +69,14 @@ case object TEGIS extends Rule("TEGIS") { ...@@ -69,6 +69,14 @@ case object TEGIS extends Rule("TEGIS") {
Generator[TypeTree, Expr](cct.fields.map(_.getType), { case rs => CaseClass(cct, rs)} ) Generator[TypeTree, Expr](cct.fields.map(_.getType), { case rs => CaseClass(cct, rs)} )
} }
case st @ SetType(base) =>
List(
Generator(List(base), { case elems => FiniteSet(elems).setType(st) }),
Generator(List(st, st), { case Seq(a, b) => SetUnion(a, b) }),
Generator(List(st, st), { case Seq(a, b) => SetIntersection(a, b) }),
Generator(List(st, st), { case Seq(a, b) => SetDifference(a, b) })
)
case _ => case _ =>
Nil Nil
} }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment