From 5ad929b83fa3f045edb199f1c2a955c7819d1be5 Mon Sep 17 00:00:00 2001
From: Antti Villberg <antti.villberg@semantum.fi>
Date: Tue, 30 May 2017 14:32:26 +0300
Subject: [PATCH] ResourceCollectionVariableMap for defining custom variable
 spaces in SCL

refs #7257

Change-Id: Ia523efed9fbcb9248e65938c790b347e6ad3a41a
---
 .../ResourceCollectionVariableMap.java        | 49 +++++++++++++++++++
 .../scl/Simantics/Variables.scl               |  4 ++
 2 files changed, 53 insertions(+)
 create mode 100644 bundles/org.simantics.db.layer0/src/org/simantics/db/layer0/variable/ResourceCollectionVariableMap.java

diff --git a/bundles/org.simantics.db.layer0/src/org/simantics/db/layer0/variable/ResourceCollectionVariableMap.java b/bundles/org.simantics.db.layer0/src/org/simantics/db/layer0/variable/ResourceCollectionVariableMap.java
new file mode 100644
index 000000000..9f0326831
--- /dev/null
+++ b/bundles/org.simantics.db.layer0/src/org/simantics/db/layer0/variable/ResourceCollectionVariableMap.java
@@ -0,0 +1,49 @@
+/*******************************************************************************
+ * Copyright (c) 2017 Association for Decentralized Information Management in
+ * Industry THTH ry.
+ * All rights reserved. This program and the accompanying materials
+ * are made available under the terms of the Eclipse Public License v1.0
+ * which accompanies this distribution, and is available at
+ * http://www.eclipse.org/legal/epl-v10.html
+ *
+ * Contributors:
+ *     Semantum Oy - initial API and implementation
+ *******************************************************************************/
+package org.simantics.db.layer0.variable;
+
+import java.util.Collection;
+import java.util.HashMap;
+import java.util.Map;
+
+import org.simantics.db.ReadGraph;
+import org.simantics.db.Resource;
+import org.simantics.db.exception.DatabaseException;
+
+/**
+ * Used for defining custom variable spaces in SCL.
+ * See SCL module <code>Simantics/Variables</code> function
+ * <code>createVariableMap :: [Resource] -> VariableMap</code>.
+ *
+ * @author Antti Villberg
+ * @since 1.29.0
+ */
+public class ResourceCollectionVariableMap extends VariableMapImpl {
+
+	final private Collection<Resource> resources;
+
+	public ResourceCollectionVariableMap(Collection<Resource> resources) {
+		this.resources = resources;
+	}
+
+	@Override
+	public Map<String, Variable> getVariables(ReadGraph graph, Variable context, Map<String, Variable> map)
+			throws DatabaseException {
+		for(Resource resource : resources) {
+			if(map == null) map = new HashMap<>();
+			Variable child = new StandardGraphChildVariable(context, null, resource);
+			map.put(child.getName(graph), child);
+		}
+		return map;
+	}
+
+}
diff --git a/bundles/org.simantics.scl.db/scl/Simantics/Variables.scl b/bundles/org.simantics.scl.db/scl/Simantics/Variables.scl
index 1def7102c..a8ffd13db 100644
--- a/bundles/org.simantics.scl.db/scl/Simantics/Variables.scl
+++ b/bundles/org.simantics.scl.db/scl/Simantics/Variables.scl
@@ -90,6 +90,10 @@ importJava "org.simantics.db.layer0.function.All" where
 importJava "org.simantics.db.layer0.variable.VariableMap" where
     data VariableMap
 
+importJava "org.simantics.db.layer0.variable.ResourceCollectionVariableMap" where
+    @JavaName "<init>"
+    createVariableMap :: [Resource] -> VariableMap
+
 importJava "org.simantics.db.layer0.variable.ValueAccessor" where
     data ValueAccessor
 
-- 
2.43.2