gistfile1.clj

(ns oncotrees.util
  (:import [org.python.core PyFloat PyInteger PyBoolean PyString
            PyList PyInstance PyNone]
           [java.util NoSuchElementException]))

(defn hashify [py-object]
  (cond (instance? PyNone py-object) nil
        (instance? PyInstance py-object)
        (letfn [(retr [key] (.__getitem__ (.__dict__ py-object) key))
                (de-iter [iter result]
                  (let [n (try
                            (.next iter)
                            (catch NoSuchElementException _ nil))]
                    (if (nil? n)
                      (reverse result)
                      (recur iter (cons n result)))))
                (lookup [key]
                  (let [p (retr key)]
                    (condp = (class p)
                        PyFloat (.asDouble p)
                        PyInteger (.asInt p)
                        PyBoolean (.__nonzero__ p)
                        PyString (.asString p)
                        PyList (map hashify (de-iter (.iterator p) nil))
                        (hashify p))))]
          (reduce (fn [m k] (assoc m (keyword k) (lookup k)))
                  (hash-map)
                  (.keys (.__dict__ py-object))))
        :else py-object))