--- /dev/null
+#include "event.h"
+#include <glib.h>
+#include <gtk/gtk.h>
+
+#include "chimara-glk-private.h"
+
+extern ChimaraGlkPrivate *glk_data;
+
+/**
+ * glk_set_interrupt_handler:
+ * @func: A pointer to an interrupt handler function.
+ *
+ * Sets @func to be the interrupt handler. @func should be a pointer to a
+ * function which takes no argument and returns no result. If Glk receives an
+ * interrupt, and you have set an interrupt handler, your handler will be
+ * called, before the process is shut down.
+ *
+ * Initially there is no interrupt handler. You can reset to not having any by
+ * calling <code>#glk_set_interrupt_handler(%NULL)</code>.
+ *
+ * If you call glk_set_interrupt_handler() with a new handler function while an
+ * older one is set, the new one replaces the old one. Glk does not try to queue
+ * interrupt handlers.
+ *
+ * You should not try to interact with the player in your interrupt handler. Do
+ * not call glk_select() or glk_select_poll(). Anything you print to a window
+ * may not be visible to the player.
+ */
+void
+glk_set_interrupt_handler(void (*func)(void))
+{
+ glk_data->interrupt_handler = func;
+}
+
+/* Internal function: abort this Glk program, freeing resources and calling the
+user's interrupt handler. */
+static void
+abort_glk()
+{
+ if(glk_data->interrupt_handler)
+ (*(glk_data->interrupt_handler))();
+ g_signal_emit_by_name(glk_data->self, "stopped");
+ g_thread_exit(NULL);
+}
+
+/* Internal function: Signal this Glk thread to abort. Does nothing if the abort
+mutex has already been freed. (That means the thread already ended.) */
+void
+signal_abort()
+{
+ if(glk_data && glk_data->abort_lock) {
+ g_mutex_lock(glk_data->abort_lock);
+ glk_data->abort_signalled = TRUE;
+ g_mutex_unlock(glk_data->abort_lock);
+ /* Stop blocking on the event queue condition */
+ event_throw(evtype_Abort, NULL, 0, 0);
+ }
+}
+
+/* Internal function: check if the Glk program has been interrupted. */
+void
+check_for_abort()
+{
+ g_mutex_lock(glk_data->abort_lock);
+ if(glk_data->abort_signalled)
+ {
+ g_mutex_unlock(glk_data->abort_lock);
+ abort_glk();
+ }
+ g_mutex_unlock(glk_data->abort_lock);
+}