;; This file:
;;   http://angg.twu.net/.maxima/maxima-init.lisp.html
;;   http://angg.twu.net/.maxima/maxima-init.lisp
;;           (find-angg ".maxima/maxima-init.lisp")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; «.ee_writefile»	(to "ee_writefile")

(defun $printtostring (&rest objs)
  (with-output-to-string (*standard-output*)
    (apply #'$print objs)))

#|
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
load("maxima-init.lisp");
printtostring('at(f(x),x=a), 42);

|#



;; «ee_writefile»  (to ".ee_writefile")
;; Based on: (find-angg "LUA/lua50init.lua" "fileexists" "ee_writefile =")
;;  Used by: (find-angg "MAXIMA/2025-sa.mac")
;;     Uses: (find-es "lisp" "with-open-file")
;;
(defun $ee_writefile (fname str)
  (with-open-file (outfile fname
			   :direction :output
			   :if-exists :supersede
			   :if-does-not-exist :create)
    (write-string str outfile))
  (format nil "Wrote ~s bytes to ~a" (length str) fname))

#|
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
ee_writefile("/tmp/o", "foo");
ee_writefile("~/o", "foo");
* (find-sh00 "cat /tmp/o")
* (find-sh00 "cat ~/o")

sa_bigstr : "";
sa_(name,body) := sa_bigstr : ?format(false, "\\sa {~a} {~a}~%~a", name, body, sa_bigstr)$
sa_bigstr : "";

sa("foo", "BODY")$
sa("foo2", "BODY2")$
sa_bigstr;



|#