222 lines
9.2 KiB
VimL
222 lines
9.2 KiB
VimL
if !exists('g:polyglot_disabled') || index(g:polyglot_disabled, 'vim') == -1
|
|
|
|
" Vim syntax file
|
|
" Language: SML
|
|
" Filenames: *.sml *.sig
|
|
" Maintainers: Markus Mottl <markus.mottl@gmail.com>
|
|
" Fabrizio Zeno Cornelli <zeno@filibusta.crema.unimi.it>
|
|
" URL: http://www.ocaml.info/vim/syntax/sml.vim
|
|
" Last Change: 2006 Oct 23 - Fixed character highlighting bug (MM)
|
|
" 2002 Jun 02 - Fixed small typo (MM)
|
|
" 2001 Nov 20 - Fixed small highlighting bug with modules (MM)
|
|
|
|
" quit when a syntax file was already loaded
|
|
if exists("b:current_syntax")
|
|
finish
|
|
endif
|
|
|
|
" SML is case sensitive.
|
|
syn case match
|
|
|
|
" lowercase identifier - the standard way to match
|
|
syn match smlLCIdentifier /\<\(\l\|_\)\(\w\|'\)*\>/
|
|
|
|
syn match smlKeyChar "|"
|
|
|
|
" Errors
|
|
syn match smlBraceErr "}"
|
|
syn match smlBrackErr "\]"
|
|
syn match smlParenErr ")"
|
|
syn match smlCommentErr "\*)"
|
|
syn match smlThenErr "\<then\>"
|
|
|
|
" Error-highlighting of "end" without synchronization:
|
|
" as keyword or as error (default)
|
|
if exists("sml_noend_error")
|
|
syn match smlKeyword "\<end\>"
|
|
else
|
|
syn match smlEndErr "\<end\>"
|
|
endif
|
|
|
|
" Some convenient clusters
|
|
syn cluster smlAllErrs contains=smlBraceErr,smlBrackErr,smlParenErr,smlCommentErr,smlEndErr,smlThenErr
|
|
|
|
syn cluster smlAENoParen contains=smlBraceErr,smlBrackErr,smlCommentErr,smlEndErr,smlThenErr
|
|
|
|
syn cluster smlContained contains=smlTodo,smlPreDef,smlModParam,smlModParam1,smlPreMPRestr,smlMPRestr,smlMPRestr1,smlMPRestr2,smlMPRestr3,smlModRHS,smlFuncWith,smlFuncStruct,smlModTypeRestr,smlModTRWith,smlWith,smlWithRest,smlModType,smlFullMod
|
|
|
|
|
|
" Enclosing delimiters
|
|
syn region smlEncl transparent matchgroup=smlKeyword start="(" matchgroup=smlKeyword end=")" contains=ALLBUT,@smlContained,smlParenErr
|
|
syn region smlEncl transparent matchgroup=smlKeyword start="{" matchgroup=smlKeyword end="}" contains=ALLBUT,@smlContained,smlBraceErr
|
|
syn region smlEncl transparent matchgroup=smlKeyword start="\[" matchgroup=smlKeyword end="\]" contains=ALLBUT,@smlContained,smlBrackErr
|
|
syn region smlEncl transparent matchgroup=smlKeyword start="#\[" matchgroup=smlKeyword end="\]" contains=ALLBUT,@smlContained,smlBrackErr
|
|
|
|
|
|
" Comments
|
|
syn region smlComment start="(\*" end="\*)" contains=smlComment,smlTodo
|
|
syn keyword smlTodo contained TODO FIXME XXX
|
|
|
|
|
|
" let
|
|
syn region smlEnd matchgroup=smlKeyword start="\<let\>" matchgroup=smlKeyword end="\<end\>" contains=ALLBUT,@smlContained,smlEndErr
|
|
|
|
" local
|
|
syn region smlEnd matchgroup=smlKeyword start="\<local\>" matchgroup=smlKeyword end="\<end\>" contains=ALLBUT,@smlContained,smlEndErr
|
|
|
|
" abstype
|
|
syn region smlNone matchgroup=smlKeyword start="\<abstype\>" matchgroup=smlKeyword end="\<end\>" contains=ALLBUT,@smlContained,smlEndErr
|
|
|
|
" begin
|
|
syn region smlEnd matchgroup=smlKeyword start="\<begin\>" matchgroup=smlKeyword end="\<end\>" contains=ALLBUT,@smlContained,smlEndErr
|
|
|
|
" if
|
|
syn region smlNone matchgroup=smlKeyword start="\<if\>" matchgroup=smlKeyword end="\<then\>" contains=ALLBUT,@smlContained,smlThenErr
|
|
|
|
|
|
"" Modules
|
|
|
|
" "struct"
|
|
syn region smlStruct matchgroup=smlModule start="\<struct\>" matchgroup=smlModule end="\<end\>" contains=ALLBUT,@smlContained,smlEndErr
|
|
|
|
" "sig"
|
|
syn region smlSig matchgroup=smlModule start="\<sig\>" matchgroup=smlModule end="\<end\>" contains=ALLBUT,@smlContained,smlEndErr,smlModule
|
|
syn region smlModSpec matchgroup=smlKeyword start="\<structure\>" matchgroup=smlModule end="\<\u\(\w\|'\)*\>" contained contains=@smlAllErrs,smlComment skipwhite skipempty nextgroup=smlModTRWith,smlMPRestr
|
|
|
|
" "open"
|
|
syn region smlNone matchgroup=smlKeyword start="\<open\>" matchgroup=smlModule end="\<\u\(\w\|'\)*\(\.\u\(\w\|'\)*\)*\>" contains=@smlAllErrs,smlComment
|
|
|
|
" "structure" - somewhat complicated stuff ;-)
|
|
syn region smlModule matchgroup=smlKeyword start="\<\(structure\|functor\)\>" matchgroup=smlModule end="\<\u\(\w\|'\)*\>" contains=@smlAllErrs,smlComment skipwhite skipempty nextgroup=smlPreDef
|
|
syn region smlPreDef start="."me=e-1 matchgroup=smlKeyword end="\l\|="me=e-1 contained contains=@smlAllErrs,smlComment,smlModParam,smlModTypeRestr,smlModTRWith nextgroup=smlModPreRHS
|
|
syn region smlModParam start="([^*]" end=")" contained contains=@smlAENoParen,smlModParam1
|
|
syn match smlModParam1 "\<\u\(\w\|'\)*\>" contained skipwhite skipempty nextgroup=smlPreMPRestr
|
|
|
|
syn region smlPreMPRestr start="."me=e-1 end=")"me=e-1 contained contains=@smlAllErrs,smlComment,smlMPRestr,smlModTypeRestr
|
|
|
|
syn region smlMPRestr start=":" end="."me=e-1 contained contains=@smlComment skipwhite skipempty nextgroup=smlMPRestr1,smlMPRestr2,smlMPRestr3
|
|
syn region smlMPRestr1 matchgroup=smlModule start="\ssig\s\=" matchgroup=smlModule end="\<end\>" contained contains=ALLBUT,@smlContained,smlEndErr,smlModule
|
|
syn region smlMPRestr2 start="\sfunctor\(\s\|(\)\="me=e-1 matchgroup=smlKeyword end="->" contained contains=@smlAllErrs,smlComment,smlModParam skipwhite skipempty nextgroup=smlFuncWith
|
|
syn match smlMPRestr3 "\w\(\w\|'\)*\(\.\w\(\w\|'\)*\)*" contained
|
|
syn match smlModPreRHS "=" contained skipwhite skipempty nextgroup=smlModParam,smlFullMod
|
|
syn region smlModRHS start="." end=".\w\|([^*]"me=e-2 contained contains=smlComment skipwhite skipempty nextgroup=smlModParam,smlFullMod
|
|
syn match smlFullMod "\<\u\(\w\|'\)*\(\.\u\(\w\|'\)*\)*" contained skipwhite skipempty nextgroup=smlFuncWith
|
|
|
|
syn region smlFuncWith start="([^*]"me=e-1 end=")" contained contains=smlComment,smlWith,smlFuncStruct
|
|
syn region smlFuncStruct matchgroup=smlModule start="[^a-zA-Z]struct\>"hs=s+1 matchgroup=smlModule end="\<end\>" contains=ALLBUT,@smlContained,smlEndErr
|
|
|
|
syn match smlModTypeRestr "\<\w\(\w\|'\)*\(\.\w\(\w\|'\)*\)*\>" contained
|
|
syn region smlModTRWith start=":\s*("hs=s+1 end=")" contained contains=@smlAENoParen,smlWith
|
|
syn match smlWith "\<\(\u\(\w\|'\)*\.\)*\w\(\w\|'\)*\>" contained skipwhite skipempty nextgroup=smlWithRest
|
|
syn region smlWithRest start="[^)]" end=")"me=e-1 contained contains=ALLBUT,@smlContained
|
|
|
|
" "signature"
|
|
syn region smlKeyword start="\<signature\>" matchgroup=smlModule end="\<\w\(\w\|'\)*\>" contains=smlComment skipwhite skipempty nextgroup=smlMTDef
|
|
syn match smlMTDef "=\s*\w\(\w\|'\)*\>"hs=s+1,me=s
|
|
|
|
syn keyword smlKeyword and andalso case
|
|
syn keyword smlKeyword datatype else eqtype
|
|
syn keyword smlKeyword exception fn fun handle
|
|
syn keyword smlKeyword in infix infixl infixr
|
|
syn keyword smlKeyword match nonfix of orelse
|
|
syn keyword smlKeyword raise handle type
|
|
syn keyword smlKeyword val where while with withtype
|
|
|
|
syn keyword smlType bool char exn int list option
|
|
syn keyword smlType real string unit
|
|
|
|
syn keyword smlOperator div mod not or quot rem
|
|
|
|
syn keyword smlBoolean true false
|
|
syn match smlConstructor "(\s*)"
|
|
syn match smlConstructor "\[\s*\]"
|
|
syn match smlConstructor "#\[\s*\]"
|
|
syn match smlConstructor "\u\(\w\|'\)*\>"
|
|
|
|
" Module prefix
|
|
syn match smlModPath "\u\(\w\|'\)*\."he=e-1
|
|
|
|
syn match smlCharacter +#"\\""\|#"."\|#"\\\d\d\d"+
|
|
syn match smlCharErr +#"\\\d\d"\|#"\\\d"+
|
|
syn region smlString start=+"+ skip=+\\\\\|\\"+ end=+"+
|
|
|
|
syn match smlFunDef "=>"
|
|
syn match smlRefAssign ":="
|
|
syn match smlTopStop ";;"
|
|
syn match smlOperator "\^"
|
|
syn match smlOperator "::"
|
|
syn match smlAnyVar "\<_\>"
|
|
syn match smlKeyChar "!"
|
|
syn match smlKeyChar ";"
|
|
syn match smlKeyChar "\*"
|
|
syn match smlKeyChar "="
|
|
|
|
syn match smlNumber "\<-\=\d\+\>"
|
|
syn match smlNumber "\<-\=0[x|X]\x\+\>"
|
|
syn match smlReal "\<-\=\d\+\.\d*\([eE][-+]\=\d\+\)\=[fl]\=\>"
|
|
|
|
" Synchronization
|
|
syn sync minlines=20
|
|
syn sync maxlines=500
|
|
|
|
syn sync match smlEndSync grouphere smlEnd "\<begin\>"
|
|
syn sync match smlEndSync groupthere smlEnd "\<end\>"
|
|
syn sync match smlStructSync grouphere smlStruct "\<struct\>"
|
|
syn sync match smlStructSync groupthere smlStruct "\<end\>"
|
|
syn sync match smlSigSync grouphere smlSig "\<sig\>"
|
|
syn sync match smlSigSync groupthere smlSig "\<end\>"
|
|
|
|
" Define the default highlighting.
|
|
" Only when an item doesn't have highlighting yet
|
|
|
|
hi def link smlBraceErr Error
|
|
hi def link smlBrackErr Error
|
|
hi def link smlParenErr Error
|
|
|
|
hi def link smlCommentErr Error
|
|
|
|
hi def link smlEndErr Error
|
|
hi def link smlThenErr Error
|
|
|
|
hi def link smlCharErr Error
|
|
|
|
hi def link smlComment Comment
|
|
|
|
hi def link smlModPath Include
|
|
hi def link smlModule Include
|
|
hi def link smlModParam1 Include
|
|
hi def link smlModType Include
|
|
hi def link smlMPRestr3 Include
|
|
hi def link smlFullMod Include
|
|
hi def link smlModTypeRestr Include
|
|
hi def link smlWith Include
|
|
hi def link smlMTDef Include
|
|
|
|
hi def link smlConstructor Constant
|
|
|
|
hi def link smlModPreRHS Keyword
|
|
hi def link smlMPRestr2 Keyword
|
|
hi def link smlKeyword Keyword
|
|
hi def link smlFunDef Keyword
|
|
hi def link smlRefAssign Keyword
|
|
hi def link smlKeyChar Keyword
|
|
hi def link smlAnyVar Keyword
|
|
hi def link smlTopStop Keyword
|
|
hi def link smlOperator Keyword
|
|
|
|
hi def link smlBoolean Boolean
|
|
hi def link smlCharacter Character
|
|
hi def link smlNumber Number
|
|
hi def link smlReal Float
|
|
hi def link smlString String
|
|
hi def link smlType Type
|
|
hi def link smlTodo Todo
|
|
hi def link smlEncl Keyword
|
|
|
|
|
|
let b:current_syntax = "sml"
|
|
|
|
" vim: ts=8
|
|
|
|
endif
|