// (C) Uri Wilensky. https://github.com/NetLogo/NetLogo
package org.nlogo.prim;
import org.nlogo.agent.Agent;
import org.nlogo.agent.AgentSet;
import org.nlogo.api.Dump;
import org.nlogo.api.I18N;
import org.nlogo.api.LogoException;
import org.nlogo.api.Syntax;
import org.nlogo.nvm.Context;
import org.nlogo.nvm.EngineException;
import org.nlogo.nvm.Reporter;
public final strictfp class _countotherwith
extends Reporter {
@Override
public Syntax syntax() {
return Syntax.reporterSyntax
(new int[]{Syntax.AgentsetType(), Syntax.BooleanBlockType()},
Syntax.NumberType(), "-TPL",
"?"); // takes reporter block of unknown agent type
}
@Override
public Object report(Context context) throws LogoException {
return report_1(context, argEvalAgentSet(context, 0), args[1]);
}
public double report_1(Context context, AgentSet sourceSet, Reporter reporterBlock)
throws LogoException {
Context freshContext = new Context(context, sourceSet);
int result = 0;
reporterBlock.checkAgentSetClass(sourceSet, context);
for (AgentSet.Iterator iter = sourceSet.iterator(); iter.hasNext();) {
Agent tester = iter.next();
if (tester == context.agent) {
continue;
}
Object value = freshContext.evaluateReporter(tester, reporterBlock);
if (!(value instanceof Boolean)) {
throw new EngineException
(context, this, I18N.errorsJ().getN("org.nlogo.prim.$common.expectedBooleanValue",
displayName(), Dump.logoObject(tester), Dump.logoObject(value)));
}
if (((Boolean) value).booleanValue()) {
result++;
}
}
return result;
}
}