Add sdl_keyboard with 3 text input related functions

The following functions were added:

* sdl_keyboard:start_text_input()
* sdl_keyboard:stop_text_input()
* sdl_keyboard:is_text_input_active()

Calling sdl_keyboard:stop_text_input() at the beginning of the
program allows not receiving unwanted textinput events.

2 files changed, 58 insertions, 0 deletions

diff --git a/c_src/esdl2.h b/c_src/esdl2.h
index 61af33a..530abc4 100644
--- a/c_src/esdl2.h
+++ b/c_src/esdl2.h
@@ -166,6 +166,10 @@
 	/* sdl_gl */ \
 	F(gl_create_context, 1) \
 	F(gl_swap_window, 1) \
+	/* sdl_keyboard */ \
+	F(is_text_input_active, 0) \
+	F(start_text_input, 0) \
+	F(stop_text_input, 0) \
 	/* sdl_power */ \
 	F(get_power_info, 0) \
 	/* sdl_renderer */ \
diff --git a/c_src/sdl_keyboard.c b/c_src/sdl_keyboard.c
new file mode 100644
index 0000000..4c7dbc5
--- /dev/null
+++ b/c_src/sdl_keyboard.c
@@ -0,0 +1,54 @@
+// Copyright (c) 2015, Loïc Hoguin <[email protected]>
+//
+// Permission to use, copy, modify, and/or distribute this software for any
+// purpose with or without fee is hereby granted, provided that the above
+// copyright notice and this permission notice appear in all copies.
+//
+// THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+// WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+// MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+// ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+// WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+// ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+// OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+#include "esdl2.h"
+
+// is_text_input_active
+
+NIF_CALL_HANDLER(thread_is_text_input_active)
+{
+	if (SDL_IsTextInputActive())
+		return atom_true;
+
+	return atom_false;
+}
+
+NIF_FUNCTION(is_text_input_active)
+{
+	return nif_thread_call(env, thread_is_text_input_active, 0);
+}
+
+// start_text_input
+
+NIF_CAST_HANDLER(thread_start_text_input)
+{
+	SDL_StartTextInput();
+}
+
+NIF_FUNCTION(start_text_input)
+{
+	return nif_thread_cast(env, thread_start_text_input, 0);
+}
+
+// stop_text_input
+
+NIF_CAST_HANDLER(thread_stop_text_input)
+{
+	SDL_StopTextInput();
+}
+
+NIF_FUNCTION(stop_text_input)
+{
+	return nif_thread_cast(env, thread_stop_text_input, 0);
+}