-- 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\\EnumKeyCode.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. -- -- EnumKeyCode.h -- -- -- -- -- File for type, method, enum or function stubs -- in: "..\OgreSDK_vc10_v1-7-3\include\OIS\OISKeyboard.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.EnumKeyCode where import C2HS import Foreign import Foreign.Ptr import Foreign.C import Monad (liftM, liftM2) {- enum from ..\OgreSDK_vc10_v1-7-3\include\OIS\OISKeyboard.h line:31 -} data EnumKeyCode = KcUnassigned | KcEscape | Kc1 | Kc2 | Kc3 | Kc4 | Kc5 | Kc6 | Kc7 | Kc8 | Kc9 | Kc0 | KcMinus | KcEquals | KcBack | KcTab | KcQ | KcW | KcE | KcR | KcT | KcY | KcU | KcI | KcO | KcP | KcLbracket | KcRbracket | KcReturn | KcLcontrol | KcA | KcS | KcD | KcF | KcG | KcH | KcJ | KcK | KcL | KcSemicolon | KcApostrophe | KcGrave | KcLshift | KcBackslash | KcZ | KcX | KcC | KcV | KcB | KcN | KcM | KcComma | KcPeriod | KcSlash | KcRshift | KcMultiply | KcLmenu | KcSpace | KcCapital | KcF1 | KcF2 | KcF3 | KcF4 | KcF5 | KcF6 | KcF7 | KcF8 | KcF9 | KcF10 | KcNumlock | KcScroll | KcNumpad7 | KcNumpad8 | KcNumpad9 | KcSubtract | KcNumpad4 | KcNumpad5 | KcNumpad6 | KcAdd | KcNumpad1 | KcNumpad2 | KcNumpad3 | KcNumpad0 | KcDecimal | KcOem102 | KcF11 | KcF12 | KcF13 | KcF14 | KcF15 | KcKana | KcAbntC1 | KcConvert | KcNoconvert | KcYen | KcAbntC2 | KcNumpadequals | KcPrevtrack | KcAt | KcColon | KcUnderline | KcKanji | KcStop | KcAx | KcUnlabeled | KcNexttrack | KcNumpadenter | KcRcontrol | KcMute | KcCalculator | KcPlaypause | KcMediastop | KcVolumedown | KcVolumeup | KcWebhome | KcNumpadcomma | KcDivide | KcSysrq | KcRmenu | KcPause | KcHome | KcUp | KcPgup | KcLeft | KcRight | KcEnd | KcDown | KcPgdown | KcInsert | KcDelete | KcLwin | KcRwin | KcApps | KcPower | KcSleep | KcWake | KcWebsearch | KcWebfavorites | KcWebrefresh | KcWebstop | KcWebforward | KcWebback | KcMycomputer | KcMail | KcMediaselect deriving (Eq) instance Enum EnumKeyCode where fromEnum KcUnassigned = 0 fromEnum KcEscape = 1 fromEnum Kc1 = 2 fromEnum Kc2 = 3 fromEnum Kc3 = 4 fromEnum Kc4 = 5 fromEnum Kc5 = 6 fromEnum Kc6 = 7 fromEnum Kc7 = 8 fromEnum Kc8 = 9 fromEnum Kc9 = 10 fromEnum Kc0 = 11 fromEnum KcMinus = 12 fromEnum KcEquals = 13 fromEnum KcBack = 14 fromEnum KcTab = 15 fromEnum KcQ = 16 fromEnum KcW = 17 fromEnum KcE = 18 fromEnum KcR = 19 fromEnum KcT = 20 fromEnum KcY = 21 fromEnum KcU = 22 fromEnum KcI = 23 fromEnum KcO = 24 fromEnum KcP = 25 fromEnum KcLbracket = 26 fromEnum KcRbracket = 27 fromEnum KcReturn = 28 fromEnum KcLcontrol = 29 fromEnum KcA = 30 fromEnum KcS = 31 fromEnum KcD = 32 fromEnum KcF = 33 fromEnum KcG = 34 fromEnum KcH = 35 fromEnum KcJ = 36 fromEnum KcK = 37 fromEnum KcL = 38 fromEnum KcSemicolon = 39 fromEnum KcApostrophe = 40 fromEnum KcGrave = 41 fromEnum KcLshift = 42 fromEnum KcBackslash = 43 fromEnum KcZ = 44 fromEnum KcX = 45 fromEnum KcC = 46 fromEnum KcV = 47 fromEnum KcB = 48 fromEnum KcN = 49 fromEnum KcM = 50 fromEnum KcComma = 51 fromEnum KcPeriod = 52 fromEnum KcSlash = 53 fromEnum KcRshift = 54 fromEnum KcMultiply = 55 fromEnum KcLmenu = 56 fromEnum KcSpace = 57 fromEnum KcCapital = 58 fromEnum KcF1 = 59 fromEnum KcF2 = 60 fromEnum KcF3 = 61 fromEnum KcF4 = 62 fromEnum KcF5 = 63 fromEnum KcF6 = 64 fromEnum KcF7 = 65 fromEnum KcF8 = 66 fromEnum KcF9 = 67 fromEnum KcF10 = 68 fromEnum KcNumlock = 69 fromEnum KcScroll = 70 fromEnum KcNumpad7 = 71 fromEnum KcNumpad8 = 72 fromEnum KcNumpad9 = 73 fromEnum KcSubtract = 74 fromEnum KcNumpad4 = 75 fromEnum KcNumpad5 = 76 fromEnum KcNumpad6 = 77 fromEnum KcAdd = 78 fromEnum KcNumpad1 = 79 fromEnum KcNumpad2 = 80 fromEnum KcNumpad3 = 81 fromEnum KcNumpad0 = 82 fromEnum KcDecimal = 83 fromEnum KcOem102 = 86 fromEnum KcF11 = 87 fromEnum KcF12 = 88 fromEnum KcF13 = 100 fromEnum KcF14 = 101 fromEnum KcF15 = 102 fromEnum KcKana = 112 fromEnum KcAbntC1 = 115 fromEnum KcConvert = 121 fromEnum KcNoconvert = 123 fromEnum KcYen = 125 fromEnum KcAbntC2 = 126 fromEnum KcNumpadequals = 141 fromEnum KcPrevtrack = 144 fromEnum KcAt = 145 fromEnum KcColon = 146 fromEnum KcUnderline = 147 fromEnum KcKanji = 148 fromEnum KcStop = 149 fromEnum KcAx = 150 fromEnum KcUnlabeled = 151 fromEnum KcNexttrack = 153 fromEnum KcNumpadenter = 156 fromEnum KcRcontrol = 157 fromEnum KcMute = 160 fromEnum KcCalculator = 161 fromEnum KcPlaypause = 162 fromEnum KcMediastop = 164 fromEnum KcVolumedown = 174 fromEnum KcVolumeup = 176 fromEnum KcWebhome = 178 fromEnum KcNumpadcomma = 179 fromEnum KcDivide = 181 fromEnum KcSysrq = 183 fromEnum KcRmenu = 184 fromEnum KcPause = 197 fromEnum KcHome = 199 fromEnum KcUp = 200 fromEnum KcPgup = 201 fromEnum KcLeft = 203 fromEnum KcRight = 205 fromEnum KcEnd = 207 fromEnum KcDown = 208 fromEnum KcPgdown = 209 fromEnum KcInsert = 210 fromEnum KcDelete = 211 fromEnum KcLwin = 219 fromEnum KcRwin = 220 fromEnum KcApps = 221 fromEnum KcPower = 222 fromEnum KcSleep = 223 fromEnum KcWake = 227 fromEnum KcWebsearch = 229 fromEnum KcWebfavorites = 230 fromEnum KcWebrefresh = 231 fromEnum KcWebstop = 232 fromEnum KcWebforward = 233 fromEnum KcWebback = 234 fromEnum KcMycomputer = 235 fromEnum KcMail = 236 fromEnum KcMediaselect = 237 toEnum 0 = KcUnassigned toEnum 1 = KcEscape toEnum 2 = Kc1 toEnum 3 = Kc2 toEnum 4 = Kc3 toEnum 5 = Kc4 toEnum 6 = Kc5 toEnum 7 = Kc6 toEnum 8 = Kc7 toEnum 9 = Kc8 toEnum 10 = Kc9 toEnum 11 = Kc0 toEnum 12 = KcMinus toEnum 13 = KcEquals toEnum 14 = KcBack toEnum 15 = KcTab toEnum 16 = KcQ toEnum 17 = KcW toEnum 18 = KcE toEnum 19 = KcR toEnum 20 = KcT toEnum 21 = KcY toEnum 22 = KcU toEnum 23 = KcI toEnum 24 = KcO toEnum 25 = KcP toEnum 26 = KcLbracket toEnum 27 = KcRbracket toEnum 28 = KcReturn toEnum 29 = KcLcontrol toEnum 30 = KcA toEnum 31 = KcS toEnum 32 = KcD toEnum 33 = KcF toEnum 34 = KcG toEnum 35 = KcH toEnum 36 = KcJ toEnum 37 = KcK toEnum 38 = KcL toEnum 39 = KcSemicolon toEnum 40 = KcApostrophe toEnum 41 = KcGrave toEnum 42 = KcLshift toEnum 43 = KcBackslash toEnum 44 = KcZ toEnum 45 = KcX toEnum 46 = KcC toEnum 47 = KcV toEnum 48 = KcB toEnum 49 = KcN toEnum 50 = KcM toEnum 51 = KcComma toEnum 52 = KcPeriod toEnum 53 = KcSlash toEnum 54 = KcRshift toEnum 55 = KcMultiply toEnum 56 = KcLmenu toEnum 57 = KcSpace toEnum 58 = KcCapital toEnum 59 = KcF1 toEnum 60 = KcF2 toEnum 61 = KcF3 toEnum 62 = KcF4 toEnum 63 = KcF5 toEnum 64 = KcF6 toEnum 65 = KcF7 toEnum 66 = KcF8 toEnum 67 = KcF9 toEnum 68 = KcF10 toEnum 69 = KcNumlock toEnum 70 = KcScroll toEnum 71 = KcNumpad7 toEnum 72 = KcNumpad8 toEnum 73 = KcNumpad9 toEnum 74 = KcSubtract toEnum 75 = KcNumpad4 toEnum 76 = KcNumpad5 toEnum 77 = KcNumpad6 toEnum 78 = KcAdd toEnum 79 = KcNumpad1 toEnum 80 = KcNumpad2 toEnum 81 = KcNumpad3 toEnum 82 = KcNumpad0 toEnum 83 = KcDecimal toEnum 86 = KcOem102 toEnum 87 = KcF11 toEnum 88 = KcF12 toEnum 100 = KcF13 toEnum 101 = KcF14 toEnum 102 = KcF15 toEnum 112 = KcKana toEnum 115 = KcAbntC1 toEnum 121 = KcConvert toEnum 123 = KcNoconvert toEnum 125 = KcYen toEnum 126 = KcAbntC2 toEnum 141 = KcNumpadequals toEnum 144 = KcPrevtrack toEnum 145 = KcAt toEnum 146 = KcColon toEnum 147 = KcUnderline toEnum 148 = KcKanji toEnum 149 = KcStop toEnum 150 = KcAx toEnum 151 = KcUnlabeled toEnum 153 = KcNexttrack toEnum 156 = KcNumpadenter toEnum 157 = KcRcontrol toEnum 160 = KcMute toEnum 161 = KcCalculator toEnum 162 = KcPlaypause toEnum 164 = KcMediastop toEnum 174 = KcVolumedown toEnum 176 = KcVolumeup toEnum 178 = KcWebhome toEnum 179 = KcNumpadcomma toEnum 181 = KcDivide toEnum 183 = KcSysrq toEnum 184 = KcRmenu toEnum 197 = KcPause toEnum 199 = KcHome toEnum 200 = KcUp toEnum 201 = KcPgup toEnum 203 = KcLeft toEnum 205 = KcRight toEnum 207 = KcEnd toEnum 208 = KcDown toEnum 209 = KcPgdown toEnum 210 = KcInsert toEnum 211 = KcDelete toEnum 219 = KcLwin toEnum 220 = KcRwin toEnum 221 = KcApps toEnum 222 = KcPower toEnum 223 = KcSleep toEnum 227 = KcWake toEnum 229 = KcWebsearch toEnum 230 = KcWebfavorites toEnum 231 = KcWebrefresh toEnum 232 = KcWebstop toEnum 233 = KcWebforward toEnum 234 = KcWebback toEnum 235 = KcMycomputer toEnum 236 = KcMail toEnum 237 = KcMediaselect toEnum unmatched = error ("EnumKeyCode.toEnum: Cannot match " ++ show unmatched)