Lines Matching defs:PL_linestr
67 #define PL_linestr (PL_parser->linestr)
108 # define UTF cBOOL((PL_linestr && DO_UTF8(PL_linestr)) || ( !(PL_parser->lex_flags & LEX_IGNORE_UTF8_HINTS) && (PL_hints & HINT_UTF8)))
2054 STRLEN bufptr_pos = PL_bufptr - SvPVX(PL_linestr);
2060 PL_bufptr = SvPVX(PL_linestr) + bufptr_pos;
2244 * char *start : buffer position (must be within PL_linestr)
2613 SAVESPTR(PL_linestr);
2621 scopes to find the body of the here-doc. So we put PL_linestr and
2624 PL_parser->lex_shared->ls_linestr = PL_linestr;
2627 PL_linestr = PL_lex_stuff;
2640 = SvPVX(PL_linestr);
2641 PL_bufend += SvCUR(PL_linestr);
2643 SAVEFREESV(PL_linestr);
2687 if (SvUTF8(PL_linestr))
2703 PL_linestr = PL_lex_repl;
2705 PL_bufend = PL_bufptr = PL_oldbufptr = PL_oldoldbufptr = PL_linestart = SvPVX(PL_linestr);
2706 PL_bufend += SvCUR(PL_linestr);
2727 if (SvTYPE(PL_linestr) >= SVt_PVNV) {
2729 ((XPVNV*)SvANY(PL_linestr))->xnv_u.xnv_lines
2746 PL_bufend = SvPVX(PL_linestr);
2747 PL_bufend += SvCUR(PL_linestr);
3681 else if (PL_lex_inpat && SvIVX(PL_linestr) == '\'')
4436 } else if (PL_lex_inpat && SvIVX(PL_linestr) == '\'') {
4666 SSize_t start_off = start - SvPVX(PL_linestr);
4673 PL_bufptr = SvPVX(PL_linestr) + start_off;
5395 SSize_t off = s-SvPVX(PL_linestr);
5398 s = skipspace(s); /* can move PL_linestr */
5400 d = SvPVX(PL_linestr)+off;
5426 if (SvUTF8(PL_linestr))
6378 if (PL_lex_inwhat == OP_SUBST && PL_lex_repl == PL_linestr
6828 if (PL_lex_inwhat == OP_SUBST && PL_lex_repl == PL_linestr && isDIGIT(*s))
6919 while (d > SvPVX(PL_linestr) && d[-1] && d[-1] != '\n')
6977 SSize_t s_off = s - SvPVX(PL_linestr);
7041 s = SvPVX(PL_linestr) + s_off;
7060 SSize_t off = s-SvPVX(PL_linestr);
7062 s = SvPVX(PL_linestr)+off;
7141 && PL_lex_inwhat == OP_SUBST && PL_lex_repl == PL_linestr
7195 bof = (offset == (Off_t)SvCUR(PL_linestr));
7199 bof = (offset == (Off_t)SvCUR(PL_linestr)+1);
7202 PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
7211 SvPVCLEAR(PL_linestr);
7212 PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = SvPVX(PL_linestr);
7213 PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
7223 PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
7406 SvPVCLEAR(PL_linestr);
7407 PL_bufptr = PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = SvPVX(PL_linestr);
7408 PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
7655 s_off = s - SvPVX(PL_linestr);
7664 s = SvPVX(PL_linestr) + s_off;
8970 STRLEN bufoff = PL_bufptr - SvPVX(PL_linestr);
8971 STRLEN soff = s - SvPVX(PL_linestr);
8974 PL_bufptr = SvPVX(PL_linestr) + bufoff;
8975 s = SvPVX(PL_linestr) + soff;
9069 sv_setpv(PL_linestr, pdb);
9070 sv_catpvs(PL_linestr,";");
9073 sv_setpvs(PL_linestr, "BEGIN { require 'perl5db.pl' };");
9077 SvPVCLEAR(PL_linestr);
9082 sv_catsv(PL_linestr, *svp);
9084 sv_catpvs(PL_linestr, ";");
9090 sv_catpvs(PL_linestr,
9093 sv_catpvs(PL_linestr, "LINE: while (<>) {"/*}*/);
9095 sv_catpvs(PL_linestr,"chomp;");
9105 Perl_sv_catpvf(aTHX_ PL_linestr, "our @F=split(%s);", PL_splitstr);
9111 sv_catpvs(PL_linestr, "our @F=split(q\0");
9115 sv_catpvn(PL_linestr, splits, 1);
9116 sv_catpvn(PL_linestr, splits, 1);
9119 PL_linestr as the last thing it does before
9121 sv_catpvs(PL_linestr, ");");
9125 sv_catpvs(PL_linestr,"our @F=split(' ');");
9128 sv_catpvs(PL_linestr, "\n");
9129 PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = SvPVX(PL_linestr);
9130 PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
9133 update_debugger_info(PL_linestr, NULL, 0);
9671 if (PL_lex_inwhat == OP_SUBST && PL_linestr == PL_lex_repl
9719 if (SvIVX(PL_linestr) == '\'' && !PL_lex_inpat) {
9720 SV *sv = newSVsv(PL_linestr);
9777 /* We really do *not* want PL_linestr ever becoming a COW. */
9778 assert (!SvIsCOW(PL_linestr));
10338 bracket = s - SvPVX(PL_linestr);
10477 STRLEN s_off = s - SvPVX(PL_linestr);
10479 s = SvPVX(PL_linestr) + s_off;
10518 s = SvPVX(PL_linestr) + bracket; /* let the parser handle it */
10860 This is because PL_linestr could containing a single line of input, or
10866 - Scan the heredoc in PL_linestr and remove it therefrom
10969 SvCUR_set(PL_linestr, PL_bufend - SvPVX_const(PL_linestr));
10996 shared->ls_linestr = PL_linestr;
11122 SvEND(PL_linestr). */
11136 linestr_save = PL_linestr; /* must restore this afterwards */
11140 PL_linestr = newSVpvs("");
11141 PL_bufend = SvPVX(PL_linestr);
11152 does not matter what PL_linestr points to, since we are
11155 SAVEFREESV(PL_linestr) in sublex_push, so it's easier to
11156 restore PL_linestr. */
11157 SvREFCNT_dec_NN(PL_linestr);
11158 PL_linestr = linestr_save;
11166 if (!SvCUR(PL_linestr) || PL_bufend[-1] != '\n') {
11167 s = lex_grow_linestr(SvLEN(PL_linestr) + 3);
11169 sv_catpvs(PL_linestr, "\n\0");
11170 assert(s == SvPVX(PL_linestr));
11171 PL_bufend = SvEND(PL_linestr);
11185 SvCUR_set(PL_linestr, PL_bufend - SvPVX_const(PL_linestr));
11214 SvREFCNT_dec(PL_linestr);
11215 PL_linestr = linestr_save;
11217 PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
11226 sv_catsv(tmpstr,PL_linestr);
11232 SvREFCNT_dec(PL_linestr);
11233 PL_linestr = linestr_save;
11235 PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
11242 sv_catsv(tmpstr,PL_linestr);
12960 const STRLEN slen = SvCUR(PL_linestr);
13198 SvCUR_set(PL_linestr, 0);
13199 if (FILTER_READ(0, PL_linestr, 0)) {
13200 SvUTF8_on(PL_linestr);
13202 SvUTF8_on(PL_linestr);
13204 PL_bufend = SvEND(PL_linestr);
13205 return (U8*)SvPVX(PL_linestr);
13737 bufptr_pos = s - SvPVX(PL_linestr);
13741 s = SvPVX(PL_linestr) + bufptr_pos;