1 package org.simantics.scl.compiler.elaboration.expressions.block;
3 import org.simantics.scl.compiler.elaboration.chr.CHRRuleset;
4 import org.simantics.scl.compiler.elaboration.contexts.EnvironmentalContext;
5 import org.simantics.scl.compiler.elaboration.contexts.TranslationContext;
6 import org.simantics.scl.compiler.elaboration.expressions.Expression;
7 import org.simantics.scl.compiler.errors.Locations;
8 import org.simantics.scl.compiler.internal.codegen.references.IVal;
9 import org.simantics.scl.compiler.internal.codegen.references.Val;
10 import org.simantics.scl.compiler.internal.codegen.references.ValRef;
11 import org.simantics.scl.compiler.internal.codegen.ssa.SSAFunction;
12 import org.simantics.scl.compiler.internal.codegen.ssa.binders.ValRefBinder;
13 import org.simantics.scl.compiler.internal.parsing.Token;
14 import org.simantics.scl.compiler.types.Type;
16 public class IncludeStatement extends Statement implements ValRefBinder {
18 public Expression value;
20 public CHRRuleset ruleset;
23 public IncludeStatement(Token name, Expression value) {
29 public void setLocationDeep(long loc) {
30 if(location == Locations.NO_LOCATION) {
32 value.setLocationDeep(loc);
37 public StatementGroup getStatementGroup() {
38 return StatementGroup.CHR;
42 public Expression toExpression(EnvironmentalContext context, boolean monadic, Expression in) {
43 throw new UnsupportedOperationException();
47 public void resolvePattern(TranslationContext context) {
48 throw new UnsupportedOperationException();
52 public boolean mayBeRecursive() {
57 public void accept(StatementVisitor visitor) {
62 public SSAFunction getParentFunction() {
63 // TODO Auto-generated method stub
68 public void replaceByApply(ValRef valRef, Val function, Type[] typeParameters, Val[] parameters2) {
69 throw new UnsupportedOperationException();