Browse code

script: pvar name parsing fix

- fix parsing pvar names of the form $pvar(...)

Andrei Pelinescu-Onciul authored on 04/12/2008 00:05:32
Showing 1 changed files
... ...
@@ -830,7 +830,8 @@ EAT_ABLE	[\ \t\b\r]
830 830
 <AVP_PVAR>{AVP_PREF}		|
831 831
 <AVP_PVAR>{ID}{LBRACK}		{ state = ATTR_S; BEGIN(ATTR); yyless(1); 
832 832
 							  return ATTR_MARK; }
833
-<AVP_PVAR>{ID}{LPAREN}		{ state = PVAR_P_S; BEGIN(PVAR_P); yymore(); }
833
+<AVP_PVAR>{ID}{LPAREN}		{ state = PVAR_P_S; p_nest=1; BEGIN(PVAR_P);
834
+								yymore(); }
834 835
 <AVP_PVAR>{ID}				{	count(); addstr(&s_buf, yytext, yyleng);
835 836
 								yylval.strval=s_buf.s;
836 837
 								memset(&s_buf, 0, sizeof(s_buf));