import org.simantics.scl.compiler.elaboration.chr.ast.CHRQueryTranslationMode;
import org.simantics.scl.compiler.elaboration.chr.translation.CHRTranslation;
import org.simantics.scl.compiler.elaboration.contexts.TranslationContext;
+import org.simantics.scl.compiler.elaboration.expressions.block.BlockType;
import org.simantics.scl.compiler.elaboration.expressions.block.CHRStatement;
import org.simantics.scl.compiler.elaboration.expressions.block.ConstraintStatement;
import org.simantics.scl.compiler.elaboration.expressions.block.GuardStatement;
public class EBlock extends ASTExpression {
- ArrayList<Statement> statements = new ArrayList<Statement>();
- boolean monadic;
+ public ArrayList<Statement> statements = new ArrayList<Statement>();
+ BlockType blockType = BlockType.Normal;
public EBlock() {
+ this.blockType = blockType;
+ }
+
+ public void setBlockType(BlockType blockType) {
+ this.blockType = blockType;
}
public void addStatement(Statement statement) {
statements.add(statement);
}
- public void setMonadic(boolean monadic) {
- this.monadic = monadic;
- }
-
public ArrayList<Statement> getStatements() {
return statements;
}
Statement cur = statements.get(i);
StatementGroup group = cur.getStatementGroup();
if(group == null)
- in = cur.toExpression(context, monadic, in);
+ in = cur.toExpression(context, blockType, in);
else {
int endId = i+1;
while(i>0 && statements.get(i-1).getStatementGroup() == group)
case Rule:
in = extractRules(i, endId, in);
break;
- case CHR:
- in = new ECHRRuleset(extractCHRRules(context, i, endId), in);
+ case CHR: {
+ CHRRuleset ruleset = extractCHRRules(context, i, endId);
+ long location = Locations.combine(ruleset.location, in.location);
+ in = new ECHRRuleset(ruleset, in);
+ in.location = location;
break;
}
+ }
}
}
return in.resolve(context);
@Override
public int getSyntacticFunctionArity() {
- if(monadic)
+ if(blockType != BlockType.Normal)
return 0;
Statement lastStatement = statements.get(statements.size()-1);
if(!(lastStatement instanceof GuardStatement))