private List<PExp> extractConsequentsFromParameter(ProgParameterSymbol p) {
List<PExp> result = new ArrayList<>();
PExp incParamExp = new PSymbolBuilder(p.asPSymbol()).incoming(true).build();
PExp paramExp = new PSymbolBuilder(p.asPSymbol()).incoming(false).build();
if (p.getDeclaredType() instanceof ProgNamedType) {
ProgNamedType t = (ProgNamedType) p.getDeclaredType();
PExp exemplar = new PSymbolBuilder(t.getExemplarName()).mathClssfctn(t.toMath()).build();
if (t instanceof PTRepresentation) {
ProgReprTypeSymbol repr = ((PTRepresentation) t).getReprTypeSymbol();
PExp convention = repr.getConvention();
PExp corrFnExp = repr.getCorrespondence();
result.add(convention.substitute(t.getExemplarAsPSymbol(), paramExp));
}
if (p.getMode() == ParameterMode.PRESERVES || p.getMode() == ParameterMode.RESTORES) {
PExp equalsExp =
g.formEquals(paramExp, incParamExp)
.withVCInfo(
p.getDefiningTree().getStart(),
"Ensure parameter " + p.getName() + " is restored");
result.add(equalsExp);
} else if (p.getMode() == ParameterMode.CLEARS) {
PExp init =
((ProgNamedType) p.getDeclaredType())
.getInitializationEnsures()
.substitute(exemplar, paramExp);
result.add(init);
}
}
return result;
}
private List<PExp> extractAssumptionsFromParameter(ProgParameterSymbol p) {
List<PExp> resultingAssumptions = new ArrayList<>();
if (p.getDeclaredType() instanceof ProgNamedType) {
// both PTFamily AND PTRepresentation are a PTNamed
ProgNamedType declaredType = (ProgNamedType) p.getDeclaredType();
PExp exemplar = declaredType.getExemplarAsPSymbol();
if (declaredType instanceof ProgFamilyType) {
PExp constraint = ((ProgFamilyType) declaredType).getConstraint();
constraint = constraint.substitute(getSpecializationsForFacility(p.getTypeQualifier()));
resultingAssumptions.add(
constraint.substitute(
declaredType.getExemplarAsPSymbol(),
p.asPSymbol())); // ASSUME TC (type constraint -- since we're conceptual)
} else if (declaredType instanceof PTRepresentation) {
ProgReprTypeSymbol repr = ((PTRepresentation) declaredType).getReprTypeSymbol();
PExp convention = repr.getConvention();
resultingAssumptions.add(
convention.substitute(declaredType.getExemplarAsPSymbol(), p.asPSymbol()));
// ASSUME RC (repr convention -- since we're a repr)
resultingAssumptions.add(repr.getCorrespondence());
}
} else { // PTGeneric
// resultingAssumptions.add(g.formInitializationPredicate(
// p.getDeclaredType(), p.getName()));
}
return resultingAssumptions;
}
private void confirmParameterConsequentsForBlock(
VCAssertiveBlockBuilder block, ProgParameterSymbol p) {
PExp incParamExp = new PSymbolBuilder(p.asPSymbol()).incoming(true).build();
PExp paramExp = new PSymbolBuilder(p.asPSymbol()).incoming(false).build();
if (p.getDeclaredType() instanceof ProgNamedType) {
ProgNamedType t = (ProgNamedType) p.getDeclaredType();
PExp exemplar = new PSymbolBuilder(t.getExemplarName()).mathClssfctn(t.toMath()).build();
if (t instanceof PTRepresentation) {
ProgReprTypeSymbol repr = ((PTRepresentation) t).getReprTypeSymbol();
PExp convention = repr.getConvention();
PExp corrFnExp = repr.getCorrespondence();
// if we're doing this its going to be on a procedure decl or op-proc decl, so just
// say block.definingTree
PExp newConvention =
convention
.substitute(t.getExemplarAsPSymbol(), paramExp)
.withVCInfo(block.definingTree.getStart(), "Convention for " + t.getName());
block.confirm(block.definingTree, newConvention);
}
if (p.getMode() == ParameterMode.PRESERVES || p.getMode() == ParameterMode.RESTORES) {
PExp equalsExp =
g.formEquals(paramExp, incParamExp)
.withVCInfo(
block.definingTree.getStart(),
"Ensure parameter " + p.getName() + " is restored");
block.confirm(block.definingTree, equalsExp);
} else if (p.getMode() == ParameterMode.CLEARS) {
PExp init =
((ProgNamedType) p.getDeclaredType())
.getInitializationEnsures()
.substitute(exemplar, paramExp);
// result.add(init);
}
}
}