Generate first-level re-exports, too. Various cleanups.

Author: svenpanne

RegistryProcessor/src/Main.hs

@@ -24,7 +24,7 @@ module MangledRegistry (
   ExtensionName(..),
   API(..),
   Version(..),
-  splitBy
+  splitWords, joinWords
 ) where
 
 import qualified Data.Char as C
@@ -128,16 +128,24 @@ toEnum' toTypeName e = Enum {
 
 mangleEnumName :: String -> EnumName
 mangleEnumName =
-  EnumName . L.intercalate [splitChar] . headToLower . splitBy (== splitChar)
-  where splitChar = '_'
-        headToLower xs = map C.toLower (head xs) : tail xs
+  EnumName . joinWords . headToLower . splitWords
+  where headToLower xs = map C.toLower (head xs) : tail xs
+
+splitChar :: Char
+splitChar = '_'
+
+splitWords :: String -> [String]
+splitWords = splitBy (== splitChar)
 
 splitBy :: (a -> Bool) -> [a] -> [[a]]
 splitBy _ [] = []
 splitBy p xs = case break p xs of
                 (ys, []  ) -> [ys]
                 (ys, _:zs) -> ys : splitBy p zs
 
+joinWords :: [String] -> String
+joinWords = L.intercalate [splitChar]
+
 data Command = Command {
   resultType :: SignatureElement,
   paramTypes :: [SignatureElement],
@@ -283,9 +291,8 @@ toExtensionName :: R.Name -> ExtensionName
 toExtensionName name = ExtensionName {
    extensionNameAPI = a,
    extensionNameCategory = c,
-   extensionNameName = n }
-   where (a, _:rest) = break (== '_') (R.unName name)
-         (c, _:n) = break (== '_') rest
+   extensionNameName = joinWords rest }
+   where (a:c:rest) = splitWords (R.unName name)
 
 newtype API = API { unAPI :: String } deriving (Eq, Ord, Show)
 

RegistryProcessor/src/MangledRegistry.hs

