diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-10 20:50:40 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-10 20:50:40 +0200 |
| commit | 040c74ea186f195b8579960d2a74418c38cd9b76 (patch) | |
| tree | 2bb882c2dc7c18b39bf27187119534e2bd96d302 /src/lib/sounds/sounds.ml | |
| parent | 1ba97f613c25926f4007fda9e38131fbb8961173 (diff) | |
Added js code
Diffstat (limited to 'src/lib/sounds/sounds.ml')
| -rw-r--r-- | src/lib/sounds/sounds.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/lib/sounds/sounds.ml b/src/lib/sounds/sounds.ml index 47fea2b..cc801dd 100644 --- a/src/lib/sounds/sounds.ml +++ b/src/lib/sounds/sounds.ml @@ -7,6 +7,7 @@ type kind = type code = | None + | Space of string | SZ (* This is a possible Z if followed by a voyel *) | Voyel_A | Voyel_E @@ -53,8 +54,8 @@ and t = let is_voyel t = t.kind = Voyel || t.kind = SemiVoyel -let is_nasal t = t.nasal +let is_nasal t = t.nasal let none = { mutable_ = true @@ -62,6 +63,9 @@ let none = ; nasal = false ; code = None } +let space s = + { none with code = Space s } + let voyel = { none with kind = Voyel } @@ -245,6 +249,7 @@ let repr match letter.code, letter.nasal with | None , _ -> Repr.none + | Space s , _ -> Repr.space s | Voyel_A , false -> Repr.a | Voyel_A , true -> Repr.a_nasal | Voyel_AI , false -> Repr.e_opened |