/*
 * This file:
 *   http://anggtwu.net/luatree/luatree2.mac.html
 *   http://anggtwu.net/luatree/luatree2.mac
 *          (find-angg "luatree/luatree2.mac")
 * Author: Eduardo Ochs <eduardoochs@gmail.com>
 * See also:
 *   https://github.com/edrx/luatree
 *   https://github.com/edrx/luatree/#introduction
 *   http://angg.twu.net/eev-maxima.html#luatree
 *   http://angg.twu.net/e/maxima.e.html#luatree
 *   http://angg.twu.net/e/maxima.e.html#luatree-explanation
 *               (find-es "maxima" "luatree")
 *               (find-es "maxima" "luatree-explanation")
 *
 * (defun o () (interactive) (find-angg "luatree/luatree.mac"))
 * (defun e () (interactive) (find-angg "luatree/luatree2.mac"))
 * (defun l () (interactive) (find-angg "luatree/luatree.lisp"))
 * (find-es "maxima" "mtree")
 *
 * Example:
 *
 *   (%i1) load("~/luatree/luatree2.mac")$
 *   (%i2) luatree  (a(b,c))$
 *   a__.
 *   |  |
 *   b  c  
 *   (%i3) luatree  (a[1][2](b,c))$
 *   ap_________.__.
 *   |          |  |
 *   [_]_____.  b  c
 *   |       |
 *   [_]__.  2
 *   |    |
 *   a    1  
 *   (%i4) luatree  (a[1][2](b,c)(d))$
 *   ap_______________.
 *   |                |
 *   ap_________.__.  d
 *   |          |  |
 *   [_]_____.  b  c
 *   |       |
 *   [_]__.  2
 *   |    |
 *   a    1  
 *   (%i5)
 *
*/

luatreedir : pathname_directory(load_pathname);   /* this directory */
load(concat(luatreedir, "luatree.lisp"));    /* defines luatree_lua */

intercalate(sep, strs) :=
  block([strs2, rest],
         strs2: makelist(concat(sep,strs[i]), i,2,length(strs)),
         rest:  apply('concat, strs2),
         concat(strs[1], rest))$

mapconcat(f,a,sep) := intercalate(sep, map(f,a))$

mtree(o) :=
  if atom(o) then concat("", o)
  elseif subvarp(o)  then append(["[_]", mtree(op(o))], map(mtree, args(o)))
  elseif atom(op(o)) then append([       mtree(op(o))], map(mtree, args(o)))
  else                    append(["ap",  mtree(op(o))], map(mtree, args(o)));

mtreetoluatree1d(m) :=
  if atom(m)
  then concat("\"", m, "\"")    /* TODO: add backslashes when needed */
  else concat("{[0]=", mapconcat(mtreetoluatree1d, m, ", "), "}");

luatree1d(o) := mtreetoluatree1d(mtree(o));
luatree2d(o) := luatree_lua(luatree1d(o));              /* calls lua */
luatree      : lambda([o], print(luatree2d(o), ""));

/*
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
** (find-angg "luatree/luatree2.mac")
load       ("~/luatree/luatree2.mac")$

luatree1d(a(b,c));
luatree2d(a(b,c));
luatree  (a(b,c))$
mtree    (a(b,c));
mtree    (a[1][2](b,c));
luatree1d(a[1][2](b,c));
luatree  (a[1][2](b,c))$
luatree  (a[1][2](b,c)(d))$

*/




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