-- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell) -- Edit the ORIGNAL .chs file instead! {-# LINE 1 "HGamer3D\\Bindings\\Ogre\\EnumVertexElementType.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE TypeSynonymInstances #-} -- This source file is part of HGamer3D -- (A project to enable 3D game development in Haskell) -- For the latest info, see http://www.althainz.de/HGamer3D.html -- -- (c) 2011 Peter Althainz -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at -- -- http://www.apache.org/licenses/LICENSE-2.0 -- -- Unless required by applicable law or agreed to in writing, software -- distributed under the License is distributed on an "AS IS" BASIS, -- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -- See the License for the specific language governing permissions and -- limitations under the License. -- -- EnumVertexElementType.h -- -- -- -- -- File for type, method, enum or function stubs -- in: "Dep-OgreSDK/include/OGRE\OgreHardwareVertexBuffer.h" -- -- each stub combines the following files: -- a C++ implementation file, transforming cpp calls into C-functions -- a C-header file, making this C-functions available for the C2HS parser -- a chs file, give instructions to the C2HS parser. -- -- module HGamer3D.Bindings.Ogre.EnumVertexElementType where import C2HS import Foreign import Foreign.Ptr import Foreign.C import Monad (liftM, liftM2) {- enum from Dep-OgreSDK/include/OGRE\OgreHardwareVertexBuffer.h line:107 -} data EnumVertexElementType = VetFloat1 | VetFloat2 | VetFloat3 | VetFloat4 | VetColour | VetShort1 | VetShort2 | VetShort3 | VetShort4 | VetUbyte4 | VetColourArgb | VetColourAbgr deriving (Eq) instance Enum EnumVertexElementType where fromEnum VetFloat1 = 0 fromEnum VetFloat2 = 1 fromEnum VetFloat3 = 2 fromEnum VetFloat4 = 3 fromEnum VetColour = 4 fromEnum VetShort1 = 5 fromEnum VetShort2 = 6 fromEnum VetShort3 = 7 fromEnum VetShort4 = 8 fromEnum VetUbyte4 = 9 fromEnum VetColourArgb = 10 fromEnum VetColourAbgr = 11 toEnum 0 = VetFloat1 toEnum 1 = VetFloat2 toEnum 2 = VetFloat3 toEnum 3 = VetFloat4 toEnum 4 = VetColour toEnum 5 = VetShort1 toEnum 6 = VetShort2 toEnum 7 = VetShort3 toEnum 8 = VetShort4 toEnum 9 = VetUbyte4 toEnum 10 = VetColourArgb toEnum 11 = VetColourAbgr toEnum unmatched = error ("EnumVertexElementType.toEnum: Cannot match " ++ show unmatched)