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;
}
