@Override
public void exitCallStmt(ResolveParser.CallStmtContext ctx) {
VCRuleBackedStat s = null;
PApply callExp = (PApply) tr.exprASTs.get(ctx.progParamExp());
OperationSymbol op = getOperation(moduleScope, callExp);
if (inSimpleForm(op.getEnsures(), op.getParameters())) {
// TODO: Use log instead!
// gen.getCompiler().info("APPLYING EXPLICIT (SIMPLE) CALL RULE");
s = new VCCall(ctx, assertiveBlocks.peek(), EXPLICIT_CALL_APPLICATION, callExp);
} else {
// TODO: Use log instead!
// gen.getCompiler().info("APPLYING GENERAL CALL RULE");
s = new VCCall(ctx, assertiveBlocks.peek(), GENERAL_CALL_APPLICATION, callExp);
}
stats.put(ctx, s);
}
@Override
public void exitProcedureDecl(ResolveParser.ProcedureDeclContext ctx) {
Scope scope = symtab.getScope(ctx);
List<ProgParameterSymbol> paramSyms = scope.getSymbolsOfType(ProgParameterSymbol.class);
VCAssertiveBlockBuilder block = assertiveBlocks.pop();
List<ProgParameterSymbol> formalParameters = new ArrayList<>();
try {
formalParameters =
scope.query(new SymbolTypeQuery<ProgParameterSymbol>(ProgParameterSymbol.class));
} catch (NoSuchModuleException | UnexpectedSymbolException e) {
e.printStackTrace();
}
List<PExp> corrFnExps =
paramSyms
.stream()
.filter(p -> p.getDeclaredType() instanceof PTRepresentation)
.map(p -> (PTRepresentation) p.getDeclaredType())
.map(p -> p.getReprTypeSymbol().getCorrespondence())
.collect(Collectors.toList());
PExp corrFnExpEnsures =
perParameterCorrFnExpSubstitute(paramSyms, currentProcOpSym.getEnsures())
.withVCInfo(ctx.getStart(), "Ensures clause of " + ctx.name.getText());
// postcondition[params 1..i <-- corr_fn_exp]
List<PExp> paramConsequents = new ArrayList<>();
Utils.apply(formalParameters, paramConsequents, this::extractConsequentsFromParameter);
block
.stats(Utils.collect(VCRuleBackedStat.class, ctx.stmt(), stats))
.assume(corrFnExps)
.confirm(ctx, g.formConjuncts(paramConsequents))
.finalConfirm(corrFnExpEnsures);
outputFile.addAssertiveBlock(block.build());
currentProcOpSym = null;
}
