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[]); }