1 package org.simantics.scl.compiler.internal.parsing.types;
\r
3 import java.util.List;
\r
5 import org.simantics.scl.compiler.elaboration.contexts.TypeTranslationContext;
\r
6 import org.simantics.scl.compiler.internal.types.TypeElaborationContext;
\r
7 import org.simantics.scl.compiler.types.Type;
\r
8 import org.simantics.scl.compiler.types.Types;
\r
9 import org.simantics.scl.compiler.types.kinds.Kind;
\r
10 import org.simantics.scl.compiler.types.kinds.Kinds;
\r
12 import gnu.trove.map.hash.TObjectIntHashMap;
\r
13 import gnu.trove.set.hash.TIntHashSet;
\r
17 public class TTupleAst extends TypeAst {
\r
18 public final TypeAst[] components;
\r
20 public TTupleAst(TypeAst ... components) {
\r
21 this.components = components;
\r
24 public TTupleAst(List<TypeAst> components) {
\r
25 this(components.toArray(new TypeAst[components.size()]));
\r
29 public void toString(StringBuilder b) {
\r
31 for(int i=0;i<components.length;++i) {
\r
34 components[i].toString(b);
\r
40 public Type toType(TypeTranslationContext context, Kind expectedKind) {
\r
41 if(components.length == 1) {
\r
42 return components[0].toType(context, expectedKind);
\r
45 context.unify(location, Kinds.STAR, expectedKind);
\r
46 return Types.tuple(toTypes(context, components));
\r
51 public Type toType(TypeElaborationContext context) {
\r
52 if(components.length == 1) {
\r
53 return components[0].toType(context);
\r
56 return Types.tuple(toTypes(context, components));
\r
61 public int getPrecedence() {
\r
66 public void collectReferences(TObjectIntHashMap<String> typeNameMap,
\r
68 for(TypeAst component : components)
\r
69 component.collectReferences(typeNameMap, set);
\r