Merged changes from feature/scl to master.

[simantics/platform.git] / bundles / org.simantics.scl.compiler / src / org / simantics / scl / compiler / elaboration / chr / CHRRulesetObject.java

diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/chr/CHRRulesetObject.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/chr/CHRRulesetObject.java
new file mode 100644 (file)
index 0000000..f14cb0c
--- /dev/null
+++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/chr/CHRRulesetObject.java
@@ -0,0 +1,31 @@
+package org.simantics.scl.compiler.elaboration.chr;\r
+\r
+import org.simantics.scl.compiler.constants.Constant;\r
+import org.simantics.scl.compiler.constants.JavaConstructor;\r
+import org.simantics.scl.compiler.internal.codegen.chr.CHRCodeGenerator;\r
+import org.simantics.scl.compiler.internal.codegen.references.BoundVar;\r
+import org.simantics.scl.compiler.internal.codegen.ssa.SSAObject;\r
+import org.simantics.scl.compiler.internal.codegen.utils.ModuleBuilder;\r
+import org.simantics.scl.compiler.types.Types;\r
+\r
+public class CHRRulesetObject extends SSAObject {\r
+    CHRRuleset ruleset;\r
+\r
+    public CHRRulesetObject(BoundVar target, CHRRuleset ruleset) {\r
+        super(ruleset.storeType);\r
+        this.setTarget(target);\r
+        this.ruleset = ruleset;\r
+    }\r
+    \r
+    @Override\r
+    public Constant liftClosure(BoundVar newTarget, BoundVar[] parameters) {\r
+        ruleset.this_ = newTarget;\r
+        ruleset.parameters = parameters;\r
+        return new JavaConstructor(ruleset.storeClassName, Types.PROC, ruleset.storeType, Types.getTypes(parameters));\r
+    }\r
+    \r
+    @Override\r
+    public void generateCode(ModuleBuilder moduleBuilder) {\r
+        CHRCodeGenerator.generateStore(moduleBuilder, ruleset);\r
+    }\r
+}\r