diff options
Diffstat (limited to 'src/lib/sounds/sounds.ml')
| -rw-r--r-- | src/lib/sounds/sounds.ml | 29 |
1 files changed, 18 insertions, 11 deletions
diff --git a/src/lib/sounds/sounds.ml b/src/lib/sounds/sounds.ml index cc801dd..aad7cf0 100644 --- a/src/lib/sounds/sounds.ml +++ b/src/lib/sounds/sounds.ml @@ -116,14 +116,11 @@ let voyel_u = let p = { none with - code = Consonant_P - ; mutable_ = false } + code = Consonant_P } let b = { none with - code = Consonant_B - ; mutable_ = false - } + code = Consonant_B } let t = { none with @@ -143,6 +140,11 @@ let g = { none with code = Consonant_G } +(** f is alway pronounend in ending consonant. Know exeception are : + - cerf + - clef + - nerf + - serf *) let f = { none with code = Consonant_F @@ -227,18 +229,23 @@ let rec nasal t = | Voyel, _ -> Some { t with nasal = true } | _ -> None -let muted f = - (* f is alway pronounend in endding consonant. Know exeception are : - - cerf - - clef - - nerf - - serf *) +let is_muted t = + match t.code with + | Muted _ -> true + | _ -> false + +let mute f = match f.mutable_ with | false -> f | true -> { none with code = Muted f } +let unmute t = + match t.code with + | Muted t -> t + | _ -> t + let repr : (module Sig.REPR) -> t list -> string = fun m letters -> |