public static void Main(string[] args)
{
var evaluator = new Evaluator(new Parser(new Tokenizer()), new Environment(), Console.Out, Console.In);
var prettyPrinter = new PrettyPrinter();
Console.Out.WriteLine("End you statements with <Enter> <Ctrl-Z> <Enter>. Quit with <Ctrl-C>.");
while (true)
{
Console.Out.WriteLine();
Console.Out.Write("yalla> ");
var input = Console.In.ReadToEnd();
Console.Out.Write("=> ");
try
{
var result = prettyPrinter.PrettyPrint(evaluator.Evaluate(input));
Console.Out.Write(result);
}
catch (Exception ex)
{
Console.Out.WriteLine("Unhandled exception: " + ex.GetType().ToString());
Console.Out.WriteLine("Content:");
Console.Out.WriteLine(ex.Message);
}
Console.Out.WriteLine();
}
}
public void Setup()
{
Parser = new Yalla.Parser.Parser(new Yalla.Tokenizer.Tokenizer());
StdOut = new StringWriter();
Evaluator = new Yalla.Evaluator.Evaluator(Parser, new Environment(), StdOut, StdIn);
}
public void Run()
{
var evaluator = new Evaluator(new Parser(new Tokenizer()), new Environment(), stdOut, null);
var prettyPrinter = new PrettyPrinter();
evaluator.Evaluate("(defun parse-swank-listener-eval (msg)" +
" (let ((form-str (assoc 'swank:listener-eval (assoc ':emacs-rex msg))))" +
" (eval form-str)))");
// wireshark filter: tcp.port eq 4005 and data
try
{
while(true)
{
var countChars = new char[6];
int c = reader.ReadBlock(countChars, 0, 6);
if (c == 6)
{
int count = int.Parse(new string(countChars), NumberStyles.HexNumber);
var buffer = new char[count];
reader.ReadBlock(buffer, 0, count);
var sbuf = new String(buffer);
messageCounter++;
if (sbuf.Contains("swank:connection-info"))
{
var message1 = CreateMessage("(:indentation-update ((\"tommy\" . 1)))");
writer.Write(message1);
var message = CreateMessage("(:return (:ok (:pid \"2229\" :style :spawn " +
" :lisp-implementation (:type \"Yalla\" :name \"yalla\" :version \"0.1.0\") " +
" :package (:name \"yalla.user\" :prompt \"yalla.user\") " +
" :version \"20xx\")) 1)");
writer.Write(message);
writer.Flush();
Console.Out.WriteLine("Connection info sent!");
}
else if (sbuf.Contains("swank:create-repl"))
{
var message = CreateMessage("(:return (:ok (\"yalla.user\" \"yalla.user\")) 2)");
writer.Write(message);
writer.Flush();
Console.Out.WriteLine("Creating REPL!");
}
else if (sbuf.Contains("swank:operator-arglist"))
{
SwankReturn();
}
else if (sbuf.Contains("swank:listener-eval"))
{
try
{
var evalStr = "(parse-swank-listener-eval '" + sbuf + ")";
var result = evaluator.Evaluate(evalStr);
var returnString = prettyPrinter.EscapeString(prettyPrinter.PrettyPrint(result));
stdOut.Flush();
SwankWriteResult(returnString);
}
catch (Exception e)
{
var inner = GetInnerMostException(e);
SwankWrite(inner.Message);
}
SwankReturn();
}
}
else
{
throw new ArgumentOutOfRangeException("wtf?");
}
}
}
catch (Exception)
{
Console.Out.WriteLine("Disconnected");
}
}
public void Setup()
{
Evaluator = new Yalla.Evaluator.Evaluator(new Yalla.Parser.Parser(new Yalla.Tokenizer.Tokenizer()), new Environment(), null, null);
}
public BackquoteExpander(Evaluator evaluator)
{
this.evaluator = evaluator;
}
public Applier(Evaluator evaluator)
{
this.evaluator = evaluator;
}