usr.bin/perl/toke.c

87 #  define PL_nexttoke		(PL_parser->nexttoke)
99 #  define NEXTVAL_NEXTTOKE PL_nextval[PL_nexttoke]
242                          PL_expect = PL_nexttoke ? XOPERATOR : XTERM, \
2125     if (PL_nexttoke)
2159     assert(PL_nexttoke < C_ARRAY_LENGTH(PL_nexttype));
2160     PL_nexttype[PL_nexttoke] = type;
2161     PL_nexttoke++;
2240  * it calls S_force_word to stick the next word into the PL_nexttoke/val
6960     PL_expect = PL_nexttoke ? XOPERATOR : XTERM;
8876             if (!PL_nexttoke) PL_expect = XSTATE;
8881             if (!PL_nexttoke) PL_expect = XOPERATOR;
9574     if (PL_nexttoke) {
9575         PL_nexttoke--;
9576         pl_yylval = PL_nextval[PL_nexttoke];
9579             next_type = PL_nexttype[PL_nexttoke];
13715     if (PL_nexttoke) {