- Added bindings module.

src/binding.c

@@ -0,0 +1,125 @@
+/**
+ * Handle bindings for Arache engine.
+ */
+
+#include "list.h"
+#include "system.h"
+#include "binding.h"
+#include "memory.h"
+
+struct binding
+{
+  int run_from;
+  int ev_from;
+
+  int run_to;
+  int ev_to;
+
+  int manual;
+};
+
+typedef struct binding *Binding;
+
+static System sys;
+
+/*
+ *
+ * Assist stuff
+ *
+ */
+
+//! Create mem for binding
+Binding
+binding_create (int run_from, int ev_from, int run_to, int ev_to, int manual)
+{
+  Binding b;
+
+  b = memAlloc (sizeof (struct binding));
+  b->run_from = run_from;
+  b->ev_from = ev_from;
+  b->run_to = run_to;
+  b->ev_to = ev_to;
+  b->manual = manual;
+  return b;
+}
+
+//! Remove mem for binding
+void
+binding_destroy (Binding b)
+{
+  memFree (b, sizeof (struct binding));
+}
+
+/*
+ *
+ * Main
+ *
+ */
+
+//! Init module
+void
+bindingInit (const System mysys)
+{
+  sys = mysys;
+  sys->bindings = NULL;
+}
+
+//! Close up
+void
+bindingDone ()
+{
+  int delete (Binding b)
+  {
+    binding_destroy (b);
+    return 1;
+  }
+  list_iterate (sys->bindings, delete);
+  list_destroy (sys->bindings);
+}
+
+
+/**
+ *
+ * Externally available functions
+ *
+ */
+
+//! Add a binding
+/**
+ * Note that bindings are added to the head of the list.
+ *@returns True iff is a valid additional binding. False if not. If false, nothing needs to be destroyed.
+ */
+int
+binding_add (int run_from, int ev_from, int run_to, int ev_to)
+{
+  Binding b;
+
+  b = binding_create (run_from, ev_from, run_to, ev_to, 1);
+  sys->bindings = list_insert (sys->bindings, b);
+  return 1;
+}
+
+//! Remove last additions, including last manual addition
+/**
+ * Note that this concerns the head of the list.
+ */
+void
+binding_remove_last ()
+{
+  List list;
+  int manual;
+
+  manual = 0;
+  list = sys->bindings;
+
+  while (!manual && list != NULL);
+  {
+    Binding b;
+
+    b = (Binding) list->data;
+    manual = b->manual;
+    binding_destroy (b);
+    list = list_delete (list);
+  }
+  sys->bindings = list;
+}