moonsharp-devs.moonsharp/src/MoonSharp/Program.cs

using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Reflection;
using System.Text;
using MoonSharp.Interpreter;
using MoonSharp.Interpreter.Execution;
using MoonSharp.RemoteDebugger;
using MoonSharp.RemoteDebugger.Network;

namespace MoonSharp
{
	class Program
	{
		static DynValue Print(ScriptExecutionContext executionContext, CallbackArguments values)
		{
			string prn = string.Join(" ", values.GetArray().Where(v => v.IsNotVoid()).Select(v => v.ToPrintString()).ToArray());
			Console.WriteLine("{0}", prn);
			return DynValue.Nil;
		}

		static DynValue Read(ScriptExecutionContext executionContext, CallbackArguments values)
		{
			double d = double.Parse(Console.ReadLine());
			return DynValue.NewNumber(d);
		}

		static StringBuilder g_TreeDump = new StringBuilder();

		[STAThread]
		static void Main(string[] args)
		{
			Console.WriteLine("Moon# {0}\nCopyright (C) 2014 Marco Mastropaolo\nhttp://www.moonsharp.org",
				Assembly.GetAssembly(typeof(Script)).GetName().Version);

			Console.WriteLine("Based on Lua 5.1 - 5.3, Copyright (C) 1994-2014 Lua.org");

			Console.WriteLine();

			if (args.Length == 1)
			{
				Script script = new Script();

				script.Globals.Set("print", DynValue.NewCallback(new CallbackFunction(Print)));

				script.DoFile(args[0]);

				Console.WriteLine("Done.");
				
				if (System.Diagnostics.Debugger.IsAttached)
					Console.ReadKey();
			}
			else
			{
				Console.WriteLine("Type <enter> twice to execute code.\n");

				Script script = new Script();

				script.Globals.Set("print", DynValue.NewCallback(new CallbackFunction(Print)));

				string cmd = "";

				while (true)
				{
					Console.Write("{0}> ", string.IsNullOrEmpty(cmd) ? "" : ">");
					string s = Console.ReadLine();

					if (s.StartsWith("!"))
					{
						ParseCommand(script, s.Substring(1));
						continue;
					}

					if (s != "")
					{
						cmd += s + "\n";
						continue;
					}

					if (cmd.Length == 0)
						continue;

					//Console.WriteLine("=====");
					//Console.WriteLine("{0}", cmd);
					//Console.WriteLine("=====");

					if (cmd == "exit")
						return;

					try
					{
						var v = script.LoadString(cmd, null, "stdin");

						Console.WriteLine("={0}", script.Call(v));
					}
					catch (ScriptRuntimeException ex)
					{
						Console.WriteLine("{0}", ex.DecoratedMessage);
					}
					catch (Exception ex)
					{
						Console.WriteLine("{0}", ex.Message);
					}

					cmd = "";

				}




			}
		}

		static Utf8TcpServer m_Server;
		static HttpServer m_Http;
		static DebugServer m_DbgS;

		private static void ParseCommand(Script S, string p)
		{
			if (p == "net")
			{
				m_Server = new Utf8TcpServer(1912, 8 << 20, '\n', Utf8TcpServerOptions.SingleClientOnly);
				m_Server.DataReceived += m_Server_DataReceivedAny;
				m_Server.Start();
			}
			if (p == "http")
			{
				m_Http = new HttpServer(1994, Utf8TcpServerOptions.Default);
				m_Http.RegisterResource("/", HttpResource.CreateText(HttpResourceType.PlainText, "Hello, world!\n"));
				m_Http.RegisterResource("/1.png", HttpResource.CreateBinary(HttpResourceType.Png, File.ReadAllBytes(@"c:\temp\1.png")));
				m_Http.Authenticator = (usr, pwd) => usr == pwd;
				m_Http.Start();
			}
			if (p == "dbg")
			{
				m_DbgS = new DebugServer("MoonSharp REPL interpreter", S, 20001, false);
				S.AttachDebugger(m_DbgS);
			}
		}

		static void m_Server_DataReceivedAny(object sender, Utf8TcpPeerEventArgs e)
		{
			Console.WriteLine("RCVD: {0}", e.Message);
			e.Peer.Send(e.Message.ToUpper());
		}


	}
}