diff options
| author | Alexander Polakov <plhk@sdf.org> | 2013-02-25 03:30:53 +0400 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-02-25 07:23:06 +0100 |
| commit | c9d6896cbd7e03af344f5d053c267174ccd10a11 (patch) | |
| tree | 2dbd6a0c0399f0f112688b8059c0f84638c77327 /src/XGraphic.hs | |
| parent | 4a2df063a22228274fca1bee69fa73989995be47 (diff) | |
| download | xmobar-c9d6896cbd7e03af344f5d053c267174ccd10a11.tar.gz xmobar-c9d6896cbd7e03af344f5d053c267174ccd10a11.tar.bz2 | |
readBitmapFile was included into X11 package
Diffstat (limited to 'src/XGraphic.hs')
| -rw-r--r-- | src/XGraphic.hs | 52 |
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 |