-- 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\\OIS\\EnumEType.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 -- -- Copyright 2011 Dr. 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. -- -- EnumEType.h -- -- -- -- -- File for type, method, enum or function stubs -- in: "..\OgreSDK_vc10_v1-7-3\include\OIS\OISEffect.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.OIS.EnumEType where import C2HS import Foreign import Foreign.Ptr import Foreign.C import Monad (liftM, liftM2) {- enum from ..\OgreSDK_vc10_v1-7-3\include\OIS\OISEffect.h line:66 -} data EnumEType = Unknown | Constant | Ramp | Square | Triangle | Sine | Sawtoothup | Sawtoothdown | Friction | Damper | Inertia | Spring | Custom deriving (Eq) instance Enum EnumEType where fromEnum Unknown = 0 fromEnum Constant = 1 fromEnum Ramp = 2 fromEnum Square = 3 fromEnum Triangle = 4 fromEnum Sine = 5 fromEnum Sawtoothup = 6 fromEnum Sawtoothdown = 7 fromEnum Friction = 8 fromEnum Damper = 9 fromEnum Inertia = 10 fromEnum Spring = 11 fromEnum Custom = 12 toEnum 0 = Unknown toEnum 1 = Constant toEnum 2 = Ramp toEnum 3 = Square toEnum 4 = Triangle toEnum 5 = Sine toEnum 6 = Sawtoothup toEnum 7 = Sawtoothdown toEnum 8 = Friction toEnum 9 = Damper toEnum 10 = Inertia toEnum 11 = Spring toEnum 12 = Custom toEnum unmatched = error ("EnumEType.toEnum: Cannot match " ++ show unmatched)