summaryrefslogtreecommitdiffhomepage
path: root/src/XGraphic.hs
diff options
context:
space:
mode:
authorAlexander Polakov <plhk@sdf.org>2013-02-25 03:30:53 +0400
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-02-25 07:23:06 +0100
commitc9d6896cbd7e03af344f5d053c267174ccd10a11 (patch)
tree2dbd6a0c0399f0f112688b8059c0f84638c77327 /src/XGraphic.hs
parent4a2df063a22228274fca1bee69fa73989995be47 (diff)
downloadxmobar-c9d6896cbd7e03af344f5d053c267174ccd10a11.tar.gz
xmobar-c9d6896cbd7e03af344f5d053c267174ccd10a11.tar.bz2
readBitmapFile was included into X11 package
Diffstat (limited to 'src/XGraphic.hs')
-rw-r--r--src/XGraphic.hs52
1 files changed, 0 insertions, 52 deletions
diff --git a/src/XGraphic.hs b/src/XGraphic.hs
deleted file mode 100644
index 416177f..0000000
--- a/src/XGraphic.hs
+++ /dev/null
@@ -1,52 +0,0 @@
-{-# LANGUAGE ForeignFunctionInterface #-}
------------------------------------------------------------------------------
--- |
--- Module : XGraphic
--- Copyright : Copyright © 2013 Edward O'Callaghan. All Rights Reserved.
--- License : BSD3
---
--- Maintainer : Edward O'Callaghan - <victoredwardocallaghan@gmail.com>
--- Stability : unstable
--- Portability : unportable
---
------------------------------------------------------------------------------
-
-module XGraphic
- ( readBitmapFile
- ) where
-
-import Graphics.X11.Xlib
---import Graphics.X11.Xlib.Misc
-import Foreign
-import Foreign.C
-
--- | interface to the X11 library function @XWriteBitmapFile@.
-readBitmapFile :: Display -> Drawable -> String
- -> IO (Either String (Dimension, Dimension, Pixmap, Maybe CInt, Maybe CInt))
-readBitmapFile display d filename =
- withCString filename $ \ c_filename ->
- alloca $ \ width_return ->
- alloca $ \ height_return ->
- alloca $ \ bitmap_return ->
- alloca $ \ x_hot_return ->
- alloca $ \ y_hot_return -> do
- rv <- xReadBitmapFile display d c_filename width_return height_return
- bitmap_return x_hot_return y_hot_return
- width <- peek width_return
- height <- peek height_return
- bitmap <- peek bitmap_return
- x_hot <- peek x_hot_return
- y_hot <- peek y_hot_return
- let m_x_hot | x_hot == -1 = Nothing
- | otherwise = Just x_hot
- m_y_hot | y_hot == -1 = Nothing
- | otherwise = Just y_hot
- case rv of
- 0 -> return $ Right (fromIntegral width, fromIntegral height, bitmap, m_x_hot, m_y_hot)
- 1 -> return $ Left "readBitmapFile: BitmapOpenFailed"
- 2 -> return $ Left "readBitmapFile: BitmapFileInvalid"
- 3 -> return $ Left "readBitmapFile: BitmapNoMemory"
- _ -> return $ Left "readBitmapFile: BitmapUnknownError"
-foreign import ccall unsafe "X11/Xlib.h XReadBitmapFile"
- xReadBitmapFile :: Display -> Drawable -> CString -> Ptr CInt -> Ptr CInt
- -> Ptr Pixmap -> Ptr CInt -> Ptr CInt -> IO CInt