1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
" Vim syntax file
" Language: MEL (Maya Extension Language)
" Maintainer: Robert Minsk <egbert@centropolisfx.com>
" Last Change: May 27 1999
" Based on: Bram Moolenaar <Bram@vim.org> C syntax file
" quit when a syntax file was already loaded
if exists("b:current_syntax")
finish
endif
" when wanted, highlight trailing white space and spaces before tabs
if exists("mel_space_errors")
sy match melSpaceError "\s\+$"
sy match melSpaceError " \+\t"me=e-1
endif
" A bunch of usefull MEL keyworks
sy keyword melBoolean true false yes no on off
sy keyword melFunction proc
sy match melIdentifier "\$\(\a\|_\)\w*"
sy keyword melStatement break continue return
sy keyword melConditional if else switch
sy keyword melRepeat while for do in
sy keyword melLabel case default
sy keyword melOperator size eval env exists whatIs
sy keyword melKeyword alias
sy keyword melException catch error warning
sy keyword melInclude source
sy keyword melType int float string vector matrix
sy keyword melStorageClass global
sy keyword melDebug trace
sy keyword melTodo contained TODO FIXME XXX
" MEL data types
sy match melCharSpecial contained "\\[ntr\\"]"
sy match melCharError contained "\\[^ntr\\"]"
sy region melString start=+"+ skip=+\\"+ end=+"+ contains=melCharSpecial,melCharError
sy case ignore
sy match melInteger "\<\d\+\(e[-+]\=\d\+\)\=\>"
sy match melFloat "\<\d\+\(e[-+]\=\d\+\)\=f\>"
sy match melFloat "\<\d\+\.\d*\(e[-+]\=\d\+\)\=f\=\>"
sy match melFloat "\.\d\+\(e[-+]\=\d\+\)\=f\=\>"
sy case match
sy match melCommaSemi contained "[,;]"
sy region melMatrixVector start=/<</ end=/>>/ contains=melInteger,melFloat,melIdentifier,melCommaSemi
sy cluster melGroup contains=melFunction,melStatement,melConditional,melLabel,melKeyword,melStorageClass,melTODO,melCharSpecial,melCharError,melCommaSemi
" catch errors caused by wrong parenthesis
sy region melParen transparent start='(' end=')' contains=ALLBUT,@melGroup,melParenError,melInParen
sy match melParenError ")"
sy match melInParen contained "[{}]"
" comments
sy region melComment start="/\*" end="\*/" contains=melTodo,melSpaceError
sy match melComment "//.*" contains=melTodo,melSpaceError
sy match melCommentError "\*/"
sy region melQuestionColon matchgroup=melConditional transparent start='?' end=':' contains=ALLBUT,@melGroup
if !exists("mel_minlines")
let mel_minlines=15
endif
exec "sy sync ccomment melComment minlines=" . mel_minlines
" Define the default highlighting.
" Only when an item doesn't have highlighting yet
hi def link melBoolean Boolean
hi def link melFunction Function
hi def link melIdentifier Identifier
hi def link melStatement Statement
hi def link melConditional Conditional
hi def link melRepeat Repeat
hi def link melLabel Label
hi def link melOperator Operator
hi def link melKeyword Keyword
hi def link melException Exception
hi def link melInclude Include
hi def link melType Type
hi def link melStorageClass StorageClass
hi def link melDebug Debug
hi def link melTodo Todo
hi def link melCharSpecial SpecialChar
hi def link melString String
hi def link melInteger Number
hi def link melFloat Float
hi def link melMatrixVector Float
hi def link melComment Comment
hi def link melError Error
hi def link melSpaceError melError
hi def link melCharError melError
hi def link melParenError melError
hi def link melInParen melError
hi def link melCommentError melError
let b:current_syntax = "mel"
|
