usr.bin/perl/toke.c

49 #define PL_lex_brackets		(PL_parser->lex_brackets)
2050     if (PL_lex_formbrack && PL_lex_brackets <= PL_lex_formbrack) {
2185         if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets) {
2196          && !PL_lex_brackets)
2213                 PL_lex_brackets--;
2214                 yyc |= (3<<24) | (PL_lex_brackstack[PL_lex_brackets] << 16);
2588     SAVEI32(PL_lex_brackets);
2647     PL_lex_brackets = PL_lex_formbrack = 0;
2709         PL_lex_brackets = 0;
4480     if (PL_lex_brackets)
5239         if (PL_lex_state == LEX_NORMAL || PL_lex_brackets)
5325         if ((PL_lex_state == LEX_NORMAL || PL_lex_brackets) && isSPACE((char)tmp)) {
5969         if (!PL_in_my || (PL_lex_state != LEX_NORMAL && !PL_lex_brackets))
6155     if (PL_lex_brackets > 100) {
6156         Renew(PL_lex_brackstack, PL_lex_brackets + 10, char);
6162         PL_lex_brackstack[PL_lex_brackets++] = XOPERATOR;
6192         PL_lex_brackstack[PL_lex_brackets++] = XOPERATOR;
6198         PL_lex_brackstack[PL_lex_brackets++] = XSTATE;
6203         PL_lex_brackstack[PL_lex_brackets++] = XTERM;
6210                 PL_lex_brackstack[PL_lex_brackets++] = XTERM;
6212                 PL_lex_brackstack[PL_lex_brackets++] = XOPERATOR;
6344                 PL_lex_brackstack[PL_lex_brackets-1] = XSTATE;
6362     if (PL_lex_brackets <= 0)
6366         PL_expect = (expectation)PL_lex_brackstack[--PL_lex_brackets];
6371         if (PL_lex_brackets == 0) {
6545     if (PL_lex_state == LEX_NORMAL || PL_lex_brackets)
6601     if (PL_lex_brackets > 100)
6602         Renew(PL_lex_brackstack, PL_lex_brackets + 10, char);
6603     PL_lex_brackstack[PL_lex_brackets++] = 0;
6612     if (PL_lex_brackets && PL_lex_brackstack[PL_lex_brackets-1] == XFAKEEOF)
6615     if (PL_lex_brackets <= 0)
6619         --PL_lex_brackets;
6622         if (PL_lex_brackets == 0) {
7145         if (PL_lex_formbrack && PL_lex_brackets <= PL_lex_formbrack) {
7420     if (PL_lex_formbrack && PL_lex_brackets <= PL_lex_formbrack) {
9042             if (PL_lex_brackets
9043                 && PL_lex_brackstack[PL_lex_brackets-1] != XFAKEEOF)
9211         if (PL_lex_brackets && PL_lex_brackstack[PL_lex_brackets-1] == XFAKEEOF)
9300                 PL_lex_formbrack = PL_lex_brackets + 1;
9354         if (PL_lex_formbrack && PL_lex_brackets == PL_lex_formbrack
9582                     if (PL_lex_brackets > 100)
9583                         Renew(PL_lex_brackstack, PL_lex_brackets + 10, char);
9584                     PL_lex_brackstack[PL_lex_brackets++] =
9711         if (PL_lex_brackets)
9713                        (long) PL_lex_brackets);
9951         && !PL_lex_brackets)
10216         if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets) {
10466                 PL_lex_brackstack[PL_lex_brackets++] = (char)(XOPERATOR | XFAKEBRACK);
10491             if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets) {
10495             if (PL_lex_state == LEX_NORMAL || PL_lex_brackets) {
10526              && !PL_lex_brackets
13442     SAVEI32(PL_lex_brackets);
13443     if (PL_lex_brackets > 100)
13444         Renew(PL_lex_brackstack, PL_lex_brackets + 10, char);
13445     PL_lex_brackstack[PL_lex_brackets++] = XFAKEEOF;