#include "IrrlichtDevice.h"
#include "ISceneManager.h"
#include "IVideoDriver.h"
-#include "util.h"
+#include "wchar.h"
+#include "wrapped.h"
extern "C" {
{
init_device_type ();
scm_c_define_gsubr ("create-device", 7, 0, 0, (scm_t_subr)irr_createDevice);
- scm_c_define_gsubr ("device-drop!", 1, 0, 0, (scm_t_subr)irr_deviceDrop);
scm_c_define_gsubr ("get-gui-environment", 1, 0, 0, (scm_t_subr)irr_getGUIEnvironment);
scm_c_define_gsubr ("get-scene-manager", 1, 0, 0, (scm_t_subr)irr_getSceneManager);
scm_c_define_gsubr ("get-video-driver", 1, 0, 0, (scm_t_subr)irr_getVideoDriver);
}
DEFINE_WRAPPED_TYPE (irr::IrrlichtDevice*, "device",
- init_device_type, wrap_device, unwrap_device);
+ init_device_type, device_p,
+ wrap_device, unwrap_device);
SCM
irr_createDevice (SCM deviceType,
return wrap_device (device);
}
- SCM
- irr_deviceDrop (SCM wrapped_device)
- {
- irr::IrrlichtDevice* device = unwrap_device (wrapped_device);
- return scm_from_bool (device->drop ());
- }
-
SCM
irr_getGUIEnvironment (SCM wrapped_device)
{