From c8b49eed4cf92e7d2dd01dce779ef84ccae733eb Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Fri, 27 Aug 2021 14:37:24 +0200
Subject: Splitted modifiers in own library

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

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

diff --git a/src/lib/modifiers/vocalize.ml b/src/lib/modifiers/vocalize.ml
new file mode 100644
index 0000000..86a0502
--- /dev/null
+++ b/src/lib/modifiers/vocalize.ml
@@ -0,0 +1,20 @@
+(** Transform the S into Z if the S is the opening consonant and
+    there is no ending consonant before *)
+let process
+  : 'a Sig.modifier
+  = fun (type el) m init ->
+    let module T = (val m:Sounds.T with type t = el) in
+    let (((v1, v2), c) , ending) = init in
+
+    match c with
+    | None -> init
+    | Some op ->
+      (* The voyel may be none in case of ending word. In such case, we shall
+         not trnasform the S into Z *)
+      let is_voyel = T.is_voyel v1 && T.is_voyel v2 in
+      match is_voyel, op.Sig.opening, op.Sig.ending with
+      | true, hd::[], None when T.code hd = T.SZ ->
+        let c = Some { op with opening = [T.z ()] } in
+        (((v1, v2), c) , ending)
+      | _ -> init
+
-- 
cgit v1.2.3