/*
 * This file:
 *   https://anggtwu.net/MAXIMA/2025-sa.mac.html
 *   https://anggtwu.net/MAXIMA/2025-sa.mac
 *           (find-angg "MAXIMA/2025-sa.mac")
 * Author: Eduardo Ochs <eduardoochs@gmail.com>
 *
 * (defun e () (interactive) (find-angg "MAXIMA/2025-sa.mac"))
 * Used by: (find-angg "MAXIMA/2025-example-6.mac")
*/

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

sa_bigstr_writeto (fname) := ee_writefile(fname, sa_bigstr);

ga_tex(o) := ?format(false, "\\ga{~a}", args(o)[1])$
texput('ga, 'ga_tex);

/*
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
load("2025-sa.mac");
sa_("foo",  "BODY");
sa_("foo2", "BODY2");
sa ("foo3", sin(x));
ga("[RC]");
tex1(ga("[RC]"));

** (find-angg "MAXIMA/2025-1-s.mac")
** (find-angg "MAXIMA/2025-1-s.mac" "_ssu__tests")
load       ("~/MAXIMA/2025-1-s.mac");

o1 : RCV;
Sg : [g(x)=x^2, gp(x)=2*x];
Sf : [f(x)=sin(x), fp(x)=cos(x)];
o2 : o1 _ssu_ Sg _usu_ Sf;

sa_bigstr : "";
sa_addline("% Created by 2025-sa.mac");
sa("RC test", o2);
sa_bigstr;
sa_bigstr_writeto("/tmp/o");

** (find-fline "/tmp/o")
ee_writefile("/tmp/o", sa_bigstr);

newline;

ga(str);


*/




/*
 * Local Variables:
 * coding:  utf-8-unix
 * End:
*/