org.simantics.r/src/org/simantics/r/RVariableBuilder.java

   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
   8  *\r
   9  * Contributors:\r
  10  *     VTT Technical Research Centre of Finland - initial API and implementation\r
  11  *******************************************************************************/\r
  12 package org.simantics.r;\r
  13 \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
  29 \r
  30 public class RVariableBuilder implements VariableBuilder {\r
  31 \r
  32     @Override\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
  45             try {\r
  46                 session = RSessionManager.getOrCreateSession(configuration, name);\r
  47             } catch (RserveException e) {\r
  48                 throw new DatabaseException(e);\r
  49             }\r
  50         }\r
  51         \r
  52         NodeManager<RVariableNode> nodeManager = session.getNodeManager();\r
  53         return new StandardGraphChildVariable(parent, new VariableNode(nodeManager, /*node=*/nodeManager), child);\r
  54     }\r
  55 \r
  56     @Override\r
  57     public Variable buildProperty(ReadGraph graph, Variable parent, VariableNode node, Resource subject, Resource predicate) throws DatabaseException {\r
  58         throw new UnsupportedOperationException();\r
  59     }\r
  60 \r
  61 }\r