This is the mail archive of the kawa@sourceware.cygnus.com mailing list for the Kawa project. See the Kawa home page for more information.
Hi everybody !
I wrote this source:
--------/ eval.scm
(define (eval-new exp)
(cond ((eq? (car exp) 'connect) (connect (cdr exp)))
(else "")))
(define (connect exp)
(define user #f)
(define pass #f)
(if (eq? (car exp) 'user)
(begin
(set! user (cadr exp))
(set! exp (cddr exp))))
(if (eq? (car exp) 'pass)
(set! pass (cadr exp)))
(list->string (list user pass)))
---------/
I compiled it with:
java kawa.repl -C eval.scm
I used it in Kawa 1.6.55 , but...:
#|kawa:1|# (load "eval")
#|kawa:2|# eval-new
#<procedure eval-new>
#|kawa:3|# (eval-new '(connect user pippo pass pluto))
java.lang.RuntimeException: apply not implemented for PrimProcedure - java.lang.reflect.InvocationTargetException
at gnu.expr.PrimProcedure.applyN(PrimProcedure.java:73)
at gnu.expr.ApplyExp.eval(ApplyExp.java:36)
at gnu.expr.ModuleExp.evalModule(ModuleExp.java:31)
at kawa.Shell.run(Shell.java:102)
at kawa.Shell.run(Shell.java:64)
at kawa.repl.main(repl.java:186)
#|kawa:4|#
Thank you for your help !
--
Daniele Maraschi mailto:maraschi@mediatech.didael.it
----------------------------------------------------------
Mediatech http://mediatech.didael.it
6° Strada Ovest, Loc. Macchiareddu, 09010 Uta (CA), Italy
Tel: (+39) 070 2466 5010 Fax: (+39) 070 2466 1111