private static void AddPrimitive(IDictionary <SymbolAtom, ISExpression> d, string name, Func <IEnumerable <ISExpression>, ISExpression> p)
{
d[AtomHelper.SymbolFromString(name)] = AtomHelper.CreateProcedure(name, p, true);
}
public void TestScripts()
{
var path = Path.GetDirectoryName(typeof(ScriptTests).GetTypeInfo().Assembly.Location);
var tests = File.ReadAllText(Path.Combine(path, "tests.scm"));
var def = AtomHelper.CreateList(
AtomHelper.SymbolFromString("define"),
AtomHelper.SymbolFromString("test"),
AtomHelper.CreateList(AtomHelper.SymbolFromString("lambda"), AtomHelper.Nil, AtomHelper.CreateProcedure("test", Test, false))
);
Eval(def);
var errors = "";
var exprs = EvalAll(tests).ToArray();
for (var i = 0; i < exprs.Count(); i++)
{
var result = exprs[i];
if (result == null)
{
continue;
}
if (result.IsString())
{
errors += result.String() + "\n";
}
}
if (errors != "")
{
Assert.Fail(errors);
}
}
public static IDictionary <SymbolAtom, ISExpression> CreateBase()
{
var dict = new Dictionary <SymbolAtom, ISExpression>();
AddFunction(dict, "+", Arithmetic.Plus);
AddFunction(dict, "*", Arithmetic.Mul);
AddFunction(dict, "-", Arithmetic.Minus);
AddFunction(dict, "/", Arithmetic.Div);
AddFunction(dict, "=", ArithmeticCompare.Equal);
AddFunction(dict, "<", ArithmeticCompare.IsIncreasing);
AddFunction(dict, ">", ArithmeticCompare.IsDecreasing);
AddFunction(dict, "<=", ArithmeticCompare.IsNonDecreasing);
AddFunction(dict, ">=", ArithmeticCompare.IsNonIncreasing);
AddFunction(dict, "min", Arithmetic.Min);
AddFunction(dict, "max", Arithmetic.Max);
AddFunction(dict, "abs", Arithmetic.Abs);
AddFunction(dict, "quotient", Arithmetic.Quotient);
AddFunction(dict, "remainder", Arithmetic.Remainder);
AddFunction(dict, "modulo", Arithmetic.Modulo);
AddFunction(dict, "gcd", Arithmetic.Gcd);
AddFunction(dict, "lcm", Arithmetic.Lcm);
AddFunction(dict, "floor", Arithmetic.Floor);
AddFunction(dict, "ceiling", Arithmetic.Ceiling);
AddFunction(dict, "truncate", Arithmetic.Truncate);
AddFunction(dict, "round", Arithmetic.Round);
AddFunction(dict, "number->string", Convert.NumberToString);
AddFunction(dict, "boolean?", Types.IsBoolean);
AddFunction(dict, "pair?", Types.IsPair);
AddFunction(dict, "symbol?", Types.IsSymbol);
AddFunction(dict, "char?", Types.IsChar);
AddFunction(dict, "string?", Types.IsString);
AddFunction(dict, "procedure?", Types.IsProcedure);
AddFunction(dict, "null?", Types.IsNil);
AddFunction(dict, "number?", Types.IsNumber);
AddFunction(dict, "complex?", Types.IsComplex);
AddFunction(dict, "real?", Types.IsReal);
AddFunction(dict, "rational?", Types.IsRational);
AddFunction(dict, "integer?", Types.IsInteger);
AddFunction(dict, "exact?", Types.IsExact);
AddFunction(dict, "inexact?", Types.IsInexact);
AddFunction(dict, "zero?", Arithmetic.Zero);
AddFunction(dict, "positive?", Arithmetic.Positive);
AddFunction(dict, "negative?", Arithmetic.Negative);
AddFunction(dict, "odd?", Arithmetic.Odd);
AddFunction(dict, "even?", Arithmetic.Even);
var eqv = AtomHelper.CreateProcedure("eqv?", Types.Eqv, false);
AddFunction(dict, "eqv?", eqv);
AddFunction(dict, "eq?", eqv);
AddFunction(dict, "equal?", Types.Equal);
AddFunction(dict, "cons", Pairs.Cons);
AddFunction(dict, "car", Pairs.Car);
AddFunction(dict, "cdr", Pairs.Cdr);
AddFunction(dict, "set-car!", Pairs.SetCar);
AddFunction(dict, "set-cdr!", Pairs.SetCdr);
AddFunction(dict, "display", IO.Display);
AddFunction(dict, "read", IO.Read);
AddFunction(dict, "eval", Eval.Evaluate);
return(dict);
}