25'ten fazla konu seçemezsiniz
Konular bir harf veya rakamla başlamalı, kısa çizgiler ('-') içerebilir ve en fazla 35 karakter uzunluğunda olabilir.
41 satır
1.0 KiB
41 satır
1.0 KiB
using System;
|
|
using System.IO;
|
|
|
|
namespace SuperBASIC
|
|
{
|
|
class Program
|
|
{
|
|
static void Main(string[] args)
|
|
{
|
|
try
|
|
{
|
|
Library lib = new Library();
|
|
#if MEMORY
|
|
lib.AddFunction(new Functions.MemoryLoad(), 1, "MEMLOAD");
|
|
lib.AddFunction(new Functions.MemoryStore(), 2, "MEMSTORE");
|
|
#endif
|
|
lib.AddFunction(new Functions.Print(), 1, "PRINT");
|
|
lib.AddFunction(new Functions.Multiply(), 2, "MULTIPLY");
|
|
lib.AddFunction(new Functions.Add(), 2, "ADD");
|
|
lib.AddFunction(new Functions.Compare(), 2, "COMPARE");
|
|
lib.AddFunction(new Functions.JumpZero(), 2, "JZ");
|
|
lib.AddFunction(new Functions.Goto(), 1, "GOTO");
|
|
lib.AddFunction(new Functions.Pi(), 0, "PI");
|
|
lib.AddFunction(new Functions.Euler(), 0, "EULER");
|
|
Runtime r = new Runtime(lib);
|
|
if (args.Length <= 1)
|
|
{
|
|
r.OpenFile(Directory.GetCurrentDirectory() + "\\Test.basic");
|
|
}
|
|
else
|
|
{
|
|
r.OpenFile(args[1]);
|
|
}
|
|
r.Run();
|
|
} catch (Parser.ParseException e)
|
|
{
|
|
Console.WriteLine($"Parsing failed:\n{e}");
|
|
}
|
|
}
|
|
}
|
|
}
|