1 /*******************************************************************************
\r
2 * Copyright (c) 2014, 2016 Association for Decentralized Information Management
\r
3 * in Industry THTH ry.
\r
4 * All rights reserved. This program and the accompanying materials
\r
5 * are made available under the terms of the Eclipse Public License v1.0
\r
6 * which accompanies this distribution, and is available at
\r
7 * http://www.eclipse.org/legal/epl-v10.html
\r
10 * VTT Technical Research Centre of Finland - initial API and implementation
\r
11 *******************************************************************************/
\r
12 package org.simantics.r;
\r
14 import org.rosuda.REngine.Rserve.RserveException;
\r
15 import org.simantics.databoard.Bindings;
\r
16 import org.simantics.db.ReadGraph;
\r
17 import org.simantics.db.Resource;
\r
18 import org.simantics.db.exception.DatabaseException;
\r
19 import org.simantics.db.layer0.variable.StandardGraphChildVariable;
\r
20 import org.simantics.db.layer0.variable.Variable;
\r
21 import org.simantics.db.layer0.variable.VariableBuilder;
\r
22 import org.simantics.db.layer0.variable.VariableNode;
\r
23 import org.simantics.layer0.Layer0;
\r
24 import org.simantics.r.scl.RSession;
\r
25 import org.simantics.r.scl.RSessionConfiguration;
\r
26 import org.simantics.r.scl.RSessionManager;
\r
27 import org.simantics.r.scl.variable.RVariableNode;
\r
28 import org.simantics.simulator.variable.NodeManager;
\r
30 public class RVariableBuilder implements VariableBuilder {
\r
33 public Variable buildChild(ReadGraph graph, Variable parent, VariableNode node, Resource child) throws DatabaseException {
\r
34 Layer0 L0 = Layer0.getInstance(graph);
\r
35 RResource R = RResource.getInstance(graph);
\r
36 String name = graph.getRelatedValue(child, L0.HasName, Bindings.STRING);
\r
37 RSession session = RSessionManager.getSession(name);
\r
38 if(session == null) {
\r
39 Resource conf = graph.getSingleObject(child, L0.PartOf);
\r
40 RSessionConfiguration configuration = new RSessionConfiguration(
\r
41 graph.<String>getRelatedValue(conf, R.SessionConfiguration_host, Bindings.STRING),
\r
42 graph.<Integer>getRelatedValue(conf, R.SessionConfiguration_port, Bindings.INTEGER),
\r
43 graph.<String>getRelatedValue(conf, R.SessionConfiguration_username, Bindings.STRING),
\r
44 graph.<String>getRelatedValue(conf, R.SessionConfiguration_password, Bindings.STRING));
\r
46 session = RSessionManager.getOrCreateSession(configuration, name);
\r
47 } catch (RserveException e) {
\r
48 throw new DatabaseException(e);
\r
52 NodeManager<RVariableNode> nodeManager = session.getNodeManager();
\r
53 return new StandardGraphChildVariable(parent, new VariableNode(nodeManager, /*node=*/nodeManager), child);
\r
57 public Variable buildProperty(ReadGraph graph, Variable parent, VariableNode node, Resource subject, Resource predicate) throws DatabaseException {
\r
58 throw new UnsupportedOperationException();
\r