src/xml_handler.clj

   1
   2 (use 'helpers)
   3
   4 (import 'java.io.ByteArrayInputStream)
   5 (require 'clojure.xml)
   6
   7 (defn xml_handler [node handler]
   8    (if (instance? com.interrupt.bookkeeping.cc.node.AXmlCommandInput (. node getCommandInput) )
   9                         (do
  10
  11                            (println "XML input[" (.. node getCommandInput toString) "]")
  12                            (let [xml-string (filterSpacesFromXML (.. node getCommandInput toString))]
  13
  14                                         (println "XML filtered[" xml-string "]")
  15                                         (handler (clojure.xml/parse (ByteArrayInputStream. (.getBytes xml-string "UTF-8"))))
  16
  17                            )
  18
  19                         )
  20    )
  21 )
  22