Added thermal, cpufreq and coretemp monitors.

Prerequisities:
thermal
- thermal module should be loaded/compiled in kernel
- available in (at least) intel centrino processors
cpufreq
- acpi_cpufreq module should be loaded/compiled in kernel
- available in modern processors
coretemp
- coretemp module should be loaded/compiled in kernel
- available (at least) in core 2 duo processors

darcs-hash:20071130205430-f49a6-0ff042af60c91416fd8dd8190cbd9022bcabb269.gz

1 files changed, 41 insertions, 0 deletions

diff --git a/Plugins/Monitors/CoreCommon.hs b/Plugins/Monitors/CoreCommon.hs
new file mode 100644
index 0000000..de737d4
--- /dev/null
+++ b/Plugins/Monitors/CoreCommon.hs
@@ -0,0 +1,41 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  Plugins.Monitors.CoreCommon
+-- Copyright   :  (c) Juraj Hercek
+-- License     :  BSD-style (see LICENSE)
+--
+-- Maintainer  :  Juraj Hercek <juhe_haskell@hck.sk>
+-- Stability   :  unstable
+-- Portability :  unportable
+--
+-- The common part for cpu core monitors (e.g. cpufreq, coretemp)
+--
+-----------------------------------------------------------------------------
+
+module Plugins.Monitors.CoreCommon where
+
+import Plugins.Monitors.Common
+import System.Posix.Files (fileExist)
+import System.Directory
+
+checkedDataRetrieval :: String -> String -> String -> String -> Double -> Monitor String
+checkedDataRetrieval failureMessage dir file pattern divisor = do
+    exists <- io $ fileExist $ foldl (++) dir ["/", pattern, "0/", file]
+    case exists of
+         False  -> return failureMessage
+         True   -> retrieveData dir file pattern divisor
+
+retrieveData :: String -> String -> String -> Double -> Monitor String
+retrieveData dir file pattern divisor = do
+    count <- io $ dirCount dir pattern
+    contents <- io $ mapM readFile $ files count
+    values <- mapM (showWithColors show) $ map conversion contents
+    parseTemplate values
+    where
+        dirCount path str = getDirectoryContents path
+                            >>= return . length
+                                       . filter ((str ==) . take (length str))
+        files count = [ foldl (++) dir [ "/", pattern, show i, "/", file ]
+                      | i <- [0 .. count - 1] ]
+        conversion = flip (/) divisor . (read :: String -> Double)
+