Attachment 3476 Details for Bug 19708 – реализация

[patch] реализация

0001-perl.vim-hilight-perl-s-s-m-and-s-m.patch (text/plain), 3.88 KB, created by Afanasov Dmitry on 2009-04-21 19:03:01 MSD

(hide)

Description:

Filename:

MIME Type:

Creator: Afanasov Dmitry

Created: 2009-04-21 19:03:01 MSD

Size: 3.88 KB

patch

obsolete

>From 36e89d5fa82fb5f876890e57dc3a98028d384c3d Mon Sep 17 00:00:00 2001
>From: Afanasov Dmitry <ender@altlinux.org>
>Date: Tue, 21 Apr 2009 18:54:33 +0400
>Subject: [PATCH] perl.vim: hilight perl's s,,,/m,, and s|||/m||
>
>---
> runtime/syntax/perl.vim |    8 ++++++++
> 1 files changed, 8 insertions(+), 0 deletions(-)
>
>diff --git a/runtime/syntax/perl.vim b/runtime/syntax/perl.vim
>index fb9195a..9bd601b 100644
>--- a/runtime/syntax/perl.vim
>+++ b/runtime/syntax/perl.vim
>@@ -236,6 +236,8 @@ syn region perlMatch	matchgroup=perlMatchStartEnd start=+[m!]/+ end=+/[cgimosx]*
> syn region perlMatch	matchgroup=perlMatchStartEnd start=+[m!]#+ end=+#[cgimosx]*+ contains=@perlInterpMatch
> syn region perlMatch	matchgroup=perlMatchStartEnd start=+[m!]{+ end=+}[cgimosx]*+ contains=@perlInterpMatch
> syn region perlMatch	matchgroup=perlMatchStartEnd start=+[m!]\[+ end=+\][cgimosx]*+ contains=@perlInterpMatch
>+syn region perlMatch	matchgroup=perlMatchStartEnd start=+[m!]|+ end=+|[cgimosx]*+ contains=@perlInterpMatch
>+syn region perlMatch	matchgroup=perlMatchStartEnd start=+[m!],+ end=+,[cgimosx]*+ contains=@perlInterpMatch
> 
> " A special case for m!!x which allows for comments and extra whitespace in the pattern
> syn region perlMatch	matchgroup=perlMatchStartEnd start=+[m!]!+ end=+![cgimosx]*+ contains=@perlInterpSlash,perlComment
>@@ -251,6 +253,8 @@ syn region perlMatch	matchgroup=perlMatchStartEnd start=+^split /+lc=5 start=+[^
> syn region perlMatch	matchgroup=perlMatchStartEnd start=+\<s'+  end=+'+me=e-1 contains=@perlInterpSQ nextgroup=perlSubstitutionSQ
> syn region perlMatch	matchgroup=perlMatchStartEnd start=+\<s"+  end=+"+me=e-1 contains=@perlInterpMatch nextgroup=perlSubstitutionDQ
> syn region perlMatch	matchgroup=perlMatchStartEnd start=+\<s/+  end=+/+me=e-1 contains=@perlInterpSlash nextgroup=perlSubstitutionSlash
>+syn region perlMatch	matchgroup=perlMatchStartEnd start=+\<s|+  end=+|+me=e-1 contains=@perlInterpMatch nextgroup=perlSubstitutionPalka
>+syn region perlMatch	matchgroup=perlMatchStartEnd start=+\<s,+  end=+,+me=e-1 contains=@perlInterpMatch nextgroup=perlSubstitutionComma
> syn region perlMatch	matchgroup=perlMatchStartEnd start=+\<s#+  end=+#+me=e-1 contains=@perlInterpMatch nextgroup=perlSubstitutionHash
> syn region perlMatch	matchgroup=perlMatchStartEnd start=+\<s\[+ end=+\]+ contains=@perlInterpMatch nextgroup=perlSubstitutionBracket skipwhite skipempty skipnl
> syn region perlMatch	matchgroup=perlMatchStartEnd start=+\<s{+ end=+}+ contains=@perlInterpMatch nextgroup=perlSubstitutionCurly skipwhite skipempty skipnl
>@@ -258,6 +262,8 @@ syn region perlSubstitutionSQ		matchgroup=perlMatchStartEnd start=+'+  end=+'[ec
> syn region perlSubstitutionDQ		matchgroup=perlMatchStartEnd start=+"+  end=+"[ecgimosx]*+ contained contains=@perlInterpDQ
> syn region perlSubstitutionSlash	matchgroup=perlMatchStartEnd start=+/+  end=+/[ecgimosx]*+ contained contains=@perlInterpDQ
> syn region perlSubstitutionHash		matchgroup=perlMatchStartEnd start=+#+  end=+#[ecgimosx]*+ contained contains=@perlInterpDQ
>+syn region perlSubstitutionPalka	matchgroup=perlMatchStartEnd start=+|+  end=+|[ecgimosx]*+ contained contains=@perlInterpDQ
>+syn region perlSubstitutionComma	matchgroup=perlMatchStartEnd start=+,+  end=+,[ecgimosx]*+ contained contains=@perlInterpDQ
> syn region perlSubstitutionBracket	matchgroup=perlMatchStartEnd start=+\[+ end=+\][ecgimosx]*+ contained contains=@perlInterpDQ
> syn region perlSubstitutionCurly	matchgroup=perlMatchStartEnd start=+{+  end=+}[ecgimosx]*+ contained contains=@perlInterpDQ
> 
>@@ -473,6 +479,8 @@ if version >= 508 || !exists("did_perl_syn_inits")
>   HiLink perlSubstitutionDQ	perlString
>   HiLink perlSubstitutionSlash	perlString
>   HiLink perlSubstitutionHash	perlString
>+  HiLink perlSubstitutionPalka	perlString
>+  HiLink perlSubstitutionComma	perlString
>   HiLink perlSubstitutionBracket perlString
>   HiLink perlSubstitutionCurly 	perlString
>   HiLink perlSubstitutionPling	perlString
>-- 
>1.6.1.3.GIT
>

Actions: View | Diff

Attachments on bug 19708: 3476