@@ -17,9 +17,9 @@ module Graphics.Rendering.OpenGL.Raw.ARB (
   module Graphics.Rendering.OpenGL.Raw.ARB.BindlessTexture,
   module Graphics.Rendering.OpenGL.Raw.ARB.BlendFuncExtended,
   module Graphics.Rendering.OpenGL.Raw.ARB.BufferStorage,
+  module Graphics.Rendering.OpenGL.Raw.ARB.CLEvent,
   module Graphics.Rendering.OpenGL.Raw.ARB.ClearBufferObject,
   module Graphics.Rendering.OpenGL.Raw.ARB.ClearTexture,
-  module Graphics.Rendering.OpenGL.Raw.ARB.CLEvent,
   module Graphics.Rendering.OpenGL.Raw.ARB.ClipControl,
   module Graphics.Rendering.OpenGL.Raw.ARB.ColorBufferFloat,
   module Graphics.Rendering.OpenGL.Raw.ARB.CompressedTexturePixelStorage,
@@ -34,35 +34,35 @@ module Graphics.Rendering.OpenGL.Raw.ARB (
   module Graphics.Rendering.OpenGL.Raw.ARB.DepthClamp,
   module Graphics.Rendering.OpenGL.Raw.ARB.DepthTexture,
   module Graphics.Rendering.OpenGL.Raw.ARB.DirectStateAccess,
-  module Graphics.Rendering.OpenGL.Raw.ARB.DrawBuffersBlend,
   module Graphics.Rendering.OpenGL.Raw.ARB.DrawBuffers,
+  module Graphics.Rendering.OpenGL.Raw.ARB.DrawBuffersBlend,
   module Graphics.Rendering.OpenGL.Raw.ARB.DrawElementsBaseVertex,
   module Graphics.Rendering.OpenGL.Raw.ARB.DrawIndirect,
   module Graphics.Rendering.OpenGL.Raw.ARB.DrawInstanced,
-  module Graphics.Rendering.OpenGL.Raw.ARB.EnhancedLayouts,
   module Graphics.Rendering.OpenGL.Raw.ARB.ES2Compatibility,
   module Graphics.Rendering.OpenGL.Raw.ARB.ES31Compatibility,
   module Graphics.Rendering.OpenGL.Raw.ARB.ES3Compatibility,
+  module Graphics.Rendering.OpenGL.Raw.ARB.EnhancedLayouts,
   module Graphics.Rendering.OpenGL.Raw.ARB.ExplicitUniformLocation,
   module Graphics.Rendering.OpenGL.Raw.ARB.FragmentProgram,
   module Graphics.Rendering.OpenGL.Raw.ARB.FragmentShader,
   module Graphics.Rendering.OpenGL.Raw.ARB.FramebufferNoAttachments,
   module Graphics.Rendering.OpenGL.Raw.ARB.FramebufferObjectCompatibility,
   module Graphics.Rendering.OpenGL.Raw.ARB.FramebufferObjectCore,
   module Graphics.Rendering.OpenGL.Raw.ARB.FramebufferSRGB,
+  module Graphics.Rendering.OpenGL.Raw.ARB.GPUShader5,
+  module Graphics.Rendering.OpenGL.Raw.ARB.GPUShaderFP64,
   module Graphics.Rendering.OpenGL.Raw.ARB.GeometryShader4,
   module Graphics.Rendering.OpenGL.Raw.ARB.GetProgramBinary,
   module Graphics.Rendering.OpenGL.Raw.ARB.GetTextureSubImage,
-  module Graphics.Rendering.OpenGL.Raw.ARB.GPUShader5,
-  module Graphics.Rendering.OpenGL.Raw.ARB.GPUShaderFP64,
   module Graphics.Rendering.OpenGL.Raw.ARB.HalfFloatPixel,
   module Graphics.Rendering.OpenGL.Raw.ARB.HalfFloatVertex,
   module Graphics.Rendering.OpenGL.Raw.ARB.ImagingCompatibility,
   module Graphics.Rendering.OpenGL.Raw.ARB.ImagingCore,
   module Graphics.Rendering.OpenGL.Raw.ARB.IndirectParameters,
   module Graphics.Rendering.OpenGL.Raw.ARB.InstancedArrays,
-  module Graphics.Rendering.OpenGL.Raw.ARB.InternalformatQuery2,
   module Graphics.Rendering.OpenGL.Raw.ARB.InternalformatQuery,
+  module Graphics.Rendering.OpenGL.Raw.ARB.InternalformatQuery2,
   module Graphics.Rendering.OpenGL.Raw.ARB.InvalidateSubdata,
   module Graphics.Rendering.OpenGL.Raw.ARB.MapBufferAlignment,
   module Graphics.Rendering.OpenGL.Raw.ARB.MapBufferRange,
@@ -71,8 +71,8 @@ module Graphics.Rendering.OpenGL.Raw.ARB (
   module Graphics.Rendering.OpenGL.Raw.ARB.MultiDrawIndirect,
   module Graphics.Rendering.OpenGL.Raw.ARB.Multisample,
   module Graphics.Rendering.OpenGL.Raw.ARB.Multitexture,
-  module Graphics.Rendering.OpenGL.Raw.ARB.OcclusionQuery2,
   module Graphics.Rendering.OpenGL.Raw.ARB.OcclusionQuery,
+  module Graphics.Rendering.OpenGL.Raw.ARB.OcclusionQuery2,
   module Graphics.Rendering.OpenGL.Raw.ARB.PipelineStatisticsQuery,
   module Graphics.Rendering.OpenGL.Raw.ARB.PixelBufferObject,
   module Graphics.Rendering.OpenGL.Raw.ARB.PointParameters,
@@ -82,8 +82,8 @@ module Graphics.Rendering.OpenGL.Raw.ARB (
   module Graphics.Rendering.OpenGL.Raw.ARB.QueryBufferObject,
   module Graphics.Rendering.OpenGL.Raw.ARB.RobustnessCompatibility,
   module Graphics.Rendering.OpenGL.Raw.ARB.RobustnessCore,
-  module Graphics.Rendering.OpenGL.Raw.ARB.SamplerObjects,
   module Graphics.Rendering.OpenGL.Raw.ARB.SampleShading,
+  module Graphics.Rendering.OpenGL.Raw.ARB.SamplerObjects,
   module Graphics.Rendering.OpenGL.Raw.ARB.SeamlessCubeMap,
   module Graphics.Rendering.OpenGL.Raw.ARB.SeamlessCubemapPerTexture,
   module Graphics.Rendering.OpenGL.Raw.ARB.SeparateShaderObjects,
@@ -94,8 +94,8 @@ module Graphics.Rendering.OpenGL.Raw.ARB (
   module Graphics.Rendering.OpenGL.Raw.ARB.ShaderSubroutine,
   module Graphics.Rendering.OpenGL.Raw.ARB.ShadingLanguage100,
   module Graphics.Rendering.OpenGL.Raw.ARB.ShadingLanguageInclude,
-  module Graphics.Rendering.OpenGL.Raw.ARB.ShadowAmbient,
   module Graphics.Rendering.OpenGL.Raw.ARB.Shadow,
+  module Graphics.Rendering.OpenGL.Raw.ARB.ShadowAmbient,
   module Graphics.Rendering.OpenGL.Raw.ARB.SparseBuffer,
   module Graphics.Rendering.OpenGL.Raw.ARB.SparseTexture,
   module Graphics.Rendering.OpenGL.Raw.ARB.StencilTexturing,
@@ -106,21 +106,21 @@ module Graphics.Rendering.OpenGL.Raw.ARB (
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureBufferObject,
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureBufferObjectRGB32,
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureBufferRange,
-  module Graphics.Rendering.OpenGL.Raw.ARB.TextureCompressionBPTC,
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureCompression,
+  module Graphics.Rendering.OpenGL.Raw.ARB.TextureCompressionBPTC,
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureCompressionRGTC,
-  module Graphics.Rendering.OpenGL.Raw.ARB.TextureCubeMapArray,
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureCubeMap,
+  module Graphics.Rendering.OpenGL.Raw.ARB.TextureCubeMapArray,
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureEnvCombine,
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureEnvDot3,
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureFloat,
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureGather,
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureMirrorClampToEdge,
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureMirroredRepeat,
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureMultisample,
-  module Graphics.Rendering.OpenGL.Raw.ARB.TextureRectangle,
-  module Graphics.Rendering.OpenGL.Raw.ARB.TextureRGB10A2UI,
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureRG,
+  module Graphics.Rendering.OpenGL.Raw.ARB.TextureRGB10A2UI,
+  module Graphics.Rendering.OpenGL.Raw.ARB.TextureRectangle,
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureStencil8,
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureStorage,
   module Graphics.Rendering.OpenGL.Raw.ARB.TextureStorageMultisample,
@@ -152,9 +152,9 @@ import Graphics.Rendering.OpenGL.Raw.ARB.BaseInstance
 import Graphics.Rendering.OpenGL.Raw.ARB.BindlessTexture
 import Graphics.Rendering.OpenGL.Raw.ARB.BlendFuncExtended
 import Graphics.Rendering.OpenGL.Raw.ARB.BufferStorage
+import Graphics.Rendering.OpenGL.Raw.ARB.CLEvent
 import Graphics.Rendering.OpenGL.Raw.ARB.ClearBufferObject
 import Graphics.Rendering.OpenGL.Raw.ARB.ClearTexture
-import Graphics.Rendering.OpenGL.Raw.ARB.CLEvent
 import Graphics.Rendering.OpenGL.Raw.ARB.ClipControl
 import Graphics.Rendering.OpenGL.Raw.ARB.ColorBufferFloat
 import Graphics.Rendering.OpenGL.Raw.ARB.CompressedTexturePixelStorage
@@ -169,35 +169,35 @@ import Graphics.Rendering.OpenGL.Raw.ARB.DepthBufferFloat
 import Graphics.Rendering.OpenGL.Raw.ARB.DepthClamp
 import Graphics.Rendering.OpenGL.Raw.ARB.DepthTexture
 import Graphics.Rendering.OpenGL.Raw.ARB.DirectStateAccess
-import Graphics.Rendering.OpenGL.Raw.ARB.DrawBuffersBlend
 import Graphics.Rendering.OpenGL.Raw.ARB.DrawBuffers
+import Graphics.Rendering.OpenGL.Raw.ARB.DrawBuffersBlend
 import Graphics.Rendering.OpenGL.Raw.ARB.DrawElementsBaseVertex
 import Graphics.Rendering.OpenGL.Raw.ARB.DrawIndirect
 import Graphics.Rendering.OpenGL.Raw.ARB.DrawInstanced
-import Graphics.Rendering.OpenGL.Raw.ARB.EnhancedLayouts
 import Graphics.Rendering.OpenGL.Raw.ARB.ES2Compatibility
 import Graphics.Rendering.OpenGL.Raw.ARB.ES31Compatibility
 import Graphics.Rendering.OpenGL.Raw.ARB.ES3Compatibility
+import Graphics.Rendering.OpenGL.Raw.ARB.EnhancedLayouts
 import Graphics.Rendering.OpenGL.Raw.ARB.ExplicitUniformLocation
 import Graphics.Rendering.OpenGL.Raw.ARB.FragmentProgram
 import Graphics.Rendering.OpenGL.Raw.ARB.FragmentShader
 import Graphics.Rendering.OpenGL.Raw.ARB.FramebufferNoAttachments
 import Graphics.Rendering.OpenGL.Raw.ARB.FramebufferObjectCompatibility
 import Graphics.Rendering.OpenGL.Raw.ARB.FramebufferObjectCore
 import Graphics.Rendering.OpenGL.Raw.ARB.FramebufferSRGB
+import Graphics.Rendering.OpenGL.Raw.ARB.GPUShader5
+import Graphics.Rendering.OpenGL.Raw.ARB.GPUShaderFP64
 import Graphics.Rendering.OpenGL.Raw.ARB.GeometryShader4
 import Graphics.Rendering.OpenGL.Raw.ARB.GetProgramBinary
 import Graphics.Rendering.OpenGL.Raw.ARB.GetTextureSubImage
-import Graphics.Rendering.OpenGL.Raw.ARB.GPUShader5
-import Graphics.Rendering.OpenGL.Raw.ARB.GPUShaderFP64
 import Graphics.Rendering.OpenGL.Raw.ARB.HalfFloatPixel
 import Graphics.Rendering.OpenGL.Raw.ARB.HalfFloatVertex
 import Graphics.Rendering.OpenGL.Raw.ARB.ImagingCompatibility
 import Graphics.Rendering.OpenGL.Raw.ARB.ImagingCore
 import Graphics.Rendering.OpenGL.Raw.ARB.IndirectParameters
 import Graphics.Rendering.OpenGL.Raw.ARB.InstancedArrays
-import Graphics.Rendering.OpenGL.Raw.ARB.InternalformatQuery2
 import Graphics.Rendering.OpenGL.Raw.ARB.InternalformatQuery
+import Graphics.Rendering.OpenGL.Raw.ARB.InternalformatQuery2
 import Graphics.Rendering.OpenGL.Raw.ARB.InvalidateSubdata
 import Graphics.Rendering.OpenGL.Raw.ARB.MapBufferAlignment
 import Graphics.Rendering.OpenGL.Raw.ARB.MapBufferRange
@@ -206,8 +206,8 @@ import Graphics.Rendering.OpenGL.Raw.ARB.MultiBind
 import Graphics.Rendering.OpenGL.Raw.ARB.MultiDrawIndirect
 import Graphics.Rendering.OpenGL.Raw.ARB.Multisample
 import Graphics.Rendering.OpenGL.Raw.ARB.Multitexture
-import Graphics.Rendering.OpenGL.Raw.ARB.OcclusionQuery2
 import Graphics.Rendering.OpenGL.Raw.ARB.OcclusionQuery
+import Graphics.Rendering.OpenGL.Raw.ARB.OcclusionQuery2
 import Graphics.Rendering.OpenGL.Raw.ARB.PipelineStatisticsQuery
 import Graphics.Rendering.OpenGL.Raw.ARB.PixelBufferObject
 import Graphics.Rendering.OpenGL.Raw.ARB.PointParameters
@@ -217,8 +217,8 @@ import Graphics.Rendering.OpenGL.Raw.ARB.ProvokingVertex
 import Graphics.Rendering.OpenGL.Raw.ARB.QueryBufferObject
 import Graphics.Rendering.OpenGL.Raw.ARB.RobustnessCompatibility
 import Graphics.Rendering.OpenGL.Raw.ARB.RobustnessCore
-import Graphics.Rendering.OpenGL.Raw.ARB.SamplerObjects
 import Graphics.Rendering.OpenGL.Raw.ARB.SampleShading
+import Graphics.Rendering.OpenGL.Raw.ARB.SamplerObjects
 import Graphics.Rendering.OpenGL.Raw.ARB.SeamlessCubeMap
 import Graphics.Rendering.OpenGL.Raw.ARB.SeamlessCubemapPerTexture
 import Graphics.Rendering.OpenGL.Raw.ARB.SeparateShaderObjects
@@ -229,8 +229,8 @@ import Graphics.Rendering.OpenGL.Raw.ARB.ShaderStorageBufferObject
 import Graphics.Rendering.OpenGL.Raw.ARB.ShaderSubroutine
 import Graphics.Rendering.OpenGL.Raw.ARB.ShadingLanguage100
 import Graphics.Rendering.OpenGL.Raw.ARB.ShadingLanguageInclude
-import Graphics.Rendering.OpenGL.Raw.ARB.ShadowAmbient
 import Graphics.Rendering.OpenGL.Raw.ARB.Shadow
+import Graphics.Rendering.OpenGL.Raw.ARB.ShadowAmbient
 import Graphics.Rendering.OpenGL.Raw.ARB.SparseBuffer
 import Graphics.Rendering.OpenGL.Raw.ARB.SparseTexture
 import Graphics.Rendering.OpenGL.Raw.ARB.StencilTexturing
@@ -241,21 +241,21 @@ import Graphics.Rendering.OpenGL.Raw.ARB.TextureBorderClamp
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureBufferObject
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureBufferObjectRGB32
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureBufferRange
-import Graphics.Rendering.OpenGL.Raw.ARB.TextureCompressionBPTC
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureCompression
+import Graphics.Rendering.OpenGL.Raw.ARB.TextureCompressionBPTC
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureCompressionRGTC
-import Graphics.Rendering.OpenGL.Raw.ARB.TextureCubeMapArray
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureCubeMap
+import Graphics.Rendering.OpenGL.Raw.ARB.TextureCubeMapArray
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureEnvCombine
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureEnvDot3
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureFloat
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureGather
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureMirrorClampToEdge
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureMirroredRepeat
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureMultisample
-import Graphics.Rendering.OpenGL.Raw.ARB.TextureRectangle
-import Graphics.Rendering.OpenGL.Raw.ARB.TextureRGB10A2UI
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureRG
+import Graphics.Rendering.OpenGL.Raw.ARB.TextureRGB10A2UI
+import Graphics.Rendering.OpenGL.Raw.ARB.TextureRectangle
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureStencil8
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureStorage
 import Graphics.Rendering.OpenGL.Raw.ARB.TextureStorageMultisample

src/Graphics/Rendering/OpenGL/Raw/ARB.hs

@@ -19,8 +19,8 @@ module Graphics.Rendering.OpenGL.Raw.ATI (
   module Graphics.Rendering.OpenGL.Raw.ATI.FragmentShader,
   module Graphics.Rendering.OpenGL.Raw.ATI.MapObjectBuffer,
   module Graphics.Rendering.OpenGL.Raw.ATI.Meminfo,
-  module Graphics.Rendering.OpenGL.Raw.ATI.PixelFormatFloat,
   module Graphics.Rendering.OpenGL.Raw.ATI.PNTriangles,
+  module Graphics.Rendering.OpenGL.Raw.ATI.PixelFormatFloat,
   module Graphics.Rendering.OpenGL.Raw.ATI.SeparateStencil,
   module Graphics.Rendering.OpenGL.Raw.ATI.TextFragmentShader,
   module Graphics.Rendering.OpenGL.Raw.ATI.TextureEnvCombine3,
@@ -37,8 +37,8 @@ import Graphics.Rendering.OpenGL.Raw.ATI.EnvmapBumpmap
 import Graphics.Rendering.OpenGL.Raw.ATI.FragmentShader
 import Graphics.Rendering.OpenGL.Raw.ATI.MapObjectBuffer
 import Graphics.Rendering.OpenGL.Raw.ATI.Meminfo
-import Graphics.Rendering.OpenGL.Raw.ATI.PixelFormatFloat
 import Graphics.Rendering.OpenGL.Raw.ATI.PNTriangles
+import Graphics.Rendering.OpenGL.Raw.ATI.PixelFormatFloat
 import Graphics.Rendering.OpenGL.Raw.ATI.SeparateStencil
 import Graphics.Rendering.OpenGL.Raw.ATI.TextFragmentShader
 import Graphics.Rendering.OpenGL.Raw.ATI.TextureEnvCombine3