Skip to content

Instantly share code, notes, and snippets.

@kanaka

kanaka/libvirt.clj

Created November 12, 2011 21:14
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save kanaka/1361130 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save kanaka/1361130 to your computer and use it in GitHub Desktop.
Download ZIP
Clojure+libvirt quick test
Raw
libvirt.clj
(import '(org.libvirt Connect))
(def c (Connect. "test:///default", true))
(def dom (.domainLookupByName c "test"))
(.getName dom)
(.getID dom)
(.getXMLDesc dom 0)
(.getInfo dom)
(defn di [^org.libvirt.DomainInfo x]
{:state (keyword (str (.state x)))
:maxMem (.maxMem x)
:memory (.memory x)
:nrVirtCpu (.nrVirtCpu x)
:cpuTime (.cpuTime x)})
(:maxMem (di (.getInfo dom)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment