;; This file:
;;   http://angg.twu.net/luatree/luatree.lisp.html
;;   http://angg.twu.net/luatree/luatree.lisp
;;           (find-angg "luatree/luatree.lisp")
;; 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")
;;               (find-es "lisp" "uiop:run-program")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; License: Public Domain.
;;
;; (defun m  () (interactive) (find-angg "luatree/luatree.mac"))
;; (defun li () (interactive) (find-angg "luatree/luatree.lisp"))
;; (defun lu () (interactive) (find-angg "luatree/luatree.lua"))

(require :asdf)

(defun luatree-lua (bigstr)
  (with-input-from-string
   (s bigstr)
   (reduce (lambda (a b) (format nil "~a~%~a" a b))
	   (uiop:run-program
	    (concatenate 'string #$luatreedir$ "luatree.lua")
	    :input s :output :lines))))

(defmfun $luatree_lua (str) (luatree-lua str))

#|
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
to_lisp();
  (load "luatree.lisp")
  (defvar aaa)
  (setf aaa "{[0]=\"[\", {[0]=\"/\", \"x\", \"y\"}, \"33\"}")
  (luatree-lua aaa)

|#