(defpackage :fwoar.lw-curator.generate-ji-definitions
  (:use :cl )
  (:export ))
(in-package :fwoar.lw-curator.generate-ji-definitions)

(defun jinterface-dest (dest)
  (merge-pathnames (parse-namestring dest)
                   (asdf:component-pathname
                    (asdf:find-component :lw-curator "jinterface"))))

(defun write-class-def (java-class-name dest package)
  (lw-ji:write-java-class-definitions-to-file java-class-name
                                              (jinterface-dest dest)
                                              :prefix ""
                                              :lisp-name package
                                              :if-exists :supersede))
(defmacro write-class-defs (&body defs)
  `(list
    ,@(mapcar (fw.lu:destructuring-lambda ((&key java-class dest name))
                `(write-class-def ,java-class ,dest ,name))
              defs)))


(defun run ()
  (write-class-defs
    (:java-class "org.apache.curator.framework.CuratorFramework"
     :name 'fwoar.lw-curator.ji.framework::class
     :dest "cf.lisp")

    (:java-class "org.apache.curator.framework.CuratorFrameworkFactory"
     :name 'fwoar.lw-curator.ji.cff::class
     :dest "cff.lisp")

    (:java-class "org.apache.curator.retry.BoundedExponentialBackoffRetry"
     :name 'fwoar.lw-curator.ji.bebr::class
     :dest "bebr.lisp")

    (:java-class "org.apache.curator.framework.api.GetChildrenBuilder"
     :name 'fwoar.lw-curator.ji.gcb::class
     :dest "gcb.lisp")

    (:java-class "org.apache.curator.framework.api.GetDataBuilder"
     :name 'fwoar.lw-curator.ji.gdb::class
     :dest "gdb.lisp")

    (:java-class "java.util.ArrayList"
     :name 'fwoar.lw-curator.ji.al::class
     :dest "al.lisp")))

#+fwoar.gen
(progn
  (run)
  (ql:quickload :lw-curator))