Mercurial > hg > RemoteEditor > vim7

comparison runtime/syntax/papp.vim @ 0:76efa0be13f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author atsuki
date Sat, 10 Nov 2007 15:07:22 +0900
parents
children c16898406ff2
comparison
equal deleted inserted replaced
-1:000000000000 0:76efa0be13f1
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"