bundles/org.simantics.db.layer0/src/org/simantics/db/layer0/scl/CompileResourceValueRequest.java

   1 package org.simantics.db.layer0.scl;
   2
   3 import org.simantics.databoard.Bindings;
   4 import org.simantics.db.ReadGraph;
   5 import org.simantics.db.Resource;
   6 import org.simantics.db.common.procedure.adapter.TransientCacheListener;
   7 import org.simantics.db.common.request.IndexRoot;
   8 import org.simantics.db.exception.DatabaseException;
   9 import org.simantics.db.layer0.scl.CompileResourceValueRequest.CompilationContext;
  10 import org.simantics.db.layer0.util.RuntimeEnvironmentRequest;
  11 import org.simantics.layer0.Layer0;
  12 import org.simantics.scl.compiler.elaboration.expressions.EVariable;
  13 import org.simantics.scl.compiler.elaboration.expressions.Expression;
  14 import org.simantics.scl.compiler.environment.Environments;
  15 import org.simantics.scl.compiler.runtime.RuntimeEnvironment;
  16 import org.simantics.scl.compiler.top.SCLExpressionCompilationException;
  17 import org.simantics.scl.compiler.types.Type;
  18 import org.simantics.scl.runtime.SCLContext;
  19 import org.simantics.scl.runtime.function.Function1;
  20
  21 /**
  22  * Compiles an SCL expression that is attached to a literal
  23  * whose parent is a component that is a part of a component type.
  24  *
  25  * @author Antti Villberg
  26  */
  27 public class CompileResourceValueRequest extends AbstractExpressionCompilationRequest<CompilationContext, Object> {
  28
  29     public static class CompilationContext extends AbstractExpressionCompilationContext {
  30         public CompilationContext(RuntimeEnvironment runtimeEnvironment) {
  31             super(runtimeEnvironment);
  32         }
  33     }
  34
  35     protected final Resource literal;
  36
  37     public CompileResourceValueRequest(Resource literal) {
  38         this.literal = literal;
  39     }
  40
  41     public static Object compileAndEvaluate(ReadGraph graph, Resource literal) throws DatabaseException {
  42         SCLContext sclContext = SCLContext.getCurrent();
  43         Object oldGraph = sclContext.get("graph");
  44         try {
  45             Function1<Object,Object> exp = graph.syncRequest(new CompileResourceValueRequest(literal),
  46                     TransientCacheListener.instance());
  47             sclContext.put("graph", graph);
  48             return exp.apply(literal);
  49         } catch (DatabaseException e) {
  50             throw (DatabaseException)e;
  51         } catch (Throwable t) {
  52             throw new DatabaseException(t);
  53         } finally {
  54             sclContext.put("graph", oldGraph);
  55         }
  56     }
  57
  58     public static Function1<Object,Object> compile(ReadGraph graph, Resource literal) throws DatabaseException {
  59         return graph.syncRequest(new CompileResourceValueRequest(literal), TransientCacheListener.instance());
  60     }
  61
  62     @Override
  63     protected String getExpressionText(ReadGraph graph)
  64             throws DatabaseException {
  65         Layer0 L0 = Layer0.getInstance(graph);
  66         return graph.getRelatedValue(literal, L0.SCLValue_expression, Bindings.STRING);
  67     }
  68
  69     protected Resource getIndexRoot(ReadGraph graph) throws DatabaseException {
  70         return graph.syncRequest(new IndexRoot(literal));
  71     }
  72
  73     @Override
  74     protected Type getExpectedType(ReadGraph graph, CompilationContext context)
  75             throws DatabaseException {
  76         Layer0 L0 = Layer0.getInstance(graph);
  77         String valueType = graph.getPossibleRelatedValue(literal, L0.HasValueType, Bindings.STRING);
  78         if(valueType != null) {
  79             try {
  80                 return Environments.getType(context.runtimeEnvironment.getEnvironment(), valueType);
  81             } catch (SCLExpressionCompilationException e) {
  82                 e.printStackTrace();
  83             }
  84         }
  85         return super.getExpectedType(graph, context);
  86     }
  87
  88     @Override
  89     protected CompilationContext getCompilationContext(ReadGraph graph)
  90             throws DatabaseException {
  91         Resource indexRoot = getIndexRoot(graph);
  92         RuntimeEnvironment runtimeEnvironment = graph.syncRequest(new RuntimeEnvironmentRequest(indexRoot));
  93         return new CompilationContext(runtimeEnvironment);
  94     }
  95
  96     @Override
  97     protected Type getContextVariableType() {
  98         return RESOURCE;
  99     }
 100
 101     @Override
 102     protected Expression getVariableAccessExpression(
 103             ReadGraph graph,
 104             CompilationContext context,
 105             org.simantics.scl.compiler.elaboration.expressions.Variable contextVariable,
 106             String name) throws DatabaseException {
 107         if(name.equals("self"))
 108             return new EVariable(contextVariable);
 109         else
 110             return null;
 111     }
 112
 113 }