mirror of
https://github.com/sheerun/vim-polyglot.git
synced 2025-11-13 05:53:50 -05:00
Add syntax files from upstream vim repository
This commit is contained in:
Adam Stankiewicz
221
syntax/sml.vim
Normal file
221
syntax/sml.vim
Normal file
@@ -0,0 +1,221 @@
|
||||
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
|
||||
Reference in New Issue
Block a user