XmlRpcRequestWrapper.clj

(ns mbox.harpo.xmlrpc.XmlRpcRequestWrapper
  (:gen-class
   :extends javax.servlet.http.HttpServletRequestWrapper
   :init    init
   :state   state
   :constructors {[javax.servlet.http.HttpServletRequest java.io.ByteArrayInputStream]
                     [javax.servlet.http.HttpServletRequest]})

  (:import
   [java.io Reader ByteArrayInputStream]
   [javax.servlet ServletInputStream]
   [javax.servlet.http HttpServletRequestWrapper HttpServletRequest]))


(defn -init [#^HttpServletRequest req & args]
  (if-let [byte-array-instr (first args)]
    [[req] (atom {:input-stream byte-array-instr})]
    [[req] (atom {})]))

(defn #^ServletInputStream -getInputStream [this]
  (@(.state this) :input-stream))