" Vim syntax file
" Language: MS IDL (Microsoft dialect of Interface Description Language)
" Maintainer: Vadim Zeitlin <vadim@wxwindows.org>
" Last Change: 2012 Feb 12 by Thilo Six
" quit when a syntax file was already loaded
if exists("b:current_syntax")
finish
endif
let s:cpo_save = &cpo
set cpo&vim
" Misc basic
syn match msidlId "[a-zA-Z][a-zA-Z0-9_]*"
syn match msidlUUID "{\?[[:xdigit:]]\{8}-\([[:xdigit:]]\{4}-\)\{3}[[:xdigit:]]\{12}}\?"
syn region msidlString start=/"/ skip=/\\\(\\\\\)*"/ end=/"/
syn match msidlLiteral "\d\+\(\.\d*\)\="
syn match msidlLiteral "\.\d\+"
syn match msidlSpecial contained "[]\[{}:]"
" Comments
syn keyword msidlTodo contained TODO FIXME XXX
syn region msidlComment start="/\*" end="\*/" contains=msidlTodo
syn match msidlComment "//.*" contains=msidlTodo
syn match msidlCommentError "\*/"
" C style Preprocessor
syn region msidlIncluded contained start=+"+ skip=+\\\(\\\\\)*"+ end=+"+
syn match msidlIncluded contained "<[^>]*>"
syn match msidlInclude "^[ \t]*#[ \t]*include\>[ \t]*["<]" contains=msidlIncluded,msidlString
syn region msidlPreCondit start="^[ \t]*#[ \t]*\(if\>\|ifdef\>\|ifndef\>\|elif\>\|else\>\|endif\>\)" skip="\\$" end="$" contains=msidlComment,msidlCommentError
syn region msidlDefine start="^[ \t]*#[ \t]*\(define\>\|undef\>\)" skip="\\$" end="$" contains=msidlLiteral, msidlString
" Attributes
syn keyword msidlAttribute contained in out propget propput propputref retval
syn keyword msidlAttribute contained aggregatable appobject binadable coclass control custom default defaultbind defaultcollelem defaultvalue defaultvtable dispinterface displaybind dual entry helpcontext helpfile helpstring helpstringdll hidden id immediatebind lcid library licensed nonbrowsable noncreatable nonextensible oleautomation optional object public readonly requestedit restricted source string uidefault usesgetlasterror vararg version
syn match msidlAttribute /uuid(.*)/he=s+4 contains=msidlUUID
syn match msidlAttribute /helpstring(.*)/he=s+10 contains=msidlString
syn region msidlAttributes start="\[" end="]" keepend contains=msidlSpecial,msidlString,msidlAttribute,msidlComment,msidlCommentError
" Keywords
syn keyword msidlEnum enum
syn keyword msidlImport import importlib
syn keyword msidlStruct interface library coclass
syn keyword msidlTypedef typedef
" Types
syn keyword msidlStandardType byte char double float hyper int long short void wchar_t
syn keyword msidlStandardType BOOL BSTR HRESULT VARIANT VARIANT_BOOL
syn region msidlSafeArray start="SAFEARRAY(" end=")" contains=msidlStandardType
syn sync lines=50
" Define the default highlighting.
" Only when an item doesn't have highlighting yet
hi def link msidlInclude Include
hi def link msidlPreProc PreProc
hi def link msidlPreCondit PreCondit
hi def link msidlDefine Macro
hi def link msidlIncluded String
hi def link msidlString String
hi def link msidlComment Comment
hi def link msidlTodo Todo
hi def link msidlSpecial SpecialChar
hi def link msidlLiteral Number
hi def link msidlUUID Number
hi def link msidlImport Include
hi def link msidlEnum StorageClass
hi def link msidlStruct Structure
hi def link msidlTypedef Typedef
hi def link msidlAttribute StorageClass
hi def link msidlStandardType Type
hi def link msidlSafeArray Type
let b:current_syntax = "msidl"
let &cpo = s:cpo_save
unlet s:cpo_save
" vi: set ts=8 sw=4:
|