1 package org.simantics.scl.compiler.internal.parsing.types;
3 import org.simantics.scl.compiler.elaboration.contexts.TypeTranslationContext;
4 import org.simantics.scl.compiler.internal.types.TypeElaborationContext;
5 import org.simantics.scl.compiler.types.Type;
6 import org.simantics.scl.compiler.types.Types;
7 import org.simantics.scl.compiler.types.kinds.Kind;
8 import org.simantics.scl.compiler.types.kinds.Kinds;
10 import gnu.trove.map.hash.TObjectIntHashMap;
11 import gnu.trove.set.hash.TIntHashSet;
13 public class TPredAst extends TypeAst {
15 public final TypeAst constraint;
16 public final TypeAst type;
18 public TPredAst(TypeAst constraint, TypeAst type) {
19 this.constraint = constraint;
24 public void toString(StringBuilder b) {
25 constraint.toString(b);
31 public Type toType(TypeTranslationContext context, Kind expectedKind) {
32 context.unify(location, Kinds.STAR, expectedKind);
33 return Types.constrained(
34 constraint.toTFuncApply(context),
35 type.toType(context, Kinds.STAR));
39 public Type toType(TypeElaborationContext context) {
40 return Types.constrained(
41 constraint.toTFuncApply(context),
42 type.toType(context));
46 public int getPrecedence() {
51 public void collectReferences(TObjectIntHashMap<String> typeNameMap,
53 constraint.collectReferences(typeNameMap, set);
54 type.collectReferences(typeNameMap, set);