Migrated source code from Simantics SVN

[simantics/platform.git] / bundles / org.simantics.scl.runtime / src / org / simantics / scl / runtime / unification / UTag.java

diff --git a/bundles/org.simantics.scl.runtime/src/org/simantics/scl/runtime/unification/UTag.java b/bundles/org.simantics.scl.runtime/src/org/simantics/scl/runtime/unification/UTag.java
new file mode 100644 (file)
index 0000000..e378248
--- /dev/null
+++ b/bundles/org.simantics.scl.runtime/src/org/simantics/scl/runtime/unification/UTag.java
@@ -0,0 +1,18 @@
+package org.simantics.scl.runtime.unification;\r
+\r
+import org.simantics.scl.runtime.function.Function;\r
+\r
+public class UTag {\r
+    public final int id;\r
+    @SuppressWarnings("rawtypes")\r
+    public final Function constructor;\r
+    @SuppressWarnings("rawtypes")\r
+    public final Function destructor;\r
+    \r
+    @SuppressWarnings("rawtypes")\r
+    public UTag(int id, Function constructor, Function destructor) {\r
+        this.id = id;\r
+        this.constructor = constructor;\r
+        this.destructor = destructor;\r
+    }\r
+}\r