Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/toke.c

Lines Matching refs:PL_linestr
45 #   define UTF ((PL_linestr && DO_UTF8(PL_linestr)) || (PL_hints & HINT_UTF8))
426     SAVESPTR(PL_linestr);
453     PL_linestr = line;
454     if (SvREADONLY(PL_linestr))
455 	PL_linestr = sv_2mortal(newSVsv(PL_linestr));
456     s = SvPV(PL_linestr, len);
458 	if (!(SvFLAGS(PL_linestr) & SVs_TEMP))
459 	    PL_linestr = sv_2mortal(newSVsv(PL_linestr));
460 	sv_catpvn(PL_linestr, "\n;", 2);
462     SvTEMP_off(PL_linestr);
463     PL_oldoldbufptr = PL_oldbufptr = PL_bufptr = PL_linestart = SvPVX(PL_linestr);
464     PL_bufend = PL_bufptr + SvCUR(PL_linestr);
587 	if ((s = filter_gets(PL_linestr, PL_rsfp,
588 			     (prevlen = SvCUR(PL_linestr)))) == Nullch)
592 		sv_setpv(PL_linestr,PL_minus_p ?
595 		sv_catpv(PL_linestr,";}");
599 		sv_setpv(PL_linestr,";");
603 		= SvPVX(PL_linestr);
604 	    PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
633 	PL_bufend = s + SvCUR(PL_linestr);
754  *   char *start : buffer position (must be within PL_linestr)
1051     SAVESPTR(PL_linestr);
1055     PL_linestr = PL_lex_stuff;
1059 	= SvPVX(PL_linestr);
1060     PL_bufend += SvCUR(PL_linestr);
1062     SAVEFREESV(PL_linestr);
1093 	if (SvUTF8(PL_linestr))
1107 	PL_linestr = PL_lex_repl;
1109 	PL_bufend = PL_bufptr = PL_oldbufptr = PL_oldoldbufptr = PL_linestart = SvPVX(PL_linestr);
1110 	PL_bufend += SvCUR(PL_linestr);
1112 	SAVEFREESV(PL_linestr);
1134 	PL_bufend = SvPVX(PL_linestr);
1135 	PL_bufend += SvCUR(PL_linestr);
2357 	if (PL_lex_inwhat == OP_SUBST && PL_linestr == PL_lex_repl
2373 	if (SvIVX(PL_linestr) == '\'') {
2374 	    SV *sv = newSVsv(PL_linestr);
2449 	    sv_setpv(PL_linestr,incl_perldb());
2450 	    if (SvCUR(PL_linestr))
2451 		sv_catpv(PL_linestr,";");
2455 		    sv_catsv(PL_linestr, tmpsv);
2456 		    sv_catpv(PL_linestr, ";");
2463 		sv_catpv(PL_linestr, "LINE: while (<>) {");
2465 		    sv_catpv(PL_linestr,"chomp;");
2470 			    Perl_sv_catpvf(aTHX_ PL_linestr, "our @F=split(%s);", PL_splitstr);
2476 			    Perl_sv_catpvf(aTHX_ PL_linestr, "our @F=split(%s%c",
2480 				    sv_catpvn(PL_linestr, "\\", 1);
2481 				sv_catpvn(PL_linestr, s, 1);
2483 			    Perl_sv_catpvf(aTHX_ PL_linestr, "%c);", delim);
2487 		        sv_catpv(PL_linestr,"our @F=split(' ');");
2490 	    sv_catpv(PL_linestr, "\n");
2491 	    PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = SvPVX(PL_linestr);
2492 	    PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
2498 		sv_setsv(sv,PL_linestr);
2507 	    if ((s = filter_gets(PL_linestr, PL_rsfp, 0)) == Nullch) {
2520 		    sv_setpv(PL_linestr,PL_minus_p ? ";}continue{print" : "");
2521 		    sv_catpv(PL_linestr,";}");
2522 		    PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = SvPVX(PL_linestr);
2523 		    PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
2528 		PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = SvPVX(PL_linestr);
2530 		sv_setpv(PL_linestr,"");
2559 		    bof = PerlIO_tell(PL_rsfp) == SvCUR(PL_linestr);
2561 		bof = PerlIO_tell(PL_rsfp) == (Off_t)SvCUR(PL_linestr);
2564 		    PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
2571 		    sv_setpv(PL_linestr, "");
2572 		    PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = SvPVX(PL_linestr);
2573 		    PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
2585 	    sv_setsv(sv,PL_linestr);
2590 	PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
2756 			    sv_setpv(PL_linestr, "");
2757 			    PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = SvPVX(PL_linestr);
2758 			    PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
6581 	SvCUR_set(PL_linestr, PL_bufend - SvPVX(PL_linestr));
6649 	sv_setsv(PL_linestr,herewas);
6650 	PL_oldoldbufptr = PL_oldbufptr = PL_bufptr = s = PL_linestart = SvPVX(PL_linestr);
6651 	PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
6658 	 !(PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = filter_gets(PL_linestr, PL_rsfp, 0))) {
6663 	PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
6672 		SvCUR_set(PL_linestr, PL_bufend - SvPVX(PL_linestr));
6684 	    sv_setsv(sv,PL_linestr);
6692 	    sv_catsv(PL_linestr,herewas);
6693 	    PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
6697 	    sv_catsv(tmpstr,PL_linestr);
6983 		int offset = s - SvPVX(PL_linestr);
6984 		bool found = sv_cat_decode(sv, PL_encoding, PL_linestr,
6986 		char *ns = SvPVX(PL_linestr) + offset;
7142 	 !(PL_oldoldbufptr = PL_oldbufptr = s = PL_linestart = filter_gets(PL_linestr, PL_rsfp, 0))) {
7155 	    sv_setsv(sv,PL_linestr);
7162 	PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
7621 	    eol = PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr);
7647 	    s = filter_gets(PL_linestr, PL_rsfp, 0);
7648 	    PL_oldoldbufptr = PL_oldbufptr = PL_bufptr = PL_linestart = SvPVX(PL_linestr);
7649 	    PL_bufend = PL_bufptr + SvCUR(PL_linestr);
7844     slen = SvCUR(PL_linestr);
7865 		sv_setpvn(PL_linestr, (const char*)news, newlen);
7867 		SvUTF8_on(PL_linestr);
7868 		s = (U8*)SvPVX(PL_linestr);
7869 		PL_bufend = SvPVX(PL_linestr) + newlen;
7892 		sv_setpvn(PL_linestr, (const char*)news, newlen);
7894 		SvUTF8_on(PL_linestr);
7895 		s = (U8*)SvPVX(PL_linestr);
7896 		PL_bufend = SvPVX(PL_linestr) + newlen;