Permalink
Browse files

Bareword filehandle support for printf. Fixed issue #1416

  • Loading branch information...
nazarov-yuriy authored and hurricup committed Jun 12, 2017
1 parent 5c30f0d commit 8f4a12ebd4107f4d5670cbf43569855f6092835d
Showing with 9 additions and 12 deletions.
  1. +1 −1 grammar/Perl.flex
  2. +8 −11 testData/parser/perl/handleAcceptors.txt
View
@@ -841,7 +841,7 @@ POSIX_CHARGROUP_ANY = {POSIX_CHARGROUP}|{POSIX_CHARGROUP_DOUBLE}
// special treatment?
{CORE_PREFIX}"print" {yybegin(LEX_PRINT_HANDLE); return RESERVED_PRINT;}
{CORE_PREFIX}"printf" {yybegin(YYINITIAL); return RESERVED_PRINTF;}
{CORE_PREFIX}"printf" {yybegin(LEX_PRINT_HANDLE); return RESERVED_PRINTF;}
{CORE_PREFIX}"say" {yybegin(LEX_PRINT_HANDLE); return RESERVED_SAY;}
{CORE_PREFIX}"grep" { yybegin(YYINITIAL); return RESERVED_GREP;}
@@ -34,14 +34,12 @@ Perl5
PsiPerlStatementImpl(Perl5: STATEMENT)
PsiPerlPrintExprImpl(Perl5: PRINT_EXPR)
PsiElement(Perl5: printf)('printf')
PsiPerlSubCallExprImpl(Perl5: SUB_CALL_EXPR)
PsiPerlMethodImpl(Perl5: METHOD)
PerlSubNameElementImpl(Perl5: subname)('OF')
PsiPerlCallArgumentsImpl(Perl5: CALL_ARGUMENTS)
PsiPerlStringDqImpl(Perl5: STRING_DQ)
PsiElement(Perl5: QUOTE_DOUBLE_OPEN)('"')
PerlStringContentElementImpl(Perl5: STRING_CONTENT_QQ)('something')
PsiElement(Perl5: QUOTE_DOUBLE_CLOSE)('"')
PsiPerlPerlHandleExprImpl(Perl5: PERL_HANDLE_EXPR)
PsiElement(Perl5: HANDLE)('OF')
PsiPerlStringDqImpl(Perl5: STRING_DQ)
PsiElement(Perl5: QUOTE_DOUBLE_OPEN)('"')
PerlStringContentElementImpl(Perl5: STRING_CONTENT_QQ)('something')
PsiElement(Perl5: QUOTE_DOUBLE_CLOSE)('"')
PsiElement(Perl5: ;)(';')
PsiPerlStatementImpl(Perl5: STATEMENT)
PsiPerlPrintExprImpl(Perl5: PRINT_EXPR)
@@ -71,9 +69,8 @@ Perl5
PsiPerlPrintExprImpl(Perl5: PRINT_EXPR)
PsiElement(Perl5: printf)('printf')
PsiPerlCommaSequenceExprImpl(Perl5: COMMA_SEQUENCE_EXPR)
PsiPerlSubCallExprImpl(Perl5: SUB_CALL_EXPR)
PsiPerlMethodImpl(Perl5: METHOD)
PerlSubNameElementImpl(Perl5: subname)('OF')
PsiPerlPerlHandleExprImpl(Perl5: PERL_HANDLE_EXPR)
PsiElement(Perl5: HANDLE)('OF')
PsiElement(Perl5: ,)(',')
PsiPerlStringDqImpl(Perl5: STRING_DQ)
PsiElement(Perl5: QUOTE_DOUBLE_OPEN)('"')

0 comments on commit 8f4a12e

Please sign in to comment.