Skip to content

Commit 44c39f6

Browse files
committed
added note about further improvement
1 parent 2a620ec commit 44c39f6

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

compiler/src/Lexer.x

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -113,6 +113,7 @@ tokens:-
113113
<state_dclabel> "#null-confidentiality" { mkL TokenDCNullConf }
114114
<state_dclabel> "#null-integrity" { mkL TokenDCNullInteg }
115115
<0> $digit[\_$digit]* { mkLs (\s -> TokenNum (read (filter (/='_') s))) }
116+
-- TODO: Improve lexing of the below integer literal matches. 2025-08-24; ASL.
116117
<0> 0[bB]$bindigit[\_$bindigit]* { mkLs (\s -> TokenNum (fst (head (readBin (filter (/='_') (drop 2 s)))))) }
117118
<0> 0[oO]$octdigit[\_$octdigit]* { mkLs (\s -> TokenNum (fst (head (readOct (filter (/='_') (drop 2 s)))))) }
118119
<0> 0[xX]$hexdigit[\_$hexdigit]* { mkLs (\s -> TokenNum (fst (head (readHex (filter (/='_') (drop 2 s)))))) }

0 commit comments

Comments
 (0)