archive/src/evaluate.lisp

   1 (in-package "MAXIMA")
   2
   3 ;; echo "integrate(1/(1+x^2),x);" | maxima  -load /home/wfs/cvs/maxima/src/evaluate.lisp -batch
   4 ;; echo "separator:\"\";integrate(1/(1+x^3),x);2+4;" | maxima  -load /home/wfs/cvs/maxima/src/evaluate.lisp -batch
   5
   6 (setq $separator "xxxxxx")
   7
   8 (defun read-eval ()
   9    (let ((eof '(nil)) tem val $display2d  more)
  10     (sloop  while (not (eq (setq tem (dbm-read *terminal-io* nil eof)) eof))
  11         do
  12         (if more ($print $separator) (setq more t))
  13         ($print (meval* (third tem)))
  14
  15      )
  16
  17    ($quit)
  18 ))
  19
  20 (read-eval)