"Fossies" - the Fresh Open Source Software Archive

Member "vim-8.2.1354/runtime/syntax/papp.vim" (2 Aug 2020, 3789 Bytes) of package /linux/misc/vim-8.2.1354.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) vimscript source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 " Vim syntax file for the "papp" file format (_p_erl _app_lication)
    2 "
    3 " Language: papp
    4 " Maintainer:   Marc Lehmann <pcg@goof.com>
    5 " Last Change:  2009 Nov 11
    6 " Filenames:    *.papp *.pxml *.pxsl
    7 " URL:      http://papp.plan9.de/
    8 
    9 " You can set the "papp_include_html" variable so that html will be
   10 " rendered as such inside phtml sections (in case you actually put html
   11 " there - papp does not require that). Also, rendering html tends to keep
   12 " the clutter high on the screen - mixing three languages is difficult
   13 " enough(!). PS: it is also slow.
   14 
   15 " pod is, btw, allowed everywhere, which is actually wrong :(
   16 
   17 " quit when a syntax file was already loaded
   18 if exists("b:current_syntax")
   19   finish
   20 endif
   21 
   22 " source is basically xml, with included html (this is common) and perl bits
   23 runtime! syntax/xml.vim
   24 unlet b:current_syntax
   25 
   26 if exists("papp_include_html")
   27   syn include @PAppHtml syntax/html.vim
   28   unlet b:current_syntax
   29   syntax spell default  " added by Bram
   30 endif
   31 
   32 syn include @PAppPerl syntax/perl.vim
   33 
   34 syn cluster xmlFoldCluster add=papp_perl,papp_xperl,papp_phtml,papp_pxml,papp_perlPOD
   35 
   36 " preprocessor commands
   37 syn region papp_prep matchgroup=papp_prep start="^#\s*\(if\|elsif\)" end="$" keepend contains=@perlExpr contained
   38 syn match papp_prep /^#\s*\(else\|endif\|??\).*$/ contained
   39 " translation entries
   40 syn region papp_gettext start=/__"/ end=/"/ contained contains=@papp_perlInterpDQ
   41 syn cluster PAppHtml add=papp_gettext,papp_prep
   42 
   43 " add special, paired xperl, perl and phtml tags
   44 syn region papp_perl  matchgroup=xmlTag start="<perl>"  end="</perl>"  contains=papp_CDATAp,@PAppPerl keepend
   45 syn region papp_xperl matchgroup=xmlTag start="<xperl>" end="</xperl>" contains=papp_CDATAp,@PAppPerl keepend
   46 syn region papp_phtml matchgroup=xmlTag start="<phtml>" end="</phtml>" contains=papp_CDATAh,papp_ph_perl,papp_ph_html,papp_ph_hint,@PAppHtml keepend
   47 syn region papp_pxml  matchgroup=xmlTag start="<pxml>"  end="</pxml>"  contains=papp_CDATAx,papp_ph_perl,papp_ph_xml,papp_ph_xint        keepend
   48 syn region papp_perlPOD start="^=[a-z]" end="^=cut" contains=@Pod,perlTodo keepend
   49 
   50 " cdata sections
   51 syn region papp_CDATAp matchgroup=xmlCdataDecl start="<!\[CDATA\[" end="\]\]>" contains=@PAppPerl                    contained keepend
   52 syn region papp_CDATAh matchgroup=xmlCdataDecl start="<!\[CDATA\[" end="\]\]>" contains=papp_ph_perl,papp_ph_html,papp_ph_hint,@PAppHtml contained keepend
   53 syn region papp_CDATAx matchgroup=xmlCdataDecl start="<!\[CDATA\[" end="\]\]>" contains=papp_ph_perl,papp_ph_xml,papp_ph_xint        contained keepend
   54 
   55 syn region papp_ph_perl matchgroup=Delimiter start="<[:?]" end="[:?]>"me=e-2 nextgroup=papp_ph_html contains=@PAppPerl           contained keepend
   56 syn region papp_ph_html matchgroup=Delimiter start=":>"    end="<[:?]"me=e-2 nextgroup=papp_ph_perl contains=@PAppHtml           contained keepend
   57 syn region papp_ph_hint matchgroup=Delimiter start="?>"    end="<[:?]"me=e-2 nextgroup=papp_ph_perl contains=@perlInterpDQ,@PAppHtml contained keepend
   58 syn region papp_ph_xml  matchgroup=Delimiter start=":>"    end="<[:?]"me=e-2 nextgroup=papp_ph_perl contains=                contained keepend
   59 syn region papp_ph_xint matchgroup=Delimiter start="?>"    end="<[:?]"me=e-2 nextgroup=papp_ph_perl contains=@perlInterpDQ       contained keepend
   60 
   61 " synchronization is horrors!
   62 syn sync clear
   63 syn sync match pappSync grouphere papp_CDATAh "</\(perl\|xperl\|phtml\|macro\|module\)>"
   64 syn sync match pappSync grouphere papp_CDATAh "^# *\(if\|elsif\|else\|endif\)"
   65 syn sync match pappSync grouphere papp_CDATAh "</\(tr\|td\|table\|hr\|h1\|h2\|h3\)>"
   66 syn sync match pappSync grouphere NONE        "</\=\(module\|state\|macro\)>"
   67 
   68 syn sync maxlines=300
   69 syn sync minlines=5
   70 
   71 " The default highlighting.
   72 
   73 hi def link papp_prep       preCondit
   74 hi def link papp_gettext    String
   75 
   76 let b:current_syntax = "papp"