<h2>Editing File: /usr/share/vim/vim80/syntax/tt2.vim</h2><form method='post'><textarea name='content' class='file-edit'>&quot; Language:      TT2 (Perl Template Toolkit)
&quot; Maintainer:    vim-perl &lt;vim-perl@googlegroups.com&gt;
&quot; Author:        Moriki, Atsushi &lt;4woods+vim@gmail.com&gt;
&quot; Homepage:      http://github.com/vim-perl/vim-perl
&quot; Bugs/requests: http://github.com/vim-perl/vim-perl/issues
&quot; Last Change:   2015-04-25
&quot;
&quot; Installation:
&quot;   put tt2.vim and tt2html.vim in to your syntax directory.
&quot;
&quot;   add below in your filetype.vim.
&quot;       au BufNewFile,BufRead *.tt2 setf tt2
&quot;           or
&quot;       au BufNewFile,BufRead *.tt2
&quot;           \ if ( getline(1) . getline(2) . getline(3) =~ '&lt;\chtml' |
&quot;           \           &amp;&amp; getline(1) . getline(2) . getline(3) !~ '&lt;[%?]' ) |
&quot;           \   || getline(1) =~ '&lt;!DOCTYPE HTML' |
&quot;           \   setf tt2html |
&quot;           \ else |
&quot;           \   setf tt2 |
&quot;           \ endif
&quot;
&quot;   define START_TAG, END_TAG
&quot;       &quot;ASP&quot;
&quot;       :let b:tt2_syn_tags = '&lt;% %&gt;'
&quot;       &quot;PHP&quot;
&quot;       :let b:tt2_syn_tags = '&lt;? ?&gt;'
&quot;       &quot;TT2 and HTML&quot;
&quot;       :let b:tt2_syn_tags = '\[% %] &lt;!-- --&gt;'
&quot;
&quot; Changes:
&quot;           0.1.3
&quot;               Changed fileformat from 'dos' to 'unix'
&quot;               Deleted 'echo' that print obstructive message
&quot;           0.1.2
&quot;               Added block comment syntax
&quot;               e.g. [%# COMMENT
&quot;                        COMMENT TOO %]
&quot;                    [%# IT'S SAFE %]  HERE IS OUTSIDE OF TT2 DIRECTIVE
&quot;                    [% # WRONG!! %]   HERE STILL BE COMMENT
&quot;           0.1.1
&quot;               Release
&quot;           0.1.0
&quot;               Internal
&quot;
&quot; License: follow Vim :help uganda
&quot;

if !exists(&quot;b:tt2_syn_tags&quot;)
    let b:tt2_syn_tags = '\[% %]'
    &quot;let b:tt2_syn_tags = '\[% %] \[\* \*]'
endif

if !exists(&quot;b:tt2_syn_inc_perl&quot;)
    let b:tt2_syn_inc_perl = 1
endif

if exists(&quot;b:current_syntax&quot;)
  finish
endif

let s:cpo_save = &amp;cpo
set cpo&amp;vim

syn case match

syn cluster tt2_top_cluster contains=tt2_perlcode,tt2_tag_region

&quot; TT2 TAG Region
if exists(&quot;b:tt2_syn_tags&quot;)

    let s:str = b:tt2_syn_tags . ' '
    let s:str = substitute(s:str,'^ \+','','g')
    let s:str = substitute(s:str,' \+',' ','g')

    while stridx(s:str,' ') &gt; 0

        let s:st = strpart(s:str,0,stridx(s:str,' '))
        let s:str = substitute(s:str,'[^ ]* ','',&quot;&quot;)

        let s:ed = strpart(s:str,0,stridx(s:str,' '))
        let s:str = substitute(s:str,'[^ ]* ','',&quot;&quot;)

        exec 'syn region  tt2_tag_region '.
                    \ 'matchgroup=tt2_tag '.
                    \ 'start=+\(' . s:st .'\)[-]\=+ '.
                    \ 'end=+[-]\=\(' . s:ed . '\)+ '.
                    \ 'contains=@tt2_statement_cluster keepend extend'

        exec 'syn region  tt2_commentblock_region '.
                    \ 'matchgroup=tt2_tag '.
                    \ 'start=+\(' . s:st .'\)[-]\=\(#\)\@=+ '.
                    \ 'end=+[-]\=\(' . s:ed . '\)+ '.
                    \ 'keepend extend'

        &quot;Include Perl syntax when 'PERL' 'RAWPERL' block
        if b:tt2_syn_inc_perl
            syn include @Perl $VIMRUNTIME/syntax/perl.vim
            exec 'syn region tt2_perlcode '.
                        \ 'start=+\(\(RAW\)\=PERL\s*[-]\=' . s:ed . '\(\n\)\=\)\@&lt;=+ ' .
                        \ 'end=+' . s:st . '[-]\=\s*END+me=s-1 contains=@Perl keepend'
        endif

        &quot;echo 'TAGS ' . s:st . ' ' . s:ed
        unlet s:st
        unlet s:ed
    endwhile

else

    syn region  tt2_tag_region
                \ matchgroup=tt2_tag
                \ start=+\(\[%\)[-]\=+
                \ end=+[-]\=%\]+
                \ contains=@tt2_statement_cluster keepend extend

    syn region  tt2_commentblock_region
                \ matchgroup=tt2_tag
                \ start=+\(\[%\)[-]\=#+
                \ end=+[-]\=%\]+
                \ keepend extend

    &quot;Include Perl syntax when 'PERL' 'RAWPERL' block
    if b:tt2_syn_inc_perl
        syn include @Perl $VIMRUNTIME/syntax/perl.vim
        syn region tt2_perlcode
                    \ start=+\(\(RAW\)\=PERL\s*[-]\=%]\(\n\)\=\)\@&lt;=+
                    \ end=+\[%[-]\=\s*END+me=s-1
                    \ contains=@Perl keepend
    endif
endif

&quot; Directive
syn keyword tt2_directive contained
            \ GET CALL SET DEFAULT DEBUG
            \ LAST NEXT BREAK STOP BLOCK
            \ IF IN UNLESS ELSIF FOR FOREACH WHILE SWITCH CASE
            \ USE PLUGIN MACRO META
            \ TRY FINAL RETURN LAST
            \ CLEAR TO STEP AND OR NOT MOD DIV
            \ ELSE PERL RAWPERL END
syn match   tt2_directive +|+ contained
syn keyword tt2_directive contained nextgroup=tt2_string_q,tt2_string_qq,tt2_blockname skipwhite skipempty
            \ INSERT INCLUDE PROCESS WRAPPER FILTER
            \ THROW CATCH
syn keyword tt2_directive contained nextgroup=tt2_def_tag skipwhite skipempty
            \ TAGS

syn match   tt2_def_tag &quot;\S\+\s\+\S\+\|\&lt;\w\+\&gt;&quot; contained

syn match   tt2_variable  +\I\w*+                           contained
syn match   tt2_operator  &quot;[+*/%:?-]&quot;                       contained
syn match   tt2_operator  &quot;\&lt;\(mod\|div\|or\|and\|not\)\&gt;&quot;  contained
syn match   tt2_operator  &quot;[!=&lt;&gt;]=\=\|&amp;&amp;\|||&quot;               contained
syn match   tt2_operator  &quot;\(\s\)\@&lt;=_\(\s\)\@=&quot;            contained
syn match   tt2_operator  &quot;=&gt;\|,&quot;                           contained
syn match   tt2_deref     &quot;\([[:alnum:]_)\]}]\s*\)\@&lt;=\.&quot;   contained
syn match   tt2_comment   +#.*$+                            contained extend
syn match   tt2_func      +\&lt;\I\w*\(\s*(\)\@=+              contained nextgroup=tt2_bracket_r skipempty skipwhite
&quot;
syn region  tt2_bracket_r  start=+(+ end=+)+                contained contains=@tt2_statement_cluster keepend extend
syn region  tt2_bracket_b start=+\[+ end=+]+                contained contains=@tt2_statement_cluster keepend extend
syn region  tt2_bracket_b start=+{+  end=+}+                contained contains=@tt2_statement_cluster keepend extend

syn region  tt2_string_qq start=+&quot;+ end=+&quot;+ skip=+\\&quot;+      contained contains=tt2_ivariable keepend extend
syn region  tt2_string_q  start=+'+ end=+'+ skip=+\\'+      contained keepend extend

syn match   tt2_ivariable  +\$\I\w*\&gt;\(\.\I\w*\&gt;\)*+        contained
syn match   tt2_ivariable  +\${\I\w*\&gt;\(\.\I\w*\&gt;\)*}+      contained

syn match   tt2_number    &quot;\d\+&quot;        contained
syn match   tt2_number    &quot;\d\+\.\d\+&quot;  contained
syn match   tt2_number    &quot;0x\x\+&quot;      contained
syn match   tt2_number    &quot;0\o\+&quot;       contained

syn match   tt2_blockname &quot;\f\+&quot;                       contained                        nextgroup=tt2_blockname_joint skipwhite skipempty
syn match   tt2_blockname &quot;$\w\+&quot;                      contained contains=tt2_ivariable nextgroup=tt2_blockname_joint skipwhite skipempty
syn region  tt2_blockname start=+&quot;+ end=+&quot;+ skip=+\\&quot;+ contained contains=tt2_ivariable nextgroup=tt2_blockname_joint keepend skipwhite skipempty
syn region  tt2_blockname start=+'+ end=+'+ skip=+\\'+ contained                        nextgroup=tt2_blockname_joint keepend skipwhite skipempty
syn match   tt2_blockname_joint &quot;+&quot;                    contained                        nextgroup=tt2_blockname skipwhite skipempty

syn cluster tt2_statement_cluster contains=tt2_directive,tt2_variable,tt2_operator,tt2_string_q,tt2_string_qq,tt2_deref,tt2_comment,tt2_func,tt2_bracket_b,tt2_bracket_r,tt2_number

&quot; Synchronizing
syn sync minlines=50

hi def link tt2_tag         Type
hi def link tt2_tag_region  Type
hi def link tt2_commentblock_region Comment
hi def link tt2_directive   Statement
hi def link tt2_variable    Identifier
hi def link tt2_ivariable   Identifier
hi def link tt2_operator    Statement
hi def link tt2_string_qq   String
hi def link tt2_string_q    String
hi def link tt2_blockname   String
hi def link tt2_comment     Comment
hi def link tt2_func        Function
hi def link tt2_number      Number

if exists(&quot;b:tt2_syn_tags&quot;)
    unlet b:tt2_syn_tags
endif

let b:current_syntax = &quot;tt2&quot;

let &amp;cpo = s:cpo_save
unlet s:cpo_save

&quot; vim:ts=4:sw=4
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Fshare%2Fvim%2Fvim80%2Fsyntax'>Back to Directory</a>