module HGamer3D.Bindings.Ogre.ClassArchive 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
delete :: HG3DClass -> IO ()
delete a1 =
withHG3DClass a1 $ \a1' ->
delete'_ a1' >>= \res ->
return ()
getName :: HG3DClass -> IO (String)
getName a1 =
withHG3DClass a1 $ \a1' ->
alloc64k $ \a2' ->
getName'_ a1' a2' >>= \res ->
peekCString a2'>>= \a2'' ->
return (a2'')
isCaseSensitive :: HG3DClass -> IO (Bool)
isCaseSensitive a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
isCaseSensitive'_ a1' a2' >>= \res ->
peekBoolUtil a2'>>= \a2'' ->
return (a2'')
load :: HG3DClass -> IO ()
load a1 =
withHG3DClass a1 $ \a1' ->
load'_ a1' >>= \res ->
return ()
unload :: HG3DClass -> IO ()
unload a1 =
withHG3DClass a1 $ \a1' ->
unload'_ a1' >>= \res ->
return ()
isReadOnly :: HG3DClass -> IO (Bool)
isReadOnly a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
isReadOnly'_ a1' a2' >>= \res ->
peekBoolUtil a2'>>= \a2'' ->
return (a2'')
remove :: HG3DClass -> String -> IO ()
remove a1 a2 =
withHG3DClass a1 $ \a1' ->
withCString a2 $ \a2' ->
remove'_ a1' a2' >>= \res ->
return ()
exists :: HG3DClass -> String -> IO (Bool)
exists a1 a2 =
withHG3DClass a1 $ \a1' ->
withCString a2 $ \a2' ->
alloca $ \a3' ->
exists'_ a1' a2' a3' >>= \res ->
peekBoolUtil a3'>>= \a3'' ->
return (a3'')
getType :: HG3DClass -> IO (String)
getType a1 =
withHG3DClass a1 $ \a1' ->
alloc64k $ \a2' ->
getType'_ a1' a2' >>= \res ->
peekCString a2'>>= \a2'' ->
return (a2'')
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_destruct"
delete'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_getName"
getName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_isCaseSensitive"
isCaseSensitive'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_load"
load'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_unload"
unload'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_isReadOnly"
isReadOnly'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_remove"
remove'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_exists"
exists'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_getType"
getType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))