private JITInterpreter_DS()
{
Utils.QueryPerformanceCounter(out mTimerStart);
Utils.QueryPerformanceFrequency(out mTimerFreq);
Dictionary <string, object> builtinVars = new Dictionary <string, object>()
{
{ "true", true },
{ "false", false },
{ "else", true },
{ "null", null },
};
Dictionary <string, object> builtinProcedures = new Dictionary <string, object>()
{
{ "not", (Func <object, object>)(a => !(bool)a) },
{ "identity", (Func <object, object>)(a => a) },
{ "sqr", (Func <object, object>)(a => { var v = (INumber)a; return(v.Mul(v)); }) },
{ "+", (Func <object, object, object>)((a, b) => ((INumber)a).Add((INumber)b)) },
{ "-", (Func <object, object, object>)((a, b) => ((INumber)a).Sub((INumber)b)) },
{ "*", (Func <object, object, object>)((a, b) => ((INumber)a).Mul((INumber)b)) },
{ "/", (Func <object, object, object>)((a, b) => ((INumber)a).Div((INumber)b)) },
{ "quotient", (Func <object, object, object>)((a, b) => ((INumber)a).Div((INumber)b).CastToInteger()) },
{ "remainder", (Func <object, object, object>)((a, b) => ((INumber)a).Mod((INumber)b)) },
{ "=", (Func <object, object, object>)((a, b) => ((INumber)a).CompareTo((INumber)b) == 0) },
{ "<", (Func <object, object, object>)((a, b) => ((INumber)a).CompareTo((INumber)b) < 0) },
{ "<=", (Func <object, object, object>)((a, b) => ((INumber)a).CompareTo((INumber)b) <= 0) },
{ ">", (Func <object, object, object>)((a, b) => ((INumber)a).CompareTo((INumber)b) > 0) },
{ ">=", (Func <object, object, object>)((a, b) => ((INumber)a).CompareTo((INumber)b) >= 0) },
{ "eq?", (Func <object, object, object>)((a, b) => object.ReferenceEquals(a, b)) },
{ "equal?", (Func <object, object, object>)((a, b) => object.Equals(a, b)) },
{ "cons", (Func <object, object, object>)((a, b) => new Pair()
{
Car = a, Cdr = b
}) },
{ "car", (Func <object, object>)(a => ((Pair)a).Car) },
{ "cdr", (Func <object, object>)(a => ((Pair)a).Cdr) },
{ "drop", (Func <object, object, object>)((a, b) => {
Pair l = (Pair)a; int n = ((NumberInteger)b).value;
for (; n > 0; --n)
{
l = (Pair)l.Cdr;
}
return(l);
}) },
{ "length", (Func <object, object>)(a => {
int n = 0;
for (Pair l = (Pair)a; l != null; ++n, l = (Pair)l.Cdr)
{
;
}
return(Number.Create(n));
}) },
{ "append", (Func <object, object, object>)((a, b) => {
var l = ListProcess.PairToList((Pair)a);
return(ListProcess.ConcatListAndPairToNewPair(l, (Pair)b));
}) },
{ "empty?", (Func <object, object>)(a => a == null) },
{ "void", (Func <object>)(() => null) },
{ "pretty-print", (Func <object, object>)(a => {
ListProcess.PrintPairExp(a);
return(null);
}) },
{ "display", (Func <object, object>)(a => {
ListProcess.PrintListExp(ListProcess.PairExpToListExp(a));
return(null);
}) },
{ "current-inexact-milliseconds", (Func <object>)(() => {
long now;
Utils.QueryPerformanceCounter(out now);
return(Number.Create((decimal)(now - mTimerStart) * 1000 / mTimerFreq));
}) },
{ "exit", (Func <object>)(() => {
Environment.Exit(0);
return(null);
}) },
{ "random", (Func <object, object>)(a => Number.Create(mRandom.Next(((NumberInteger)a).value))) },
{ "eval", (Func <object, object>)(a => { return(Instance().Interpret(ListProcess.PairExpToListExp(a))); }) },
};
ReserveGlobalVaraible(builtinVars.Count + builtinProcedures.Count);
foreach (KeyValuePair <string, object> kv in builtinVars)
{
mGlobalVariables[SymbolTable.DefineOrGetGlobalSymbol(kv.Key).index] = kv.Value;
}
foreach (KeyValuePair <string, object> kv in builtinProcedures)
{
mGlobalVariables[SymbolTable.DefineOrGetGlobalSymbol(kv.Key).index] = kv.Value;
}
}
private ASTInterpreter()
{
Utils.QueryPerformanceCounter(out sTimerStart);
Utils.QueryPerformanceFrequency(out sTimerFreq);
Dictionary <string, object> builtinVars = new Dictionary <string, object>()
{
{ "true", true },
{ "false", false },
{ "else", true },
{ "null", null },
};
Dictionary <string, Procedure> builtinProcedures = new Dictionary <string, Procedure>()
{
{ "not", (args) => !(bool)args[0] },
{ "identity", (args) => args[0] },
{ "sqr", (args) => { var a = args[0] as INumber; return(a.Mul(a)); } },
{ "+", (args) => ((INumber)args[0]).Add((INumber)args[1]) },
{ "-", (args) => ((INumber)args[0]).Sub((INumber)args[1]) },
{ "*", (args) => ((INumber)args[0]).Mul((INumber)args[1]) },
{ "/", (args) => ((INumber)args[0]).Div((INumber)args[1]) },
{ "quotient", (args) => ((INumber)args[0]).Div((INumber)args[1]).CastToInteger() },
{ "remainder", (args) => ((INumber)args[0]).Mod((INumber)args[1]) },
{ "=", (args) => (args[0].Equals(args[1])) },
{ "<", (args) => (args[0] as IComparable).CompareTo(args[1]) < 0 },
{ "<=", (args) => (args[0] as IComparable).CompareTo(args[1]) <= 0 },
{ ">", (args) => (args[0] as IComparable).CompareTo(args[1]) > 0 },
{ ">=", (args) => (args[0] as IComparable).CompareTo(args[1]) >= 0 },
{ "eq?", (args) => object.ReferenceEquals(args[0], args[1]) },
{ "cons", (args) => new Pair()
{
Car = args[0], Cdr = args[1]
} },
{ "car", (args) => ((Pair)args[0]).Car },
{ "cdr", (args) => ((Pair)args[0]).Cdr },
{ "drop", (args) => {
Pair l = (Pair)args[0]; int n = ((NumberInteger)args[1]).value;
for (; n > 0; --n)
{
l = (Pair)l.Cdr;
}
return(l);
} },
{ "length", (args) => {
int n = 0;
for (Pair l = (Pair)args[0]; l != null; ++n, l = (Pair)l.Cdr)
{
;
}
return(Number.Create(n));
} },
{ "append", (args) => {
var l = ListProcess.PairToList((Pair)args[0]);
l.InsertRange(l.Count, ListProcess.PairToList((Pair)args[1]));
return(ListProcess.ListToPair(l));
} },
{ "empty?", (args) => args[0] == null },
{ "pretty-print", (args) => {
ListProcess.PrintPairExp(args[0]);
return(null);
} },
{ "display", (args) => {
ListProcess.PrintListExp(ListProcess.PairExpToListExp(args[0]));
return(null);
} },
{ "current-inexact-milliseconds", (args) => {
long now;
Utils.QueryPerformanceCounter(out now);
return(Number.Create((decimal)(now - sTimerStart) * 1000 / sTimerFreq));
} },
{ "exit", (args) => {
Environment.Exit(0);
return(null);
} },
{ "random", (args) => Number.Create(sRandom.Next(((NumberInteger)args[0]).value)) },
{ "eval", (args) => Instance().Interpret(ListProcess.PairExpToListExp(args[0])) },
};
Env.ReserveGlobalVariables(builtinVars.Count + builtinProcedures.Count);
foreach (KeyValuePair <string, object> kv in builtinVars)
{
Env.DefineBuiltin(SymbolTable.DefineOrGetGlobalSymbol(kv.Key), kv.Value);
}
foreach (KeyValuePair <string, Procedure> kv in builtinProcedures)
{
Env.DefineBuiltin(SymbolTable.DefineOrGetGlobalSymbol(kv.Key), kv.Value);
}
}