src/event-receiver.cpp

   1 /* guile-irrlicht --- GNU Guile bindings for Irrlicht Engine
   2
   3    Copyright (C) 2020 Javier Sancho <jsf@jsancho.org>
   4
   5    This file is part of guile-irrlicht.
   6
   7    guile-irrlicht is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU Lesser General Public License as
   9    published by the Free Software Foundation; either version 3 of the
  10    License, or (at your option) any later version.
  11
  12    guile-irrlicht is distributed in the hope that it will be useful, but
  13    WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15    General Public License for more details.
  16
  17    You should have received a copy of the GNU Lesser General Public
  18    License along with guile-irrlicht. If not, see
  19    <http://www.gnu.org/licenses/>.
  20 */
  21
  22 #include <irrlicht/irrlicht.h>
  23 #include <libguile.h>
  24 #include "event-receiver.h"
  25 #include "gsubr.h"
  26 #include "keycodes.h"
  27 #include "wrapped.h"
  28
  29 using namespace irr;
  30
  31 SCM
  32 IEventRecevier_make (SCM proc_on_event)
  33 {
  34   class CustomReceiver : public IEventReceiver
  35   {
  36     SCM scm_on_event;
  37
  38   public:
  39     CustomReceiver (SCM on_event)
  40     {
  41       scm_on_event = on_event;
  42     }
  43
  44     virtual bool OnEvent (const SEvent& event)
  45     {
  46       return scm_to_bool (scm_call_1 (scm_on_event, scm_from_pointer ((void*)&event, NULL)));
  47     }
  48   };
  49
  50   CustomReceiver* receiver = new CustomReceiver (proc_on_event);
  51   return scm_from_pointer ((void*)receiver, NULL);
  52 }
  53
  54 SCM
  55 SEvent_EventType (SCM event)
  56 {
  57   return scm_from_event_type
  58     (((SEvent*)scm_to_irr_pointer (event))->EventType);
  59 }
  60
  61 SCM
  62 SEvent_SGUIEvent_Caller (SCM event)
  63 {
  64   gui::IGUIElement* caller =
  65     ((SEvent*)scm_to_irr_pointer (event))->GUIEvent.Caller;
  66   return scm_from_pointer ((void*)caller, NULL);
  67 }
  68
  69 SCM
  70 SEvent_SGUIEvent_EventType (SCM event)
  71 {
  72   return scm_from_gui_event_type
  73     (((SEvent*)scm_to_irr_pointer (event))->GUIEvent.EventType);
  74 }
  75
  76 SCM
  77 SEvent_SKeyInput_Key (SCM event)
  78 {
  79   return scm_from_key_code
  80     (((SEvent*)scm_to_irr_pointer (event))->KeyInput.Key);
  81 }
  82
  83 SCM
  84 SEvent_SKeyInput_PressedDown (SCM event)
  85 {
  86   return scm_from_bool
  87     (((SEvent*)scm_to_irr_pointer (event))->KeyInput.PressedDown);
  88 }
  89
  90 void
  91 init_event_receiver (void)
  92 {
  93   DEFINE_GSUBR ("IEventRecevier_make", 1, 0, 0, IEventRecevier_make);
  94   DEFINE_GSUBR ("SEvent_EventType", 1, 0, 0, SEvent_EventType);
  95   DEFINE_GSUBR ("SEvent_SGUIEvent_Caller", 1, 0, 0, SEvent_SGUIEvent_Caller);
  96   DEFINE_GSUBR ("SEvent_SGUIEvent_EventType", 1, 0, 0, SEvent_SGUIEvent_EventType);
  97   DEFINE_GSUBR ("SEvent_SKeyInput_Key", 1, 0, 0, SEvent_SKeyInput_Key);
  98   DEFINE_GSUBR ("SEvent_SKeyInput_PressedDown", 1, 0, 0, SEvent_SKeyInput_PressedDown);
  99 }
 100
 101 SCM
 102 scm_from_event_type (EEVENT_TYPE event_type)
 103 {
 104   switch (event_type)
 105     {
 106     case EET_GUI_EVENT:
 107       return scm_from_utf8_symbol ("gui-event");
 108       break;
 109
 110     case EET_MOUSE_INPUT_EVENT:
 111       return scm_from_utf8_symbol ("mouse-input-event");
 112       break;
 113
 114     case EET_KEY_INPUT_EVENT:
 115       return scm_from_utf8_symbol ("key-input-event");
 116       break;
 117
 118     case EET_JOYSTICK_INPUT_EVENT:
 119       return scm_from_utf8_symbol ("joystick-input-event");
 120       break;
 121
 122     case EET_LOG_TEXT_EVENT:
 123       return scm_from_utf8_symbol ("log-text-event");
 124       break;
 125
 126     case EET_USER_EVENT:
 127       return scm_from_utf8_symbol ("user-event");
 128       break;
 129
 130     default:
 131       SCM type = scm_from_uint (event_type);
 132       scm_error (scm_arg_type_key, NULL, "Wrong event type: ~S",
 133                  scm_list_1 (type), scm_list_1 (type));
 134     }
 135 }
 136
 137 SCM
 138 scm_from_gui_event_type (gui::EGUI_EVENT_TYPE gui_event_type)
 139 {
 140   switch (gui_event_type)
 141     {
 142     case gui::EGET_ELEMENT_FOCUS_LOST:
 143       return scm_from_utf8_symbol ("element-focus-lost");
 144       break;
 145
 146     case gui::EGET_ELEMENT_FOCUSED:
 147       return scm_from_utf8_symbol ("element-focused");
 148       break;
 149
 150     case gui::EGET_ELEMENT_HOVERED:
 151       return scm_from_utf8_symbol ("element-hovered");
 152       break;
 153
 154     case gui::EGET_ELEMENT_LEFT:
 155       return scm_from_utf8_symbol ("element-left");
 156       break;
 157
 158     case gui::EGET_ELEMENT_CLOSED:
 159       return scm_from_utf8_symbol ("element-closed");
 160       break;
 161
 162     case gui::EGET_BUTTON_CLICKED:
 163       return scm_from_utf8_symbol ("button-clicked");
 164       break;
 165
 166     case gui::EGET_SCROLL_BAR_CHANGED:
 167       return scm_from_utf8_symbol ("scrollbar-changed");
 168       break;
 169
 170     case gui::EGET_CHECKBOX_CHANGED:
 171       return scm_from_utf8_symbol ("checkbox-changed");
 172       break;
 173
 174     case gui::EGET_LISTBOX_CHANGED:
 175       return scm_from_utf8_symbol ("listbox-changed");
 176       break;
 177
 178     case gui::EGET_LISTBOX_SELECTED_AGAIN:
 179       return scm_from_utf8_symbol ("listbox-selected-again");
 180       break;
 181
 182     case gui::EGET_FILE_SELECTED:
 183       return scm_from_utf8_symbol ("file-selected");
 184       break;
 185
 186     case gui::EGET_DIRECTORY_SELECTED:
 187       return scm_from_utf8_symbol ("directory-selected");
 188       break;
 189
 190     case gui::EGET_FILE_CHOOSE_DIALOG_CANCELLED:
 191       return scm_from_utf8_symbol ("file-choose-dialog-cancelled");
 192       break;
 193
 194     case gui::EGET_MESSAGEBOX_YES:
 195       return scm_from_utf8_symbol ("messagebox-yes");
 196       break;
 197
 198     case gui::EGET_MESSAGEBOX_NO:
 199       return scm_from_utf8_symbol ("messagebox-no");
 200       break;
 201
 202     case gui::EGET_MESSAGEBOX_OK:
 203       return scm_from_utf8_symbol ("messagebox-ok");
 204       break;
 205
 206     case gui::EGET_MESSAGEBOX_CANCEL:
 207       return scm_from_utf8_symbol ("messagebox-cancel");
 208       break;
 209
 210     case gui::EGET_EDITBOX_ENTER:
 211       return scm_from_utf8_symbol ("editbox-enter");
 212       break;
 213
 214     case gui::EGET_EDITBOX_CHANGED:
 215       return scm_from_utf8_symbol ("editbox-changed");
 216       break;
 217
 218     case gui::EGET_EDITBOX_MARKING_CHANGED:
 219       return scm_from_utf8_symbol ("editbox-marking-changed");
 220       break;
 221
 222     case gui::EGET_TAB_CHANGED:
 223       return scm_from_utf8_symbol ("tab-changed");
 224       break;
 225
 226     case gui::EGET_MENU_ITEM_SELECTED:
 227       return scm_from_utf8_symbol ("menu-item-selected");
 228       break;
 229
 230     case gui::EGET_COMBO_BOX_CHANGED:
 231       return scm_from_utf8_symbol ("combo-box-changed");
 232       break;
 233
 234     case gui::EGET_SPINBOX_CHANGED:
 235       return scm_from_utf8_symbol ("spinbox-changed");
 236       break;
 237
 238     case gui::EGET_TABLE_CHANGED:
 239       return scm_from_utf8_symbol ("table-changed");
 240       break;
 241
 242     case gui::EGET_TABLE_HEADER_CHANGED:
 243       return scm_from_utf8_symbol ("table-header-changed");
 244       break;
 245
 246     case gui::EGET_TABLE_SELECTED_AGAIN:
 247       return scm_from_utf8_symbol ("table-selected-again");
 248       break;
 249
 250     case gui::EGET_TREEVIEW_NODE_DESELECT:
 251       return scm_from_utf8_symbol ("treeview-node-deselect");
 252       break;
 253
 254     case gui::EGET_TREEVIEW_NODE_SELECT:
 255       return scm_from_utf8_symbol ("treeview-node-select");
 256       break;
 257
 258     case gui::EGET_TREEVIEW_NODE_EXPAND:
 259       return scm_from_utf8_symbol ("treeview-node-expand");
 260       break;
 261
 262     case gui::EGET_TREEVIEW_NODE_COLLAPSE:
 263       return scm_from_utf8_symbol ("treeview-node-collapse");
 264       break;
 265
 266     default:
 267       SCM type = scm_from_uint (gui_event_type);
 268       scm_error (scm_arg_type_key, NULL, "Wrong GUI event type: ~S",
 269                  scm_list_1 (type), scm_list_1 (type));
 270     }
 271 }