Lines Matching defs:PL_tokenbuf
83 #define PL_tokenbuf (PL_parser->tokenbuf)
2266 s = scan_word6(s, PL_tokenbuf, sizeof PL_tokenbuf, allow_pack, &len, allow_pack);
2268 char *s2 = PL_tokenbuf;
2287 S_newSV_maybe_utf8(aTHX_ PL_tokenbuf, len));
4604 char tmpbuf[sizeof PL_tokenbuf * 4];
4765 char tmpbuf[sizeof PL_tokenbuf];
4795 || isUPPER(*PL_tokenbuf))
5250 char *dest = PL_tokenbuf + 1;
5251 /* read var name, including sigil, into PL_tokenbuf */
5252 PL_tokenbuf[0] = sigil;
5253 parse_ident(&s, &dest, dest + sizeof(PL_tokenbuf) - 1,
5256 assert(PL_tokenbuf[1]); /* we have a variable name */
5259 *PL_tokenbuf = 0;
5306 if (*PL_tokenbuf) {
5355 PL_tokenbuf[0] = '@';
5356 s = scan_ident(s + 1, PL_tokenbuf + 1,
5357 sizeof PL_tokenbuf - 1, FALSE);
5366 if (!PL_tokenbuf[1])
5373 PL_tokenbuf[0] = '$';
5374 s = scan_ident(s, PL_tokenbuf + 1, sizeof PL_tokenbuf - 1, FALSE);
5383 if (!PL_tokenbuf[1]) {
5397 PL_tokenbuf[0] = '@';
5446 PL_tokenbuf[0] = '%';
5447 if ( strEQ(PL_tokenbuf+1, "SIG")
5452 char tmpbuf[sizeof PL_tokenbuf];
5488 char tmpbuf[sizeof PL_tokenbuf];
5537 char * const tmpbuf = PL_tokenbuf + 1;
5562 d = scan_word6(s, tmpbuf, sizeof PL_tokenbuf - 1, TRUE,
5566 *PL_tokenbuf = '&';
5569 PL_tokenbuf, len + 1, 0
5770 if ((gv = gv_fetchpvn_flags(PL_tokenbuf, len,
5781 && (*pgvp = (GV**)hv_fetch(PL_globalstash, PL_tokenbuf, len, FALSE))
5786 && (gv_init(gv, PL_globalstash, PL_tokenbuf,
6033 s = scan_ident(s, PL_tokenbuf, sizeof PL_tokenbuf, TRUE);
6035 force_ident(PL_tokenbuf, PERLY_STAR);
6036 if (!*PL_tokenbuf)
6080 PL_tokenbuf[0] = '%';
6081 s = scan_ident(s, PL_tokenbuf + 1, sizeof PL_tokenbuf - 1, FALSE);
6083 if (!PL_tokenbuf[1]) {
6089 PL_tokenbuf[0] = '@';
6157 char *d = scan_word6(s, PL_tokenbuf, sizeof PL_tokenbuf, FALSE, &len, FALSE);
6158 if (isLOWER(*s) && (tmp = keyword(PL_tokenbuf, len, 0))) {
6327 PL_tokenbuf[0] = '\0';
6329 PL_tokenbuf[0] = '-';
6336 d = scan_word6(d, PL_tokenbuf + 1, sizeof PL_tokenbuf - 1,
6341 const char minus = (PL_tokenbuf[0] == '-');
6605 PL_tokenbuf[0] = '&';
6606 s = scan_ident(s - 1, PL_tokenbuf + 1, sizeof PL_tokenbuf - 1, TRUE);
6609 if (PL_tokenbuf[1])
6690 PL_tokenbuf[0] = '@';
6691 s = scan_ident(s, PL_tokenbuf + 1, sizeof PL_tokenbuf - 1, FALSE);
6701 if (!PL_tokenbuf[1]) {
6710 PL_tokenbuf[0] = '%';
6998 HV * const stash = PL_tokenbuf[2] == 'D' && PL_curstash
7101 *PL_tokenbuf = '\0';
7103 if (isIDFIRST_lazy_if_safe(PL_tokenbuf,
7104 PL_tokenbuf + sizeof(PL_tokenbuf),
7107 gv_stashpvn(PL_tokenbuf, strlen(PL_tokenbuf),
7184 p = scan_word6(p, PL_tokenbuf, sizeof PL_tokenbuf, TRUE, &len, TRUE);
7212 *PL_tokenbuf = '&';
7213 d = scan_word6(s, PL_tokenbuf + 1, sizeof PL_tokenbuf - 1,
7215 if (len && memNEs(PL_tokenbuf+1, len, "CORE")
7216 && !keyword(PL_tokenbuf + 1, len, 0)) {
7249 s = scan_word6(s, PL_tokenbuf, sizeof PL_tokenbuf, TRUE, &len, TRUE);
7250 if (memEQs(PL_tokenbuf, len, "sub"))
7252 PL_in_my_stash = find_in_my_stash(PL_tokenbuf, len);
7257 i = my_snprintf(tmpbuf, sizeof(tmpbuf), "No such class %.1000s", PL_tokenbuf);
7593 S_newSV_maybe_utf8(aTHX_ PL_tokenbuf, len));
7607 UTF8fARG(UTF, strlen(PL_tokenbuf),
7608 PL_tokenbuf));
7680 char *d = PL_tokenbuf;
7683 if (!*d && !gv_stashpv(PL_tokenbuf, UTF ? SVf_UTF8 : 0)) {
7687 PL_tokenbuf);
7721 s = scan_word6(s, PL_tokenbuf + len, sizeof PL_tokenbuf - len,
7729 UTF8fARG(UTF, len, PL_tokenbuf),
7742 if (len > 2 && PL_tokenbuf[len - 2] == ':' && PL_tokenbuf[len - 1] == ':') {
7744 && ! gv_fetchpvn_flags(PL_tokenbuf, len, UTF ? SVf_UTF8 : 0, SVt_PVHV))
7748 UTF8fARG(UTF, len, PL_tokenbuf));
7750 PL_tokenbuf[len] = '\0';
7762 c.sv = S_newSV_maybe_utf8(aTHX_ PL_tokenbuf, len);
7832 || (PL_tokenbuf[0] == '_' && PL_tokenbuf[1] == '\0'
7856 sv_setpv(c.sv, PL_tokenbuf);
7858 && is_utf8_string((U8*)PL_tokenbuf, len))
7908 sv_setpvn(c.sv, PL_tokenbuf, len);
7910 && is_utf8_string((U8*)PL_tokenbuf, len))
7967 if (PL_rsfp && (!PL_in_eval || PL_tokenbuf[2] == 'D'))
8471 char *d = scan_word6(s, PL_tokenbuf, sizeof PL_tokenbuf, FALSE, &len, FALSE);
8503 checkcomma(s,PL_tokenbuf,"filehandle");
8507 checkcomma(s,PL_tokenbuf,"filehandle");
8627 checkcomma(s,PL_tokenbuf,"filehandle");
8715 checkcomma(s,PL_tokenbuf,"subroutine name");
8917 s = scan_word6(s, PL_tokenbuf, sizeof PL_tokenbuf, FALSE, &len, FALSE);
8919 || (!(key = keyword(PL_tokenbuf, len, 1)) && *s == '\''))
8921 Copy(PL_bufptr, PL_tokenbuf, olen, char);
8926 UTF8fARG(UTF, len, PL_tokenbuf));
8996 s = scan_word6(s, PL_tokenbuf, sizeof PL_tokenbuf, FALSE, &len, FALSE);
8999 anydelim = word_takes_any_delimiter(PL_tokenbuf, len);
9003 if (memEQs(PL_tokenbuf, len, "CORE"))
9023 result = PL_keyword_plugin(aTHX_ PL_tokenbuf, len, &o);
9039 Perl_croak(aTHX_ "Bad plugin affecting keyword '%s'", PL_tokenbuf);
9047 result = PL_infix_plugin(aTHX_ PL_tokenbuf, len, &def);
9051 result, PL_tokenbuf);
9073 newSVpvn_flags(PL_tokenbuf, len, UTF ? SVf_UTF8 : 0));
9080 char tmpbuf[sizeof PL_tokenbuf + 1];
9082 Copy(PL_tokenbuf, tmpbuf+1, len, char);
9091 sv_catpvn_flags(c.sv, PL_tokenbuf, len,
9115 key = keyword(PL_tokenbuf, len, 0);
9149 char *s_end = s, *d = PL_tokenbuf;
9152 /* Copy the longest sequence of isPLUGINFIX() chars into PL_tokenbuf */
9153 while(s_end < PL_bufend && d < PL_tokenbuf+sizeof(PL_tokenbuf)-1 && isPLUGINFIX(*s_end))
9157 if((len = (*PL_infix_plugin)(aTHX_ PL_tokenbuf, s_end - s, &def))) {
9998 const STRLEN tokenbuf_len = strlen(PL_tokenbuf);
10000 const char *const has_colon = (const char*) memchr (PL_tokenbuf, ':', tokenbuf_len);
10003 "### Pending identifier '%s'\n", PL_tokenbuf); });
10019 *PL_tokenbuf=='&' ? "subroutine" : "variable",
10020 PL_tokenbuf), UTF ? SVf_UTF8 : 0);
10021 tmp = allocmy(PL_tokenbuf, tokenbuf_len, UTF ? SVf_UTF8 : 0);
10032 *PL_tokenbuf == '&' ? "subroutine" : "variable",
10033 PL_tokenbuf),
10049 o->op_private |= ( PL_tokenbuf[0] == '$' ? OPpARGELEM_SV
10050 : PL_tokenbuf[0] == '@' ? OPpARGELEM_AV
10055 o->op_targ = allocmy(PL_tokenbuf, tokenbuf_len,
10071 tmp = pad_findmy_pvn(PL_tokenbuf, tokenbuf_len,
10081 sv_catpvn_flags(sym, PL_tokenbuf+1, tokenbuf_len > 0 ? tokenbuf_len - 1 : 0, (UTF ? SV_CATUTF8 : SV_CATBYTES ));
10087 ((PL_tokenbuf[0] == '$') ? SVt_PV
10088 : (PL_tokenbuf[0] == '@') ? SVt_PVAV
10109 GV *const gv = gv_fetchpvn_flags(PL_tokenbuf + 1, tokenbuf_len > 0 ? tokenbuf_len - 1 : 0,
10112 if ((!gv || ((PL_tokenbuf[0] == '@') ? !GvAV(gv) : !GvHV(gv)))
10119 UTF8fARG(UTF, tokenbuf_len, PL_tokenbuf));
10125 newSVpvn_flags(PL_tokenbuf + 1,
10130 gv_fetchpvn_flags(PL_tokenbuf+1, tokenbuf_len > 0 ? tokenbuf_len - 1 : 0,
10133 ((PL_tokenbuf[0] == '$') ? SVt_PV
10134 : (PL_tokenbuf[0] == '@') ? SVt_PVAV
11054 d = PL_tokenbuf + 1;
11055 e = PL_tokenbuf + sizeof PL_tokenbuf - 1;
11056 *PL_tokenbuf = '\n';
11098 if (d >= PL_tokenbuf + sizeof PL_tokenbuf - 1)
11103 len = d - PL_tokenbuf;
11204 if (memEQ(s, PL_tokenbuf + 1, len - 1)) {
11230 && memNE(s,PL_tokenbuf,len) )
11290 term = PL_tokenbuf[1];
11351 char * found = ninstr(s, PL_bufend, (PL_tokenbuf + 1), (PL_tokenbuf +1 + len));
11386 && memEQ(s,PL_tokenbuf + 1,len))
11471 missingterm(PL_tokenbuf + 1, sizeof(PL_tokenbuf) - 1);
11500 char *d = PL_tokenbuf; /* start of temp holding space */
11501 const char * const e = PL_tokenbuf + sizeof PL_tokenbuf; /* end of temp holding space */
11521 if (len >= (I32)sizeof PL_tokenbuf)
11548 if (d - PL_tokenbuf != len) {
11559 d = PL_tokenbuf;
12016 Like most scan_ routines, it uses the PL_tokenbuf buffer to hold the
12451 d = PL_tokenbuf;
12452 e = PL_tokenbuf + sizeof PL_tokenbuf - 6; /* room for various punctuation */
12623 const int flags = grok_number (PL_tokenbuf, d - PL_tokenbuf, &uv);
12653 nv = Atof(PL_tokenbuf);
12662 sv = S_new_constant(aTHX_ PL_tokenbuf, d - PL_tokenbuf,
13886 t = scan_word6(s, PL_tokenbuf, sizeof PL_tokenbuf, FALSE, &wlen, FALSE);