5.8.4/distrib/toke.c

146 #define OPERATOR(retval) return (REPORT2("operator",retval) PL_expect = XTERM, PL_bufptr = s,(int)retval)
147 #define AOPERATOR(retval) return ao((REPORT2("aop",retval) PL_expect = XTERM, PL_bufptr = s,(int)retval))
148 #define PREBLOCK(retval) return (REPORT2("preblock",retval) PL_expect = XBLOCK,PL_bufptr = s,(int)retval)
149 #define PRETERMBLOCK(retval) return (REPORT2("pretermblock",retval) PL_expect = XTERMBLOCK,PL_bufptr = s,(int)retval)
150 #define PREREF(retval) return (REPORT2("preref",retval) PL_expect = XREF,PL_bufptr = s,(int)retval)
151 #define TERM(retval) return (CLINE, REPORT2("term",retval) PL_expect = XOPERATOR, PL_bufptr = s,(int)retval)
152 #define LOOPX(f) return(yylval.ival=f, REPORT("loopx",f) PL_expect = XTERM,PL_bufptr = s,(int)LOOPEX)
153 #define FTST(f) return(yylval.ival=f, REPORT("ftst",f) PL_expect = XTERM,PL_bufptr = s,(int)UNIOP)
154 #define FUN0(f) return(yylval.ival = f, REPORT("fun0",f) PL_expect = XOPERATOR,PL_bufptr = s,(int)FUNC0)
155 #define FUN1(f) return(yylval.ival = f, REPORT("fun1",f) PL_expect = XOPERATOR,PL_bufptr = s,(int)FUNC1)
156 #define BOop(f) return ao((yylval.ival=f, REPORT("bitorop",f) PL_expect = XTERM,PL_bufptr = s,(int)BITOROP))
157 #define BAop(f) return ao((yylval.ival=f, REPORT("bitandop",f) PL_expect = XTERM,PL_bufptr = s,(int)BITANDOP))
158 #define SHop(f) return ao((yylval.ival=f, REPORT("shiftop",f) PL_expect = XTERM,PL_bufptr = s,(int)SHIFTOP))
159 #define PWop(f) return ao((yylval.ival=f, REPORT("powop",f) PL_expect = XTERM,PL_bufptr = s,(int)POWOP))
160 #define PMop(f) return(yylval.ival=f, REPORT("matchop",f) PL_expect = XTERM,PL_bufptr = s,(int)MATCHOP)
161 #define Aop(f) return ao((yylval.ival=f, REPORT("add",f) PL_expect = XTERM,PL_bufptr = s,(int)ADDOP))
162 #define Mop(f) return ao((yylval.ival=f, REPORT("mul",f) PL_expect = XTERM,PL_bufptr = s,(int)MULOP))
163 #define Eop(f) return(yylval.ival=f, REPORT("eq",f) PL_expect = XTERM,PL_bufptr = s,(int)EQOP)
164 #define Rop(f) return(yylval.ival=f, REPORT("rel",f) PL_expect = XTERM,PL_bufptr = s,(int)RELOP)
171 	PL_expect = XTERM, \
184 #define OLDLOP(f) return(yylval.ival=f,PL_expect = XTERM,PL_bufptr = s,(int)LSTOP)
434     SAVEINT(PL_expect);
439     PL_expect = XSTATE;
711     PL_expect = x;
731  * will need to set PL_nextval[], and possibly PL_expect to ensure the lexer
742 	PL_lex_expect = PL_expect;
781 		PL_expect = XTERM;
783 		PL_expect = XOPERATOR;
1012     PL_expect = XTERM;
1095 	PL_expect = XOPERATOR;
1136 	PL_expect = XOPERATOR;
1918 	PL_expect = XREF;
1939 	    PL_expect = XTERM;
2225 	    PL_expect = PL_lex_expect;
2318 	PL_expect = XTERM;
2392 	    PL_expect = XTERM;
2416 		      exp_name[PL_expect], s);
2898 	    if (PL_expect == XOPERATOR)
2915 	if (PL_expect == XOPERATOR)
2927 	    if (PL_expect == XOPERATOR)
2932 	if (PL_expect == XOPERATOR)
2941 	if (PL_expect != XOPERATOR) {
2943 	    PL_expect = XOPERATOR;
2957 	if (PL_expect == XOPERATOR) {
2985 	switch (PL_expect) {
2993 	    PL_expect = XBLOCK;
2996 	    PL_expect = XTERMBLOCK;
3079 	    tmp = (PL_expect == XOPERATOR ? '=' : '{'); /*'}(' for vi */
3113 	    PL_expect = XTERM;
3145 	switch (PL_expect) {
3183 	    PL_expect = XSTATE;
3188 	    PL_expect = XSTATE;
3198 		    if (PL_expect == XREF && PL_lex_state == LEX_INTERPNORMAL) {
3199 			PL_expect = XTERM;
3288 		if (PL_expect == XREF)
3289 		    PL_expect = XTERM;
3292 		    PL_expect = XSTATE;
3307 	    PL_expect = (expectation)PL_lex_brackstack[--PL_lex_brackets];
3312 		if (PL_expect & XFAKEBRACK) {
3313 		    PL_expect &= XENUMMASK;
3324 	if (PL_expect & XFAKEBRACK) {
3325 	    PL_expect &= XENUMMASK;
3337 	if (PL_expect == XOPERATOR) {
3350 	    PL_expect = XOPERATOR;
3377 	if (PL_expect == XSTATE && isALPHA(tmp) &&
3411 		PL_expect = XBLOCK;
3427 	if (PL_expect != XOPERATOR) {
3462 	if (PL_expect == XOPERATOR) {
3464 		PL_expect = XTERM;
3474 	    if (PL_expect == XOPERATOR)
3478 	    PL_expect = XOPERATOR;
3486 	if (PL_expect == XOPERATOR)
3507 	if ((PL_expect != XREF || PL_oldoldbufptr == PL_last_lop) && intuit_more(s)) {
3544 	PL_expect = XOPERATOR;
3548 		PL_expect = XOPERATOR;
3550 		PL_expect = XTERM;		/* e.g. print $fh "foo" */
3552 		PL_expect = XTERM;		/* e.g. print $fh &sub */
3569 			PL_expect = XTERM;	/* e.g. print $fh length() */
3574 		    PL_expect = XTERM;		/* e.g. print $fh subr() */
3578 		PL_expect = XTERM;		/* e.g. print $fh 3 */
3580 		PL_expect = XTERM;		/* e.g. print $fh .3 */
3582 		PL_expect = XTERM;		/* e.g. print $fh -1 */
3584 		PL_expect = XTERM;		/* print $fh <<"EOF" */
3590 	if (PL_expect == XOPERATOR)
3599 	if ((PL_expect != XREF || PL_oldoldbufptr == PL_last_lop) && intuit_more(s)) {
3624 	if (PL_expect != XOPERATOR) {
3649 	    PL_expect = XSTATE;
3652 	if (PL_expect == XOPERATOR || !isDIGIT(s[1])) {
3664 	    if (PL_expect != XOPERATOR)
3675 	if (PL_expect == XOPERATOR)
3684 	if (PL_expect == XOPERATOR) {
3686 		PL_expect = XTERM;
3703 	if (PL_expect == XOPERATOR) {
3705 		PL_expect = XTERM;
3728 	if (PL_expect == XOPERATOR)
3741 	if (PL_expect == XOPERATOR)
3746 	if (isDIGIT(s[1]) && PL_expect != XOPERATOR) {
3757 	    else if (!isALPHA(*start) && (PL_expect == XTERM || PL_expect == XREF || PL_expect == XSTATE)) {
3771 	if (isDIGIT(s[1]) && PL_expect == XOPERATOR) {
3828 	if (!tmp && PL_expect == XSTATE
3852 	    if (PL_expect != XOPERATOR && (*s != ':' || s[1] != ':')) {
3919 		if (PL_expect == XOPERATOR) {
3982 		    (PL_expect == XREF ||
4003 			PL_expect = (PL_last_lop == PL_oldoldbufptr) ? XTERM : XOPERATOR;
4008 		PL_expect = XOPERATOR;
4031 		    PL_expect = XOPERATOR;
4093 		    PL_expect = XTERM;
4235 	    if (PL_expect == XSTATE) {
4374 	    PL_expect = (*s == '{') ? XTERMBLOCK : XTERM;
4412 	    if (PL_expect == XSTATE && isIDFIRST_lazy_if(s,UTF)) {
4659 	    if (PL_expect != XSTATE)
4789 	    PL_expect = XTERM;
4977 	    PL_expect = XTERM;
5020 		    PL_expect = XBLOCK;
5038 		    PL_expect = XTERMBLOCK;
5085 		    PL_expect = attrful;
5190 	    if (PL_expect != XSTATE)
5248 	    if (PL_expect == XOPERATOR)
6320 		PL_expect = XREF;
7660 	PL_expect = XTERM;