Fixed event handling bug; don't provide generated bindings in git as they are probably not 64-bit clean

1 files changed, 0 insertions, 189 deletions

diff --git a/Bindings/GLPng.hs b/Bindings/GLPng.hs
deleted file mode 100644
index 3a6baab..0000000
--- a/Bindings/GLPng.hs
+++ /dev/null
@@ -1,189 +0,0 @@
-{-# INCLUDE <GL/gl.h> #-}
-{-# INCLUDE <GL/glpng.h> #-}
-{-# LINE 1 "Bindings/GLPng.hsc" #-}
-{-# LANGUAGE ForeignFunctionInterface, DeriveDataTypeable  #-}
-{-# LINE 2 "Bindings/GLPng.hsc" #-}
-
-module Bindings.GLPng ( PngInfo(..)
-                      , Mipmap(..)
-                      , Trans (..)
-                      , pngBind
-                      ) where
-
-import Data.Generics
-
-import Foreign.C.String (CString, withCString)
-import Foreign.C.Types
-import Foreign.Marshal.Alloc (alloca)
-import Foreign.Ptr
-import Foreign.Storable
-
-import Graphics.Rendering.OpenGL.GL.Texturing.Parameters (Repetition(..), Clamping(..), TextureFilter(..), MinificationFilter, MagnificationFilter)
-
-
-
-{-# LINE 21 "Bindings/GLPng.hsc" #-}
-
-{-# LINE 22 "Bindings/GLPng.hsc" #-}
-
-
-data PngInfo = PngInfo
-    { pngWidth  :: !CUInt
-    , pngHeight :: !CUInt
-    , pngDepth  :: !CUInt
-    , pngAlpha  :: !CUInt
-    } deriving (Eq, Ord, Show, Typeable)
-
-instance Storable PngInfo where
-    sizeOf _ = ((16))
-{-# LINE 33 "Bindings/GLPng.hsc" #-}
-    alignment _ = alignment (undefined :: CUInt)
-    
-    peek pi = do
-      w <- ((\hsc_ptr -> peekByteOff hsc_ptr 0)) pi
-{-# LINE 37 "Bindings/GLPng.hsc" #-}
-      h <- ((\hsc_ptr -> peekByteOff hsc_ptr 4)) pi
-{-# LINE 38 "Bindings/GLPng.hsc" #-}
-      d <- ((\hsc_ptr -> peekByteOff hsc_ptr 8)) pi
-{-# LINE 39 "Bindings/GLPng.hsc" #-}
-      a <- ((\hsc_ptr -> peekByteOff hsc_ptr 12)) pi
-{-# LINE 40 "Bindings/GLPng.hsc" #-}
-      
-      return (PngInfo w h d a)
-    
-    poke pi (PngInfo w h d a) = do
-                            ((\hsc_ptr -> pokeByteOff hsc_ptr 0)) pi w
-{-# LINE 45 "Bindings/GLPng.hsc" #-}
-                            ((\hsc_ptr -> pokeByteOff hsc_ptr 4)) pi h
-{-# LINE 46 "Bindings/GLPng.hsc" #-}
-                            ((\hsc_ptr -> pokeByteOff hsc_ptr 8)) pi d
-{-# LINE 47 "Bindings/GLPng.hsc" #-}
-                            ((\hsc_ptr -> pokeByteOff hsc_ptr 12)) pi a
-{-# LINE 48 "Bindings/GLPng.hsc" #-}
-    
-    
-
-
-png_NoMipmap :: CInt
-png_NoMipmap = (0)
-{-# LINE 54 "Bindings/GLPng.hsc" #-}
-
-png_BuildMipmap :: CInt
-png_BuildMipmap = (-1)
-{-# LINE 57 "Bindings/GLPng.hsc" #-}
-
-png_SimpleMipmap :: CInt
-png_SimpleMipmap = (-2)
-{-# LINE 60 "Bindings/GLPng.hsc" #-}
-
-
-data Mipmap = NoMipmap | BuildMipmap | SimpleMipmap
-            deriving (Eq, Show)
-
-marshalMipmap :: Mipmap -> CInt
-marshalMipmap m
-    | m == NoMipmap     = png_NoMipmap
-    | m == BuildMipmap  = png_BuildMipmap
-    | m == SimpleMipmap = png_SimpleMipmap
-
-
-png_Alpha :: CInt
-png_Alpha = (-2)
-{-# LINE 74 "Bindings/GLPng.hsc" #-}
-
-png_Solid :: CInt
-png_Solid = (-1)
-{-# LINE 77 "Bindings/GLPng.hsc" #-}
-
-data Trans = Alpha | Solid
-           deriving (Eq, Show)
-
-marshalTrans :: Trans -> CInt
-marshalTrans t
-    | t == Alpha = png_Alpha
-    | t == Solid = png_Solid
-
-
-magToMin :: MagnificationFilter -> MinificationFilter
-magToMin magFilter = (magFilter, Nothing)
-
-
-gl_NEAREST :: CInt
-gl_NEAREST = (9728)
-{-# LINE 93 "Bindings/GLPng.hsc" #-}
-
-gl_LINEAR :: CInt
-gl_LINEAR = (9729)
-{-# LINE 96 "Bindings/GLPng.hsc" #-}
-
-gl_NEAREST_MIPMAP_NEAREST :: CInt
-gl_NEAREST_MIPMAP_NEAREST = (9984)
-{-# LINE 99 "Bindings/GLPng.hsc" #-}
-
-gl_LINEAR_MIPMAP_NEAREST :: CInt
-gl_LINEAR_MIPMAP_NEAREST = (9985)
-{-# LINE 102 "Bindings/GLPng.hsc" #-}
-
-gl_NEAREST_MIPMAP_LINEAR :: CInt
-gl_NEAREST_MIPMAP_LINEAR = (9986)
-{-# LINE 105 "Bindings/GLPng.hsc" #-}
-
-gl_LINEAR_MIPMAP_LINEAR :: CInt
-gl_LINEAR_MIPMAP_LINEAR = (9987)
-{-# LINE 108 "Bindings/GLPng.hsc" #-}
-
-
-marshalMinificationFilter :: MinificationFilter -> CInt
-marshalMinificationFilter x = fromIntegral $ case x of
-   (Nearest, Nothing     ) -> gl_NEAREST
-   (Linear', Nothing     ) -> gl_LINEAR
-   (Nearest, Just Nearest) -> gl_NEAREST_MIPMAP_NEAREST
-   (Linear', Just Nearest) -> gl_LINEAR_MIPMAP_NEAREST
-   (Nearest, Just Linear') -> gl_NEAREST_MIPMAP_LINEAR
-   (Linear', Just Linear') -> gl_LINEAR_MIPMAP_LINEAR
-
-marshalMagnificationFilter :: MagnificationFilter -> CInt
-marshalMagnificationFilter = marshalMinificationFilter . magToMin
-
-
-gl_CLAMP :: CInt
-gl_CLAMP = (10496)
-{-# LINE 125 "Bindings/GLPng.hsc" #-}
-
-gl_REPEAT :: CInt
-gl_REPEAT = (10497)
-{-# LINE 128 "Bindings/GLPng.hsc" #-}
-
-gl_CLAMP_TO_EDGE :: CInt
-gl_CLAMP_TO_EDGE = (33071)
-{-# LINE 131 "Bindings/GLPng.hsc" #-}
-
-gl_CLAMP_TO_BORDER :: CInt
-gl_CLAMP_TO_BORDER = (33069)
-{-# LINE 134 "Bindings/GLPng.hsc" #-}
-
-gl_MIRRORED_REPEAT :: CInt
-gl_MIRRORED_REPEAT = (33648)
-{-# LINE 137 "Bindings/GLPng.hsc" #-}
-
-
-marshalTextureWrapMode :: (Repetition, Clamping) -> CInt
-marshalTextureWrapMode x = fromIntegral $ case x of
-   (Repeated, Clamp) -> gl_CLAMP
-   (Repeated, Repeat) -> gl_REPEAT
-   (Repeated, ClampToEdge) -> gl_CLAMP_TO_EDGE
-   (Repeated, ClampToBorder) -> gl_CLAMP_TO_BORDER
-   (Mirrored, Repeat) -> gl_MIRRORED_REPEAT
-   _ -> error ("marshalTextureWrapMode: illegal value " ++ show x)
-
-foreign import ccall unsafe "GL/glpng.h pngBind"
-        rawPngBind :: CString -> CInt -> CInt -> Ptr PngInfo -> CInt -> CInt -> CInt -> IO CUInt
-
-
-pngBind :: String -> Mipmap -> Trans -> (Repetition, Clamping) -> MinificationFilter -> MagnificationFilter -> IO (CUInt, PngInfo)
-pngBind name mipmap trans wrapst minfilter magfilter = alloca $ \infop -> withCString name $ \cname -> do
-                                                         ret <- rawPngBind cname (marshalMipmap mipmap) (marshalTrans trans) infop (marshalTextureWrapMode wrapst)
-                                                                          (marshalMinificationFilter minfilter) (marshalMagnificationFilter magfilter)
-                                                         info <- peek infop
-                                                         return (ret, info)
-                                                         
\ No newline at end of file