git: 9front

Info  •  Files  •  Log  •  Branches

libregexp/regcomp.c: fix parser for e2 production (thanks, spew)

--- a/sys/src/libregexp/regcomp.c

+++ b/sys/src/libregexp/regcomp.c

@@ -78,14 +78,14 @@

 	Renode *n;

 	n = e3(plex);

-	if(lex(plex) == LREP) {

+	while(lex(plex) == LREP) {

 		switch(plex->rune) {

 		case L'*':

-			return node(plex, TSTAR, n, nil);

+			n = node(plex, TSTAR, n, nil);

 		case L'+':

-			return node(plex, TPLUS, n, nil);

+			n = node(plex, TPLUS, n, nil);

 		case L'?':

-			return node(plex, TQUES, n, nil);

+			n = node(plex, TQUES, n, nil);

 		}

 	}

 	plex->peek = 1;

-- 

⑨