#include <irrlicht/irrlicht.h>
#include <libguile.h>
+
#include "event-receiver.h"
#include "gsubr.h"
+#include "keycodes.h"
#include "wrapped.h"
extern "C" {
{
init_event_receiver_type ();
init_event_type ();
+ DEFINE_GSUBR ("event-key-input-key", 1, 0, 0, event_key_input_key);
+ DEFINE_GSUBR ("event-key-input-pressed", 1, 0, 0, event_key_input_pressed);
DEFINE_GSUBR ("event-type", 1, 0, 0, event_type);
DEFINE_GSUBR ("make-event-receiver", 1, 0, 0, make_event_receiver);
}
init_event_type, event_p,
wrap_event, unwrap_event);
+ SCM
+ event_key_input_key (SCM event)
+ {
+ return scm_from_key_code (unwrap_event (event)->KeyInput.Key);
+ }
+
+ SCM
+ event_key_input_pressed (SCM event)
+ {
+ return scm_from_bool (unwrap_event (event)->KeyInput.PressedDown);
+ }
+
SCM
event_type (SCM event)
{