We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 2a620ec commit 44c39f6Copy full SHA for 44c39f6
compiler/src/Lexer.x
@@ -113,6 +113,7 @@ tokens:-
113
<state_dclabel> "#null-confidentiality" { mkL TokenDCNullConf }
114
<state_dclabel> "#null-integrity" { mkL TokenDCNullInteg }
115
<0> $digit[\_$digit]* { mkLs (\s -> TokenNum (read (filter (/='_') s))) }
116
+-- TODO: Improve lexing of the below integer literal matches. 2025-08-24; ASL.
117
<0> 0[bB]$bindigit[\_$bindigit]* { mkLs (\s -> TokenNum (fst (head (readBin (filter (/='_') (drop 2 s)))))) }
118
<0> 0[oO]$octdigit[\_$octdigit]* { mkLs (\s -> TokenNum (fst (head (readOct (filter (/='_') (drop 2 s)))))) }
119
<0> 0[xX]$hexdigit[\_$hexdigit]* { mkLs (\s -> TokenNum (fst (head (readHex (filter (/='_') (drop 2 s)))))) }
0 commit comments