module HGamer3D.Bindings.CEGUI.ClassScheme 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.CEGUI.Utils
import HGamer3D.Bindings.CEGUI.ClassPtr
import HGamer3D.Bindings.CEGUI.StructHG3DClass
loadResources :: HG3DClass -> IO ()
loadResources a1 =
withHG3DClass a1 $ \a1' ->
loadResources'_ a1' >>= \res ->
return ()
unloadResources :: HG3DClass -> IO ()
unloadResources a1 =
withHG3DClass a1 $ \a1' ->
unloadResources'_ a1' >>= \res ->
return ()
resourcesLoaded :: HG3DClass -> IO (Bool)
resourcesLoaded a1 =
withHG3DClass a1 $ \a1' ->
alloca $ \a2' ->
resourcesLoaded'_ a1' a2' >>= \res ->
peekBoolUtil a2'>>= \a2'' ->
return (a2'')
getName :: HG3DClass -> IO (String)
getName a1 =
withHG3DClass a1 $ \a1' ->
alloc64k $ \a2' ->
getName'_ a1' a2' >>= \res ->
peekCString a2'>>= \a2'' ->
return (a2'')
delete :: HG3DClass -> IO ()
delete a1 =
withHG3DClass a1 $ \a1' ->
delete'_ a1' >>= \res ->
return ()
getDefaultResourceGroup :: IO (String)
getDefaultResourceGroup =
alloc64k $ \a1' ->
getDefaultResourceGroup'_ a1' >>= \res ->
peekCString a1'>>= \a1'' ->
return (a1'')
setDefaultResourceGroup :: String -> IO ()
setDefaultResourceGroup a1 =
withCString a1 $ \a1' ->
setDefaultResourceGroup'_ a1' >>= \res ->
return ()
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs.h cegui_schm_loadResources"
loadResources'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs.h cegui_schm_unloadResources"
unloadResources'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs.h cegui_schm_resourcesLoaded"
resourcesLoaded'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs.h cegui_schm_getName"
getName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs.h cegui_schm_destruct"
delete'_ :: ((HG3DClassPtr) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs.h cegui_schm_getDefaultResourceGroup"
getDefaultResourceGroup'_ :: ((Ptr CChar) -> (IO ()))
foreign import ccall safe "HGamer3D\\Bindings\\CEGUI\\ClassScheme.chs.h cegui_schm_setDefaultResourceGroup"
setDefaultResourceGroup'_ :: ((Ptr CChar) -> (IO ()))