share/vim/vim58/syntax/wml.vim

   1 " Vim syntax file
   2 " Language:     WML
   3 " Maintainer:   Gerfried Fuchs <alfie@ist.org>
   4 " Filenames:    *.wml
   5 " Last Change:  30 Apr 2001
   6 " URL:          http://alfie.ist.org/vim/syntax/wml.vim
   7 "
   8 " Original Version: Craig Small <csmall@eye-net.com.au>
   9 "
  10 " Comments are very welcome - but please make sure that you are commenting on
  11 " the latest version of this file.
  12 " SPAM is _NOT_ welcome - be ready to be reported!
  13
  14
  15 " For version 5.x: Clear all syntax items
  16 " For version 6.x: Quit when a syntax file was already loaded
  17 if version < 600
  18   syn clear
  19 elseif exists("b:current_syntax")
  20   finish
  21 endif
  22
  23
  24 " A lot of the web stuff looks like HTML so we load that first
  25 if version < 600
  26   so <sfile>:p:h/html.vim
  27 else
  28   runtime! syntax/html.vim
  29 endif
  30 unlet b:current_syntax
  31
  32 if !exists("main_syntax")
  33   let main_syntax = 'wml'
  34 endif
  35
  36 " Redfine htmlTag
  37 syn clear htmlTag
  38 syn region  htmlTag  start=+<[^/<]+ end=+>+  contains=htmlTagN,htmlString,htmlArg,htmlValue,htmlTagError,htmlEvent,htmlCssDefinition
  39
  40 "
  41 " Add in extra Arguments used by wml
  42 syn keyword htmlTagName contained gfont imgbg imgdot lowsrc
  43 syn keyword htmlTagName contained navbar:define navbar:header
  44 syn keyword htmlTagName contained navbar:footer navbar:prolog
  45 syn keyword htmlTagName contained navbar:epilog navbar:button
  46 syn keyword htmlTagName contained navbar:filter navbar:debug
  47 syn keyword htmlTagName contained navbar:render
  48 syn keyword htmlTagName contained preload rollover
  49 syn keyword htmlTagName contained space hspace vspace over
  50 syn keyword htmlTagName contained ps ds pi ein big sc spaced headline
  51 syn keyword htmlTagName contained ue subheadline zwue verbcode
  52 syn keyword htmlTagName contained isolatin pod sdf text url verbatim
  53 syn keyword htmlTagName contained xtable
  54 syn keyword htmlTagName contained csmap fsview import box
  55 syn keyword htmlTagName contained case:upper case:lower
  56 syn keyword htmlTagName contained grid cell info lang: logo page
  57 syn keyword htmlTagName contained set-var restore
  58 syn keyword htmlTagName contained array:push array:show set-var ifdef
  59 syn keyword htmlTagName contained say m4 symbol dump enter divert
  60 syn keyword htmlTagName contained toc
  61 syn keyword htmlTagName contained wml card do refresh oneevent catch spawn
  62
  63 "
  64 " The wml arguments
  65 syn keyword htmlArg contained adjust background base bdcolor bdspace
  66 syn keyword htmlArg contained bdwidth complete copyright created crop
  67 syn keyword htmlArg contained direction description domainname eperlfilter
  68 syn keyword htmlArg contained file hint imgbase imgstar interchar interline
  69 syn keyword htmlArg contained keephr keepindex keywords layout spacing
  70 syn keyword htmlArg contained padding nonetscape noscale notag notypo
  71 syn keyword htmlArg contained onload oversrc pos select slices style
  72 syn keyword htmlArg contained subselected txtcol_select txtcol_normal
  73 syn keyword htmlArg contained txtonly via
  74 syn keyword htmlArg contained mode columns localsrc ordered
  75
  76
  77 " Lines starting with an # are usually comments
  78 syn match   wmlComment     "^\s*#.*"
  79 " The different exceptions to comments
  80 syn match   wmlSharpBang   "^#!.*"
  81 syn match   wmlUsed        contained "\s\s*[A-Za-z:]*"
  82 syn match   wmlUse         "^\s*#\s*use\s*" contains=wmlUsed
  83 syn match   wmlInclude     "^\s*#\s*include.*"
  84
  85 syn region  wmlBody        contained start=+<<+ end=+>>+
  86
  87 syn match   wmlLocationId  contained "[A-Za-z]\+"
  88 syn region  wmlLocation    start=+<<+ end=+>>+ contains=wmlLocationId
  89 "syn region  wmlLocation    start=+{#+ end=+#}+ contains=wmlLocationId
  90 "syn region  wmlLocationed  contained start=+<<+ end=+>>+ contains=wmlLocationId
  91
  92 syn match   wmlDivert      "\.\.[a-zA-Z_]\+>>"
  93 syn match   wmlDivertEnd   "<<\.\."
  94 " new version
  95 "syn match   wmlDivert      "{#[a-zA-Z_]\+#:"
  96 "syn match   wmlDivertEnd   ":##}"
  97
  98 syn match   wmlDefineName  contained "\s\+[A-Za-z-]\+"
  99 syn region  htmlTagName    start="\<\(define-tag\|define-region\)" end="\>" contains=wmlDefineName
 100
 101 " The perl include stuff
 102 if main_syntax != 'perl'
 103   " Perl script
 104   if version < 600
 105     syn include @wmlPerlScript <sfile>:p:h/perl.vim
 106   else
 107     syn include @wmlPerlScript syntax/perl.vim
 108   endif
 109   syn region perlScript   start=+<perl>+ keepend end=+</perl>+ contains=@wmlPerlScript,wmlPerlTag
 110 " eperl between '<:' and ':>'  -- Alfie [1999-12-26]
 111   syn region perlScript   start=+<:+ keepend end=+:>+ contains=@wmlPerlScript,wmlPerlTag
 112   syn match    wmlPerlTag  contained "</*perl>" contains=wmlPerlTagN
 113   "syn match   wmlPerlTag  contained "</perl>" contains=wmlPerlTagN
 114   syn keyword  wmlPerlTagN contained perl
 115
 116   hi link   wmlPerlTag  htmlTag
 117   hi link   wmlPerlTagN htmlStatement
 118 endif
 119
 120 if main_syntax == "html"
 121   syn sync match wmlHighlight groupthere NONE "</a-zA-Z]"
 122   syn sync match wmlHighlight groupthere perlScript "<perl>"
 123   syn sync match wmlHighlightSkip "^.*['\"].*$"
 124   syn sync minlines=10
 125 endif
 126
 127 " Define the default highlighting.
 128 " For version 5.7 and earlier: only when not done already
 129 " For version 5.8 and later: only when an item doesn't have highlighting yet
 130 if version >= 508 || !exists("did_wml_syn_inits")
 131   let did_wml_syn_inits = 1
 132   if version < 508
 133     let did_wml_syn_inits = 1
 134     command -nargs=+ HiLink hi link <args>
 135   else
 136     command -nargs=+ HiLink hi def link <args>
 137   endif
 138
 139   HiLink wmlUse         Include
 140   HiLink wmlUsed        String
 141   HiLink wmlBody        Special
 142   HiLink wmlDiverted    Label
 143   HiLink wmlDivert      Delimiter
 144   HiLink wmlDivertEnd   Delimiter
 145   HiLink wmlLocationId  Label
 146   HiLink wmlLocation    Delimiter
 147 " HiLink wmlLocationed  Delimiter
 148   HiLink wmlDefineName  String
 149   HiLink wmlComment     Comment
 150   HiLink wmlInclude     Include
 151   HiLink wmlSharpBang   PreProc
 152
 153   delcommand HiLink
 154 endif
 155
 156 let b:current_syntax = "wml"