diff options
Diffstat (limited to 'mnv/runtime/syntax/sed.mnv')
| -rw-r--r-- | mnv/runtime/syntax/sed.mnv | 173 |
1 files changed, 173 insertions, 0 deletions
diff --git a/mnv/runtime/syntax/sed.mnv b/mnv/runtime/syntax/sed.mnv new file mode 100644 index 0000000000..aea5381d6c --- /dev/null +++ b/mnv/runtime/syntax/sed.mnv @@ -0,0 +1,173 @@ +" MNV syntax file +" Language: sed +" Maintainer: Doug Kearns <dougkearns@gmail.com> +" Previous Maintainer: Haakon Riiser <hakonrk@fys.uio.no> +" Contributor: Jack Haden-Enneking +" Last Change: 2026 Mar 06 + +" quit when a syntax file was already loaded +if exists("b:current_syntax") + finish +endif + +syn keyword sedTodo contained TODO FIXME XXX + +syn match sedError "\S" + +syn match sedWhitespace "\s\+" contained +syn match sedSemicolon ";" + +" Addresses {{{1 +syn match sedAddress "\d\+\|\$" + +" GNU extensions +syn match sedAddress "\d\+\~\d\+" +syn match sedAddress "\~\d\+" +syn match sedAddress "[-+]\d\+" + +syn region sedAddress + \ matchgroup=Delimiter + \ start="[{,;]\s*/\%(\\/\)\="lc=1 + \ skip="[^\\]\%(\\\\\)*\\/" + "\ GNU extensions + \ end="/\%(IM\|MI\|[IM]\)\=" + \ contains=sedTab,sedRegexpMeta +syn region sedAddress + \ matchgroup=Delimiter + \ start="^\s*/\%(\\/\)\=" + "\ GNU extensions + \ skip="[^\\]\%(\\\\\)*\\/" + \ end="/\%(IM\|MI\|[IM]\)\=" + \ contains=sedTab,sedRegexpMeta +" }}} + +syn match sedFunction "[dDgGhHlnNpPqQx=]\s*\%($\|;\)" contains=sedSemicolon,sedWhitespace +if exists("g:sed_dialect") && g:sed_dialect ==? "bsd" + syn match sedComment "^\s*#.*$" contains=sedTodo +else + syn match sedFunction "[dDgGhHlnNpPqQx=]\s*\ze#" contains=sedSemicolon,sedWhitespace + syn match sedComment "#.*$" contains=sedTodo +endif +syn match sedLabel ":[^;]*" +syn match sedLineCont "^\%(\\\\\)*\\$" contained +syn match sedLineCont "[^\\]\%(\\\\\)*\\$"ms=e contained +syn match sedSpecial "[{},!]" + +" continue to silently support the old name +let s:highlight_tabs = v:false +if exists("g:highlight_sedtabs") || get(g:, "sed_highlight_tabs", 0) + let s:highlight_tabs = v:true + syn match sedTab "\t" contained +endif + +" Append/Change/Insert +syn region sedACI matchgroup=sedFunction start="[aci]\\$" matchgroup=NONE end="^.*$" contains=sedLineCont,sedTab + +syn region sedBranch matchgroup=sedFunction start="[bt]" matchgroup=sedSemicolon end=";\|$" contains=sedWhitespace +syn region sedRW matchgroup=sedFunction start="[rw]" matchgroup=sedSemicolon end=";\|$" contains=sedWhitespace + +" Substitution/transform with various delimiters +syn region sedFlagWrite matchgroup=sedFlag start="w" matchgroup=sedSemicolon end=";\|$" contains=sedWhitespace contained +syn match sedFlag "[[:digit:]gpI]*w\=" contains=sedFlagWrite contained +syn match sedRegexpMeta "[.*^$]" contained +syn match sedRegexpMeta "\\." contains=sedTab contained +syn match sedRegexpMeta "\[\^\=\]\=\%(\[:.\{-}:\]\|\[\..\{-}\.\]\|\[=.\{-}=\]\|[^]]\)*\]" contains=sedTab contained +syn match sedRegexpMeta "\\{\d\*,\d*\\}" contained +syn match sedRegexpMeta "\\%(.\{-}\\)" contains=sedTab contained +syn match sedReplaceMeta "&\|\\\%($\|.\)" contains=sedTab contained + +" Metacharacters: $ * . \ ^ [ ~ +" @ is used as delimiter and treated on its own below +let s:at = char2nr("@") +let s:i = char2nr(" ") " ASCII: 32, EBCDIC: 64 +if has("ebcdic") + let s:last = 255 +else + let s:last = 126 +endif +let s:metacharacters = '$*.\^[~' +while s:i <= s:last + let s:delimiter = escape(nr2char(s:i), s:metacharacters) + if s:i != s:at + exe 'syn region sedAddress' + \ 'matchgroup=Delimiter' + \ 'start=@\\' .. s:delimiter .. '\%(\\' .. s:delimiter .. '\)\=@' + \ 'skip=@[^\\]\%(\\\\\)*\\' .. s:delimiter .. '\|\[.\{-}' .. s:delimiter .. '@' + \ 'end=@' .. s:delimiter .. '\%(IM\|MI\|[IM]\)\=@' + \ 'contains=sedTab,sedRegexpMeta' + exe 'syn region sedRegexp' .. s:i 'contained' + \ 'matchgroup=Delimiter' + \ 'start=@' .. s:delimiter .. '\%(\\\\\|\\' .. s:delimiter .. '\)*@' + \ 'end=@' .. s:delimiter .. '@me=e-1' + \ 'nextgroup=sedReplacement' .. s:i + \ 'contains=sedTab,sedRegexpMeta' + exe 'syn region sedReplacement' .. s:i 'contained' + \ 'matchgroup=Delimiter' + \ 'start=@' .. s:delimiter .. '\%(\\\\\|\\' .. s:delimiter .. '\)*@' + \ 'end=@' .. s:delimiter .. '@' + \ 'nextgroup=@sedFlags' + \ 'contains=sedTab,sedReplaceMeta' + endif + let s:i = s:i + 1 +endwhile +syn region sedAddress + \ matchgroup=Delimiter + \ start=+\\\z(@\)+ + \ end=+\z1\%(IM\|MI\|[IM]\)\=+ + \ contains=sedTab,sedRegexpMeta +syn region sedRegexp64 contained + \ matchgroup=Delimiter + \ start=+@\%(\\\\\|\\@\)*+ + \ end=+@+me=e-1 + \ nextgroup=sedReplacement64 + \ contains=sedTab,sedRegexpMeta +syn region sedReplacement64 contained + \ matchgroup=Delimiter + \ start=+@\%(\\\\\|\\@\)*+ + \ end=+@+ + \ nextgroup=sedFlag + \ contains=sedTab,sedReplaceMeta + +" Since the syntax for the substitution command is very similar to the +" syntax for the transform command, I use the same pattern matching +" for both commands. There is one problem -- the transform command +" (y) does not allow any flags. To save memory, I ignore this problem. +syn match sedST "[sy]" nextgroup=sedRegexp\d\+ + + +hi def link sedAddress Macro +hi def link sedACI NONE +hi def link sedBranch Label +hi def link sedComment Comment +hi def link sedDelete Function +hi def link sedError Error +hi def link sedFlag Type +hi def link sedFlagWrite Constant +hi def link sedFunction Function +hi def link sedLabel Label +hi def link sedLineCont Special +hi def link sedPutHoldspc Function +hi def link sedReplaceMeta Special +hi def link sedRegexpMeta Special +hi def link sedRW Constant +hi def link sedSemicolon Special +hi def link sedST Function +hi def link sedSpecial Special +hi def link sedTodo Todo +hi def link sedWhitespace NONE +if s:highlight_tabs + hi def link sedTab Todo +endif +let s:i = char2nr(" ") " ASCII: 32, EBCDIC: 64 +while s:i <= s:last + exe "hi def link sedRegexp" .. s:i "Macro" + exe "hi def link sedReplacement" .. s:i "NONE" + let s:i = s:i + 1 +endwhile + +unlet s:i s:last s:delimiter s:metacharacters s:at +unlet s:highlight_tabs + +let b:current_syntax = "sed" + +" mnv: nowrap sw=2 sts=2 ts=8 noet fdm=marker: |