diff options
Diffstat (limited to 'src/clojure/contrib/jmx/Bean.clj')
| -rw-r--r-- | src/clojure/contrib/jmx/Bean.clj | 45 |
1 files changed, 18 insertions, 27 deletions
diff --git a/src/clojure/contrib/jmx/Bean.clj b/src/clojure/contrib/jmx/Bean.clj index cae67d21..e04789c9 100644 --- a/src/clojure/contrib/jmx/Bean.clj +++ b/src/clojure/contrib/jmx/Bean.clj @@ -1,35 +1,26 @@ -(ns clojure.contrib.jmx.Bean - (:gen-class - :implements [javax.management.DynamicMBean] - :init init - :state state - :constructors {[Object] []}) - (:require [clojure.contrib.jmx :as jmx]) - (:import [javax.management DynamicMBean MBeanInfo AttributeList])) - -(defn -init [derefable] - [[] derefable]) +(in-ns 'clojure.contrib.jmx) +(import '[javax.management DynamicMBean MBeanInfo AttributeList]) ; TODO: rest of the arguments, as needed -(defn generate-mbean-info [clj-bean] - (MBeanInfo. (.. clj-bean getClass getName) ; class name +(defn generate-mbean-info [reference] + (MBeanInfo. "clojure.contrib.jmx.Bean" ; class name "Clojure Dynamic MBean" ; description - (jmx/map->attribute-infos @(.state clj-bean)) ; attributes + (map->attribute-infos @reference) ; attributes nil ; constructors nil ; operations nil)) ; notifications -(defn -getMBeanInfo - [this] - (generate-mbean-info this)) - -(defn -getAttribute - [this attr] - (@(.state this) (keyword attr))) +(deftype Bean [reference] [javax.management.DynamicMBean] + (.getMBeanInfo + [] + (generate-mbean-info reference)) + (.getAttribute + [attr] + (@reference (keyword attr))) + (.getAttributes + [attrs] + (let [result (AttributeList.)] + (doseq [attr attrs] + (.add result (.getAttribute this attr))) + result))) -(defn -getAttributes - [this attrs] - (let [result (AttributeList.)] - (doseq [attr attrs] - (.add result (.getAttribute this attr))) - result))
\ No newline at end of file |