diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-01 18:33:26 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-01 18:33:26 +0200 |
| commit | 12ccc075d724f9985be488b162b243f46dff871a (patch) | |
| tree | ae788a28754397db7ad009c011b9c02818cc555d /src/lib/lexer.mll | |
| parent | 843230359b2157212c4e93b51994f0fde90d808b (diff) | |
Made all tests pass
Diffstat (limited to 'src/lib/lexer.mll')
| -rw-r--r-- | src/lib/lexer.mll | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/lib/lexer.mll b/src/lib/lexer.mll index 27a7a8f..a5cee10 100644 --- a/src/lib/lexer.mll +++ b/src/lib/lexer.mll @@ -14,11 +14,11 @@ rule letter = parse | 'b' { B } | 'c' { C } | 'd' { D } -| 'e' { E } -| '\232' { E_ACUTE } -| "è" { E_AGRAVE } -| '\233' { E_ACUTE } -| "é" { E_ACUTE } +| 'e' { E Accent.NONE } +| '\232' { E Accent.ACUTE } +| "è" { E Accent.AGRAVE } +| '\233' { E Accent.ACUTE } +| "é" { E Accent.ACUTE } | 'f' { F } | 'g' { G } | 'h' { H } @@ -45,10 +45,10 @@ rule letter = parse | 'z' { Z } | ' ' { Space } | ending { EOL } -| "eaux" ending { AUX_ } -| "aux" ending { AUX_ } -| "ient" ending { IENT_ } +| "el" ending { EL_ } | "ent" ending { ENT_ } +| "ient" ending { IENT_ } +| "x" ending { X_ } (* This rule looks for a single line, terminated with '\n' or eof. It returns a pair of an optional string (the line that was found) |