Migrated source code from Simantics SVN

[simantics/platform.git] / bundles / org.simantics.db.layer0 / src / org / simantics / db / layer0 / variable / SCLValueAccessor.java

diff --git a/bundles/org.simantics.db.layer0/src/org/simantics/db/layer0/variable/SCLValueAccessor.java b/bundles/org.simantics.db.layer0/src/org/simantics/db/layer0/variable/SCLValueAccessor.java
new file mode 100644 (file)
index 0000000..82dcec1
--- /dev/null
+++ b/bundles/org.simantics.db.layer0/src/org/simantics/db/layer0/variable/SCLValueAccessor.java
@@ -0,0 +1,96 @@
+package org.simantics.db.layer0.variable;\r
+\r
+import org.simantics.databoard.binding.Binding;\r
+import org.simantics.databoard.type.Datatype;\r
+import org.simantics.db.ReadGraph;\r
+import org.simantics.db.WriteGraph;\r
+import org.simantics.db.exception.DatabaseException;\r
+import org.simantics.scl.runtime.SCLContext;\r
+import org.simantics.scl.runtime.function.Function1;\r
+import org.simantics.scl.runtime.function.Function2;\r
+import org.simantics.scl.runtime.function.Function3;\r
+\r
+public class SCLValueAccessor implements ValueAccessor {\r
+\r
+       private final Function1<Variable,Object> getValue1;\r
+       private final Function2<Variable,Binding,Object> getValue2;\r
+       private final Function2<Variable,Object,Object> setValue2;\r
+       private final Function3<Variable,Object,Binding,Object> setValue3;\r
+       private final Function1<Variable,Datatype> getDatatype;\r
+       \r
+       public SCLValueAccessor(Function1<Variable, Object> getValue1, Function2<Variable, Binding, Object> getValue2,\r
+                       Function2<Variable, Object, Object> setValue2, Function3<Variable, Object, Binding, Object> setValue3,\r
+                       Function1<Variable, Datatype> getDatatype) {\r
+               this.getValue1 = getValue1;\r
+               this.getValue2 = getValue2;\r
+               this.setValue2 = setValue2;\r
+               this.setValue3 = setValue3;\r
+               this.getDatatype = getDatatype;\r
+       }\r
+\r
+       @Override\r
+       public Object getValue(ReadGraph graph, Variable context) throws DatabaseException {\r
+        SCLContext sclContext = SCLContext.getCurrent();\r
+        Object oldGraph = sclContext.put("graph", graph);\r
+        try {\r
+            return getValue1.apply(context);\r
+        } catch (Throwable t) {\r
+            throw new DatabaseException(t);\r
+        } finally {\r
+            sclContext.put("graph", oldGraph);\r
+        }\r
+       }\r
+\r
+       @Override\r
+       public Object getValue(ReadGraph graph, Variable context, Binding binding) throws DatabaseException {\r
+        SCLContext sclContext = SCLContext.getCurrent();\r
+        Object oldGraph = sclContext.put("graph", graph);\r
+        try {\r
+            return getValue2.apply(context, binding);\r
+        } catch (Throwable t) {\r
+            throw new DatabaseException(t);\r
+        } finally {\r
+            sclContext.put("graph", oldGraph);\r
+        }\r
+       }\r
+\r
+       @Override\r
+       public void setValue(WriteGraph graph, Variable context, Object value) throws DatabaseException {\r
+        SCLContext sclContext = SCLContext.getCurrent();\r
+        Object oldGraph = sclContext.put("graph", graph);\r
+        try {\r
+            setValue2.apply(context, value);\r
+        } catch (Throwable t) {\r
+            throw new DatabaseException(t);\r
+        } finally {\r
+            sclContext.put("graph", oldGraph);\r
+        }\r
+       }\r
+\r
+       @Override\r
+       public void setValue(WriteGraph graph, Variable context, Object value, Binding binding) throws DatabaseException {\r
+        SCLContext sclContext = SCLContext.getCurrent();\r
+        Object oldGraph = sclContext.put("graph", graph);\r
+        try {\r
+            setValue3.apply(context, value, binding);\r
+        } catch (Throwable t) {\r
+            throw new DatabaseException(t);\r
+        } finally {\r
+            sclContext.put("graph", oldGraph);\r
+        }\r
+       }\r
+\r
+       @Override\r
+       public Datatype getDatatype(ReadGraph graph, Variable context) throws DatabaseException {\r
+        SCLContext sclContext = SCLContext.getCurrent();\r
+        Object oldGraph = sclContext.put("graph", graph);\r
+        try {\r
+            return getDatatype.apply(context);\r
+        } catch (Throwable t) {\r
+            throw new DatabaseException(t);\r
+        } finally {\r
+            sclContext.put("graph", oldGraph);\r
+        }\r
+       }\r
+\r
+}\r