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

fix lexer/parser bugs, add code in file-thread.sml to handle loading/saving of files (but loading is not completely finished yet)

Browse Source
This commit is contained in:
Humza Shahid
2025-07-12 07:03:09 +01:00
parent eb0b8d31b2
commit dcf6bc074d
8 changed files with 42 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
fcore/parser/lexer.sml
View File

@@ -17,7 +17,7 @@ struct
SOME (lastSpace, acc)
else
let
val str = String.substring (str, min, finish - min)
val str = String.substring (str, min, finish - min + 1)
in
if min = lastInt then
case Int.fromString str of
@@ -33,14 +33,15 @@ struct
end
fun scanStep (pos, str, acc, dfa, finish) =
if AllDfa.areAllDead dfa then
if pos < 0 orelse AllDfa.areAllDead dfa then
addToken (acc, dfa, str, finish)
else
let
val chr = String.sub (str, pos)
val dfa = AllDfa.update (chr, dfa, pos)
in
scanStep (pos - 1, str, acc, dfa, finish)
if AllDfa.areAllDead dfa then addToken (acc, dfa, str, finish)
else scanStep (pos - 1, str, acc, dfa, finish)
end
fun scanLoop (pos, str, acc) =