// (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 _countwith extends Reporter {
@Override
public Syntax syntax() {
return Syntax.reporterSyntax
(new int[]{Syntax.AgentsetType(), Syntax.BooleanBlockType()},
Syntax.NumberType(), "OTPL", "?");
}
@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 block)
throws LogoException {
block.checkAgentSetClass(sourceSet, context);
Context freshContext = new Context(context, sourceSet);
int result = 0;
for (AgentSet.Iterator iter = sourceSet.iterator(); iter.hasNext();) {
Agent tester = iter.next();
Object value = freshContext.evaluateReporter(tester, block);
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;
}
}