1 package org.simantics.scl.compiler.internal.parsing.types;
\r
3 import org.simantics.scl.compiler.elaboration.contexts.TypeTranslationContext;
\r
4 import org.simantics.scl.compiler.internal.types.TypeElaborationContext;
\r
5 import org.simantics.scl.compiler.types.Type;
\r
6 import org.simantics.scl.compiler.types.Types;
\r
7 import org.simantics.scl.compiler.types.kinds.Kind;
\r
8 import org.simantics.scl.compiler.types.kinds.Kinds;
\r
10 import gnu.trove.map.hash.TObjectIntHashMap;
\r
11 import gnu.trove.set.hash.TIntHashSet;
\r
15 public class TListAst extends TypeAst {
\r
16 public final TypeAst component;
\r
18 public TListAst(TypeAst component) {
\r
19 this.component = component;
\r
23 public void toString(StringBuilder b) {
\r
25 component.toString(b);
\r
30 public Type toType(TypeTranslationContext context, Kind expectedKind) {
\r
31 context.unify(location, Kinds.STAR, expectedKind);
\r
32 return Types.list(component.toType(context, Kinds.STAR));
\r
36 public Type toType(TypeElaborationContext context) {
\r
37 return Types.list(component.toType(context));
\r
41 public int getPrecedence() {
\r
46 public void collectReferences(TObjectIntHashMap<String> typeNameMap,
\r
48 component.collectReferences(typeNameMap, set);
\r