dunham/newt
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

fix string escapes

Browse Source
This commit is contained in:
Steve Dunham
2024-12-31 23:55:07 -08:00
parent 06893fe735
commit b993425803
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/Lib/Tokenizer.idr
View File

@@ -44,8 +44,10 @@ quoteTokenise ts@(TS el ec toks chars) sl sc acc = case chars of
let tok = MkBounded (Tok EndInterp "}") (MkBounds el ec el (ec + 1)) let tok = MkBounded (Tok EndInterp "}") (MkBounds el ec el (ec + 1))
in quoteTokenise (TS el (ec + 1) (toks :< tok) cs) el (ec + 1) [<] in quoteTokenise (TS el (ec + 1) (toks :< tok) cs) el (ec + 1) [<]
cs => Left $ E (MkFC "" (el, ec)) "Expected '{'" cs => Left $ E (MkFC "" (el, ec)) "Expected '{'"
c :: cs => do -- TODO newline in string should be an error
quoteTokenise (TS el (ec + 1) toks cs) sl sc (acc :< c) '\\' :: 'n' :: cs => quoteTokenise (TS el (ec + 2) toks cs) sl sc (acc :< '\n')
'\\' :: c :: cs => quoteTokenise (TS el (ec + 2) toks cs) sl sc (acc :< c)
c :: cs => quoteTokenise (TS el (ec + 1) toks cs) sl sc (acc :< c)
Nil => Left $ E (MkFC "" (el, ec)) "Expected '\"' at EOF" Nil => Left $ E (MkFC "" (el, ec)) "Expected '\"' at EOF"
where where