Example #1
0
 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)    
Example #2
0
    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))
Example #3
0
 def execute(self,env, *unEvalArgs):
     evalArg = LISP.evall(unEvalArgs[0],env)
     if isinstance(evalArg, LispString):
         print "\"%s\"" % evalArg.value
     else:
         print printLisp(evalArg)
Example #4
0
 def execute(self,env, *unEvalArgs):
     evalArg = LISP.evall(unEvalArgs[0],env)
     print printLisp(evalArg)