diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-05 19:41:40 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-05 19:41:40 +0200 |
| commit | 6a34154b77ac80f89df816ba0062f382d915fb22 (patch) | |
| tree | 5dab18f15fe8555d5369a9c492228f6aa4d23001 /src/lib/sounds | |
| parent | 853e281a6719125866f8b948540944c571b091c6 (diff) | |
Updated tests
Diffstat (limited to 'src/lib/sounds')
| -rw-r--r-- | src/lib/sounds/sig.ml | 1 | ||||
| -rw-r--r-- | src/lib/sounds/sounds.ml | 7 | ||||
| -rw-r--r-- | src/lib/sounds/sounds.mli | 1 |
3 files changed, 9 insertions, 0 deletions
diff --git a/src/lib/sounds/sig.ml b/src/lib/sounds/sig.ml index 5322a12..016c757 100644 --- a/src/lib/sounds/sig.ml +++ b/src/lib/sounds/sig.ml @@ -37,6 +37,7 @@ module type REPR = sig val z : t val m : t val n : t + val gn : t val l : t val r : t diff --git a/src/lib/sounds/sounds.ml b/src/lib/sounds/sounds.ml index afaf110..58d511b 100644 --- a/src/lib/sounds/sounds.ml +++ b/src/lib/sounds/sounds.ml @@ -36,6 +36,7 @@ type code = | Consonant_M | Consonant_N + | Consonant_GN | Consonant_L | Consonant_R | Diphtonge of t * t @@ -168,6 +169,11 @@ let j = code = Consonant_J ; mutable_ = false } +let gn = + { none with + code = Consonant_GN + ; nasal = true } + let n = { none with code = Consonant_N @@ -287,6 +293,7 @@ let repr | Consonant_M, _ -> Repr.m | Consonant_N, _ -> Repr.n + | Consonant_GN, _ -> Repr.gn | Consonant_L, _ -> Repr.l | Consonant_R, _ -> Repr.r | Diphtonge (l1, l2), _ -> Repr.diphtongue (_repr l1) (_repr l2) diff --git a/src/lib/sounds/sounds.mli b/src/lib/sounds/sounds.mli index 2fae17f..4f0bbc1 100644 --- a/src/lib/sounds/sounds.mli +++ b/src/lib/sounds/sounds.mli @@ -60,6 +60,7 @@ val ch: t val j: t val n: t +val gn: t val m: t val r: t |