protected override bool BeforeEachCycleAction(Environment env)
{
WhileTestWord.Execute(env);
if (env.IsExitMode)
{
return(false);
}
return(BoolType.IsTrue(env.DataStack.Pop()));
}
private void executeBranch(Environment env)
{
if (BoolType.IsTrue(env.DataStack.Pop()))
{
TrueBranchWord.Execute(env);
}
else
{
FalseBranchWord.Execute(env);
}
}
private void executeOf(Environment env)
{
int ofParam = env.DataStack.Pop(), caseParam = env.DataStack.Peek();
if (ofParam == caseParam)
{
env.DataStack.Pop();
OfBodyWord.Execute(env);
if (env.IsExitMode)
{
return;
}
env.ActiveExitWordName = "leave-case";
}
}