shithub: pprolog

Info  •  Files  •  Log  •  Branches

Support '' in tokens

--- a/parser.c

+++ b/parser.c

@@ -448,9 +448,16 @@

 	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);