From 0ba049daed6e4b5d01f83d236f3178747bf849cb Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Sat, 4 Sep 2021 10:43:01 +0200 Subject: Transform the letter e into eu or E --- src/lib/sounds/sounds.ml | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'src/lib/sounds/sounds.ml') diff --git a/src/lib/sounds/sounds.ml b/src/lib/sounds/sounds.ml index a8c9ce9..afaf110 100644 --- a/src/lib/sounds/sounds.ml +++ b/src/lib/sounds/sounds.ml @@ -17,7 +17,8 @@ type code = | Voyel_U (* OU like in Ouvrir *) | Voyel_Y (* U like in Unique *) | Voyel_AI - | Voyel_EU + | Voyel_EU_Closed + | Voyel_EU_Opened | SemiVoyel_W | SemiVoyel_Y | Consonant_P @@ -82,13 +83,12 @@ let e = function | `Closed -> { voyel with code = E_Closed } | `Opened -> { voyel with code = E_Opened } -let eu = - { voyel with - code = Voyel_EU - } +let eu = function + | `Closed -> { voyel with code = Voyel_EU_Closed } + | `Opened -> { voyel with code = Voyel_EU_Opened } -let schwa () = +let schwa = { voyel with code = Voyel_E } @@ -264,7 +264,8 @@ let repr | Voyel_U, _ -> Repr.u | Voyel_Y, false -> Repr.y | Voyel_Y, true -> Repr.y_nasal - | Voyel_EU, _ -> Repr.eu + | Voyel_EU_Closed, _ -> Repr.eu_closed + | Voyel_EU_Opened, _ -> Repr.eu_opened | SemiVoyel_W, _ -> Repr.semi_voyel_w | SemiVoyel_Y, _ -> Repr.semi_voyel_y -- cgit v1.2.3