#include "driver-types.h"
#include "gsubr.h"
#include "wchar.h"
+#include "wrapped.h"
using namespace irr;
scm_to_bool (fullscreen),
scm_to_bool (stencilbuffer),
scm_to_bool (vsync),
- (IEventReceiver*)scm_to_pointer (receiver));
+ (IEventReceiver*)scm_to_irr_pointer (receiver));
return scm_from_pointer ((void*)device, NULL);
}
IrrlichtDevice_getCursorControl (SCM device)
{
gui::ICursorControl* cursor_control =
- ((IrrlichtDevice*)scm_to_pointer (device))->getCursorControl ();
+ ((IrrlichtDevice*)scm_to_irr_pointer (device))->getCursorControl ();
return scm_from_pointer ((void*)cursor_control, NULL);
}
IrrlichtDevice_getFileSystem (SCM device)
{
io::IFileSystem* file_system =
- ((IrrlichtDevice*)scm_to_pointer (device))->getFileSystem ();
+ ((IrrlichtDevice*)scm_to_irr_pointer (device))->getFileSystem ();
return scm_from_pointer ((void*)file_system, NULL);
}
IrrlichtDevice_getGUIEnvironment (SCM device)
{
gui::IGUIEnvironment* gui_env =
- ((IrrlichtDevice*)scm_to_pointer (device))->getGUIEnvironment ();
+ ((IrrlichtDevice*)scm_to_irr_pointer (device))->getGUIEnvironment ();
return scm_from_pointer ((void*)gui_env, NULL);
}
IrrlichtDevice_getSceneManager (SCM device)
{
scene::ISceneManager* manager =
- ((IrrlichtDevice*)scm_to_pointer (device))->getSceneManager ();
+ ((IrrlichtDevice*)scm_to_irr_pointer (device))->getSceneManager ();
return scm_from_pointer ((void*)manager, NULL);
}
IrrlichtDevice_getTimer (SCM device)
{
ITimer* timer =
- ((IrrlichtDevice*)scm_to_pointer (device))->getTimer ();
+ ((IrrlichtDevice*)scm_to_irr_pointer (device))->getTimer ();
return scm_from_pointer ((void*)timer, NULL);
}
IrrlichtDevice_getVideoDriver (SCM device)
{
video::IVideoDriver* driver =
- ((IrrlichtDevice*)scm_to_pointer (device))->getVideoDriver ();
+ ((IrrlichtDevice*)scm_to_irr_pointer (device))->getVideoDriver ();
return scm_from_pointer ((void*)driver, NULL);
}
IrrlichtDevice_isWindowActive (SCM device)
{
return scm_from_bool
- (((IrrlichtDevice*)scm_to_pointer (device))->isWindowActive ());
+ (((IrrlichtDevice*)scm_to_irr_pointer (device))->isWindowActive ());
}
SCM
IrrlichtDevice_run (SCM device)
{
return scm_from_bool
- (((IrrlichtDevice*)scm_to_pointer (device))->run ());
+ (((IrrlichtDevice*)scm_to_irr_pointer (device))->run ());
}
template <typename TEventReceiver>
IrrlichtDevice_setEventReceiver (SCM device,
SCM receiver)
{
- ((IrrlichtDevice*)scm_to_pointer (device))->
- setEventReceiver ((TEventReceiver)scm_to_pointer (receiver));
+ ((IrrlichtDevice*)scm_to_irr_pointer (device))->
+ setEventReceiver ((TEventReceiver)scm_to_irr_pointer (receiver));
return SCM_UNSPECIFIED;
}
IrrlichtDevice_setResizable (SCM device,
SCM resize)
{
- ((IrrlichtDevice*)scm_to_pointer (device))->
+ ((IrrlichtDevice*)scm_to_irr_pointer (device))->
setResizable (scm_to_bool (resize));
return SCM_UNSPECIFIED;
}
IrrlichtDevice_setWindowCaption (SCM device,
SCM text)
{
- ((IrrlichtDevice*)scm_to_pointer (device))->
+ ((IrrlichtDevice*)scm_to_irr_pointer (device))->
setWindowCaption (scm_to_wide_char_string (text));
return SCM_UNSPECIFIED;
}
SCM
IrrlichtDevice_yield (SCM device)
{
- ((IrrlichtDevice*)scm_to_pointer (device))->yield ();
+ ((IrrlichtDevice*)scm_to_irr_pointer (device))->yield ();
return SCM_UNSPECIFIED;
}