本文整理汇总了C#中SimpleForth.Forth类的典型用法代码示例。如果您正苦于以下问题：C# Forth类的具体用法？C# Forth怎么用？C# Forth使用的例子？那么恭喜您, 这里精选的类代码示例或许可以为您提供帮助。
Forth类属于SimpleForth命名空间，在下文中一共展示了Forth类的15个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的C#代码示例。
示例1: Main
static void Main(string[] args)
{
try
{
#if false
using (MemoryBlock mb = new MemoryBlock((UIntPtr)0x20000))
{
Console.WriteLine("Is64Bit = " + MemoryBlock.Is64Bit);
Console.WriteLine("mb.Location = " + mb.Location);
Console.WriteLine("mb.Size = " + mb.Size);
Marshal.WriteByte(mb.Location, (byte)32);
byte b = Marshal.ReadByte(mb.Location);
System.Diagnostics.Debug.Assert(b == (byte)32);
mb.Security = MemoryBlockSecurity.ReadOnly;
byte b2 = Marshal.ReadByte(mb.Location);
Marshal.WriteByte(mb.Location, (byte)64);
}
#endif
Console.SetBufferSize(120, 60);
Console.SetWindowSize(120, 60);
Console.WriteLine("Sunlit World Forth in C#");
Console.WriteLine("Copyright (c) 2007 by Edward Kiser");
Console.WriteLine("All Rights Reserved");
if (MemoryBlock.Is64Bit) Console.WriteLine("[Running in 64-bit Mode]");
using (MemoryBlock mb = new MemoryBlock((UIntPtr)0x20000))
{
mb.Security = MemoryBlockSecurity.ExecuteReadWrite;
Forth f = new Forth();
f.ByteMemory = new MemoryAccessor(mb.Location, mb.Size);
f.LoadX86Asm();
bool done = false;
f.Execute("also forth definitions previous");
f.Define("bye", delegate(Forth g) { done = true; });
f.Execute("vocabulary user also user definitions");
while (!done)
{
if (f.IsCompiling) Console.WriteLine("ok (compiling)"); else Console.WriteLine("ok");
string x = Console.ReadLine();
f.Execute(x);
}
}
}
catch (Exception exc)
{
Console.WriteLine();
Console.WriteLine("***** Exception! *****");
Console.WriteLine();
Console.WriteLine(exc);
}
Console.WriteLine("Press a key...");
Console.ReadKey();
}示例2: Hex
public static void Hex(Forth f)
{
f.numericBase = 16;
}示例3: Run
public void Run(Forth f)
{
f.rStack.Push(0);
while(true)
{
int pos = f.rStack.Pop();
if (pos < 0 || pos >= components.Count) break;
int posNext = pos + 1;
f.rStack.Push(posNext);
components[pos](f);
}
}示例4: Allot
public static void Allot(Forth f)
{
long amt = f.PopInt64();
if (amt > (long)(f.memory.Length - f.here)) throw new ArgumentOutOfRangeException("Attempt to allot more memory than is available");
f.here += (int)amt;
}示例5: Comma
public static void Comma(Forth f)
{
object v = f.dStack.Pop();
f.memory[f.here] = v;
f.here++;
}示例6: Bang
public static void Bang(Forth f)
{
long index = f.PopInt64();
object v = f.dStack.Pop();
f.memory[(int)index] = v;
}示例7: Unused
public static void Unused(Forth f)
{
f.PushInt64((long)(f.memory.Length - f.here));
}示例8: IsExecutionToken
public static void IsExecutionToken(Forth f)
{
bool b = (f.dStack.Top is ExecutionToken);
f.dStack.Pop();
f.PushBool(b);
}示例9: Not
public static void Not(Forth f)
{
bool b = f.PopBool();
f.PushBool(!b);
}示例10: IsNotLessThanUnsigned
public static void IsNotLessThanUnsigned(Forth f)
{
ulong b = f.PopUInt64();
ulong a = f.PopUInt64();
f.PushBool(a >= b);
}示例11: IsNotGreaterThanUnsigned
public static void IsNotGreaterThanUnsigned(Forth f)
{
ulong b = f.PopUInt64();
ulong a = f.PopUInt64();
f.PushBool(a <= b);
}示例12: IsNotLessThan
public static void IsNotLessThan(Forth f)
{
long b = f.PopInt64();
long a = f.PopInt64();
f.PushBool(a >= b);
}示例13: IsNotGreaterThan
public static void IsNotGreaterThan(Forth f)
{
long b = f.PopInt64();
long a = f.PopInt64();
f.PushBool(a <= b);
}示例14: DoesNotEqual
public static void DoesNotEqual(Forth f)
{
ulong b = f.PopUInt64();
ulong a = f.PopUInt64();
f.PushBool(a != b);
}示例15: Equals
public static void Equals(Forth f)
{
ulong b = f.PopUInt64();
ulong a = f.PopUInt64();
f.PushBool(a == b);
}