HGamer3D-OIS-Binding 0.1.3 → 0.1.4
raw patch · 22 files changed
+228/−268 lines, 22 filesdep ~HGamer3D-Datadep ~HGamer3D-Ogre-Binding
Dependency ranges changed: HGamer3D-Data, HGamer3D-Ogre-Binding
Files
- HGamer3D-OIS-Binding.cabal +3/−3
- HGamer3D/Bindings/OIS/ClassAction.hs +22/−24
- HGamer3D/Bindings/OIS/ClassActionSchema.hs +18/−20
- HGamer3D/Bindings/OIS/ClassAnalogAxisAction.hs +18/−20
- HGamer3D/Bindings/OIS/ClassAnalogAxisState.hs +7/−9
- HGamer3D/Bindings/OIS/ClassAnalogEmulator.hs +7/−9
- HGamer3D/Bindings/OIS/ClassBindable.hs +11/−13
- HGamer3D/Bindings/OIS/ClassBindableListener.hs +7/−9
- HGamer3D/Bindings/OIS/ClassBinding.hs +19/−21
- HGamer3D/Bindings/OIS/ClassDebugBindableListener.hs +6/−8
- HGamer3D/Bindings/OIS/ClassDevice.hs +10/−12
- HGamer3D/Bindings/OIS/ClassDigitalState.hs +7/−9
- HGamer3D/Bindings/OIS/ClassJoyStick.hs +4/−6
- HGamer3D/Bindings/OIS/ClassKeyboard.hs +6/−8
- HGamer3D/Bindings/OIS/ClassLinearAnalogEmulator.hs +16/−18
- HGamer3D/Bindings/OIS/ClassMouse.hs +4/−6
- HGamer3D/Bindings/OIS/ClassPropertySet.hs +4/−6
- HGamer3D/Bindings/OIS/ClassSequenceAction.hs +7/−9
- HGamer3D/Bindings/OIS/ClassState.hs +12/−14
- HGamer3D/Bindings/OIS/ClassSystem.hs +30/−32
- HGamer3D/Bindings/OIS/ClassTriggerAction.hs +4/−6
- include/OISDllDefines.h +6/−6
HGamer3D-OIS-Binding.cabal view
@@ -1,5 +1,5 @@ Name: HGamer3D-OIS-Binding -Version: 0.1.3 +Version: 0.1.4 Synopsis: Library to enable 3D game development for Haskell - OIS Bindings Description: Library, to enable 3D game development for Haskell, @@ -21,7 +21,7 @@ Extra-source-files: Setup.hs include/EnumActionType.h,include/EnumBindableType.h,include/EnumStateType.h,include/TypeHG3DClass.h,include/ClassPtr.h,include/Utils.h,include/OISDllDefines.h,include/ClassState.h,include/ClassAnalogAxisState.h,include/ClassSequenceAction.h,include/ClassDebugBindableListener.h,include/ClassKeyboard.h,include/ClassMouse.h,include/ClassDevice.h,include/ClassAction.h,include/ClassAnalogEmulator.h,include/ClassLinearAnalogEmulator.h,include/ClassTriggerAction.h,include/ClassSystem.h,include/ClassBindable.h,include/ClassAnalogAxisAction.h,include/ClassDigitalState.h,include/ClassJoyStick.h,include/ClassBindableListener.h,include/ClassPropertySet.h,include/ClassActionSchema.h,include/ClassBinding.h Library - Build-Depends: base >= 3 && < 5, HGamer3D-Data == 0.1.3, HGamer3D-Ogre-Binding == 0.1.3 + Build-Depends: base >= 3 && < 5, HGamer3D-Data == 0.1.4, HGamer3D-Ogre-Binding == 0.1.4 Exposed-modules: HGamer3D.Bindings.OIS.EnumActionType,HGamer3D.Bindings.OIS.EnumBindableType,HGamer3D.Bindings.OIS.EnumStateType,HGamer3D.Bindings.OIS.TypeHG3DClass,HGamer3D.Bindings.OIS.ClassPtr,HGamer3D.Bindings.OIS.Utils,HGamer3D.Bindings.OIS.ClassState,HGamer3D.Bindings.OIS.ClassAnalogAxisState,HGamer3D.Bindings.OIS.ClassSequenceAction,HGamer3D.Bindings.OIS.ClassDebugBindableListener,HGamer3D.Bindings.OIS.ClassKeyboard,HGamer3D.Bindings.OIS.ClassMouse,HGamer3D.Bindings.OIS.ClassDevice,HGamer3D.Bindings.OIS.ClassAction,HGamer3D.Bindings.OIS.ClassAnalogEmulator,HGamer3D.Bindings.OIS.ClassLinearAnalogEmulator,HGamer3D.Bindings.OIS.ClassTriggerAction,HGamer3D.Bindings.OIS.ClassSystem,HGamer3D.Bindings.OIS.ClassBindable,HGamer3D.Bindings.OIS.ClassAnalogAxisAction,HGamer3D.Bindings.OIS.ClassDigitalState,HGamer3D.Bindings.OIS.ClassJoyStick,HGamer3D.Bindings.OIS.ClassBindableListener,HGamer3D.Bindings.OIS.ClassPropertySet,HGamer3D.Bindings.OIS.ClassActionSchema,HGamer3D.Bindings.OIS.ClassBinding Other-modules: C2HS @@ -32,4 +32,4 @@ Include-dirs: include Build-tools: build-depends: haskell98 - extra-libraries: stdc++.dll HGamer3DOIS013 + extra-libraries: stdc++.dll HGamer3DOIS014
HGamer3D/Bindings/OIS/ClassAction.hs view
@@ -51,20 +51,18 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} import HGamer3D.Bindings.OIS.EnumBindableType -{-# LINE 57 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} import HGamer3D.Bindings.OIS.EnumActionType -{-# LINE 58 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} cAGetBindableType :: HG3DClass -> IO (EnumBindableType) @@ -74,7 +72,7 @@ cAGetBindableType'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 64 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 62 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} ; cAGetBindableName :: HG3DClass -> IO (String) cAGetBindableName a1 = @@ -83,7 +81,7 @@ cAGetBindableName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 68 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 66 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} ; cAIsActive :: HG3DClass -> IO (Bool) cAIsActive a1 = @@ -92,7 +90,7 @@ cAIsActive'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 72 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 70 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} ; cAHasChanged :: HG3DClass -> IO (Bool) cAHasChanged a1 = @@ -101,7 +99,7 @@ cAHasChanged'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 76 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 74 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} ; cAGetFullName :: HG3DClass -> IO (String) cAGetFullName a1 = @@ -110,7 +108,7 @@ cAGetFullName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 80 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 78 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} ; cAGetActionType :: HG3DClass -> IO (EnumActionType) cAGetActionType a1 = @@ -119,7 +117,7 @@ cAGetActionType'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 84 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 82 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} ; cACreateBinding :: HG3DClass -> IO (HG3DClass) cACreateBinding a1 = @@ -128,7 +126,7 @@ cACreateBinding'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 88 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 86 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} ; cADestroyBinding :: HG3DClass -> HG3DClass -> IO () cADestroyBinding a1 a2 = @@ -136,7 +134,7 @@ withHG3DClass a2 $ \a2' -> cADestroyBinding'_ a1' a2' >>= \res -> return () -{-# LINE 92 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 90 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} ; cABind :: HG3DClass -> HG3DClass -> IO () cABind a1 a2 = @@ -144,7 +142,7 @@ withHG3DClass a2 $ \a2' -> cABind'_ a1' a2' >>= \res -> return () -{-# LINE 96 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 94 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} ; cABind2 :: HG3DClass -> HG3DClass -> HG3DClass -> IO () cABind2 a1 a2 a3 = @@ -153,7 +151,7 @@ withHG3DClass a3 $ \a3' -> cABind2'_ a1' a2' a3' >>= \res -> return () -{-# LINE 101 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 99 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} ; cABind3 :: HG3DClass -> HG3DClass -> HG3DClass -> HG3DClass -> IO () cABind3 a1 a2 a3 a4 = @@ -163,7 +161,7 @@ withHG3DClass a4 $ \a4' -> cABind3'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 107 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 105 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} ; cABind4 :: HG3DClass -> String -> IO () cABind4 a1 a2 = @@ -171,7 +169,7 @@ withCString a2 $ \a2' -> cABind4'_ a1' a2' >>= \res -> return () -{-# LINE 111 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 109 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} ; cABind5 :: HG3DClass -> String -> String -> IO () cABind5 a1 a2 a3 = @@ -180,7 +178,7 @@ withCString a3 $ \a3' -> cABind5'_ a1' a2' a3' >>= \res -> return () -{-# LINE 116 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 114 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} ; cABind6 :: HG3DClass -> String -> String -> String -> IO () cABind6 a1 a2 a3 a4 = @@ -190,7 +188,7 @@ withCString a4 $ \a4' -> cABind6'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 122 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 120 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} ; cAProcess :: HG3DClass -> Float -> IO () cAProcess a1 a2 = @@ -198,14 +196,14 @@ let {a2' = realToFrac a2} in cAProcess'_ a1' a2' >>= \res -> return () -{-# LINE 126 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 124 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} ; cADestroyItself :: HG3DClass -> IO () cADestroyItself a1 = withHG3DClass a1 $ \a1' -> cADestroyItself'_ a1' >>= \res -> return () -{-# LINE 129 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} +{-# LINE 127 "HGamer3D\\Bindings\\OIS\\ClassAction.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\OIS\\ClassAction.chs.h cA_getBindableType_c"
HGamer3D/Bindings/OIS/ClassActionSchema.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} import HGamer3D.Bindings.OIS.EnumActionType -{-# LINE 57 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} cAsSetEnabled :: HG3DClass -> Bool -> IO () @@ -71,7 +69,7 @@ let {a2' = fromBool a2} in cAsSetEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 63 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 61 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} ; cAsCreateAction :: HG3DClass -> EnumActionType -> String -> IO (HG3DClass) cAsCreateAction a1 a2 a3 = @@ -82,7 +80,7 @@ cAsCreateAction'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 69 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 67 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} ; cAsCreateTriggerAction :: HG3DClass -> String -> IO (HG3DClass) cAsCreateTriggerAction a1 a2 = @@ -92,7 +90,7 @@ cAsCreateTriggerAction'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 74 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 72 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} ; cAsCreateAnalogAxisAction :: HG3DClass -> String -> IO (HG3DClass) cAsCreateAnalogAxisAction a1 a2 = @@ -102,7 +100,7 @@ cAsCreateAnalogAxisAction'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 79 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 77 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} ; cAsCreateSequenceAction :: HG3DClass -> String -> IO (HG3DClass) cAsCreateSequenceAction a1 a2 = @@ -112,7 +110,7 @@ cAsCreateSequenceAction'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 84 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 82 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} ; cAsDestroyAction :: HG3DClass -> String -> IO () cAsDestroyAction a1 a2 = @@ -120,7 +118,7 @@ withCString a2 $ \a2' -> cAsDestroyAction'_ a1' a2' >>= \res -> return () -{-# LINE 88 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 86 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} ; cAsDestroyAction2 :: HG3DClass -> HG3DClass -> IO () cAsDestroyAction2 a1 a2 = @@ -128,7 +126,7 @@ withHG3DClass a2 $ \a2' -> cAsDestroyAction2'_ a1' a2' >>= \res -> return () -{-# LINE 92 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 90 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} ; cAsGetAction :: HG3DClass -> String -> IO (HG3DClass) cAsGetAction a1 a2 = @@ -138,7 +136,7 @@ cAsGetAction'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 97 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 95 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} ; cAsHasAction :: HG3DClass -> String -> IO (Bool) cAsHasAction a1 a2 = @@ -148,7 +146,7 @@ cAsHasAction'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 102 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 100 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} ; cAsAddListenerToAllActions :: HG3DClass -> HG3DClass -> IO () cAsAddListenerToAllActions a1 a2 = @@ -156,7 +154,7 @@ withHG3DClass a2 $ \a2' -> cAsAddListenerToAllActions'_ a1' a2' >>= \res -> return () -{-# LINE 106 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 104 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} ; cAsRemoveListenerFromAllActions :: HG3DClass -> HG3DClass -> IO () cAsRemoveListenerFromAllActions a1 a2 = @@ -164,7 +162,7 @@ withHG3DClass a2 $ \a2' -> cAsRemoveListenerFromAllActions'_ a1' a2' >>= \res -> return () -{-# LINE 110 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 108 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} ; cAsProcess :: HG3DClass -> Float -> IO () cAsProcess a1 a2 = @@ -172,14 +170,14 @@ let {a2' = realToFrac a2} in cAsProcess'_ a1' a2' >>= \res -> return () -{-# LINE 114 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 112 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} ; cAsDump :: HG3DClass -> IO () cAsDump a1 = withHG3DClass a1 $ \a1' -> cAsDump'_ a1' >>= \res -> return () -{-# LINE 117 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} +{-# LINE 115 "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\OIS\\ClassActionSchema.chs.h cAs_setEnabled_c"
HGamer3D/Bindings/OIS/ClassAnalogAxisAction.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} import HGamer3D.Bindings.OIS.EnumActionType -{-# LINE 57 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} cAaaGetActionType :: HG3DClass -> IO (EnumActionType) @@ -72,7 +70,7 @@ cAaaGetActionType'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 63 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 61 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} ; cAaaSetUseAbsoluteValues :: HG3DClass -> Bool -> IO () cAaaSetUseAbsoluteValues a1 a2 = @@ -80,7 +78,7 @@ let {a2' = fromBool a2} in cAaaSetUseAbsoluteValues'_ a1' a2' >>= \res -> return () -{-# LINE 67 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 65 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} ; cAaaGetUseAbsoluteValues :: HG3DClass -> IO (Bool) cAaaGetUseAbsoluteValues a1 = @@ -89,7 +87,7 @@ cAaaGetUseAbsoluteValues'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 71 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 69 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} ; cAaaGetAbsoluteValue :: HG3DClass -> IO (Float) cAaaGetAbsoluteValue a1 = @@ -98,7 +96,7 @@ cAaaGetAbsoluteValue'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 75 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 73 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} ; cAaaGetRelativeValue :: HG3DClass -> IO (Float) cAaaGetRelativeValue a1 = @@ -107,7 +105,7 @@ cAaaGetRelativeValue'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 79 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 77 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} ; cAaaSetMinimumValue :: HG3DClass -> Float -> IO () cAaaSetMinimumValue a1 a2 = @@ -115,7 +113,7 @@ let {a2' = realToFrac a2} in cAaaSetMinimumValue'_ a1' a2' >>= \res -> return () -{-# LINE 83 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 81 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} ; cAaaGetMinimumValue :: HG3DClass -> IO (Float) cAaaGetMinimumValue a1 = @@ -124,7 +122,7 @@ cAaaGetMinimumValue'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 87 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 85 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} ; cAaaSetMaximumValue :: HG3DClass -> Float -> IO () cAaaSetMaximumValue a1 a2 = @@ -132,7 +130,7 @@ let {a2' = realToFrac a2} in cAaaSetMaximumValue'_ a1' a2' >>= \res -> return () -{-# LINE 91 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 89 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} ; cAaaGetMaximumValue :: HG3DClass -> IO (Float) cAaaGetMaximumValue a1 = @@ -141,7 +139,7 @@ cAaaGetMaximumValue'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 95 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 93 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} ; cAaaSetSensitivity :: HG3DClass -> Float -> IO () cAaaSetSensitivity a1 a2 = @@ -149,7 +147,7 @@ let {a2' = realToFrac a2} in cAaaSetSensitivity'_ a1' a2' >>= \res -> return () -{-# LINE 99 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 97 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} ; cAaaGetSensitivity :: HG3DClass -> IO (Float) cAaaGetSensitivity a1 = @@ -158,7 +156,7 @@ cAaaGetSensitivity'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 103 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 101 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} ; cAaaSetAnalogEmulator :: HG3DClass -> HG3DClass -> IO () cAaaSetAnalogEmulator a1 a2 = @@ -166,7 +164,7 @@ withHG3DClass a2 $ \a2' -> cAaaSetAnalogEmulator'_ a1' a2' >>= \res -> return () -{-# LINE 107 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 105 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} ; cAaaGetAnalogEmulator :: HG3DClass -> IO (HG3DClass) cAaaGetAnalogEmulator a1 = @@ -175,7 +173,7 @@ cAaaGetAnalogEmulator'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 111 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} +{-# LINE 109 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisAction.chs.h cAaa_getActionType_c"
HGamer3D/Bindings/OIS/ClassAnalogAxisState.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisState.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisState.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisState.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisState.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisState.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisState.chs" #-} import HGamer3D.Bindings.OIS.EnumStateType -{-# LINE 57 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisState.chs" #-} +{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisState.chs" #-} cAasGetStateType :: HG3DClass -> IO (EnumStateType) @@ -72,7 +70,7 @@ cAasGetStateType'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 63 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisState.chs" #-} +{-# LINE 61 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisState.chs" #-} ; cAasSetAbsoluteValue :: HG3DClass -> Float -> IO () cAasSetAbsoluteValue a1 a2 = @@ -80,7 +78,7 @@ let {a2' = realToFrac a2} in cAasSetAbsoluteValue'_ a1' a2' >>= \res -> return () -{-# LINE 67 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisState.chs" #-} +{-# LINE 65 "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisState.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\OIS\\ClassAnalogAxisState.chs.h cAas_getStateType_c"
HGamer3D/Bindings/OIS/ClassAnalogEmulator.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassAnalogEmulator.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassAnalogEmulator.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassAnalogEmulator.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassAnalogEmulator.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassAnalogEmulator.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassAnalogEmulator.chs" #-} cAeGetType :: HG3DClass -> IO (String) @@ -70,7 +68,7 @@ cAeGetType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 62 "HGamer3D\\Bindings\\OIS\\ClassAnalogEmulator.chs" #-} +{-# LINE 60 "HGamer3D\\Bindings\\OIS\\ClassAnalogEmulator.chs" #-} ; cAeCheckBinding :: HG3DClass -> HG3DClass -> IO (Bool) cAeCheckBinding a1 a2 = @@ -80,7 +78,7 @@ cAeCheckBinding'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 67 "HGamer3D\\Bindings\\OIS\\ClassAnalogEmulator.chs" #-} +{-# LINE 65 "HGamer3D\\Bindings\\OIS\\ClassAnalogEmulator.chs" #-} ; cAeEmulateRelative :: HG3DClass -> HG3DClass -> Float -> IO (Float) cAeEmulateRelative a1 a2 a3 = @@ -91,7 +89,7 @@ cAeEmulateRelative'_ a1' a2' a3' a4' >>= \res -> peekFloatConv a4'>>= \a4'' -> return (a4'') -{-# LINE 73 "HGamer3D\\Bindings\\OIS\\ClassAnalogEmulator.chs" #-} +{-# LINE 71 "HGamer3D\\Bindings\\OIS\\ClassAnalogEmulator.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\OIS\\ClassAnalogEmulator.chs.h cAe_getType_c"
HGamer3D/Bindings/OIS/ClassBindable.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} import HGamer3D.Bindings.OIS.EnumBindableType -{-# LINE 57 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} +{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} cBeGetBindableType :: HG3DClass -> IO (EnumBindableType) @@ -72,7 +70,7 @@ cBeGetBindableType'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 63 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} +{-# LINE 61 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} ; cBeGetBindableName :: HG3DClass -> IO (String) cBeGetBindableName a1 = @@ -81,7 +79,7 @@ cBeGetBindableName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 67 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} +{-# LINE 65 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} ; cBeIsActive :: HG3DClass -> IO (Bool) cBeIsActive a1 = @@ -90,7 +88,7 @@ cBeIsActive'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 71 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} +{-# LINE 69 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} ; cBeHasChanged :: HG3DClass -> IO (Bool) cBeHasChanged a1 = @@ -99,7 +97,7 @@ cBeHasChanged'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 75 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} +{-# LINE 73 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} ; cBeAddListener :: HG3DClass -> HG3DClass -> IO () cBeAddListener a1 a2 = @@ -107,7 +105,7 @@ withHG3DClass a2 $ \a2' -> cBeAddListener'_ a1' a2' >>= \res -> return () -{-# LINE 79 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} +{-# LINE 77 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} ; cBeRemoveListener :: HG3DClass -> HG3DClass -> IO () cBeRemoveListener a1 a2 = @@ -115,7 +113,7 @@ withHG3DClass a2 $ \a2' -> cBeRemoveListener'_ a1' a2' >>= \res -> return () -{-# LINE 83 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} +{-# LINE 81 "HGamer3D\\Bindings\\OIS\\ClassBindable.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\OIS\\ClassBindable.chs.h cBe_getBindableType_c"
HGamer3D/Bindings/OIS/ClassBindableListener.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassBindableListener.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassBindableListener.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassBindableListener.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassBindableListener.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassBindableListener.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassBindableListener.chs" #-} cBlBindableActivated :: HG3DClass -> HG3DClass -> IO () @@ -69,7 +67,7 @@ withHG3DClass a2 $ \a2' -> cBlBindableActivated'_ a1' a2' >>= \res -> return () -{-# LINE 62 "HGamer3D\\Bindings\\OIS\\ClassBindableListener.chs" #-} +{-# LINE 60 "HGamer3D\\Bindings\\OIS\\ClassBindableListener.chs" #-} ; cBlBindableDeactivated :: HG3DClass -> HG3DClass -> IO () cBlBindableDeactivated a1 a2 = @@ -77,7 +75,7 @@ withHG3DClass a2 $ \a2' -> cBlBindableDeactivated'_ a1' a2' >>= \res -> return () -{-# LINE 66 "HGamer3D\\Bindings\\OIS\\ClassBindableListener.chs" #-} +{-# LINE 64 "HGamer3D\\Bindings\\OIS\\ClassBindableListener.chs" #-} ; cBlBindableProcessed :: HG3DClass -> HG3DClass -> IO () cBlBindableProcessed a1 a2 = @@ -85,7 +83,7 @@ withHG3DClass a2 $ \a2' -> cBlBindableProcessed'_ a1' a2' >>= \res -> return () -{-# LINE 70 "HGamer3D\\Bindings\\OIS\\ClassBindableListener.chs" #-} +{-# LINE 68 "HGamer3D\\Bindings\\OIS\\ClassBindableListener.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\OIS\\ClassBindableListener.chs.h cBl_bindableActivated_c"
HGamer3D/Bindings/OIS/ClassBinding.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} cBSetActive :: HG3DClass -> Bool -> IO () @@ -69,7 +67,7 @@ let {a2' = fromBool a2} in cBSetActive'_ a1' a2' >>= \res -> return () -{-# LINE 62 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 60 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} ; cBBind :: HG3DClass -> HG3DClass -> String -> IO () cBBind a1 a2 a3 = @@ -78,7 +76,7 @@ withCString a3 $ \a3' -> cBBind'_ a1' a2' a3' >>= \res -> return () -{-# LINE 67 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 65 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} ; cBBind2 :: HG3DClass -> String -> String -> IO () cBBind2 a1 a2 a3 = @@ -87,7 +85,7 @@ withCString a3 $ \a3' -> cBBind2'_ a1' a2' a3' >>= \res -> return () -{-# LINE 72 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 70 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} ; cBUnbind :: HG3DClass -> HG3DClass -> IO () cBUnbind a1 a2 = @@ -95,7 +93,7 @@ withHG3DClass a2 $ \a2' -> cBUnbind'_ a1' a2' >>= \res -> return () -{-# LINE 76 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 74 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} ; cBUnbind2 :: HG3DClass -> String -> IO () cBUnbind2 a1 a2 = @@ -103,7 +101,7 @@ withCString a2 $ \a2' -> cBUnbind2'_ a1' a2' >>= \res -> return () -{-# LINE 80 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 78 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} ; cBIsBound :: HG3DClass -> HG3DClass -> IO (Bool) cBIsBound a1 a2 = @@ -113,7 +111,7 @@ cBIsBound'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 85 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 83 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} ; cBIsBound2 :: HG3DClass -> String -> IO (Bool) cBIsBound2 a1 a2 = @@ -123,7 +121,7 @@ cBIsBound2'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 90 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 88 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} ; cBGetBindable :: HG3DClass -> Int -> IO (HG3DClass) cBGetBindable a1 a2 = @@ -133,7 +131,7 @@ cBGetBindable'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 95 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 93 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} ; cBGetState :: HG3DClass -> Int -> IO (HG3DClass) cBGetState a1 a2 = @@ -143,7 +141,7 @@ cBGetState'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 100 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 98 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} ; cBGetAction :: HG3DClass -> Int -> IO (HG3DClass) cBGetAction a1 a2 = @@ -153,7 +151,7 @@ cBGetAction'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 105 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 103 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} ; cBGetBindable2 :: HG3DClass -> String -> IO (HG3DClass) cBGetBindable2 a1 a2 = @@ -163,7 +161,7 @@ cBGetBindable2'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 110 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 108 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} ; cBGetState2 :: HG3DClass -> String -> IO (HG3DClass) cBGetState2 a1 a2 = @@ -173,7 +171,7 @@ cBGetState2'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 115 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 113 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} ; cBGetAction2 :: HG3DClass -> String -> IO (HG3DClass) cBGetAction2 a1 a2 = @@ -183,7 +181,7 @@ cBGetAction2'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 120 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 118 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} ; cBIsAnyBindableActive :: HG3DClass -> IO (Bool) cBIsAnyBindableActive a1 = @@ -192,7 +190,7 @@ cBIsAnyBindableActive'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 124 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 122 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} ; cBAreAllBindablesActive :: HG3DClass -> IO (Bool) cBAreAllBindablesActive a1 = @@ -201,7 +199,7 @@ cBAreAllBindablesActive'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 128 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} +{-# LINE 126 "HGamer3D\\Bindings\\OIS\\ClassBinding.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\OIS\\ClassBinding.chs.h cB__setActive_c"
HGamer3D/Bindings/OIS/ClassDebugBindableListener.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassDebugBindableListener.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassDebugBindableListener.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassDebugBindableListener.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassDebugBindableListener.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassDebugBindableListener.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassDebugBindableListener.chs" #-} cDblBindableActivated :: HG3DClass -> HG3DClass -> IO () @@ -69,7 +67,7 @@ withHG3DClass a2 $ \a2' -> cDblBindableActivated'_ a1' a2' >>= \res -> return () -{-# LINE 62 "HGamer3D\\Bindings\\OIS\\ClassDebugBindableListener.chs" #-} +{-# LINE 60 "HGamer3D\\Bindings\\OIS\\ClassDebugBindableListener.chs" #-} ; cDblBindableDeactivated :: HG3DClass -> HG3DClass -> IO () cDblBindableDeactivated a1 a2 = @@ -77,7 +75,7 @@ withHG3DClass a2 $ \a2' -> cDblBindableDeactivated'_ a1' a2' >>= \res -> return () -{-# LINE 66 "HGamer3D\\Bindings\\OIS\\ClassDebugBindableListener.chs" #-} +{-# LINE 64 "HGamer3D\\Bindings\\OIS\\ClassDebugBindableListener.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\OIS\\ClassDebugBindableListener.chs.h cDbl_bindableActivated_c"
HGamer3D/Bindings/OIS/ClassDevice.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} cDGetName :: HG3DClass -> IO (String) @@ -70,7 +68,7 @@ cDGetName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 62 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} +{-# LINE 60 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} ; cDGetState :: HG3DClass -> String -> IO (HG3DClass) cDGetState a1 a2 = @@ -80,7 +78,7 @@ cDGetState'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 67 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} +{-# LINE 65 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} ; cDHasState :: HG3DClass -> String -> IO (Bool) cDHasState a1 a2 = @@ -90,7 +88,7 @@ cDHasState'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 72 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} +{-# LINE 70 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} ; cDAddListenerToAllStates :: HG3DClass -> HG3DClass -> IO () cDAddListenerToAllStates a1 a2 = @@ -98,7 +96,7 @@ withHG3DClass a2 $ \a2' -> cDAddListenerToAllStates'_ a1' a2' >>= \res -> return () -{-# LINE 76 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} +{-# LINE 74 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} ; cDRemoveListenerFromAllStates :: HG3DClass -> HG3DClass -> IO () cDRemoveListenerFromAllStates a1 a2 = @@ -106,7 +104,7 @@ withHG3DClass a2 $ \a2' -> cDRemoveListenerFromAllStates'_ a1' a2' >>= \res -> return () -{-# LINE 80 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} +{-# LINE 78 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} ; cDProcess :: HG3DClass -> Float -> IO () cDProcess a1 a2 = @@ -114,7 +112,7 @@ let {a2' = realToFrac a2} in cDProcess'_ a1' a2' >>= \res -> return () -{-# LINE 84 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} +{-# LINE 82 "HGamer3D\\Bindings\\OIS\\ClassDevice.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\OIS\\ClassDevice.chs.h cD_getName_c"
HGamer3D/Bindings/OIS/ClassDigitalState.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassDigitalState.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassDigitalState.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassDigitalState.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassDigitalState.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassDigitalState.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassDigitalState.chs" #-} import HGamer3D.Bindings.OIS.EnumStateType -{-# LINE 57 "HGamer3D\\Bindings\\OIS\\ClassDigitalState.chs" #-} +{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassDigitalState.chs" #-} cDsGetStateType :: HG3DClass -> IO (EnumStateType) @@ -72,7 +70,7 @@ cDsGetStateType'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 63 "HGamer3D\\Bindings\\OIS\\ClassDigitalState.chs" #-} +{-# LINE 61 "HGamer3D\\Bindings\\OIS\\ClassDigitalState.chs" #-} ; cDsSetValue :: HG3DClass -> Bool -> IO () cDsSetValue a1 a2 = @@ -80,7 +78,7 @@ let {a2' = fromBool a2} in cDsSetValue'_ a1' a2' >>= \res -> return () -{-# LINE 67 "HGamer3D\\Bindings\\OIS\\ClassDigitalState.chs" #-} +{-# LINE 65 "HGamer3D\\Bindings\\OIS\\ClassDigitalState.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\OIS\\ClassDigitalState.chs.h cDs_getStateType_c"
HGamer3D/Bindings/OIS/ClassJoyStick.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassJoyStick.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassJoyStick.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassJoyStick.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassJoyStick.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassJoyStick.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassJoyStick.chs" #-}
HGamer3D/Bindings/OIS/ClassKeyboard.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassKeyboard.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassKeyboard.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassKeyboard.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassKeyboard.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassKeyboard.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassKeyboard.chs" #-} cKbGetName :: HG3DClass -> IO (String) @@ -70,7 +68,7 @@ cKbGetName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 62 "HGamer3D\\Bindings\\OIS\\ClassKeyboard.chs" #-} +{-# LINE 60 "HGamer3D\\Bindings\\OIS\\ClassKeyboard.chs" #-} ; cKbProcess :: HG3DClass -> Float -> IO () cKbProcess a1 a2 = @@ -78,7 +76,7 @@ let {a2' = realToFrac a2} in cKbProcess'_ a1' a2' >>= \res -> return () -{-# LINE 66 "HGamer3D\\Bindings\\OIS\\ClassKeyboard.chs" #-} +{-# LINE 64 "HGamer3D\\Bindings\\OIS\\ClassKeyboard.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\OIS\\ClassKeyboard.chs.h cKb_getName_c"
HGamer3D/Bindings/OIS/ClassLinearAnalogEmulator.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} cLaeGetType :: HG3DClass -> IO (String) @@ -70,7 +68,7 @@ cLaeGetType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 62 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} +{-# LINE 60 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} ; cLaeCheckBinding :: HG3DClass -> HG3DClass -> IO (Bool) cLaeCheckBinding a1 a2 = @@ -80,7 +78,7 @@ cLaeCheckBinding'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 67 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} +{-# LINE 65 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} ; cLaeEmulateRelative :: HG3DClass -> HG3DClass -> Float -> IO (Float) cLaeEmulateRelative a1 a2 a3 = @@ -91,7 +89,7 @@ cLaeEmulateRelative'_ a1' a2' a3' a4' >>= \res -> peekFloatConv a4'>>= \a4'' -> return (a4'') -{-# LINE 73 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} +{-# LINE 71 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} ; cLaeEmulateAbsolute :: HG3DClass -> HG3DClass -> Float -> IO (Float) cLaeEmulateAbsolute a1 a2 a3 = @@ -102,7 +100,7 @@ cLaeEmulateAbsolute'_ a1' a2' a3' a4' >>= \res -> peekFloatConv a4'>>= \a4'' -> return (a4'') -{-# LINE 79 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} +{-# LINE 77 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} ; cLaeSetDecreaseSpeed :: HG3DClass -> Float -> IO () cLaeSetDecreaseSpeed a1 a2 = @@ -110,7 +108,7 @@ let {a2' = realToFrac a2} in cLaeSetDecreaseSpeed'_ a1' a2' >>= \res -> return () -{-# LINE 83 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} +{-# LINE 81 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} ; cLaeSetIncreaseSpeed :: HG3DClass -> Float -> IO () cLaeSetIncreaseSpeed a1 a2 = @@ -118,7 +116,7 @@ let {a2' = realToFrac a2} in cLaeSetIncreaseSpeed'_ a1' a2' >>= \res -> return () -{-# LINE 87 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} +{-# LINE 85 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} ; cLaeSetSpeed :: HG3DClass -> Float -> IO () cLaeSetSpeed a1 a2 = @@ -126,7 +124,7 @@ let {a2' = realToFrac a2} in cLaeSetSpeed'_ a1' a2' >>= \res -> return () -{-# LINE 91 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} +{-# LINE 89 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} ; cLaeSetReturnEnabled :: HG3DClass -> Bool -> IO () cLaeSetReturnEnabled a1 a2 = @@ -134,7 +132,7 @@ let {a2' = fromBool a2} in cLaeSetReturnEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 95 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} +{-# LINE 93 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} ; cLaeSetReturnValue :: HG3DClass -> Float -> IO () cLaeSetReturnValue a1 a2 = @@ -142,7 +140,7 @@ let {a2' = realToFrac a2} in cLaeSetReturnValue'_ a1' a2' >>= \res -> return () -{-# LINE 99 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} +{-# LINE 97 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} ; cLaeSetReturnDecreaseSpeed :: HG3DClass -> Float -> IO () cLaeSetReturnDecreaseSpeed a1 a2 = @@ -150,7 +148,7 @@ let {a2' = realToFrac a2} in cLaeSetReturnDecreaseSpeed'_ a1' a2' >>= \res -> return () -{-# LINE 103 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} +{-# LINE 101 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} ; cLaeSetReturnIncreaseSpeed :: HG3DClass -> Float -> IO () cLaeSetReturnIncreaseSpeed a1 a2 = @@ -158,7 +156,7 @@ let {a2' = realToFrac a2} in cLaeSetReturnIncreaseSpeed'_ a1' a2' >>= \res -> return () -{-# LINE 107 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} +{-# LINE 105 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} ; cLaeSetReturnSpeed :: HG3DClass -> Float -> IO () cLaeSetReturnSpeed a1 a2 = @@ -166,7 +164,7 @@ let {a2' = realToFrac a2} in cLaeSetReturnSpeed'_ a1' a2' >>= \res -> return () -{-# LINE 111 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} +{-# LINE 109 "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\OIS\\ClassLinearAnalogEmulator.chs.h cLae_getType_c"
HGamer3D/Bindings/OIS/ClassMouse.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassMouse.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassMouse.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassMouse.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassMouse.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassMouse.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassMouse.chs" #-}
HGamer3D/Bindings/OIS/ClassPropertySet.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassPropertySet.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassPropertySet.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassPropertySet.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassPropertySet.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassPropertySet.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassPropertySet.chs" #-}
HGamer3D/Bindings/OIS/ClassSequenceAction.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassSequenceAction.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassSequenceAction.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassSequenceAction.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassSequenceAction.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassSequenceAction.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassSequenceAction.chs" #-} import HGamer3D.Bindings.OIS.EnumActionType -{-# LINE 57 "HGamer3D\\Bindings\\OIS\\ClassSequenceAction.chs" #-} +{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassSequenceAction.chs" #-} cSaGetActionType :: HG3DClass -> IO (EnumActionType) @@ -72,7 +70,7 @@ cSaGetActionType'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 63 "HGamer3D\\Bindings\\OIS\\ClassSequenceAction.chs" #-} +{-# LINE 61 "HGamer3D\\Bindings\\OIS\\ClassSequenceAction.chs" #-} ; cSaCreateBinding :: HG3DClass -> IO (HG3DClass) cSaCreateBinding a1 = @@ -81,7 +79,7 @@ cSaCreateBinding'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 67 "HGamer3D\\Bindings\\OIS\\ClassSequenceAction.chs" #-} +{-# LINE 65 "HGamer3D\\Bindings\\OIS\\ClassSequenceAction.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\OIS\\ClassSequenceAction.chs.h cSa_getActionType_c"
HGamer3D/Bindings/OIS/ClassState.hs view
@@ -51,20 +51,18 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} import HGamer3D.Bindings.OIS.EnumBindableType -{-# LINE 57 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} +{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} import HGamer3D.Bindings.OIS.EnumStateType -{-# LINE 58 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} +{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} cSGetBindableType :: HG3DClass -> IO (EnumBindableType) @@ -74,7 +72,7 @@ cSGetBindableType'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 64 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} +{-# LINE 62 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} ; cSGetBindableName :: HG3DClass -> IO (String) cSGetBindableName a1 = @@ -83,7 +81,7 @@ cSGetBindableName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 68 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} +{-# LINE 66 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} ; cSIsActive :: HG3DClass -> IO (Bool) cSIsActive a1 = @@ -92,7 +90,7 @@ cSIsActive'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 72 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} +{-# LINE 70 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} ; cSHasChanged :: HG3DClass -> IO (Bool) cSHasChanged a1 = @@ -101,7 +99,7 @@ cSHasChanged'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 76 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} +{-# LINE 74 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} ; cSGetFullName :: HG3DClass -> IO (String) cSGetFullName a1 = @@ -110,7 +108,7 @@ cSGetFullName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 80 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} +{-# LINE 78 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} ; cSGetStateType :: HG3DClass -> IO (EnumStateType) cSGetStateType a1 = @@ -119,7 +117,7 @@ cSGetStateType'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 84 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} +{-# LINE 82 "HGamer3D\\Bindings\\OIS\\ClassState.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\OIS\\ClassState.chs.h cS_getBindableType_c"
HGamer3D/Bindings/OIS/ClassSystem.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} cSyFinalize :: HG3DClass -> IO () @@ -68,7 +66,7 @@ withHG3DClass a1 $ \a1' -> cSyFinalize'_ a1' >>= \res -> return () -{-# LINE 61 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 59 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyProcess :: HG3DClass -> Float -> IO () cSyProcess a1 a2 = @@ -76,7 +74,7 @@ let {a2' = realToFrac a2} in cSyProcess'_ a1' a2' >>= \res -> return () -{-# LINE 65 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 63 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyGetDevice :: HG3DClass -> String -> IO (HG3DClass) cSyGetDevice a1 a2 = @@ -86,7 +84,7 @@ cSyGetDevice'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 70 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 68 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyHasDevice :: HG3DClass -> String -> IO (Bool) cSyHasDevice a1 a2 = @@ -96,7 +94,7 @@ cSyHasDevice'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 75 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 73 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyLookupState :: HG3DClass -> String -> IO (HG3DClass) cSyLookupState a1 a2 = @@ -106,7 +104,7 @@ cSyLookupState'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 80 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 78 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyCreateActionSchema :: HG3DClass -> String -> Bool -> IO (HG3DClass) cSyCreateActionSchema a1 a2 a3 = @@ -117,7 +115,7 @@ cSyCreateActionSchema'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 86 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 84 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyDestroyActionSchema :: HG3DClass -> String -> IO () cSyDestroyActionSchema a1 a2 = @@ -125,7 +123,7 @@ withCString a2 $ \a2' -> cSyDestroyActionSchema'_ a1' a2' >>= \res -> return () -{-# LINE 90 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 88 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyDestroyActionSchema2 :: HG3DClass -> HG3DClass -> IO () cSyDestroyActionSchema2 a1 a2 = @@ -133,7 +131,7 @@ withHG3DClass a2 $ \a2' -> cSyDestroyActionSchema2'_ a1' a2' >>= \res -> return () -{-# LINE 94 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 92 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyGetActionSchema :: HG3DClass -> String -> IO (HG3DClass) cSyGetActionSchema a1 a2 = @@ -143,7 +141,7 @@ cSyGetActionSchema'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 99 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 97 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyHasActionSchema :: HG3DClass -> String -> IO (Bool) cSyHasActionSchema a1 a2 = @@ -153,7 +151,7 @@ cSyHasActionSchema'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 104 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 102 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSySetDefaultActionSchema :: HG3DClass -> HG3DClass -> IO () cSySetDefaultActionSchema a1 a2 = @@ -161,7 +159,7 @@ withHG3DClass a2 $ \a2' -> cSySetDefaultActionSchema'_ a1' a2' >>= \res -> return () -{-# LINE 108 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 106 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSySetDefaultActionSchema2 :: HG3DClass -> String -> IO () cSySetDefaultActionSchema2 a1 a2 = @@ -169,7 +167,7 @@ withCString a2 $ \a2' -> cSySetDefaultActionSchema2'_ a1' a2' >>= \res -> return () -{-# LINE 112 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 110 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyGetDefaultActionSchemaAutoCreate :: HG3DClass -> IO (HG3DClass) cSyGetDefaultActionSchemaAutoCreate a1 = @@ -178,7 +176,7 @@ cSyGetDefaultActionSchemaAutoCreate'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 116 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 114 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyLookupAction :: HG3DClass -> String -> Bool -> IO (HG3DClass) cSyLookupAction a1 a2 a3 = @@ -189,7 +187,7 @@ cSyLookupAction'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 122 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 120 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyLookupBindable :: HG3DClass -> String -> IO (HG3DClass) cSyLookupBindable a1 a2 = @@ -199,7 +197,7 @@ cSyLookupBindable'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 127 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 125 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyAddListenerToAllStates :: HG3DClass -> HG3DClass -> IO () cSyAddListenerToAllStates a1 a2 = @@ -207,7 +205,7 @@ withHG3DClass a2 $ \a2' -> cSyAddListenerToAllStates'_ a1' a2' >>= \res -> return () -{-# LINE 131 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 129 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyRemoveListenerFromAllStates :: HG3DClass -> HG3DClass -> IO () cSyRemoveListenerFromAllStates a1 a2 = @@ -215,7 +213,7 @@ withHG3DClass a2 $ \a2' -> cSyRemoveListenerFromAllStates'_ a1' a2' >>= \res -> return () -{-# LINE 135 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 133 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyAddListenerToAllActions :: HG3DClass -> HG3DClass -> IO () cSyAddListenerToAllActions a1 a2 = @@ -223,7 +221,7 @@ withHG3DClass a2 $ \a2' -> cSyAddListenerToAllActions'_ a1' a2' >>= \res -> return () -{-# LINE 139 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 137 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyRemoveListenerFromAllActions :: HG3DClass -> HG3DClass -> IO () cSyRemoveListenerFromAllActions a1 a2 = @@ -231,7 +229,7 @@ withHG3DClass a2 $ \a2' -> cSyRemoveListenerFromAllActions'_ a1' a2' >>= \res -> return () -{-# LINE 143 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 141 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyAddListenerToAllBindables :: HG3DClass -> HG3DClass -> IO () cSyAddListenerToAllBindables a1 a2 = @@ -239,7 +237,7 @@ withHG3DClass a2 $ \a2' -> cSyAddListenerToAllBindables'_ a1' a2' >>= \res -> return () -{-# LINE 147 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 145 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyRemoveListenerFromAllBindables :: HG3DClass -> HG3DClass -> IO () cSyRemoveListenerFromAllBindables a1 a2 = @@ -247,7 +245,7 @@ withHG3DClass a2 $ \a2' -> cSyRemoveListenerFromAllBindables'_ a1' a2' >>= \res -> return () -{-# LINE 151 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 149 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyLoadActionSchemaFromXML :: HG3DClass -> String -> IO (Int) cSyLoadActionSchemaFromXML a1 a2 = @@ -257,7 +255,7 @@ cSyLoadActionSchemaFromXML'_ a1' a2' a3' >>= \res -> peekIntConv a3'>>= \a3'' -> return (a3'') -{-# LINE 156 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 154 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyLoadActionSchemaFromXMLFile :: HG3DClass -> String -> IO (Int) cSyLoadActionSchemaFromXMLFile a1 a2 = @@ -267,21 +265,21 @@ cSyLoadActionSchemaFromXMLFile'_ a1' a2' a3' >>= \res -> peekIntConv a3'>>= \a3'' -> return (a3'') -{-# LINE 161 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 159 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyDumpDevices :: HG3DClass -> IO () cSyDumpDevices a1 = withHG3DClass a1 $ \a1' -> cSyDumpDevices'_ a1' >>= \res -> return () -{-# LINE 164 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 162 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; cSyDumpActionSchemas :: HG3DClass -> IO () cSyDumpActionSchemas a1 = withHG3DClass a1 $ \a1' -> cSyDumpActionSchemas'_ a1' >>= \res -> return () -{-# LINE 167 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 165 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; -- created constructor function from default constructor cSyGetSingletonPtr :: IO (HG3DClass) @@ -290,7 +288,7 @@ cSyGetSingletonPtr'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 171 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} +{-# LINE 169 "HGamer3D\\Bindings\\OIS\\ClassSystem.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\OIS\\ClassSystem.chs.h cSy_finalize_c"
HGamer3D/Bindings/OIS/ClassTriggerAction.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion -import HGamer3D.Data.ColourValue -import HGamer3D.Data.Radian -import HGamer3D.Data.Degree +import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.OIS.TypeHG3DClass -{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassTriggerAction.chs" #-} +{-# LINE 52 "HGamer3D\\Bindings\\OIS\\ClassTriggerAction.chs" #-} import HGamer3D.Bindings.OIS.ClassPtr -{-# LINE 55 "HGamer3D\\Bindings\\OIS\\ClassTriggerAction.chs" #-} +{-# LINE 53 "HGamer3D\\Bindings\\OIS\\ClassTriggerAction.chs" #-} import HGamer3D.Bindings.OIS.Utils -{-# LINE 56 "HGamer3D\\Bindings\\OIS\\ClassTriggerAction.chs" #-} +{-# LINE 54 "HGamer3D\\Bindings\\OIS\\ClassTriggerAction.chs" #-}
include/OISDllDefines.h view
@@ -20,10 +20,10 @@ // OISDllDefines.h -#ifndef _HGamer3DOIS013_DLLDEFINES_H_ -#define _HGamer3DOIS013_DLLDEFINES_H_ +#ifndef _HGamer3DOIS014_DLLDEFINES_H_ +#define _HGamer3DOIS014_DLLDEFINES_H_ -/* Cmake will define HGamer3DOIS013_EXPORTS on Windows when it +/* Cmake will define HGamer3DOIS014_EXPORTS on Windows when it configures to build a shared library. If you are going to use another build system on windows or create the visual studio projects by hand you need to define MyLibrary_EXPORTS when @@ -33,13 +33,13 @@ // We are using the Visual Studio Compiler and building Shared libraries #if (defined (_WIN32)) && !(defined (__GNUC__)) - #if defined(HGamer3DOIS013_EXPORTS) + #if defined(HGamer3DOIS014_EXPORTS) #define OIS_LIB_EXPORT __declspec(dllexport) #else #define OIS_LIB_EXPORT __declspec(dllimport) - #endif /* HGamer3DOIS013_EXPORTS */ + #endif /* HGamer3DOIS014_EXPORTS */ #else /* defined (_WIN32) */ #define OIS_LIB_EXPORT #endif -#endif /* _HGamer3DOIS013_DLLDEFINES_H_ */ +#endif /* _HGamer3DOIS014_DLLDEFINES_H_ */