diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-08-31 13:37:19 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-08-31 13:37:19 +0200 |
| commit | 843230359b2157212c4e93b51994f0fde90d808b (patch) | |
| tree | 1d22d4efb54f0e4c94564b8e8e1960a0a9fda8ef /src/lib/sounds | |
| parent | 6ccbcc2cadae41574e33226b9072a08354880d28 (diff) | |
Added endign work in lexer
Diffstat (limited to 'src/lib/sounds')
| -rw-r--r-- | src/lib/sounds/sounds.ml | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/src/lib/sounds/sounds.ml b/src/lib/sounds/sounds.ml index 85db338..f2a9d86 100644 --- a/src/lib/sounds/sounds.ml +++ b/src/lib/sounds/sounds.ml @@ -44,7 +44,7 @@ module type T = sig val z: t val sz: t val ch: t - (* val j: t *) + val j: t val n: t val m: t @@ -86,6 +86,9 @@ module T = struct | Consonant_V | Consonant_S | Consonant_Z + | Consonant_X + | Consonant_J + | Consonant_M | Consonant_N | Consonant_L @@ -131,6 +134,7 @@ module Repr = struct and v = "v" and ch = "S" + and j = "j" and s = "s" and z = "z" @@ -263,7 +267,14 @@ module S = struct let ch = { none with - repr = Repr.ch + code = Consonant_X + ; repr = Repr.ch + ; mutable_ = false } + + let j = + { none with + code = Consonant_J + ; repr = Repr.j ; mutable_ = false } let sz = @@ -374,6 +385,9 @@ module S = struct | Consonant_S, _ -> Repr.s | Consonant_Z, _ -> Repr.z + | Consonant_X, _ -> Repr.ch + | Consonant_J, _ -> Repr.j + | Consonant_M, _ -> Repr.m | Consonant_N, _ -> Repr.n | Consonant_L, _ -> Repr.l |