Lines Matching defs:PL_bufptr
70 #define PL_bufptr (PL_parser->bufptr)
231 #define TOKEN(retval) return ( PL_bufptr = s, REPORT(retval))
232 #define OPERATOR(retval) return (PL_expect = XTERM, PL_bufptr = s, REPORT(retval))
233 #define AOPERATOR(retval) return ao((PL_expect = XTERM, PL_bufptr = s, retval))
234 #define PREBLOCK(retval) return (PL_expect = XBLOCK,PL_bufptr = s, REPORT(retval))
235 #define PRETERMBLOCK(retval) return (PL_expect = XTERMBLOCK,PL_bufptr = s, REPORT(retval))
236 #define PREREF(retval) return (PL_expect = XREF,PL_bufptr = s, REPORT(retval))
237 #define TERM(retval) return (CLINE, PL_expect = XOPERATOR, PL_bufptr = s, REPORT(retval))
238 #define PHASERBLOCK(f) return (pl_yylval.ival=f, PL_expect = XBLOCK, PL_bufptr = s, REPORT((int)PHASER))
239 #define POSTDEREF(f) return (PL_bufptr = s, S_postderef(aTHX_ REPORT(f),s[1]))
240 #define LOOPX(f) return (PL_bufptr = force_word(s,BAREWORD,TRUE,FALSE), \
244 #define FTST(f) return (pl_yylval.ival=f, PL_expect=XTERMORDORDOR, PL_bufptr=s, REPORT((int)UNIOP))
245 #define FUN0(f) return (pl_yylval.ival=f, PL_expect=XOPERATOR, PL_bufptr=s, REPORT((int)FUNC0))
246 #define FUN0OP(f) return (pl_yylval.opval=f, CLINE, PL_expect=XOPERATOR, PL_bufptr=s, REPORT((int)FUNC0OP))
247 #define FUN1(f) return (pl_yylval.ival=f, PL_expect=XOPERATOR, PL_bufptr=s, REPORT((int)FUNC1))
248 #define BOop(f) return ao((pl_yylval.ival=f, PL_expect=XTERM, PL_bufptr=s, (int)BITOROP))
249 #define BAop(f) return ao((pl_yylval.ival=f, PL_expect=XTERM, PL_bufptr=s, (int)BITANDOP))
250 #define BCop(f) return pl_yylval.ival=f, PL_expect=XTERM, PL_bufptr = s, \
252 #define SHop(f) return ao((pl_yylval.ival=f, PL_expect=XTERM, PL_bufptr=s, (int)SHIFTOP))
253 #define PWop(f) return ao((pl_yylval.ival=f, PL_expect=XTERM, PL_bufptr=s, (int)POWOP))
254 #define PMop(f) return(pl_yylval.ival=f, PL_expect=XTERM, PL_bufptr=s, REPORT((int)MATCHOP))
255 #define Aop(f) return ao((pl_yylval.ival=f, PL_expect=XTERM, PL_bufptr=s, (int)ADDOP))
256 #define AopNOASSIGN(f) return (pl_yylval.ival=f, PL_bufptr=s, REPORT((int)ADDOP))
257 #define Mop(f) return ao((pl_yylval.ival=f, PL_expect=XTERM, PL_bufptr=s, (int)MULOP))
258 #define ChEop(f) return (pl_yylval.ival=f, PL_expect=XTERM, PL_bufptr=s, REPORT((int)CHEQOP))
259 #define NCEop(f) return (pl_yylval.ival=f, PL_expect=XTERM, PL_bufptr=s, REPORT((int)NCEQOP))
260 #define ChRop(f) return (pl_yylval.ival=f, PL_expect=XTERM, PL_bufptr=s, REPORT((int)CHRELOP))
261 #define NCRop(f) return (pl_yylval.ival=f, PL_expect=XTERM, PL_bufptr=s, REPORT((int)NCRELOP))
271 PL_bufptr = s; \
369 PL_bufptr = s; \
635 if (*PL_bufptr == '=') {
636 PL_bufptr++;
661 * PL_bufptr is expected to point to the start of the thing that was found,
668 char * const oldbp = PL_bufptr;
680 PL_bufptr = s;
693 t < PL_bufptr && isSPACE(*t);
708 if (t < PL_bufptr && isSPACE(*t)) {
729 PL_bufptr = oldbp;
2054 STRLEN bufptr_pos = PL_bufptr - SvPVX(PL_linestr);
2055 PL_bufptr = s;
2059 s = PL_bufptr;
2060 PL_bufptr = SvPVX(PL_linestr) + bufptr_pos;
2061 if (PL_linestart > PL_bufptr)
2062 PL_bufptr = PL_linestart;
2089 if (s < PL_bufptr && memchr(s, '(', PL_bufptr - s))
2122 PL_bufptr = s;
2192 PL_bufptr+=2;
2199 PL_bufptr++;
2437 PL_bufptr = s;
2606 SAVEPPTR(PL_bufptr);
2622 PL_bufptr into lex_shared, to 'share' those values.
2625 PL_parser->lex_shared->ls_bufptr = PL_bufptr;
2639 PL_bufend = PL_bufptr = PL_oldbufptr = PL_oldoldbufptr = PL_linestart
2705 PL_bufend = PL_bufptr = PL_oldbufptr = PL_oldoldbufptr = PL_linestart = SvPVX(PL_linestr);
4800 PL_bufptr = SvPVX(PL_linestr) + start_off;
4834 PL_bufptr = s;
4885 && PL_bufptr < PL_bufend
4887 const char *s = PL_bufptr;
5204 PL_oldbufptr = PL_bufptr;
5212 PL_bufptr = s;
5233 PL_bufptr = s; /* for error reporting */
5302 PL_bufptr = s; /* for error reporting */
5360 if (PL_bufptr > s) {
5361 d = PL_bufptr-1;
5362 PL_bufptr = PL_oldbufptr;
5377 if (PL_bufptr > s) {
5378 d = PL_bufptr-1;
5379 PL_bufptr = PL_oldbufptr;
5435 PL_bufptr = skipspace(PL_bufptr); /* XXX can realloc */
5440 UTF8fARG(UTF,(int)((t - PL_bufptr) + 1), PL_bufptr));
5588 "Missing name in \"%s\"", PL_bufptr);
5667 if (PL_bufptr != PL_bufend && *PL_bufptr != '\\')
5670 PL_bufptr, PL_bufend, *PL_bufptr);
5673 if (PL_bufptr == PL_bufend || PL_bufptr[1] == 'E') {
5679 if (PL_bufptr != PL_bufend
5682 PL_bufptr += 2;
5688 else if ( PL_bufptr != PL_bufend && PL_bufptr[1] == 'E' ) {
5693 if (PL_bufptr != PL_bufend)
5694 PL_bufptr += 2;
5702 s = PL_bufptr + 1;
5704 PL_bufptr = s + 3;
5743 PL_bufptr = s + 1;
5747 s = PL_bufptr;
5883 PL_bufptr = s;
5890 s = force_word(PL_bufptr,BAREWORD,FALSE,FALSE);
5947 s = --PL_bufptr;
5991 if (isSPACE(*s) || !isSPACE(*PL_bufptr))
6020 if (isSPACE(*s) || !isSPACE(*PL_bufptr))
6132 PL_bufptr = s; /* update in case we back off */
6214 s = PL_bufptr;
6220 PL_bufptr = s;
6377 PL_bufptr = s+1;
6490 PL_bufptr = s;
6493 s = PL_bufptr;
6533 PL_bufptr = s;
6548 PL_bufptr = s;
6582 if ( PL_bufptr == PL_linestart
6694 if (PL_bufptr > s) {
6695 d = PL_bufptr-1;
6696 PL_bufptr = PL_oldbufptr;
7022 if (PL_bufend-PL_bufptr > 2
7075 * pass PL_bufptr, get a reasonable beginning of line
7120 PL_bufptr = s;
7237 PL_bufptr = s;
7256 PL_bufptr = s;
7334 PL_bufptr = PL_bufend;
7338 s = PL_bufptr;
7342 s = PL_bufptr;
7379 PL_oldoldbufptr = PL_oldbufptr = PL_bufptr = PL_linestart = s;
7564 PL_bufptr = PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = SvPVX(PL_linestr);
7583 PL_bufptr = s;
7697 const char lastchar = (PL_bufptr == PL_oldoldbufptr ? 0 : PL_bufptr[-1]);
7705 if (PL_bufptr == PL_linestart) {
7795 && PL_oldoldbufptr < PL_bufptr
7893 PL_bufptr = s;
7990 return yyl_sub(aTHX_ PL_bufptr, key);
8921 Copy(PL_bufptr, PL_tokenbuf, olen, char);
8995 PL_bufptr = s;
9021 char *saved_bufptr = PL_bufptr;
9022 PL_bufptr = s;
9024 s = PL_bufptr;
9027 PL_bufptr = saved_bufptr;
9052 PL_bufptr = s = d;
9059 s = PL_bufptr; /* restore local s variable */
9125 STRLEN bufoff = PL_bufptr - SvPVX(PL_linestr);
9129 PL_bufptr = SvPVX(PL_linestr) + bufoff;
9164 PL_bufptr = s;
9166 s = PL_bufptr; /* restore local s variable */
9189 s = PL_bufptr;
9703 char *s = PL_bufptr;
9707 if (UTF && UNLIKELY(! is_utf8_string_loc((U8 *) PL_bufptr,
9708 PL_bufend - PL_bufptr,
9759 when we get here, PL_bufptr is at the \
9769 if (PL_bufptr == PL_bufend)
9772 if(*PL_bufptr != '(')
9778 PL_lex_dojoin = (*PL_bufptr == '@'
9793 if (PL_lex_inpat && *PL_bufptr == '(') {
9794 PL_parser->lex_shared->re_eval_start = PL_bufptr;
9795 PL_bufptr += 2;
9796 if (*PL_bufptr != '{')
9797 PL_bufptr++;
9803 s = PL_bufptr;
9813 if (intuit_more(PL_bufptr, PL_bufend)) {
9830 if (PL_bufptr != PL_bufend)
9841 if (*PL_bufptr != ')')
9843 PL_bufptr++;
9850 PL_bufptr - PL_parser->lex_shared->re_eval_start);
9854 PL_bufptr - PL_parser->lex_shared->re_eval_start);
9871 if (PL_bufptr == PL_bufend)
9884 s = scan_const(PL_bufptr);
9898 if (s != PL_bufptr) {
9910 PL_bufptr = s;
9926 s = scan_formline(PL_bufptr);
9929 PL_bufptr = s;
9935 s = PL_bufptr;
11300 PL_bufptr = PL_bufend;
11330 s = PL_bufptr;
11960 PL_bufptr = PL_bufend;
11967 s = start = PL_bufptr;
12409 char *oldbp = PL_bufptr;
12411 PL_bufptr = (char *)d; /* so yyerror reports the context */
12414 PL_bufptr = oldbp;
12749 PL_bufptr = PL_bufend;
12753 s = PL_bufptr;
13030 && PL_bufptr > PL_oldoldbufptr
13031 && PL_bufptr - PL_oldoldbufptr < 200
13033 && PL_oldbufptr != PL_bufptr)
13038 contlen = PL_bufptr - PL_oldoldbufptr;
13041 && PL_bufptr > PL_oldbufptr
13042 && PL_bufptr - PL_oldbufptr < 200
13043 && PL_oldbufptr != PL_bufptr)
13048 contlen = PL_bufptr - PL_oldbufptr;
13883 t = s = PL_bufptr;
13890 PL_bufptr = t;
13892 t = PL_bufptr;
13897 PL_bufptr = t+1;
13900 PL_bufptr = s;