summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins/Monitors/Mem/FreeBSD.hs
diff options
context:
space:
mode:
authorMichal Zielonka <michal.zielonka.8001@gmail.com>2021-10-07 23:25:09 +0200
committerMichal Zielonka <michal.zielonka.8001@gmail.com>2021-10-08 11:11:11 +0200
commitb99a8a6833a1b38882b463fd72784cd6d6f91d9e (patch)
tree9537dcfe5eff2108937bf9a2160a5f15a7a266e5 /src/Xmobar/Plugins/Monitors/Mem/FreeBSD.hs
parenta845465fec735d9818a61d078337653b5293da5c (diff)
downloadxmobar-b99a8a6833a1b38882b463fd72784cd6d6f91d9e.tar.gz
xmobar-b99a8a6833a1b38882b463fd72784cd6d6f91d9e.tar.bz2
try to reorganize modules per os
We should make better split os specify code for FreeBSD and Linux. Idea comes from @liskin.
Diffstat (limited to 'src/Xmobar/Plugins/Monitors/Mem/FreeBSD.hs')
-rw-r--r--src/Xmobar/Plugins/Monitors/Mem/FreeBSD.hs45
1 files changed, 45 insertions, 0 deletions
diff --git a/src/Xmobar/Plugins/Monitors/Mem/FreeBSD.hs b/src/Xmobar/Plugins/Monitors/Mem/FreeBSD.hs
new file mode 100644
index 0000000..787cace
--- /dev/null
+++ b/src/Xmobar/Plugins/Monitors/Mem/FreeBSD.hs
@@ -0,0 +1,45 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module : Plugins.Monitors.Mem.FreeBSD
+-- Copyright : (c) Andrea Rossato
+-- License : BSD-style (see LICENSE)
+--
+-- Maintainer : Jose A. Ortega Ruiz <jao@gnu.org>
+-- Stability : unstable
+-- Portability : unportable
+--
+-- A memory monitor for Xmobar
+--
+-----------------------------------------------------------------------------
+
+module Xmobar.Plugins.Monitors.Mem.FreeBSD (parseMEM) where
+
+import System.BSD.Sysctl (sysctlReadUInt)
+
+parseMEM :: IO [Float]
+parseMEM = do stats <- mapM sysctlReadUInt [
+ "vm.stats.vm.v_page_size"
+ , "vm.stats.vm.v_page_count"
+ , "vm.stats.vm.v_free_count"
+ , "vm.stats.vm.v_active_count"
+ , "vm.stats.vm.v_inactive_count"
+ , "vm.stats.vm.v_wire_count"
+ , "vm.stats.vm.v_cache_count"]
+
+ let [ pagesize, totalpages, freepages, activepages, inactivepages, wiredpages, cachedpages ] = fmap fromIntegral stats
+ usedpages = activepages + wiredpages + cachedpages
+ availablepages = inactivepages + cachedpages + freepages
+ bufferedpages = activepages + inactivepages + wiredpages
+
+ available = availablepages * pagesize
+ used = usedpages * pagesize
+ free = freepages * pagesize
+ cache = cachedpages * pagesize
+ buffer = bufferedpages * pagesize
+ total = totalpages * pagesize
+
+ usedratio = usedpages / totalpages
+ freeratio = freepages / totalpages
+ availableratio = availablepages / totalpages
+
+ return [usedratio, freeratio, availableratio, total, free, buffer, cache, available, used]