summaryrefslogtreecommitdiffhomepage
path: root/src/IWlib.hsc
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-12-21 02:36:35 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-12-21 02:36:35 +0100
commite3853a9cb2a9a2cffa174d1334e2ca8ba610f151 (patch)
tree13aa04faea320afe85636e23686280386c1c2910 /src/IWlib.hsc
parent598bfe5deeff079280e8513c55dc7bda3e8cf9a0 (diff)
downloadxmobar-e3853a9cb2a9a2cffa174d1334e2ca8ba610f151.tar.gz
xmobar-e3853a9cb2a9a2cffa174d1334e2ca8ba610f151.tar.bz2
Haskell sources moved to src/ to unclutter toplevel
Diffstat (limited to 'src/IWlib.hsc')
-rw-r--r--src/IWlib.hsc75
1 files changed, 75 insertions, 0 deletions
diff --git a/src/IWlib.hsc b/src/IWlib.hsc
new file mode 100644
index 0000000..5f7754d
--- /dev/null
+++ b/src/IWlib.hsc
@@ -0,0 +1,75 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module : IWlib
+-- Copyright : (c) Jose A Ortega Ruiz
+-- License : BSD-style (see LICENSE)
+--
+-- Maintainer : Jose A Ortega Ruiz <jao@gnu.org>
+-- Stability : unstable
+-- Portability : unportable
+--
+-- A partial binding to iwlib
+--
+-----------------------------------------------------------------------------
+
+{-# LANGUAGE CPP, ForeignFunctionInterface, EmptyDataDecls #-}
+
+
+module IWlib (WirelessInfo(..), getWirelessInfo) where
+
+import Foreign
+import Foreign.C.Types
+import Foreign.C.String
+
+data WirelessInfo = WirelessInfo { wiEssid :: String, wiQuality :: Int }
+ deriving Show
+
+#include <iwlib.h>
+
+data WCfg
+data WStats
+data WRange
+
+foreign import ccall "iwlib.h iw_sockets_open"
+ c_iw_open :: IO CInt
+
+foreign import ccall "unistd.h close"
+ c_iw_close :: CInt -> IO ()
+
+foreign import ccall "iwlib.h iw_get_basic_config"
+ c_iw_basic_config :: CInt -> CString -> Ptr WCfg -> IO CInt
+
+foreign import ccall "iwlib.h iw_get_stats"
+ c_iw_stats :: CInt -> CString -> Ptr WStats -> Ptr WRange -> CInt -> IO CInt
+
+foreign import ccall "iwlib.h iw_get_range_info"
+ c_iw_range :: CInt -> CString -> Ptr WRange -> IO CInt
+
+getWirelessInfo :: String -> IO WirelessInfo
+getWirelessInfo iface =
+ allocaBytes (#size struct wireless_config) $ \wc ->
+ allocaBytes (#size struct iw_statistics) $ \stats ->
+ allocaBytes (#size struct iw_range) $ \rng ->
+ withCString iface $ \istr -> do
+ i <- c_iw_open
+ bcr <- c_iw_basic_config i istr wc
+ str <- c_iw_stats i istr stats rng 1
+ rgr <- c_iw_range i istr rng
+ c_iw_close i
+ if (bcr < 0) then return WirelessInfo { wiEssid = "", wiQuality = 0 } else
+ do hase <- (#peek struct wireless_config, has_essid) wc :: IO CInt
+ eon <- (#peek struct wireless_config, essid_on) wc :: IO CInt
+ essid <- if hase /= 0 && eon /= 0 then
+ do let e = (#ptr struct wireless_config, essid) wc
+ peekCString e
+ else return ""
+ q <- if str >= 0 && rgr >=0 then
+ do qualv <- xqual $ (#ptr struct iw_statistics, qual) stats
+ mv <- xqual $ (#ptr struct iw_range, max_qual) rng
+ let mxv = if mv /= 0 then fromIntegral mv else 1
+ return $ fromIntegral qualv / mxv
+ else return 0
+ let qv = round (100 * (q :: Double))
+ return $ WirelessInfo { wiEssid = essid, wiQuality = min 100 qv }
+ where xqual p = let qp = (#ptr struct iw_param, value) p in
+ (#peek struct iw_quality, qual) qp :: IO CChar