@@ -77,7 +77,7 @@ syn match ocamlKwErr "\<\(mutable\|nonrec\|of\|private\)\>"
77
77
syn cluster ocamlAllErrs contains =@ocamlAENoParen,ocamlParenErr
78
78
syn cluster ocamlAENoParen contains =ocamlBraceErr,ocamlBrackErr,ocamlCountErr,ocamlDoErr,ocamlDoneErr,ocamlEndErr,ocamlThenErr,ocamlKwErr
79
79
80
- syn cluster ocamlContained contains =ocamlTodo,ocamlPreDef,ocamlModParam,ocamlModParam1,ocamlMPRestr ,ocamlModRHS,ocamlFuncWith,ocamlModTypeRestr,ocamlModTRWith,ocamlWith,ocamlWithRest,ocamlModType ,ocamlFullMod,ocamlVal
80
+ syn cluster ocamlContained contains =ocamlTodo,ocamlPreDef,ocamlModParam,ocamlModParam1,ocamlModTypePre ,ocamlModRHS,ocamlFuncWith,ocamlModTypeRestr,ocamlModTRWith,ocamlWith,ocamlWithRest,ocamlFullMod,ocamlVal
81
81
82
82
83
83
" Enclosing delimiters
@@ -129,16 +129,17 @@ syn match ocamlKeyword "\<include\>" skipwhite skipempty nextgroup=ocamlModPa
129
129
130
130
" "module" - somewhat complicated stuff ;-)
131
131
syn region ocamlModule matchgroup =ocamlKeyword start =" \< module\> " matchgroup =ocamlModule end =" \<\u\(\w\| '\) *\> " contains =@ocamlAllErrs,ocamlComment skipwhite skipempty nextgroup =ocamlPreDef
132
- syn region ocamlPreDef start =" ." me =e - 1 end =" [a-z:=)]\@ =" contained contains =@ocamlAllErrs,ocamlComment,ocamlModParam,ocamlGenMod,ocamlModTypeRestr nextgroup =ocamlMPRestr ,ocamlModPreRHS
132
+ syn region ocamlPreDef start =" ." me =e - 1 end =" [a-z:=)]\@ =" contained contains =@ocamlAllErrs,ocamlComment,ocamlModParam,ocamlGenMod,ocamlModTypeRestr nextgroup =ocamlModTypePre ,ocamlModPreRHS
133
133
syn region ocamlModParam start =" (\*\@ !" end =" )" contained contains =ocamlGenMod,ocamlModParam,ocamlModParam1,ocamlSig,ocamlVal
134
134
syn match ocamlModParam1 " \<\u\(\w\| '\) *\> " contained skipwhite skipempty
135
135
syn match ocamlGenMod " ()" contained skipwhite skipempty
136
136
137
- syn match ocamlMPRestr " :" contained skipwhite skipempty nextgroup =ocamlModTRWith,ocamlSig,ocamlMPRestr2 ,ocamlModTypeRestr,ocamlModTypeOf
137
+ syn match ocamlModTypePre " :" contained skipwhite skipempty nextgroup =ocamlModTRWith,ocamlSig,ocamlFunctor ,ocamlModTypeRestr,ocamlModTypeOf
138
138
syn match ocamlModTypeRestr " \<\w\(\w\| '\) *\( *\. *\w\(\w\| '\) *\) *\> " contained
139
+
139
140
syn match ocamlModPreRHS " =" contained skipwhite skipempty nextgroup =ocamlModParam,ocamlFullMod
140
141
syn keyword ocamlKeyword val
141
- syn region ocamlVal matchgroup =ocamlKeyword start =" \< val\> " matchgroup =ocamlLCIdentifier end =" \<\l\(\w\| '\) *\> " contains =@ocamlAllErrs,ocamlComment,ocamlFullMod skipwhite skipempty nextgroup =ocamlMPRestr
142
+ syn region ocamlVal matchgroup =ocamlKeyword start =" \< val\> " matchgroup =ocamlLCIdentifier end =" \<\l\(\w\| '\) *\> " contains =@ocamlAllErrs,ocamlComment,ocamlFullMod skipwhite skipempty nextgroup =ocamlModTypePre
142
143
syn region ocamlModRHS start =" ." end =" . *\w\| ([^*]" me =e - 2 contained contains =ocamlComment skipwhite skipempty nextgroup =ocamlModParam,ocamlFullMod
143
144
syn match ocamlFullMod " \<\u\(\w\| '\) *\( *\. *\u\(\w\| '\) *\) *" contained skipwhite skipempty nextgroup =ocamlFuncWith
144
145
@@ -155,7 +156,7 @@ syn region ocamlStruct matchgroup=ocamlStructEncl start="\<\(module\s\+\)\=str
155
156
syn region ocamlSig matchgroup =ocamlSigEncl start =" \< sig\> " matchgroup =ocamlSigEncl end =" \< end\> " contains =ALLBUT,@ocamlContained,ocamlEndErr
156
157
157
158
" "functor"
158
- syn region ocamlMPRestr2 start =" \< functor\> " matchgroup =ocamlKeyword end =" ->" contains =@ocamlAllErrs,ocamlComment,ocamlModParam,ocamlGenMod skipwhite skipempty nextgroup =ocamlStruct,ocamlSig,ocamlFuncWith,ocamlMPRestr2
159
+ syn region ocamlFunctor start =" \< functor\> " matchgroup =ocamlKeyword end =" ->" contains =@ocamlAllErrs,ocamlComment,ocamlModParam,ocamlGenMod skipwhite skipempty nextgroup =ocamlStruct,ocamlSig,ocamlFuncWith,ocamlFunctor
159
160
160
161
" "module type"
161
162
syn region ocamlModTypeOf start =" \< module\s\+ type\(\s\+ of\)\=\> " matchgroup =ocamlModule end =" \<\w\(\w\| '\) *\> " contains =ocamlComment skipwhite skipempty nextgroup =ocamlMTDef
@@ -582,7 +583,6 @@ hi def link ocamlObject Include
582
583
hi def link ocamlModule Include
583
584
hi def link ocamlModParam1 Include
584
585
hi def link ocamlGenMod Include
585
- hi def link ocamlModType Include
586
586
hi def link ocamlFullMod Include
587
587
hi def link ocamlFuncWith Include
588
588
hi def link ocamlModParam Include
@@ -599,7 +599,7 @@ hi def link ocamlEmptyConstructor ocamlConstructor
599
599
600
600
hi def link ocamlVal Keyword
601
601
hi def link ocamlModPreRHS Keyword
602
- hi def link ocamlMPRestr2 Keyword
602
+ hi def link ocamlFunctor Keyword
603
603
hi def link ocamlModTypeOf Keyword
604
604
hi def link ocamlKeyword Keyword
605
605
hi def link ocamlMethod Include
0 commit comments