public Interpreter()
{
globalenv = new Env(null,null,null);
reader = new Reader(this);
symbolTable = new SymbolTable();
Assembly[] asm = AppDomain.CurrentDomain.GetAssemblies();
foreach(Assembly a in asm)
{
addTypesFrom(a);
}
internBuiltins();
Primitives.internAll(this);
LASTVAL.setGlobalValue(null);
NEXTLASTVAL.setGlobalValue(null);
THIRDLASTVAL.setGlobalValue(null);
//these primitives are here, rather than in Primitives, because their implementation
//requires calls to gfs bound to symbols
Intern("intern",new Function(internf));
Intern("eval",new Function(evalf));
Intern("load",new Function(loadf));
Intern("map->list",new Function(map_to_list));
Intern("apply",new Function(apply));
Intern("<",new Function(lt));
Intern("<=",new Function(lteq));
Intern(">",new Function(gt));
Intern(">=",new Function(gteq));
Intern("==",new Function(eqeq));
Intern("!=",new Function(noteq));
strgf = (GenericFunction)intern("str").getGlobalValue();
get_enum_gf = (GenericFunction)intern("get-enum").getGlobalValue();
compare_gf = (BinOp)intern("compare").getGlobalValue();
Intern("interpreter",this);
}
internal static void internAll(Interpreter interpreter)
{
interpreter.Intern("not",new Function(not));
interpreter.Intern("to-bool",new Function(to_bool));
interpreter.Intern("nil?",new Function(nilp));
interpreter.Intern("symbol?",new Function(symbolp));
interpreter.Intern("eqv?",new Function(eqv));
interpreter.Intern("eql?",new Function(eql));
interpreter.Intern("cons",new Function(cons));
interpreter.Intern("cons?",new Function(consp));
interpreter.Intern("atom?",new Function(atomp));
interpreter.Intern("first",new Function(first));
interpreter.Intern("rest",new Function(rest));
interpreter.Intern("set-first",new Function(setfirst));
interpreter.Intern("set-rest",new Function(setrest));
interpreter.Intern("second",new Function(second));
interpreter.Intern("third",new Function(third));
interpreter.Intern("fourth",new Function(fourth));
interpreter.Intern("reverse",new Function(reverse));
interpreter.Intern("list?",new Function(listp));
interpreter.Intern("len",new Function(listlength));
interpreter.Intern("nth",new Function(nth));
interpreter.Intern("nth-rest",new Function(nthrest));
interpreter.Intern("append",new Function(append));
interpreter.Intern("concat!",new Function(concat_d));
interpreter.Intern("type-of",new Function(type_of));
interpreter.Intern("is?",new Function(isp));
interpreter.Intern("even?",new Function(evenp));
interpreter.Intern("gensym",new Function(gensym));
interpreter.Intern("macroexpand-1",new Function(macroexpand_1));
interpreter.Intern("vector",new Function(vector));
interpreter.Intern("vector-of",new Function(vector_of));
interpreter.Intern("throw",new Function(throwfun));
interpreter.Intern("try-catch-finally",new Function(try_catch_finally));
interpreter.Intern("<i",new Function(lti));
interpreter.Intern("addi",new Function(addints));
BinOp addop = new BinOp();
addop.AddMethod(typeof(Int32),typeof(Int32),new Function(addints));
addop.AddMethod(typeof(Int32),typeof(Object),new Function(addobjs));
addop.AddMethod(typeof(Object),typeof(Object),new Function(addobjs));
interpreter.Intern("add",addop);
BinOp subtractop = new BinOp();
subtractop.AddMethod(typeof(Int32),typeof(Int32),new Function(subtractints));
subtractop.AddMethod(typeof(Int32),typeof(Object),new Function(subtractobjs));
subtractop.AddMethod(typeof(Object),typeof(Object),new Function(subtractobjs));
interpreter.Intern("subtract",subtractop);
BinOp multiplyop = new BinOp();
multiplyop.AddMethod(typeof(Int32),typeof(Int32),new Function(multiplyints));
multiplyop.AddMethod(typeof(Int32),typeof(Object),new Function(multiplyobjs));
multiplyop.AddMethod(typeof(Object),typeof(Object),new Function(multiplyobjs));
interpreter.Intern("multiply",multiplyop);
BinOp divideop = new BinOp();
divideop.AddMethod(typeof(Int32),typeof(Int32),new Function(divideints));
divideop.AddMethod(typeof(Int32),typeof(Object),new Function(divideobjs));
divideop.AddMethod(typeof(Object),typeof(Object),new Function(divideobjs));
interpreter.Intern("divide",divideop);
BinOp compareop = new BinOp();
compareop.AddMethod(typeof(Int32),typeof(Int32),new Function(subtractints));
compareop.AddMethod(typeof(Int32),typeof(Object),new Function(compareobjs));
compareop.AddMethod(typeof(Object),typeof(Object),new Function(compareobjs));
interpreter.Intern("compare",compareop);
BinOp bitorop = new BinOp();
bitorop.AddMethod(typeof(Enum),typeof(Enum),new Function(bitorenum));
bitorop.AddMethod(typeof(Object),typeof(Object),new Function(bitor));
interpreter.Intern("bit-or",bitorop);
BinOp bitandop = new BinOp();
bitandop.AddMethod(typeof(Enum),typeof(Enum),new Function(bitandenum));
bitandop.AddMethod(typeof(Object),typeof(Object),new Function(bitand));
interpreter.Intern("bit-and",bitandop);
BinOp bitxorop = new BinOp();
bitxorop.AddMethod(typeof(Enum),typeof(Enum),new Function(bitxorenum));
bitxorop.AddMethod(typeof(Object),typeof(Object),new Function(bitxor));
interpreter.Intern("bit-xor",bitxorop);
GenericFunction bitnotgf = new GenericFunction();
bitnotgf.AddMethod(typeof(Enum),new Function(bitnotenum));
bitnotgf.AddMethod(typeof(Object),new Function(bitnot));
interpreter.Intern("bit-not",bitnotgf);
GenericFunction get_enum_gf = new GenericFunction();
get_enum_gf.AddMethod(typeof(IEnumerator),new Function(get_enum_IEnumerator));
get_enum_gf.AddMethod(typeof(IEnumerable),new Function(get_enum_IEnumerable));
get_enum_gf.AddMethod(null,new Function(get_enum_nil));
interpreter.Intern("get-enum",get_enum_gf);
GenericFunction strgf = new GenericFunction();
strgf.AddMethod(null,new Function(strnil));
strgf.AddMethod(typeof(Object),new Function(strobj));
interpreter.Intern("str",strgf);
//interpreter.Intern("pr",new GenericFunction());
}
internal static void internAll(Interpreter interpreter)
{
interpreter.Intern("not", new Function(not));
interpreter.Intern("to-bool", new Function(to_bool));
interpreter.Intern("nil?", new Function(nilp));
interpreter.Intern("symbol?", new Function(symbolp));
interpreter.Intern("eqv?", new Function(eqv));
interpreter.Intern("eql?", new Function(eql));
interpreter.Intern("cons", new Function(cons));
interpreter.Intern("cons?", new Function(consp));
interpreter.Intern("atom?", new Function(atomp));
interpreter.Intern("first", new Function(first));
interpreter.Intern("rest", new Function(rest));
interpreter.Intern("set-first", new Function(setfirst));
interpreter.Intern("set-rest", new Function(setrest));
interpreter.Intern("second", new Function(second));
interpreter.Intern("third", new Function(third));
interpreter.Intern("fourth", new Function(fourth));
interpreter.Intern("reverse", new Function(reverse));
interpreter.Intern("list?", new Function(listp));
interpreter.Intern("len", new Function(listlength));
interpreter.Intern("nth", new Function(nth));
interpreter.Intern("nth-rest", new Function(nthrest));
interpreter.Intern("append", new Function(append));
interpreter.Intern("concat!", new Function(concat_d));
interpreter.Intern("type-of", new Function(type_of));
interpreter.Intern("is?", new Function(isp));
interpreter.Intern("even?", new Function(evenp));
interpreter.Intern("gensym", new Function(gensym));
interpreter.Intern("macroexpand-1", new Function(macroexpand_1));
interpreter.Intern("vector", new Function(vector));
interpreter.Intern("vector-of", new Function(vector_of));
interpreter.Intern("throw", new Function(throwfun));
interpreter.Intern("try-catch-finally", new Function(try_catch_finally));
interpreter.Intern("<i", new Function(lti));
interpreter.Intern("addi", new Function(addints));
BinOp addop = new BinOp();
addop.AddMethod(typeof(Int32), typeof(Int32), new Function(addints));
addop.AddMethod(typeof(Int32), typeof(Object), new Function(addobjs));
addop.AddMethod(typeof(Object), typeof(Object), new Function(addobjs));
interpreter.Intern("add", addop);
BinOp subtractop = new BinOp();
subtractop.AddMethod(typeof(Int32), typeof(Int32), new Function(subtractints));
subtractop.AddMethod(typeof(Int32), typeof(Object), new Function(subtractobjs));
subtractop.AddMethod(typeof(Object), typeof(Object), new Function(subtractobjs));
interpreter.Intern("subtract", subtractop);
BinOp multiplyop = new BinOp();
multiplyop.AddMethod(typeof(Int32), typeof(Int32), new Function(multiplyints));
multiplyop.AddMethod(typeof(Int32), typeof(Object), new Function(multiplyobjs));
multiplyop.AddMethod(typeof(Object), typeof(Object), new Function(multiplyobjs));
interpreter.Intern("multiply", multiplyop);
BinOp divideop = new BinOp();
divideop.AddMethod(typeof(Int32), typeof(Int32), new Function(divideints));
divideop.AddMethod(typeof(Int32), typeof(Object), new Function(divideobjs));
divideop.AddMethod(typeof(Object), typeof(Object), new Function(divideobjs));
interpreter.Intern("divide", divideop);
BinOp compareop = new BinOp();
compareop.AddMethod(typeof(Int32), typeof(Int32), new Function(subtractints));
compareop.AddMethod(typeof(Int32), typeof(Object), new Function(compareobjs));
compareop.AddMethod(typeof(Object), typeof(Object), new Function(compareobjs));
interpreter.Intern("compare", compareop);
BinOp bitorop = new BinOp();
bitorop.AddMethod(typeof(Enum), typeof(Enum), new Function(bitorenum));
bitorop.AddMethod(typeof(Object), typeof(Object), new Function(bitor));
interpreter.Intern("bit-or", bitorop);
BinOp bitandop = new BinOp();
bitandop.AddMethod(typeof(Enum), typeof(Enum), new Function(bitandenum));
bitandop.AddMethod(typeof(Object), typeof(Object), new Function(bitand));
interpreter.Intern("bit-and", bitandop);
BinOp bitxorop = new BinOp();
bitxorop.AddMethod(typeof(Enum), typeof(Enum), new Function(bitxorenum));
bitxorop.AddMethod(typeof(Object), typeof(Object), new Function(bitxor));
interpreter.Intern("bit-xor", bitxorop);
GenericFunction bitnotgf = new GenericFunction();
bitnotgf.AddMethod(typeof(Enum), new Function(bitnotenum));
bitnotgf.AddMethod(typeof(Object), new Function(bitnot));
interpreter.Intern("bit-not", bitnotgf);
GenericFunction get_enum_gf = new GenericFunction();
get_enum_gf.AddMethod(typeof(IEnumerator), new Function(get_enum_IEnumerator));
get_enum_gf.AddMethod(typeof(IEnumerable), new Function(get_enum_IEnumerable));
get_enum_gf.AddMethod(null, new Function(get_enum_nil));
interpreter.Intern("get-enum", get_enum_gf);
GenericFunction strgf = new GenericFunction();
strgf.AddMethod(null, new Function(strnil));
strgf.AddMethod(typeof(Object), new Function(strobj));
interpreter.Intern("str", strgf);
//interpreter.Intern("pr",new GenericFunction());
}