1 package org.simantics.scl.compiler.elaboration.query;
3 import org.simantics.scl.compiler.common.exceptions.InternalCompilerError;
4 import org.simantics.scl.compiler.elaboration.contexts.ReplaceContext;
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.QueryTransformer;
8 import org.simantics.scl.compiler.elaboration.expressions.Variable;
9 import org.simantics.scl.compiler.elaboration.query.compilation.ConstraintCollectionContext;
10 import org.simantics.scl.compiler.elaboration.query.compilation.UnsolvableQueryException;
11 import org.simantics.scl.compiler.elaboration.rules.MappingRelation;
12 import org.simantics.scl.compiler.errors.Locations;
13 import org.simantics.scl.compiler.types.Type;
15 import gnu.trove.map.hash.TObjectIntHashMap;
16 import gnu.trove.set.hash.THashSet;
17 import gnu.trove.set.hash.TIntHashSet;
19 public class QMapping extends Query {
20 public final MappingRelation mappingRelation;
21 public final Expression[] parameters;
23 public QMapping(MappingRelation mappingRelation, Expression[] parameters) {
24 this.mappingRelation = mappingRelation;
25 this.parameters = parameters;
29 public void collectFreeVariables(THashSet<Variable> vars) {
30 for(Expression parameter : parameters)
31 parameter.collectFreeVariables(vars);
35 public void collectVars(TObjectIntHashMap<Variable> allVars,
37 for(Expression parameter : parameters)
38 parameter.collectVars(allVars, vars);
42 public void checkType(TypingContext context) {
43 // Check parameter types
44 Type[] parameterTypes = mappingRelation.parameterTypes;
45 if(parameterTypes.length != parameters.length)
46 context.getErrorLog().log(location, "Relation is applied with wrong number of parameters.");
48 for(int i=0;i<parameters.length;++i)
49 parameters[i] = parameters[i].checkType(context, parameterTypes[i]);
53 public void collectConstraints(ConstraintCollectionContext context)
54 throws UnsolvableQueryException {
55 throw new InternalCompilerError();
59 public Query replace(ReplaceContext context) {
60 return new QMapping(mappingRelation,
61 Expression.replace(context, parameters));
65 public void setLocationDeep(long loc) {
66 if(location == Locations.NO_LOCATION) {
68 for(Expression parameter : parameters)
69 parameter.setLocationDeep(loc);
74 public void accept(QueryVisitor visitor) {
79 public Query accept(QueryTransformer transformer) {
80 return transformer.transform(this);