Hi all, long time lurker first time irritant.
I have been playing with clojure for a little while, and finding it most
excellent; however my lack of lisp thinking keeps leading me to write
ugly code.
I have the following code in java:
------
static final String CONNECTOR_ADDRESS =
"com.sun.management.jmxremote.localConnectorAddress";
VirtualMachine vm = VirtualMachine.attach(id);
String connectorAddress =
vm.getAgentProperties().getProperty(CONNECTOR_ADDRESS);
// no connector address, so we start the JMX agent
if (connectorAddress == null) {
String agent = vm.getSystemProperties().getProperty("java.home") +
File.separator + "lib" + File.separator + "management-agent.jar";
vm.loadAgent(agent);
// agent is started, get the connector address
connectorAddress =
vm.getAgentProperties().getProperty(CONNECTOR_ADDRESS);
}
-----
I have translated this into the following clojure form
---
(defn obtain-local-connection [vmid]
(let [vm (VirtualMachine/attach vmid)]
(let [aquire-connector
#(.. vm (getAgentProperties) (getProperty
"com.sun.management.jmxremote.localConnectorAddress"))]
(if (aquire-connector) aquire-connector
(do
(. vm (loadAgent
(apply str
(interpose java.io.File/separator
(list (.. vm (getSystemProperties) (getProperty
"java.home"))
"lib" "management-agent.jar")))))
(aquire-connector))))
;(. vm detach))
))
---
My question would be is there a better way to express this ?
Many thanks
-- Greg Bowyer
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
