From 12ccc075d724f9985be488b162b243f46dff871a Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Wed, 1 Sep 2021 18:33:26 +0200 Subject: Made all tests pass --- src/lib/lexer.mll | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'src/lib/lexer.mll') 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) -- cgit v1.2.3