runtime/syntax/papp.vim

   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:  2003 May 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 " For version 5.x: Clear all syntax items
  18 " For version 6.x: Quit when a syntax file was already loaded
  19 if version < 600
  20   syntax clear
  21 elseif exists("b:current_syntax")
  22   finish
  23 endif
  24
  25 " source is basically xml, with included html (this is common) and perl bits
  26 if version < 600
  27   so <sfile>:p:h/xml.vim
  28 else
  29   runtime! syntax/xml.vim
  30 endif
  31 unlet b:current_syntax
  32
  33 if exists("papp_include_html")
  34   if version < 600
  35     syn include @PAppHtml <sfile>:p:h/html.vim
  36   else
  37     syn include @PAppHtml syntax/html.vim
  38   endif
  39   unlet b:current_syntax
  40 endif
  41
  42 if version < 600
  43   syn include @PAppPerl <sfile>:p:h/perl.vim
  44 else
  45   syn include @PAppPerl syntax/perl.vim
  46 endif
  47
  48 if v:version >= 600
  49    syn cluster xmlFoldCluster add=papp_perl,papp_xperl,papp_phtml,papp_pxml,papp_perlPOD
  50 endif
  51
  52 " preprocessor commands
  53 syn region papp_prep matchgroup=papp_prep start="^#\s*\(if\|elsif\)" end="$" keepend contains=@perlExpr contained
  54 syn match papp_prep /^#\s*\(else\|endif\|??\).*$/ contained
  55 " translation entries
  56 syn region papp_gettext start=/__"/ end=/"/ contained contains=@papp_perlInterpDQ
  57 syn cluster PAppHtml add=papp_gettext,papp_prep
  58
  59 " add special, paired xperl, perl and phtml tags
  60 syn region papp_perl  matchgroup=xmlTag start="<perl>"  end="</perl>"  contains=papp_CDATAp,@PAppPerl keepend
  61 syn region papp_xperl matchgroup=xmlTag start="<xperl>" end="</xperl>" contains=papp_CDATAp,@PAppPerl keepend
  62 syn region papp_phtml matchgroup=xmlTag start="<phtml>" end="</phtml>" contains=papp_CDATAh,papp_ph_perl,papp_ph_html,papp_ph_hint,@PAppHtml keepend
  63 syn region papp_pxml  matchgroup=xmlTag start="<pxml>"  end="</pxml>"  contains=papp_CDATAx,papp_ph_perl,papp_ph_xml,papp_ph_xint            keepend
  64 syn region papp_perlPOD start="^=[a-z]" end="^=cut" contains=@Pod,perlTodo keepend
  65
  66 " cdata sections
  67 syn region papp_CDATAp matchgroup=xmlCdataDecl start="<!\[CDATA\[" end="\]\]>" contains=@PAppPerl                                        contained keepend
  68 syn region papp_CDATAh matchgroup=xmlCdataDecl start="<!\[CDATA\[" end="\]\]>" contains=papp_ph_perl,papp_ph_html,papp_ph_hint,@PAppHtml contained keepend
  69 syn region papp_CDATAx matchgroup=xmlCdataDecl start="<!\[CDATA\[" end="\]\]>" contains=papp_ph_perl,papp_ph_xml,papp_ph_xint            contained keepend
  70
  71 syn region papp_ph_perl matchgroup=Delimiter start="<[:?]" end="[:?]>"me=e-2 nextgroup=papp_ph_html contains=@PAppPerl               contained keepend
  72 syn region papp_ph_html matchgroup=Delimiter start=":>"    end="<[:?]"me=e-2 nextgroup=papp_ph_perl contains=@PAppHtml               contained keepend
  73 syn region papp_ph_hint matchgroup=Delimiter start="?>"    end="<[:?]"me=e-2 nextgroup=papp_ph_perl contains=@perlInterpDQ,@PAppHtml contained keepend
  74 syn region papp_ph_xml  matchgroup=Delimiter start=":>"    end="<[:?]"me=e-2 nextgroup=papp_ph_perl contains=                        contained keepend
  75 syn region papp_ph_xint matchgroup=Delimiter start="?>"    end="<[:?]"me=e-2 nextgroup=papp_ph_perl contains=@perlInterpDQ           contained keepend
  76
  77 " synchronization is horrors!
  78 syn sync clear
  79 syn sync match pappSync grouphere papp_CDATAh "</\(perl\|xperl\|phtml\|macro\|module\)>"
  80 syn sync match pappSync grouphere papp_CDATAh "^# *\(if\|elsif\|else\|endif\)"
  81 syn sync match pappSync grouphere papp_CDATAh "</\(tr\|td\|table\|hr\|h1\|h2\|h3\)>"
  82 syn sync match pappSync grouphere NONE        "</\=\(module\|state\|macro\)>"
  83
  84 syn sync maxlines=300
  85 syn sync minlines=5
  86
  87 " The default highlighting.
  88
  89 hi def link papp_prep           preCondit
  90 hi def link papp_gettext        String
  91
  92 let b:current_syntax = "papp"