public boolean isUsedWithKeywordInCallStmt(ASTSubroutineParNode parameterNode) {
for (ASTCallStmtNode callStmtNode : getCallSites())
for (ASTSubroutineArgNode argument : callStmtNode.getArgList())
if (argument.getName() != null && parameterNode.getVariableName() != null) {
String argumentName = PhotranVPG.canonicalizeIdentifier(argument.getName().getText());
String parameterName =
PhotranVPG.canonicalizeIdentifier(parameterNode.getVariableName().getText());
if (argumentName.equals(parameterName)) return true;
}
return false;
}
private void permuteCallSites() {
for (ASTCallStmtNode callStmt : getCallSites()) {
int m = 0;
if (callStmt.getArgList() != null) {
m = callStmt.getArgList().size();
}
// 2a
boolean K = false;
// 2b
ArrayList<ASTSubroutineArgNode> L_prime = new ArrayList<ASTSubroutineArgNode>();
// step 2c
for (int i : sigma) {
ASTSubroutineParNode desiredPar = oldParameterList.get(i);
ASTSubroutineArgNode A_i =
getActualArgFromCallStmt(callStmt, desiredPar.getVariableName(), i);
if (i > m) K = true;
// 2cii
if (A_i != null) {
// 2ciiA
if (A_i.getName() != null) K = true;
// 2ciiB
if (K == false || A_i.getName() != null) L_prime.add(A_i);
// 2ciiC
if (K == true && A_i.getName() == null) {
A_i.setName(new Token(Terminal.T_IDENT, desiredPar.getVariableName().getText()));
L_prime.add(A_i);
}
}
}
ASTSeparatedListNode<ASTSubroutineArgNode> newArgList =
new ASTSeparatedListNode<ASTSubroutineArgNode>(
new Token(Terminal.T_COMMA, ","), L_prime); // $NON-NLS-1$
callStmt.setArgList(newArgList);
}
}