-- 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\\ClassRenderQueueInvocationSequence.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. -- -- ClassRenderQueueInvocationSequence.chs -- -- -- -- -- File for type, method, enum or function stubs -- in: "Dep-OgreSDK/include/OGRE\OgreRenderQueueInvocation.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.ClassRenderQueueInvocationSequence where import C2HS import Foreign import Foreign.Ptr import Foreign.C import Monad (liftM, liftM2) import HGamer3D.Data.HG3DClass import HGamer3D.Data.Vector2 import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.TypeHG3DClass {-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr {-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-} import HGamer3D.Bindings.Ogre.Utils {-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-} cRqisGetName :: HG3DClass -> IO (String) cRqisGetName a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> cRqisGetName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') {-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-} ; cRqisAdd2 :: HG3DClass -> HG3DClass -> IO () cRqisAdd2 a1 a2 = withHG3DClass a1 $ \a1' -> withHG3DClass a2 $ \a2' -> cRqisAdd2'_ a1' a2' >>= \res -> return () {-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-} ; cRqisSize :: HG3DClass -> IO (Int) cRqisSize a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cRqisSize'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') {-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-} ; cRqisClear :: HG3DClass -> IO () cRqisClear a1 = withHG3DClass a1 $ \a1' -> cRqisClear'_ a1' >>= \res -> return () {-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-} ; cRqisGet :: HG3DClass -> Int -> IO (HG3DClass) cRqisGet a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in alloca $ \a3' -> cRqisGet'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') {-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-} ; cRqisRemove :: HG3DClass -> Int -> IO () cRqisRemove a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromIntegral a2} in cRqisRemove'_ a1' a2' >>= \res -> return () {-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs.h cRqis_getName_c" cRqisGetName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs.h cRqis_add2_c" cRqisAdd2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs.h cRqis_size_c" cRqisSize'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs.h cRqis_clear_c" cRqisClear'_ :: ((HG3DClassPtr) -> (IO ())) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs.h cRqis_get_c" cRqisGet'_ :: ((HG3DClassPtr) -> (CInt -> ((HG3DClassPtr) -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs.h cRqis_remove_c" cRqisRemove'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))