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