}
@Override
public Operation exec(Prolog engine) throws PrologException {
engine.setB0();
Term a1 = arg1.dereference();
Term a2 = arg2.dereference();
Term a3 = arg3.dereference();
Term a4 = arg4.dereference();
if (a1.isVariable()) {
throw new PInstantiationException(this, 1);
}
if (!a1.isSymbol()) {
throw new IllegalTypeException(this, 1, "atom", a1);
}
String label = a1.name();
if (a2.isVariable()) {
throw new PInstantiationException(this, 2);
}
if (!a2.isJavaObject() || !a2.convertible(CurrentUser.class)) {
throw new IllegalTypeException(this, 2, "CurrentUser)", a2);
}
CurrentUser user = (CurrentUser) ((JavaObjectTerm) a2).object();
ChangeControl ctl = StoredValues.CHANGE_CONTROL.get(engine).forUser(user);
PermissionRange range = ctl.getRange(Permission.LABEL + label);
if (range == null) {
return engine.fail();
}
IntegerTerm min = new IntegerTerm(range.getMin());
IntegerTerm max = new IntegerTerm(range.getMax());
if (!a3.unify(min, engine.trail)) {
return engine.fail();
}
if (!a4.unify(max, engine.trail)) {
return engine.fail();
}
return cont;
}