def execute_ea(self,*evalArgs): if(evalArgs[0] ==new(LispSymbol,"pack")): self.value.pack(expand=YES, fill=BOTH,side="left") if(evalArgs[0] == new(LispSymbol,"getText")): foo= new(LispString,self.value.get(1.0,END)) print foo return foo if(evalArgs[0]==new(LispSymbol,'setText')): self.value.delete(0.1,END) self.value.insert(0.1, printLisp(evalArgs[1])) if(evalArgs[0]==new(LispSymbol,'setBG')): self.value.configure(bg=evalArgs[1]) if(evalArgs[0]==new(LispSymbol,'setFG')): self.value.configure(fg=evalArgs[1]) if(evalArgs[0]==new(LispSymbol,'setCursorColor')): self.value.configure(insertbackground=evalArgs[1]) if(evalArgs[0] ==new(LispSymbol,'setScrollbar')): self.value.configure(yscrollcommand=evalArgs[1].value.set)
def testPrint(self): self.assertTrue(printLisp(new(LispInteger,5)) == "5",printLisp(new(LispInteger,5))) self.assertTrue(printLisp(new(LispSymbol,"asd")) == "asd",printLisp(new(LispSymbol,"asd"))) self.assertTrue(printLisp(new(LispNull)) == "()",printLisp(new(LispNull))) self.assertTrue(printLisp(new(LispTrue)) == "TRUE",printLisp(new(LispTrue))) self.assertTrue(printLisp(new(LispFalse)) == "FALSE",printLisp(new(LispFalse))) liste = new(LispCons,new(LispInteger,5)) self.assertTrue(printLisp(liste)=="(5)",printLisp(liste)) liste = new(LispCons,new(LispInteger,5),new(LispCons,new(LispInteger,6))) self.assertTrue(printLisp(liste)=="(5 6)",printLisp(liste)) liste = new(LispCons,new(LispInteger,5),new(LispCons,new(LispTrue))) self.assertTrue(printLisp(liste)=="(5 TRUE)",printLisp(liste)) l5 = new(LispInteger,5) l6 = new(LispInteger,6) liste = new(LispCons,l5,new(LispCons,l6)) subListe = new(LispCons,l5,new(LispCons,l6)) liste.rest.rest=new(LispCons,subListe,new(LispCons,l5)) self.assertTrue(printLisp(liste)=="(5 6 (5 6) 5)",printLisp(liste))
def execute(self,env, *unEvalArgs): evalArg = LISP.evall(unEvalArgs[0],env) if isinstance(evalArg, LispString): print "\"%s\"" % evalArg.value else: print printLisp(evalArg)
def execute(self,env, *unEvalArgs): evalArg = LISP.evall(unEvalArgs[0],env) print printLisp(evalArg)