public static ConsNode NewCons(RuntimeStack stack)
{
var resNode = new ConsNode();
resNode.HideFromCallstack = true;
resNode.Stack = stack;
return resNode;
}
public StackFrame(StackFrame previousStackFrame, ConsNode cons)
{
PreviousStackFrame = previousStackFrame;
Cons = cons;
if (previousStackFrame != null)
{
Root = previousStackFrame.Root;
Scope = previousStackFrame.Scope;
}
}
public StackFrame(StackFrame previousStackFrame, ConsNode cons)
{
PreviousStackFrame = previousStackFrame;
Cons = cons;
if (previousStackFrame != null)
{
Root = previousStackFrame.Root;
Scope = previousStackFrame.Scope;
}
}
public Engine()
{
Stack = new RuntimeStack();
Stack.Engine = this;
Parser = new LispParser();
CoreConfigurator.Configure(Stack);
ParseInfo info = SetupParseInfo(Resources.CoreLib.Replace("\r\n", "\n"), "core", true);
ConsNode root = Parser.Parse(info);
root.Eval(Stack.StackFrame);
}
public static void Configure(RuntimeStack stack)
{
//known types
stack.StackFrame.Scope.SetSymbolValue("Form", typeof (Form));
stack.StackFrame.Scope.SetSymbolValue("Button", typeof (Button));
stack.StackFrame.Scope.SetSymbolValue("int", typeof (int));
stack.StackFrame.Scope.SetSymbolValue("big", typeof (BigInteger));
stack.StackFrame.Scope.SetSymbolValue("long", typeof (long));
stack.StackFrame.Scope.SetSymbolValue("bool", typeof (bool));
stack.StackFrame.Scope.SetSymbolValue("string", typeof (string));
stack.StackFrame.Scope.SetSymbolValue("char", typeof (char));
stack.StackFrame.Scope.SetSymbolValue("double", typeof (double));
stack.StackFrame.Scope.SetSymbolValue("float", typeof (float));
stack.StackFrame.Scope.SetSymbolValue("date-time", typeof (DateTime));
stack.StackFrame.Scope.SetSymbolValue("Console", typeof (Console));
//atoms
stack.StackFrame.Scope.SetSymbolValue("null", null);
stack.StackFrame.Scope.SetSymbolValue("true", true);
stack.StackFrame.Scope.SetSymbolValue("false", false);
//functions
stack.StackFrame.Scope.SetSymbolValue("progn", Functions.Progn);
stack.StackFrame.Scope.SetSymbolValue("concat", Functions.Concat);
stack.StackFrame.Scope.SetSymbolValue("format", Functions.Format);
stack.StackFrame.Scope.SetSymbolValue("+", Functions.Add);
stack.StackFrame.Scope.SetSymbolValue("-", Functions.Sub);
stack.StackFrame.Scope.SetSymbolValue("*", Functions.Mul);
stack.StackFrame.Scope.SetSymbolValue("/", Functions.Div);
stack.StackFrame.Scope.SetSymbolValue("||", Functions.LogicalOr);
stack.StackFrame.Scope.SetSymbolValue("==", Functions.Equal);
stack.StackFrame.Scope.SetSymbolValue("!=", Functions.NotEqual);
stack.StackFrame.Scope.SetSymbolValue("is", Functions.Is);
stack.StackFrame.Scope.SetSymbolValue(">", Functions.GreaterThan);
stack.StackFrame.Scope.SetSymbolValue("<", Functions.LessThan);
stack.StackFrame.Scope.SetSymbolValue(">=", Functions.GreaterOrEqualTo);
stack.StackFrame.Scope.SetSymbolValue("<=", Functions.LessOrEqualTo);
stack.StackFrame.Scope.SetSymbolValue("break-debugger", Functions.BreakDebugger);
stack.StackFrame.Scope.SetSymbolValue("if", Functions.If);
stack.StackFrame.Scope.SetSymbolValue("#", Functions.EvalFormula);
stack.StackFrame.Scope.SetSymbolValue("arr", Functions.Arr);
stack.StackFrame.Scope.SetSymbolValue("list", Functions.List);
stack.StackFrame.Scope.SetSymbolValue("hash", Functions.Hash);
stack.StackFrame.Scope.SetSymbolValue("while", Functions.While);
stack.StackFrame.Scope.SetSymbolValue("foreach", Functions.ForEach);
stack.StackFrame.Scope.SetSymbolValue("defun", Functions.Defun);
stack.StackFrame.Scope.SetSymbolValue("defmacro", Functions.Defmacro);
stack.StackFrame.Scope.SetSymbolValue("lambda", Functions.Lambda);
stack.StackFrame.Scope.SetSymbolValue("force", Functions.EnsureNotLazy);
stack.StackFrame.Scope.SetSymbolValue("delay", Functions.Delay);
stack.StackFrame.Scope.SetSymbolValue("tail", Functions.Tail);
stack.StackFrame.Scope.SetSymbolValue("setf", Functions.Setf);
stack.StackFrame.Scope.SetSymbolValue("let", Functions.Let);
stack.StackFrame.Scope.SetSymbolValue("new-thread", Functions.NewThread);
stack.StackFrame.Scope.SetSymbolValue("eval-string", Functions.EvalString);
stack.StackFrame.Scope.SetSymbolValue("eval", Functions.EvalList);
stack.StackFrame.Scope.SetSymbolValue("include", Functions.Include);
stack.StackFrame.Scope.SetSymbolValue("reverse", Functions.Reverse);
stack.StackFrame.Scope.SetSymbolValue("car", Functions.Car);
stack.StackFrame.Scope.SetSymbolValue("cdr", Functions.Cdr);
stack.StackFrame.Scope.SetSymbolValue("empty?", Functions.IsEmpty);
stack.StackFrame.Scope.SetSymbolValue("cast", Functions.Cast);
stack.StackFrame.Scope.SetSymbolValue("print", call =>
{
call.EvalArgs().ToList().ForEach(
arg =>
stack.Engine.OnPrint(arg == null
? ""
: arg.ToString()));
return null;
});
stack.StackFrame.Scope.SetSymbolValue("quote", call =>
{
var info = new CloneInfo();
info.StackFrame = call.StackFrame;
info.LocalIdentifiers = new List<string>();
info.BackQuote = true;
object expression = call.Args[1];
object clone = Utils.Clone(info, expression);
return clone;
});
stack.StackFrame.Scope.SetSymbolValue("operator-prio", call =>
{
var func =
Utils.Eval(call.StackFrame, call.Args[1]) as
LispFunc;
var prio =
(int)
Utils.Eval(call.StackFrame, call.Args[2]);
if (prio == 0)
{
//remove
stack.OperatorPriority.Remove(func);
}
else
{
stack.OperatorPriority[func] = prio;
}
return null;
});
stack.StackFrame.Scope.SetSymbolValue("input", call =>
{
var var = call.Args[1] as SymbolNode;
string res = Console.ReadLine();
var.GetSymbol(call.StackFrame).Value = res;
return null;
});
stack.StackFrame.Scope.SetSymbolValue("new", call =>
{
var typeId = call.Args[1] as SymbolNode;
var type = typeId.GetSymbol(call.StackFrame).Value as Type;
object res = Activator.CreateInstance(type);
return res;
});
stack.StackFrame.Scope.SetSymbolValue("call-by-name", call =>
{
string methodName =
Utils.Eval(call.StackFrame, call.Args[2]).
ToString();
return stack.HandleCall(call, methodName);
});
stack.StackFrame.Scope.SetSymbolValue("application-run", call =>
{
Application.Run();
return null;
});
}