From 0ba049daed6e4b5d01f83d236f3178747bf849cb Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Sat, 4 Sep 2021 10:43:01 +0200
Subject: Transform the letter e into eu or E

---
 src/lib/modifiers/e.ml | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 src/lib/modifiers/e.ml

(limited to 'src/lib/modifiers/e.ml')

diff --git a/src/lib/modifiers/e.ml b/src/lib/modifiers/e.ml
new file mode 100644
index 0000000..8fd65bf
--- /dev/null
+++ b/src/lib/modifiers/e.ml
@@ -0,0 +1,15 @@
+(** Transform the e into eu or E *)
+let process
+  : 'a Sig.modifier
+  = fun init ->
+    let ((v2, c) , ending) = init in
+
+    match ending with
+    | None when v2 = Sounds.schwa ->
+      (* If there is no more consononant in the syllabe, change the e
+         into eu, like in sera *)
+      ((Sounds.eu `Closed, c) , ending)
+    | Some _ when v2 = Sounds.schwa ->
+      (* If there is an ending consonant, change the e into E like essai *)
+      ((Sounds.e `Opened, c) , ending)
+    | _ -> init
-- 
cgit v1.2.3