Show OpenGL information

src/Glest/Renderer.hs

@@ -3,6 +3,7 @@ module Glest.Renderer (
 ) where
 
 import Foreign
+import Foreign.C.String
 import Glest.Egl
 import Graphics.GL.Embedded20
 import Graphics.GL.Types
@@ -11,9 +12,27 @@ import Quasar.Prelude
 
 testRenderer :: IO ()
 testRenderer = do
-  initializeEgl
+  initializeRenderer
   renderToDmabuf
 
+initializeRenderer :: IO ()
+initializeRenderer = do
+  initializeEgl
+  vendor <- glGetString' GL_VENDOR
+  renderer <- glGetString' GL_RENDERER
+  version <- glGetString' GL_VERSION
+  shadingLanguageVersion <- glGetString' GL_SHADING_LANGUAGE_VERSION
+  extensionsString <- glGetString' GL_EXTENSIONS
+  traceIO $ "GL vendor: " <> vendor
+  traceIO $ "GL renderer: " <> renderer
+  traceIO $ "GL version: " <> version
+  traceIO $ "GL shading language version: " <> shadingLanguageVersion
+  traceIO $ "GL extensions: " <> extensionsString
+
+glGetString' :: GLenum -> IO String
+glGetString' name = peekCString . castPtr =<< glGetString name
+
+
 renderToDmabuf :: IO ()
 renderToDmabuf = do
   texture <- genTexture