Lines Matching defs:TOKEN
195 * TOKEN : generic token (used for '(', DOLSHARP, etc)
231 #define TOKEN(retval) return ( PL_bufptr = s, REPORT(retval))
5329 case ',': TOKEN (PERLY_COMMA);
5330 case '$': TOKEN (PERLY_DOLLAR);
5331 case '@': TOKEN (PERLY_SNAIL);
5332 case '%': TOKEN (PERLY_PERCENT_SIGN);
5333 case ')': TOKEN (PERLY_PAREN_CLOSE);
5334 default: TOKEN (sigil);
5370 TOKEN(DOLSHARP);
5531 TOKEN(PERLY_DOLLAR);
5648 TOKEN(KW_METHOD_anon);
5650 TOKEN(KW_SUB_anon_sig);
5652 TOKEN(KW_SUB_anon);
5656 TOKEN(KW_METHOD_named);
5658 TOKEN(KW_SUB_named_sig);
5660 TOKEN(KW_SUB_named);
5751 TOKEN(PERLY_COMMA);
5872 TOKEN(QWLIST);
5969 TOKEN(ARROW);
5973 TOKEN(ARROW);
5986 TOKEN(0);
6015 TOKEN(0);
6048 TOKEN(0);
6058 TOKEN(0);
6072 TOKEN(0);
6106 TOKEN(0);
6117 TOKEN(0);
6242 TOKEN(COLONATTR);
6247 TOKEN(0);
6511 TOKEN(formbrack ? PERLY_EQUAL_SIGN : PERLY_BRACE_OPEN);
6556 TOKEN(FORMRBRACK);
6559 TOKEN(PERLY_SEMICOLON);
6573 TOKEN(0);
6597 TOKEN(0);
6628 TOKEN(0);
6642 TOKEN(0);
6672 TOKEN(0);
6730 TOKEN(0);
6740 TOKEN(0);
6772 TOKEN(0);
6797 TOKEN(0);
6821 TOKEN(PERLY_PAREN_OPEN);
6828 TOKEN(0);
6850 TOKEN(sublex_start());
6859 TOKEN(0);
6868 TOKEN(0);
6875 TOKEN(0);
6883 TOKEN(0);
6897 TOKEN(0);
6904 TOKEN(0);
6912 TOKEN(0);
7339 TOKEN(PERLY_SEMICOLON); /* not infinite loop because rsfp is NULL now */
7580 TOKEN(PERLY_SEMICOLON);
7613 TOKEN(BAREWORD);
7631 TOKEN(BAREWORD);
7657 TOKEN(NOAMP);
7881 TOKEN(PERLY_AMPERSAND);
8046 TOKEN(KW_CLASS);
8456 TOKEN(KW_USE_or_NO);
8624 TOKEN(1); /* force error */
8847 TOKEN(KW_USE_or_NO);
9075 TOKEN(LABEL);
9208 TOKEN(0);
9310 TOKEN(PERLY_SEMICOLON);
9338 TOKEN(0);
9351 TOKEN(0);
9355 TOKEN(PERLY_SEMICOLON);
9368 TOKEN(0);
9393 TOKEN(0);
9402 TOKEN(0);
9463 TOKEN(0);
9504 TOKEN(0);
9533 TOKEN(0);
9548 TOKEN(0);
9806 TOKEN(PERLY_COMMA);
9905 TOKEN(PERLY_COMMA);