From 6a34154b77ac80f89df816ba0062f382d915fb22 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Sun, 5 Sep 2021 19:41:40 +0200
Subject: Updated tests

---
 src/application/application.ml | 49 ++++++++++++++++++++++++++++++++++++++++++
 src/application/dune           |  7 ++++++
 2 files changed, 56 insertions(+)
 create mode 100755 src/application/application.ml
 create mode 100755 src/application/dune

(limited to 'src/application')

diff --git a/src/application/application.ml b/src/application/application.ml
new file mode 100755
index 0000000..01724ac
--- /dev/null
+++ b/src/application/application.ml
@@ -0,0 +1,49 @@
+(** The Make module build the main application loop.contents
+
+    The function [run] update the state on each event, and return a new state.
+    Each event must follow the [event] type, which is composed from the type
+    [t], and a module with a fonction [update].
+
+    This example create an application with the state containing a simple
+    counter. An even which increment this counter is created and can be used to
+    update the state.
+
+
+    [
+        type state = { value : int }
+
+        (** Increment the state *)
+        module Incr = struct
+            type t = unit
+
+            let update () state = { value = state.value + 1 }
+        end
+
+        module App = Make(struct type t = state end)
+
+        (* Create the event itself *)
+        let incr_event = App.E ((), (module Incr:App.Event with type t = Incr.t))
+
+    ]
+
+*)
+module Make(S:sig type t end) = struct
+  module type Event = sig
+
+    type t
+
+    val update: t -> S.t -> S.t
+
+  end
+
+  type event = E : 'a * (module Event with type t = 'a) -> event
+
+  (** Simple helper for the main event loop *)
+  let run
+    : ?eq:(S.t -> S.t -> bool) -> S.t -> event Note.E.t -> S.t Note.S.t
+    = fun ?eq init event ->
+      let action = Note.E.map (fun (E (t, (module Event))) st -> Event.update t st) event in
+      Note.S.accum ?eq init action
+end
+
+
diff --git a/src/application/dune b/src/application/dune
new file mode 100755
index 0000000..77eb6b9
--- /dev/null
+++ b/src/application/dune
@@ -0,0 +1,7 @@
+(library
+ (name application)
+ (libraries 
+   brr
+   brr.note
+   )
+ )
-- 
cgit v1.2.3