module HGamer3D.Bindings.Ogre.ClassException where
import Foreign
import Foreign.Ptr
import Foreign.C
import HGamer3D.Data.HG3DClass
import HGamer3D.Data.Vector
import HGamer3D.Data.Colour
import HGamer3D.Data.Angle
import HGamer3D.Bindings.Ogre.Utils
import HGamer3D.Bindings.Ogre.ClassPtr
import HGamer3D.Bindings.Ogre.StructHG3DClass
new :: Int -> String -> String -> IO (HG3DClass)
new a1 a2 a3 =
let {a1' = fromIntegral a1} in
withCString a2 $ \a2' ->
withCString a3 $ \a3' ->
alloca $ \a4' ->
new'_ a1' a2' a3' a4' >>= \res ->
peek a4'>>= \a4'' ->
return (a4'')
delete :: HG3DClass -> IO ()
delete a1 =
withHG3DClass a1 $ \a1' ->
delete'_ a1' >>= \res ->
return ()
getFullDescription :: HG3DClass -> IO (String)
getFullDescription a1 =
withHG3DClass a1 $ \a1' ->
alloc64k $ \a2' ->
getFullDescription'_ a1' a2' >>= \res ->
peekCString a2'>>= \a2'' ->
return (a2'')
getNumber :: HG3DClass -> IO (Int)
getNumber a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getNumber'_ a1' a2' >>= \res ->
peekIntConv a2'>>= \a2'' ->
return (a2'')
getSource :: HG3DClass -> IO (String)
getSource a1 =
withHG3DClass a1 $ \a1' ->
alloc64k $ \a2' ->
getSource'_ a1' a2' >>= \res ->
peekCString a2'>>= \a2'' ->
return (a2'')
getFile :: HG3DClass -> IO (String)
getFile a1 =
withHG3DClass a1 $ \a1' ->
alloc64k $ \a2' ->
getFile'_ a1' a2' >>= \res ->
peekCString a2'>>= \a2'' ->
return (a2'')
getLine :: HG3DClass -> IO (Int)
getLine a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
getLine'_ a1' a2' >>= \res ->
peekIntConv a2'>>= \a2'' ->
return (a2'')
getDescription :: HG3DClass -> IO (String)
getDescription a1 =
withHG3DClass a1 $ \a1' ->
alloc64k $ \a2' ->
getDescription'_ a1' a2' >>= \res ->
peekCString a2'>>= \a2'' ->
return (a2'')
what :: HG3DClass -> IO (String)
what a1 =
withHG3DClass a1 $ \a1' ->
alloc64k $ \a2' ->
what'_ a1' a2' >>= \res ->
peekCString a2'>>= \a2'' ->
return (a2'')
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_construct"
new'_ :: (CInt -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_destruct"
delete'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_getFullDescription"
getFullDescription'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_getNumber"
getNumber'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_getSource"
getSource'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_getFile"
getFile'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_getLine"
getLine'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_getDescription"
getDescription'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_what"
what'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))