public static void IsExecutionToken(Forth f)
{
bool b = (f.dStack.Top is ExecutionToken);
f.dStack.Pop();
f.PushBool(b);
}
public static void Not(Forth f)
{
bool b = f.PopBool();
f.PushBool(!b);
}
public static void IsLong(Forth f)
{
bool b = (f.dStack.Top is long);
f.dStack.Pop();
f.PushBool(b);
}
public static void IsNotGreaterThanUnsigned(Forth f)
{
ulong b = f.PopUInt64();
ulong a = f.PopUInt64();
f.PushBool(a <= b);
}
public static void IsNotLessThanUnsigned(Forth f)
{
ulong b = f.PopUInt64();
ulong a = f.PopUInt64();
f.PushBool(a >= b);
}
public static void IsNotGreaterThan(Forth f)
{
long b = f.PopInt64();
long a = f.PopInt64();
f.PushBool(a <= b);
}
public static void IsNotLessThan(Forth f)
{
long b = f.PopInt64();
long a = f.PopInt64();
f.PushBool(a >= b);
}
public static void Equals(Forth f)
{
ulong b = f.PopUInt64();
ulong a = f.PopUInt64();
f.PushBool(a == b);
}
public static void DoesNotEqual(Forth f)
{
ulong b = f.PopUInt64();
ulong a = f.PopUInt64();
f.PushBool(a != b);
}
public static void Within(Forth f)
{
long end = f.PopInt64();
long begin = f.PopInt64();
long mid = f.PopInt64();
f.PushBool(Within(begin, mid, end));
}
public static void False(Forth f)
{
f.PushBool(false);
}
public static void True(Forth f)
{
f.PushBool(true);
}
public static void IsRealMemory(Forth f)
{
object obj = f.dStack.Pop();
f.PushBool(obj is MemoryAccessor);
}
public static void IsBytes(Forth f)
{
object obj = f.dStack.Pop();
f.PushBool(obj is byte[]);
}
