diff options
Diffstat (limited to 'mnv/runtime/syntax/m4.mnv')
| -rw-r--r-- | mnv/runtime/syntax/m4.mnv | 105 |
1 files changed, 105 insertions, 0 deletions
diff --git a/mnv/runtime/syntax/m4.mnv b/mnv/runtime/syntax/m4.mnv new file mode 100644 index 0000000000..66162e15f8 --- /dev/null +++ b/mnv/runtime/syntax/m4.mnv @@ -0,0 +1,105 @@ +" MNV syntax file +" Language: M4 +" Maintainer: Claudio Fleiner (claudio@fleiner.com) +" Last Change: 2022 Jun 12 +" 2025 Sep 2 by MNV project: fix a few syntax issues #18192 +" 2025 Sep 5 by MNV project: introduce m4Disabled region #18200 +" 2025 Sep 6 by MNV project: remove m4Function heuristics #18211 +" 2025 Sep 6 by MNV project: remove m4Type and m4Function #18223 +" 2025 Sep 15 by MNV project: highlight m4Parameters #18306 + +" quit when a syntax file was already loaded +if !exists("main_syntax") + if exists("b:current_syntax") + finish + endif + " we define it here so that included files can test for it + let main_syntax='m4' +endif + +" Reference: The Open Group Base Specifications, M4 +" https://pubs.opengroup.org/onlinepubs/9799919799/ + +" Early definition of a cluster +syn cluster m4Top contains=NONE + +" Quoting in M4: +" – Quotes are nestable; +" – The delimiters can be redefined with changequote(); here we only handle +" the default pair: ` ... '; +" – Quoted text in M4 is rescanned, not treated as a literal string. +" Therefore the region is marked transparent so contained items retain +" their normal highlighting. +syn region m4Quoted + \ matchgroup=m4QuoteDelim + \ start=+`+ + \ end=+'+ + \ contains=@m4Top + \ transparent +syn cluster m4Top add=m4Quoted + +" Comments in M4: +" – According to the Open Group Base Specification, comments start with +" a <number-sign> (#) and end at <newline>, unless redefined with changecom(). +" We only handle the default here. +" – Comments in M4 are not like in most languages: they do not remove the text, +" they simply prevent any macros from being expanded, while the text remains +" in the output. This region therefore disables any other matches. +" – Comments themselves are disabled when quoted. +syn region m4Disabled start=+#+ end=+$+ containedin=ALLBUT,m4Quoted,m4ParamCount + +" Macros in M4: +" – Name tokens consist of the longest possible sequence of letters, digits, +" and underscores, where the first character is not a digit. +" – In GNU M4, this can be altered with changeword(). +" – Any name token may be defined as a macro and quoting prevents expansion. +" Thus correct highlighting requires running M4. + +" Parameters in M4: +" $0 = macro name; $1..$9 = positional (single digit only); $# = count; +" $* = args comma-joined; $@ = args quoted+comma; "${" = unspecified. +syn match m4ParamZero contained "\$0" +syn match m4ParamPos contained "\$[1-9]" +syn match m4ParamCount contained "\$#" +syn match m4ParamAll contained "\$[@*]" +syn match m4ParamBad contained '\${' +syn cluster m4Top add=m4ParamZero,m4ParamPos,m4ParamCount,m4ParamAll,m4ParamBad + +" define the rest of M4 syntax +syn match m4Comment "\<\(m4_\)\=dnl\>.*" contains=SpellErrors +syn match m4Constants "\<\(m4_\)\=__file__" +syn match m4Constants "\<\(m4_\)\=__line__" +syn keyword m4Constants divnum sysval m4_divnum m4_sysval +syn region m4Paren matchgroup=m4Delimiter start="(" end=")" contained contains=@m4Top +syn region m4Command matchgroup=m4Define start="\<\(m4_\)\=\(define\|defn\|pushdef\)(" end=")" contains=@m4Top +syn region m4Command matchgroup=m4Preproc start="\<\(m4_\)\=\(include\|sinclude\)("he=e-1 end=")" contains=@m4Top +syn region m4Command matchgroup=m4Statement start="\<\(m4_\)\=\(syscmd\|esyscmd\|ifdef\|ifelse\|indir\|builtin\|shift\|errprint\|m4exit\|changecom\|changequote\|changeword\|m4wrap\|debugfile\|divert\|undivert\)("he=e-1 end=")" contains=@m4Top +syn region m4Command matchgroup=m4Builtin start="\<\(m4_\)\=\(len\|index\|regexp\|substr\|translit\|patsubst\|format\|incr\|decr\|eval\|maketemp\)("he=e-1 end=")" contains=@m4Top +syn keyword m4Statement divert undivert +syn region m4Command matchgroup=m4Define start="\<\(m4_\)\=\(undefine\|popdef\)("he=e-1 end=")" contains=@m4Top +syn cluster m4Top add=m4Comment,m4Constants,m4Paren,m4Command,m4Statement + +" Define the default highlighting. +" Only when an item doesn't have highlighting yet +hi def link m4QuoteDelim Delimiter +hi def link m4Delimiter Delimiter +hi def link m4Comment Comment +hi def link m4ParamZero Macro +hi def link m4ParamPos Special +hi def link m4ParamCount Keyword +hi def link m4ParamAll Keyword +hi def link m4ParamBad Error +hi def link m4Keyword Keyword +hi def link m4Define Define +hi def link m4Statement Statement +hi def link m4Preproc PreProc +hi def link m4Constants Constant +hi def link m4Builtin Statement + +let b:current_syntax = "m4" + +if main_syntax == 'm4' + unlet main_syntax +endif + +" mnv: ts=4 |