@Override
public void visit(Variable node) {
if (node.isFresh()) {
if (current == right && !inCondition) {
Integer i = fresh.get(node);
if (i == null) i = new Integer(1);
else i = new Integer(i.intValue());
fresh.put(node, i);
return;
}
// nodes are ok to be found in rhs
GlobalSettings.kem.register(
new KException(
KException.ExceptionType.ERROR,
KException.KExceptionGroup.COMPILER,
"Fresh variable \"" + node + "\" is bound in the " + "rule pattern.",
getName(),
node.getFilename(),
node.getLocation()));
}
// System.out.println("Variable: " + node);
Integer i = current.remove(node);
if (i == null) {
i = new Integer(1);
} else {
i = new Integer(i.intValue() + 1);
}
current.put(node, i);
}
@Override
public void visit(Sentence node) {
inCondition = false;
left.clear();
right.clear();
fresh.clear();
current = left;
node.getBody().accept(this);
if (node.getRequires() != null) {
current = right;
inCondition = true;
node.getRequires().accept(this);
}
// TODO: add checks for Ensures, too.
for (Variable v : right.keySet()) {
if (MetaK.isAnonVar(v) && !v.isFresh()) {
GlobalSettings.kem.register(
new KException(
KException.ExceptionType.ERROR,
KException.KExceptionGroup.COMPILER,
"Anonymous variable found in the right hand side of a rewrite.",
getName(),
v.getFilename(),
v.getLocation()));
}
if (!left.containsKey(v)) {
node.addAttribute(UNBOUNDED_VARS, "");
/* matching logic relaxes this restriction */
if (!GlobalSettings.javaBackend) {
GlobalSettings.kem.register(
new KException(
KException.ExceptionType.ERROR,
KException.KExceptionGroup.COMPILER,
"Unbounded Variable " + v.toString() + ".",
getName(),
v.getFilename(),
v.getLocation()));
} else {
GlobalSettings.kem.register(
new KException(
KException.ExceptionType.WARNING,
KException.KExceptionGroup.COMPILER,
"Unbounded Variable " + v.toString() + ".",
getName(),
v.getFilename(),
v.getLocation()));
}
}
}
for (Map.Entry<Variable, Integer> e : left.entrySet()) {
final Variable key = e.getKey();
if (fresh.containsKey(key)) {
GlobalSettings.kem.register(
new KException(
KException.ExceptionType.ERROR,
KException.KExceptionGroup.COMPILER,
"Variable " + key + " has the same name as a fresh " + "variable.",
getName(),
key.getFilename(),
key.getLocation()));
}
if (MetaK.isAnonVar(key)) continue;
if (e.getValue().intValue() > 1) continue;
if (!right.containsKey(key)) {
GlobalSettings.kem.register(
new KException(
KException.ExceptionType.HIDDENWARNING,
KException.KExceptionGroup.COMPILER,
"Singleton variable "
+ key.toString()
+ ".\n"
+ " If this is not a spelling mistake, please consider using anonymous variables.",
getName(),
key.getFilename(),
key.getLocation()));
}
}
}