diff options
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 |