1 package org.simantics.scl.compiler.elaboration.expressions.list;
3 import org.simantics.scl.compiler.elaboration.contexts.SimplificationContext;
4 import org.simantics.scl.compiler.elaboration.contexts.TranslationContext;
5 import org.simantics.scl.compiler.elaboration.contexts.TypingContext;
6 import org.simantics.scl.compiler.elaboration.expressions.Expression;
7 import org.simantics.scl.compiler.elaboration.expressions.Variable;
8 import org.simantics.scl.compiler.errors.Locations;
10 public class ListSeq extends ListQualifier {
11 public ListQualifier a;
12 public ListQualifier b;
14 public ListSeq(ListQualifier a, ListQualifier b) {
20 public void checkType(TypingContext context) {
26 public CompiledQualifier compile(SimplificationContext context) {
27 CompiledQualifier cA = a.compile(context);
28 CompiledQualifier cB = b.compile(context);
30 Variable x = new Variable("xTemp", cA.pattern.getType());
31 Variable y = new Variable("yTemp", cB.pattern.getType());
33 Expression value = context.concatMap(
34 context.lambda(context.var(x), context.mapList(
35 context.lambda(context.var(y), context.tuple(context.var(x), context.var(y))),
36 context.match(context.var(x), cA.pattern, cB.value))),
39 value.validateType(context.getEnvironment());
40 } catch (TypeValidationException e) {
43 return new CompiledQualifier(value, context.tuple(cA.pattern, cB.pattern));
47 public void resolve(TranslationContext context) {
53 public void setLocationDeep(long loc) {
54 if(location == Locations.NO_LOCATION) {
56 a.setLocationDeep(loc);
57 b.setLocationDeep(loc);
62 public void accept(ListQualifierVisitor visitor) {
67 public ListQualifier accept(ListQualifierTransformer transformer) {
68 return transformer.transform(this);