Lines Matching refs:PL_tokenbuf
200 sv_catpv(report, PL_tokenbuf);
775 s = scan_word(s, PL_tokenbuf, sizeof PL_tokenbuf, allow_pack, &len);
776 if (check_keyword && keyword(PL_tokenbuf, len))
786 PL_nextval[PL_nexttoke].opval = (OP*)newSVOP(OP_CONST,0, newSVpv(PL_tokenbuf,0));
788 if (UTF && !IN_BYTES && is_utf8_string((U8*)PL_tokenbuf, len))
1772 char tmpbuf[sizeof PL_tokenbuf * 4];
1888 char tmpbuf[sizeof PL_tokenbuf];
1914 if (gv || PL_last_lop_op == OP_PRINT || isUPPER(*PL_tokenbuf))
2942 s = scan_ident(s, PL_bufend, PL_tokenbuf, sizeof PL_tokenbuf, TRUE);
2944 force_ident(PL_tokenbuf, '*');
2945 if (!*PL_tokenbuf)
2961 PL_tokenbuf[0] = '%';
2962 s = scan_ident(s, PL_bufend, PL_tokenbuf + 1, sizeof PL_tokenbuf - 1, TRUE);
2963 if (!PL_tokenbuf[1]) {
3001 d = scan_word(s, PL_tokenbuf, sizeof PL_tokenbuf, FALSE, &len);
3002 if (isLOWER(*s) && (tmp = keyword(PL_tokenbuf, len))) {
3160 PL_tokenbuf[0] = '\0';
3162 PL_tokenbuf[0] = '-';
3168 d = scan_word(d, PL_tokenbuf + 1, sizeof PL_tokenbuf - 1,
3173 char minus = (PL_tokenbuf[0] == '-');
3348 s = scan_ident(s - 1, PL_bufend, PL_tokenbuf, sizeof PL_tokenbuf, TRUE);
3349 if (*PL_tokenbuf) {
3351 force_ident(PL_tokenbuf, '&');
3471 PL_tokenbuf[0] = '@';
3472 s = scan_ident(s + 1, PL_bufend, PL_tokenbuf + 1,
3473 sizeof PL_tokenbuf - 1, FALSE);
3476 if (!PL_tokenbuf[1])
3483 PL_tokenbuf[0] = '$';
3484 s = scan_ident(s, PL_bufend, PL_tokenbuf + 1,
3485 sizeof PL_tokenbuf - 1, FALSE);
3488 if (!PL_tokenbuf[1]) {
3495 if (PL_tokenbuf[1] == '[' && !PL_tokenbuf[2]) {
3510 PL_tokenbuf[0] = '@';
3526 PL_tokenbuf[0] = '%';
3527 if (ckWARN(WARN_SYNTAX) && strEQ(PL_tokenbuf+1, "SIG") &&
3530 char tmpbuf[sizeof PL_tokenbuf];
3554 char tmpbuf[sizeof PL_tokenbuf];
3592 PL_tokenbuf[0] = '@';
3593 s = scan_ident(s, PL_bufend, PL_tokenbuf + 1, sizeof PL_tokenbuf - 1, FALSE);
3594 if (!PL_tokenbuf[1]) {
3601 PL_tokenbuf[0] = '%';
3811 s = scan_word(s, PL_tokenbuf, sizeof PL_tokenbuf, FALSE, &len);
3814 tmp = ((len == 1 && strchr("msyq", PL_tokenbuf[0])) ||
3815 (len == 2 && ((PL_tokenbuf[0] == 't' && PL_tokenbuf[1] == 'r') ||
3816 (PL_tokenbuf[0] == 'q' &&
3817 strchr("qwxr", PL_tokenbuf[1])))));
3820 if (!tmp && *s == ':' && s[1] == ':' && strNE(PL_tokenbuf, "CORE"))
3831 yylval.pval = savepv(PL_tokenbuf);
3837 tmp = keyword(PL_tokenbuf, len);
3842 yylval.opval = (OP*)newSVOP(OP_CONST, 0, newSVpv(PL_tokenbuf,0));
3844 if (UTF && !IN_BYTES && is_utf8_string((U8*)PL_tokenbuf, len))
3854 if ((gv = gv_fetchpv(PL_tokenbuf, FALSE, SVt_PVCV)) &&
3863 (gvp = (GV**)hv_fetch(PL_globalstash,PL_tokenbuf,len,FALSE)) &&
3910 s = scan_word(s, PL_tokenbuf + len, sizeof PL_tokenbuf - len,
3913 Perl_croak(aTHX_ "Bad name after %s%s", PL_tokenbuf,
3934 PL_tokenbuf[len - 2] == ':' && PL_tokenbuf[len - 1] == ':')
3936 if (ckWARN(WARN_BAREWORD) && ! gv_fetchpv(PL_tokenbuf, FALSE, SVt_PVHV))
3939 PL_tokenbuf);
3941 PL_tokenbuf[len] = '\0';
3948 gv = gv_fetchpv(PL_tokenbuf, FALSE, SVt_PVCV);
3955 sv_catpv(sv,PL_tokenbuf);
3958 sv = newSVpv(PL_tokenbuf,0);
4014 sv_setpv(((SVOP*)yylval.opval)->op_sv, PL_tokenbuf);
4015 if (UTF && !IN_BYTES && is_utf8_string((U8*)PL_tokenbuf, len))
4059 PL_tokenbuf, PL_tokenbuf);
4106 for (d = PL_tokenbuf; *d && isLOWER(*d); d++) ;
4107 if (!*d && !gv_stashpv(PL_tokenbuf,FALSE))
4109 PL_tokenbuf);
4118 lastchar, PL_tokenbuf);
4148 if (PL_rsfp && (!PL_in_eval || PL_tokenbuf[2] == 'D')) {
4150 if (PL_tokenbuf[2] == 'D')
4245 s = scan_word(s, PL_tokenbuf, sizeof PL_tokenbuf, FALSE, &len);
4246 if (!(tmp = keyword(PL_tokenbuf, len)))
4247 Perl_croak(aTHX_ "CORE::%s is not a keyword", PL_tokenbuf);
4423 PL_tokenbuf, sizeof PL_tokenbuf, TRUE);
4637 s = scan_word(s, PL_tokenbuf, sizeof PL_tokenbuf, TRUE, &len);
4638 if (len == 3 && strnEQ(PL_tokenbuf, "sub", 3))
4640 PL_in_my_stash = find_in_my_stash(PL_tokenbuf, len);
4644 sprintf(tmpbuf, "No such class %.1000s", PL_tokenbuf);
4703 checkcomma(s,PL_tokenbuf,"filehandle");
4707 checkcomma(s,PL_tokenbuf,"filehandle");
4824 *PL_tokenbuf = '\0';
4826 if (isIDFIRST_lazy_if(PL_tokenbuf,UTF))
4827 gv_stashpvn(PL_tokenbuf, strlen(PL_tokenbuf), TRUE);
4973 checkcomma(s,PL_tokenbuf,"subroutine name");
5009 char tmpbuf[sizeof PL_tokenbuf];
5277 "### Tokener saw identifier '%s'\n", PL_tokenbuf); });
5287 if (strchr(PL_tokenbuf,':'))
5290 PL_tokenbuf));
5291 tmp = allocmy(PL_tokenbuf);
5294 if (strchr(PL_tokenbuf,':'))
5295 yyerror(Perl_form(aTHX_ PL_no_myglob,PL_tokenbuf));
5298 yylval.opval->op_targ = allocmy(PL_tokenbuf);
5315 if (!strchr(PL_tokenbuf,':')) {
5318 if (PL_tokenbuf[0] == '$' && PL_tokenbuf[2] == '\0'
5319 && !isALPHA(PL_tokenbuf[1]) /* Rule out obvious non-threadsvs */
5320 && (tmp = find_threadsv(&PL_tokenbuf[1])) != NOT_IN_PAD)
5328 tmp = pad_findmy(PL_tokenbuf);
5335 sv_catpv(sym, PL_tokenbuf+1);
5343 ((PL_tokenbuf[0] == '$') ? SVt_PV
5344 : (PL_tokenbuf[0] == '@') ? SVt_PVAV
5351 PL_tokenbuf[0] == '$' &&
5352 (PL_tokenbuf[1] == 'a' || PL_tokenbuf[1] == 'b')
5353 && !PL_tokenbuf[2])
5361 PL_tokenbuf);
5378 GV *gv = gv_fetchpv(PL_tokenbuf+1, FALSE, SVt_PVAV);
5379 if ((!gv || ((PL_tokenbuf[0] == '@') ? !GvAV(gv) : !GvHV(gv)))
5385 PL_tokenbuf);
5390 yylval.opval = (OP*)newSVOP(OP_CONST, 0, newSVpv(PL_tokenbuf+1, 0));
5392 gv_fetchpv(PL_tokenbuf+1, PL_in_eval ? (GV_ADDMULTI | GV_ADDINEVAL) : TRUE,
5393 ((PL_tokenbuf[0] == '$') ? SVt_PV
5394 : (PL_tokenbuf[0] == '@') ? SVt_PVAV
6531 d = PL_tokenbuf;
6532 e = PL_tokenbuf + sizeof PL_tokenbuf - 1;
6556 if (d >= PL_tokenbuf + sizeof PL_tokenbuf - 1)
6560 len = d - PL_tokenbuf;
6606 term = *PL_tokenbuf;
6616 (*s != term || memNE(s,PL_tokenbuf,len)) ) {
6622 missingterm(PL_tokenbuf);
6636 (*s != term || memNE(s,PL_tokenbuf,len)) ) {
6642 missingterm(PL_tokenbuf);
6660 missingterm(PL_tokenbuf);
6689 if (*s == term && memEQ(s,PL_tokenbuf,len)) {
6744 d = PL_tokenbuf; /* start of temp holding space */
6745 e = PL_tokenbuf + sizeof PL_tokenbuf; /* end of temp holding space */
6755 if (len >= sizeof PL_tokenbuf)
6781 if (d - PL_tokenbuf != len) {
6794 d = PL_tokenbuf;
7209 Like most scan_ routines, it uses the PL_tokenbuf buffer to hold the
7413 d = PL_tokenbuf;
7414 e = PL_tokenbuf + sizeof PL_tokenbuf - 6; /* room for various punctuation */
7543 int flags = grok_number (PL_tokenbuf, d - PL_tokenbuf, &uv);
7561 nv = Atof(PL_tokenbuf);
7567 sv = new_constant(PL_tokenbuf, d - PL_tokenbuf,