org.simantics.r.scl/src/org/simantics/r/scl/variable/RGlobalVariableNode.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.scl.variable;\r
  13 \r
  14 import org.rosuda.REngine.REXP;\r
  15 \r
  16 public class RGlobalVariableNode implements RVariableNode {\r
  17         private RNodeManager manager;\r
  18         private REXP expression;\r
  19         private String name;\r
  20         \r
  21         public RGlobalVariableNode(RNodeManager manager, String name) {\r
  22                 super();\r
  23                 \r
  24                 this.manager = manager;\r
  25                 this.name = name;\r
  26                 this.expression = null;\r
  27         }\r
  28 \r
  29         public RGlobalVariableNode(RNodeManager manager, String name, REXP expression) {\r
  30                 super();\r
  31                 \r
  32                 this.manager = manager;\r
  33                 this.name = name;\r
  34                 this.expression = expression;\r
  35         }\r
  36 \r
  37         @Override\r
  38         public REXP getValue() {\r
  39                 if (expression == null)\r
  40                         expression = manager.getGlobalValue(name); \r
  41                 return expression;\r
  42         }\r
  43 \r
  44         @Override\r
  45         public String getName() {\r
  46                 return name;\r
  47         }\r
  48 \r
  49         @Override\r
  50         public RVariableNode getParent() {\r
  51                 return manager;\r
  52         }\r
  53 }\r