usr.bin/perl/toke.c

78 #define PL_lex_state		(PL_parser->lex_state)
134 /* LEX_* are values for PL_lex_state, the state of the lexer.
1897     if (!PL_rsfp && !PL_parser->filtered && PL_lex_state == LEX_NORMAL
2057                 (PL_lex_inwhat || PL_lex_state == LEX_FORMLINE ?
2185         if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets) {
2187             PL_lex_state = LEX_INTERPEND;
2195         if (PERLY_SNAIL == funny && PL_lex_state == LEX_INTERPNORMAL
2503  * interact with PL_lex_state, and create fake ( ... ) argument lists
2522  * Sets PL_lex_state to LEX_INTERPPUSH unless ival was OP_NULL or we
2554     PL_parser->lex_super_state = PL_lex_state;
2559     PL_lex_state = LEX_INTERPPUSH;
2576  * Sets PL_lex_state to LEX_INTERPCONCAT.
2586     PL_lex_state = PL_parser->lex_super_state;
2594     SAVEI8(PL_lex_state);
2655     PL_lex_state = LEX_INTERPCONCAT;
2695         PL_lex_state = LEX_INTERPCASEMOD;
2716             PL_lex_state = LEX_INTERPNORMAL;
2724             PL_lex_state = LEX_INTERPCONCAT;
5239         if (PL_lex_state == LEX_NORMAL || PL_lex_brackets)
5325         if ((PL_lex_state == LEX_NORMAL || PL_lex_brackets) && isSPACE((char)tmp)) {
5532                 PL_lex_state = LEX_INTERPCONCAT;
5544         PL_lex_state = LEX_INTERPCONCAT;
5554             PL_lex_state = LEX_INTERPCONCAT;
5575             PL_lex_state = LEX_INTERPCONCAT;
5969         if (!PL_in_my || (PL_lex_state != LEX_NORMAL && !PL_lex_brackets))
6216                 if (PL_expect == XREF && PL_lex_state == LEX_INTERPNORMAL) {
6370     if (PL_lex_state == LEX_INTERPNORMAL) {
6374                 PL_lex_state = LEX_INTERPEND;
6380                 PL_lex_state = LEX_INTERPEND;
6382                 PL_lex_state = LEX_INTERPENDMAYBE;
6384                 PL_lex_state = LEX_INTERPEND;
6545     if (PL_lex_state == LEX_NORMAL || PL_lex_brackets)
6621     if (PL_lex_state == LEX_INTERPNORMAL) {
6624                 PL_lex_state = LEX_INTERPENDMAYBE;
6626                 PL_lex_state = LEX_INTERPEND;
7122     if (PL_lex_state != LEX_NORMAL
7140             && PL_lex_state == LEX_INTERPNORMAL
7146             PL_lex_state = LEX_FORMLINE;
7421         PL_lex_state = LEX_FORMLINE;
9262                     || PL_lex_state != LEX_NORMAL)
9299                 PL_parser->form_lex_state = PL_lex_state;
9567             lex_state_names[PL_lex_state],
9597     switch (PL_lex_state) {
9624         PL_lex_state = LEX_INTERPNORMAL;
9658             PL_lex_state = LEX_INTERPNORMAL;	/* false alarm, more expr */
9667             PL_lex_state = LEX_INTERPCONCAT;
9737                 PL_lex_state = LEX_INTERPCASEMOD;
9739                 PL_lex_state = LEX_INTERPSTART;
9950         && PL_lex_state != LEX_NORMAL
10216         if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets) {
10317         if (PL_lex_state != LEX_NORMAL)
10318             PL_lex_state = LEX_INTERPENDMAYBE;
10491             if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets) {
10492                 PL_lex_state = LEX_INTERPEND;
10495             if (PL_lex_state == LEX_NORMAL || PL_lex_brackets) {
10525     else if (   PL_lex_state == LEX_INTERPNORMAL
10528         PL_lex_state = LEX_INTERPEND;
12605         PL_lex_state = PL_parser->form_lex_state;
12901             if (PL_lex_state == LEX_NORMAL)