diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-04 10:43:01 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-04 10:43:01 +0200 |
| commit | 0ba049daed6e4b5d01f83d236f3178747bf849cb (patch) | |
| tree | 72eeedcaa5fbe9736e2842879d62d0bf412a149f /src/lib/parser.mly | |
| parent | 0b2e63791a073000b70b4463db5d8bce88ab4d23 (diff) | |
Transform the letter e into eu or E
Diffstat (limited to 'src/lib/parser.mly')
| -rw-r--r-- | src/lib/parser.mly | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/src/lib/parser.mly b/src/lib/parser.mly index a207329..e5e6773 100644 --- a/src/lib/parser.mly +++ b/src/lib/parser.mly @@ -12,7 +12,6 @@ See [1] for the theory behind the analysis %{ - module P = Process %} %start<Sounds.t List.t> main @@ -77,24 +76,25 @@ opening_consonant: (* Each voyel as two associated sounds, depending there is a followng sound or not *) voyels: - | A { Sounds.a , Sounds.a } - | A I { Sounds.voyel_ai , Sounds.voyel_ai } - | E I { Sounds.e `Opened , Sounds.e `Opened } - | I { Sounds.i , Sounds.i } - | E { Sounds.e `Opened , Sounds.schwa () } - | E_ACUTE E? { Sounds.e `Closed , Sounds.e `Closed } - | E_AGRAVE { Sounds.e `Opened , Sounds.e `Opened } - | E U { Sounds.eu , Sounds.eu } - | O { Sounds.o , Sounds.o } - | U { Sounds.voyel_y , Sounds.voyel_y } - | OU { Sounds.voyel_u , Sounds.voyel_u } - | W A { Sounds.diphtongue Sounds.semi_voyel_w Sounds.a, Sounds.diphtongue Sounds.semi_voyel_w Sounds.a} - | W I { Sounds.diphtongue Sounds.semi_voyel_w Sounds.i, Sounds.diphtongue Sounds.semi_voyel_w Sounds.i} - | I E { Sounds.diphtongue Sounds.i (Sounds.e `Opened), Sounds.diphtongue Sounds.i (Sounds.e `Opened)} + | A { Sounds.a } + | A I { Sounds.voyel_ai } + | E I { Sounds.e `Opened } + | I { Sounds.i } + | E { Sounds.schwa } + | E_ACUTE E? { Sounds.e `Closed } + | E_AGRAVE { Sounds.e `Opened } + | E U { Sounds.eu `Opened } + | O { Sounds.o } + | U { Sounds.voyel_y } + | OU { Sounds.voyel_u } + | W A { Sounds.diphtongue Sounds.semi_voyel_w Sounds.a} + | W I { Sounds.diphtongue Sounds.semi_voyel_w Sounds.i} + | I E { Sounds.diphtongue Sounds.i (Sounds.e `Opened) } ending_consonant: + | Nothing { Some (Sounds.none) } | B { Some (Sounds.b ) } - | T { None } + | T { Some (Sounds.t )} | K { Some (Sounds.k)} | liquid { Some $1 } | nasal { Some $1 } @@ -145,7 +145,7 @@ syllables: word: - | Sep? syllables consonant_group? EOL { P.rebuild $3 $2 } + | Sep? syllables consonant_group? EOL { Process.rebuild $3 $2 } main: | word { $1 } |