示例#1
0
        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
0
 public static void Hex(Forth f)
 {
     f.numericBase = 16;
 }
示例#3
0
 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
0
 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
0
 public static void Comma(Forth f)
 {
     object v = f.dStack.Pop();
     f.memory[f.here] = v;
     f.here++;
 }
示例#6
0
 public static void Bang(Forth f)
 {
     long index = f.PopInt64();
     object v = f.dStack.Pop();
     f.memory[(int)index] = v;
 }
示例#7
0
 public static void Unused(Forth f)
 {
     f.PushInt64((long)(f.memory.Length - f.here));
 }
示例#8
0
 public static void IsExecutionToken(Forth f)
 {
     bool b = (f.dStack.Top is ExecutionToken);
     f.dStack.Pop();
     f.PushBool(b);
 }
示例#9
0
 public static void Not(Forth f)
 {
     bool b = f.PopBool();
     f.PushBool(!b);
 }
示例#10
0
 public static void IsNotLessThanUnsigned(Forth f)
 {
     ulong b = f.PopUInt64();
     ulong a = f.PopUInt64();
     f.PushBool(a >= b);
 }
示例#11
0
 public static void IsNotGreaterThanUnsigned(Forth f)
 {
     ulong b = f.PopUInt64();
     ulong a = f.PopUInt64();
     f.PushBool(a <= b);
 }
示例#12
0
 public static void IsNotLessThan(Forth f)
 {
     long b = f.PopInt64();
     long a = f.PopInt64();
     f.PushBool(a >= b);
 }
示例#13
0
 public static void IsNotGreaterThan(Forth f)
 {
     long b = f.PopInt64();
     long a = f.PopInt64();
     f.PushBool(a <= b);
 }
示例#14
0
 public static void DoesNotEqual(Forth f)
 {
     ulong b = f.PopUInt64();
     ulong a = f.PopUInt64();
     f.PushBool(a != b);
 }
示例#15
0
 public static void Equals(Forth f)
 {
     ulong b = f.PopUInt64();
     ulong a = f.PopUInt64();
     f.PushBool(a == b);
 }
示例#16
0
 public static void IsNull(Forth f)
 {
     bool b = (f.dStack.Top == null);
     f.dStack.Pop();
     f.dStack.Push(b);
 }
示例#17
0
 public static void IsLong(Forth f)
 {
     bool b = (f.dStack.Top is long);
     f.dStack.Pop();
     f.PushBool(b);
 }
示例#18
0
 public static void Dot(Forth f)
 {
     object obj = f.dStack.Pop();
     Console.Write(Convert.ToString(obj));
     Console.Write(" ");
 }
示例#19
0
 public static void Here(Forth f)
 {
     f.PushInt64((long)(f.here));
 }
示例#20
0
 public static void UnsignedDot(Forth f)
 {
     object obj = f.dStack.Pop();
     if (obj is long)
     {
         long l = (long)obj;
         ulong u = unchecked((ulong)l);
         obj = u;
     }
     Console.Write(Convert.ToString(obj));
     Console.Write(" ");
 }
示例#21
0
 public static void At(Forth f)
 {
     long index = f.PopInt64();
     f.dStack.Push(f.memory[(int)index]);
 }
示例#22
0
 public static void DotQuote(Forth f)
 {
     if (f.isCompiling)
     {
         string str = f.getWord('"');
         f.AppendCode
         (
             delegate(Forth g)
             {
                 Console.Write(str);
             }
         );
     }
     else
     {
         string str = f.getWord('"');
         Console.Write(str);
     }
 }
示例#23
0
 public static void Off(Forth f)
 {
     long index = f.PopInt64();
     f.memory[(int)index] = 0L;
 }
示例#24
0
 public static void Backslash(Forth f)
 {
     f.getWord('\n');
 }
示例#25
0
 public static void Create(Forth f)
 {
     string word = f.getWord(' ');
     f.Define(word, MakeLiteralOp((long)f.here));
 }
示例#26
0
 public static void LParen(Forth f)
 {
     f.getWord(')');
 }
示例#27
0
 public static void Variable(Forth f)
 {
     Create(f);
     f.memory[f.here] = null;
     f.here++;
 }
示例#28
0
 public static void Space(Forth f)
 {
     Console.Write(" ");
 }
示例#29
0
 public static void Cr(Forth f)
 {
     Console.WriteLine();
 }
示例#30
0
 public static void Decimal(Forth f)
 {
     f.numericBase = 10;
 }