humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

only convert char to int in dfa-gen.sml's 'convertChar' loop

Browse Source
This commit is contained in:
Humza Shahid
2025-10-07 08:43:15 +01:00
parent ad92dadd34
commit 56658a4a70
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
fcore/search-list/dfa-gen.sml
View File

@@ -343,7 +343,7 @@ struct
fun getFollowsForPositionAndChar (regex: regex, pos, curChr) = fun getFollowsForPositionAndChar (regex: regex, pos, curChr) =
case regex of case regex of
CHAR_LITERAL {char, position = _} => CHAR_LITERAL {char, position = _} =>
if Char.ord char = curChr then if char = curChr then
{sawConcat = false, follows = [], charIsMatch = true} {sawConcat = false, follows = [], charIsMatch = true}
else else
{sawConcat = false, follows = [], charIsMatch = false} {sawConcat = false, follows = [], charIsMatch = false}
@@ -352,7 +352,7 @@ struct
* as an end marker which will not appear anywhere else. * as an end marker which will not appear anywhere else.
* So we don't want to match it, but the wildcard can match * So we don't want to match it, but the wildcard can match
* any other character that has a different ASCII code. *) * any other character that has a different ASCII code. *)
{sawConcat = false, follows = [], charIsMatch = curChr <> 0} {sawConcat = false, follows = [], charIsMatch = curChr <> #"\^@"}
| ALTERNATION {l, r, leftMaxState, rightMaxState} => | ALTERNATION {l, r, leftMaxState, rightMaxState} =>
let val nodeToFollow = if pos <= leftMaxState then l else r let val nodeToFollow = if pos <= leftMaxState then l else r
in getFollowsForPositionAndChar (nodeToFollow, pos, curChr) in getFollowsForPositionAndChar (nodeToFollow, pos, curChr)
@@ -482,7 +482,9 @@ struct
else else
let let
(* get union of all follow positions *) (* get union of all follow positions *)
val u = getFollowPositionsFromList (curStates, regex, char, Set.LEAF) val u =
getFollowPositionsFromList
(curStates, regex, Char.chr char, Set.LEAF)
in in
case u of case u of
[] => [] =>