diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-08 18:06:55 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-08 18:06:55 +0200 |
| commit | 1ba97f613c25926f4007fda9e38131fbb8961173 (patch) | |
| tree | 501051e35c6c44a48b8d8a93e12267ab5d3eb8d0 /src/lib/sounds/sounds.ml | |
| parent | d04dec688cc9159d4e3ad47890ae4b1f40c5ec3c (diff) | |
Update tengwar
Diffstat (limited to 'src/lib/sounds/sounds.ml')
| -rw-r--r-- | src/lib/sounds/sounds.ml | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/lib/sounds/sounds.ml b/src/lib/sounds/sounds.ml index 2e8e95b..47fea2b 100644 --- a/src/lib/sounds/sounds.ml +++ b/src/lib/sounds/sounds.ml @@ -21,6 +21,7 @@ type code = | Voyel_EU_Opened | SemiVoyel_W | SemiVoyel_Y + | SemiVoyel_U | Consonant_P | Consonant_B | Consonant_T @@ -203,6 +204,11 @@ let semi_voyel_y = kind = SemiVoyel ; code = SemiVoyel_Y} +let semi_voyel_u = + { none with + kind = SemiVoyel + ; code = SemiVoyel_U} + let rec nasal t = match t.kind, t.code with @@ -212,10 +218,7 @@ let rec nasal t = (* The only case we could have the nasalisation of such diphtongue, is the case I E, N -> wich is transformed into I, I N. *) Some ( diphtongue s1 { i with nasal = true } ) - | (SemiVoyel_Y, _) - | (SemiVoyel_W, _) -> - Option.map (fun s -> diphtongue s1 s) (nasal s2) - | _ -> None + | _ -> Option.map (fun s -> diphtongue s1 s) (nasal s2) end | Voyel, _ -> Some { t with nasal = true } | _ -> None @@ -263,6 +266,7 @@ let repr | SemiVoyel_W , _ -> Repr.semi_voyel_w | SemiVoyel_Y , _ -> Repr.semi_voyel_y + | SemiVoyel_U , _ -> Repr.semi_voyel_u | Consonant_P , _ -> Repr.p | Consonant_B , _ -> Repr.b |