snipt

Ctrl+h for KB shortcuts

Text only

clojure memory dump

;taken from clojure mailing list

(ns test_io
  (:import (java.lang.management ManagementFactory MemoryType)))

(defn memory-usage []
  (let [pools (ManagementFactory/getMemoryPoolMXBeans)
        mb (* 1024.0 1024.0)
        step (fn [pools tu tr tm]
               (if (not (seq pools))
                 [(/ tu mb) (/ tr mb) (/ tm mb)]
                 (let [pool (first pools)
                       usage (. pool getUsage)]
                   (recur (rest pools)
                          (+ tu (. usage getUsed))
                          (+ tr (. usage getCommitted))
                          (+ tm (. usage getMax))))))]
    (step (filter #(= (. % getType) MemoryType/HEAP) pools) 0 0 0)))

(defn dump-memory-usage [[used reserved max]]
  (println (format "used: %.2fMB, reserved: %.2fMB, max: %.2fMB"
                   used reserved max))) 

(dump-memory-usage (memory-usage))
https://snipt.net/embed/9fd2ae8ae09bbe3b6e6057570a4a07a1/
/raw/9fd2ae8ae09bbe3b6e6057570a4a07a1/
9fd2ae8ae09bbe3b6e6057570a4a07a1
text
Text only
24
2019-06-16T04:52:58
True
False
False
/api/public/snipt/7005/
clojure-memory-dump
<table class="highlighttable"><tr><td class="linenos"><div class="linenodiv"><pre><a href="#L-1"> 1</a> <a href="#L-2"> 2</a> <a href="#L-3"> 3</a> <a href="#L-4"> 4</a> <a href="#L-5"> 5</a> <a href="#L-6"> 6</a> <a href="#L-7"> 7</a> <a href="#L-8"> 8</a> <a href="#L-9"> 9</a> <a href="#L-10">10</a> <a href="#L-11">11</a> <a href="#L-12">12</a> <a href="#L-13">13</a> <a href="#L-14">14</a> <a href="#L-15">15</a> <a href="#L-16">16</a> <a href="#L-17">17</a> <a href="#L-18">18</a> <a href="#L-19">19</a> <a href="#L-20">20</a> <a href="#L-21">21</a> <a href="#L-22">22</a> <a href="#L-23">23</a> <a href="#L-24">24</a></pre></div></td><td class="code"><div class="highlight"><pre><span></span><span id="L-1"><a name="L-1"></a>;taken from clojure mailing list </span><span id="L-2"><a name="L-2"></a> </span><span id="L-3"><a name="L-3"></a>(ns test_io </span><span id="L-4"><a name="L-4"></a> (:import (java.lang.management ManagementFactory MemoryType))) </span><span id="L-5"><a name="L-5"></a> </span><span id="L-6"><a name="L-6"></a>(defn memory-usage [] </span><span id="L-7"><a name="L-7"></a> (let [pools (ManagementFactory/getMemoryPoolMXBeans) </span><span id="L-8"><a name="L-8"></a> mb (* 1024.0 1024.0) </span><span id="L-9"><a name="L-9"></a> step (fn [pools tu tr tm] </span><span id="L-10"><a name="L-10"></a> (if (not (seq pools)) </span><span id="L-11"><a name="L-11"></a> [(/ tu mb) (/ tr mb) (/ tm mb)] </span><span id="L-12"><a name="L-12"></a> (let [pool (first pools) </span><span id="L-13"><a name="L-13"></a> usage (. pool getUsage)] </span><span id="L-14"><a name="L-14"></a> (recur (rest pools) </span><span id="L-15"><a name="L-15"></a> (+ tu (. usage getUsed)) </span><span id="L-16"><a name="L-16"></a> (+ tr (. usage getCommitted)) </span><span id="L-17"><a name="L-17"></a> (+ tm (. usage getMax))))))] </span><span id="L-18"><a name="L-18"></a> (step (filter #(= (. % getType) MemoryType/HEAP) pools) 0 0 0))) </span><span id="L-19"><a name="L-19"></a> </span><span id="L-20"><a name="L-20"></a>(defn dump-memory-usage [[used reserved max]] </span><span id="L-21"><a name="L-21"></a> (println (format &quot;used: %.2fMB, reserved: %.2fMB, max: %.2fMB&quot; </span><span id="L-22"><a name="L-22"></a> used reserved max))) </span><span id="L-23"><a name="L-23"></a> </span><span id="L-24"><a name="L-24"></a>(dump-memory-usage (memory-usage)) </span></pre></div> </td></tr></table>
clojure