#include "gsubr.h"
#include "keycodes.h"
-
using namespace irr;
-
SCM
IEventRecevier_make (SCM proc_on_event)
{
return scm_from_pointer ((void*)receiver, NULL);
}
-
SCM
SEvent_EventType (SCM event)
{
(((SEvent*)scm_to_pointer (event))->EventType);
}
-
SCM
SEvent_SGUIEvent_Caller (SCM event)
{
return scm_from_pointer ((void*)caller, NULL);
}
-
SCM
SEvent_SGUIEvent_EventType (SCM event)
{
(((SEvent*)scm_to_pointer (event))->GUIEvent.EventType);
}
-
SCM
SEvent_SKeyInput_Key (SCM event)
{
(((SEvent*)scm_to_pointer (event))->KeyInput.Key);
}
-
SCM
SEvent_SKeyInput_PressedDown (SCM event)
{
(((SEvent*)scm_to_pointer (event))->KeyInput.PressedDown);
}
-
-extern "C" {
-
- void
- init_event_receiver (void)
- {
- DEFINE_GSUBR ("IEventRecevier_make", 1, 0, 0, IEventRecevier_make);
- DEFINE_GSUBR ("SEvent_EventType", 1, 0, 0, SEvent_EventType);
- DEFINE_GSUBR ("SEvent_SGUIEvent_Caller", 1, 0, 0, SEvent_SGUIEvent_Caller);
- DEFINE_GSUBR ("SEvent_SGUIEvent_EventType", 1, 0, 0, SEvent_SGUIEvent_EventType);
- DEFINE_GSUBR ("SEvent_SKeyInput_Key", 1, 0, 0, SEvent_SKeyInput_Key);
- DEFINE_GSUBR ("SEvent_SKeyInput_PressedDown", 1, 0, 0, SEvent_SKeyInput_PressedDown);
- }
-
+void
+init_event_receiver (void)
+{
+ DEFINE_GSUBR ("IEventRecevier_make", 1, 0, 0, IEventRecevier_make);
+ DEFINE_GSUBR ("SEvent_EventType", 1, 0, 0, SEvent_EventType);
+ DEFINE_GSUBR ("SEvent_SGUIEvent_Caller", 1, 0, 0, SEvent_SGUIEvent_Caller);
+ DEFINE_GSUBR ("SEvent_SGUIEvent_EventType", 1, 0, 0, SEvent_SGUIEvent_EventType);
+ DEFINE_GSUBR ("SEvent_SKeyInput_Key", 1, 0, 0, SEvent_SKeyInput_Key);
+ DEFINE_GSUBR ("SEvent_SKeyInput_PressedDown", 1, 0, 0, SEvent_SKeyInput_PressedDown);
}
SCM
}
}
-
SCM
scm_from_gui_event_type (gui::EGUI_EVENT_TYPE gui_event_type)
{