Migrated source code from Simantics SVN

[simantics/platform.git] / bundles / org.simantics.scl.compiler / src / org / simantics / scl / compiler / elaboration / modules / TypeConstructor.java

diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/modules/TypeConstructor.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/modules/TypeConstructor.java
new file mode 100644 (file)
index 0000000..e3adf5b
--- /dev/null
+++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/modules/TypeConstructor.java
@@ -0,0 +1,73 @@
+package org.simantics.scl.compiler.elaboration.modules;\r
+\r
+import java.util.ArrayList;\r
+\r
+import org.cojen.classfile.TypeDesc;\r
+import org.simantics.scl.compiler.common.datatypes.Constructor;\r
+import org.simantics.scl.compiler.internal.codegen.types.JavaTypeTranslator;\r
+import org.simantics.scl.compiler.types.TCon;\r
+import org.simantics.scl.compiler.types.TVar;\r
+import org.simantics.scl.compiler.types.Type;\r
+import org.simantics.scl.compiler.types.Types;\r
+import org.simantics.scl.compiler.types.kinds.KArrow;\r
+import org.simantics.scl.compiler.types.kinds.Kind;\r
+import org.simantics.scl.compiler.types.kinds.Kinds;\r
+\r
+public abstract class TypeConstructor {\r
+    public Kind kind;\r
+    \r
+    public TCon name;\r
+    public TVar[] parameters;\r
+    public Type type;\r
+    \r
+    public Constructor[] constructors = Constructor.EMPTY_ARRAY;\r
+    public String documentation;\r
+    \r
+    /**\r
+     * A data type is open if it can be constructed without\r
+     * constructors listed above.\r
+     */\r
+    public boolean isOpen = true;\r
+    \r
+    public TypeConstructor(Kind kind) {\r
+        this.kind = kind;\r
+    }\r
+    \r
+    public TypeConstructor(TCon name, Kind kind) {\r
+        this.name = name;\r
+        this.kind = kind;\r
+        \r
+        ArrayList<TVar> vars = new ArrayList<TVar>(2);\r
+        for(Kind cur = kind; cur instanceof KArrow;) {\r
+            KArrow arrow = (KArrow)cur;\r
+            vars.add(Types.var(arrow.domain));\r
+            cur = arrow.range;\r
+        }\r
+        this.parameters = vars.toArray(new TVar[vars.size()]);\r
+        this.type = Types.apply(name, parameters);\r
+    }\r
+    \r
+    public TypeConstructor(TCon name, TVar ... parameters) {\r
+        setType(name, parameters);\r
+        Kind kind = Kinds.STAR;\r
+        for(int i = parameters.length-1;i>=0;--i)\r
+            kind = Kinds.arrow(parameters[i].getKind(), kind);\r
+        this.kind = kind;\r
+    }\r
+    \r
+    public void setType(TCon name, TVar ... parameters) {\r
+        this.name = name;\r
+        this.parameters = parameters;\r
+        this.type = Types.apply(name, parameters);\r
+    }\r
+    \r
+    public void setConstructors(Constructor ... constructors) {\r
+        this.constructors = constructors;\r
+    }\r
+\r
+    public abstract TypeDesc construct(JavaTypeTranslator translator, Type[] parameters);\r
+\r
+    public void setDocumentation(String documentation) {\r
+        this.documentation = documentation;\r
+    }\r
+}\r