diff options
author | Peter Mikkelsen <peter@pmikkelsen.com> | 2021-07-20 22:07:51 +0000 |
---|---|---|
committer | Peter Mikkelsen <peter@pmikkelsen.com> | 2021-07-20 22:07:51 +0000 |
commit | 42be27517c8057733afe2d31b8bf7b98ee6f6578 (patch) | |
tree | 06be0605965cf3796467460c68029b93c9d4fa88 | |
parent | 24cdc7adf5611d536403ae625414bb10f3bc4f93 (diff) |
Support '' in tokens
-rw-r--r-- | parser.c | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -448,9 +448,16 @@ Integer: if(peek == L'\''){ peek = Bgetrune(parsein); while(peek != L'\''){ +QuotedAtomLoop: buf[i++] = peek; peek = Bgetrune(parsein); } + peek = Bgetrune(parsein); + if(peek == L'\'') + goto QuotedAtomLoop; + else + Bungetrune(parsein); + buf[i] = '\0'; lookahead.tag = AtomTok; lookahead.text = runestrdup(buf); |