rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

add \n and \t escapes to the lexer

Browse source
This commit is contained in:
rhiannon morris 2023-11-03 20:07:59 +01:00
parent d4639a35c6
commit 90cdcfe4da
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/Quox/Parser/Lexer.idr
View file

@ -71,15 +71,17 @@ tmatch : Lexer -> (String -> Token) -> Tokenizer ExtToken
tmatch t f = match t (T . f) tmatch t f = match t (T . f)
||| [todo] escapes other than `\"` and (accidentally) `\\`
export export
fromStringLit : String -> String fromStringLit : String -> String
fromStringLit = pack . go . unpack . drop 1 . dropLast 1 where fromStringLit = pack . go . unpack . drop 1 . dropLast 1 where
go : List Char -> List Char go : List Char -> List Char
go [] = [] go [] = []
go ['\\'] = ['\\'] -- i guess??? go ['\\'] = ['\\'] -- i guess???
go ('\\' :: c :: cs) = c :: go cs go ('\\' :: 'n' :: cs) = '\n' :: go cs
go (c :: cs) = c :: go cs go ('\\' :: 't' :: cs) = '\t' :: go cs
-- [todo] others
go ('\\' :: c :: cs) = c :: go cs
go (c :: cs) = c :: go cs
private private
string : Tokenizer ExtToken string : Tokenizer ExtToken