Mercurial > vim

comparison runtime/ftplugin/modula2.vim @ 34092:ff27442e7851 v9.1.0013

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 9.1.0013: Modula2 filetype support lacking Commit: https://github.com/vim/vim/commit/68a89470693c7687d4e736ca056c05de632e3ac7 Author: Doug Kearns <dougkearns@gmail.com> Date: Fri Jan 5 17:59:04 2024 +0100 patch 9.1.0013: Modula2 filetype support lacking Problem: Modula2 filetype support lacking Solution: Improve the Modula-2 runtime support, add additional modula2 dialects, add compiler plugin, update syntax highlighting, include syntax tests, update Makefiles (Doug Kearns) closes: #6796 closes: #8115 Signed-off-by: Doug Kearns <dougkearns@gmail.com> Signed-off-by: Benjamin Kowarsch <trijezdci@users.noreply.github.com> Signed-off-by: Christian Brabandt <cb@256bit.org>
author Christian Brabandt <cb@256bit.org>
date Fri, 05 Jan 2024 18:15:04 +0100
parents 9f41bfdbc6fc
children 8ae680be2a51
comparison
equal deleted inserted replaced
34091:27bd5d0816e0 34092:ff27442e7851
9 let b:did_ftplugin = 1 9 let b:did_ftplugin = 1
10 10
11 let s:cpo_save = &cpo 11 let s:cpo_save = &cpo
12 set cpo&vim 12 set cpo&vim
13 13
14 setlocal comments=s0:(*,mb:\ ,ex:*) 14 let s:dialect = modula2#GetDialect()
15 setlocal commentstring=(*%s*) 15
16 if s:dialect ==# "r10"
17 setlocal comments=s:(*,m:\ ,e:*),:!
18 setlocal commentstring=!\ %s
19 else
20 setlocal commentstring=(*%s*)
21 setlocal comments=s:(*,m:\ ,e:*)
22 endif
16 setlocal formatoptions-=t formatoptions+=croql 23 setlocal formatoptions-=t formatoptions+=croql
17 24
25 let b:undo_ftplugin = "setl com< cms< fo<"
26
18 if exists("loaded_matchit") && !exists("b:match_words") 27 if exists("loaded_matchit") && !exists("b:match_words")
19 " The second branch of the middle pattern is intended to match CASE labels 28 let b:match_ignorecase = 0
29 " the second branch of the middle pattern is intended to match CASE labels
20 let b:match_words = '\<REPEAT\>:\<UNTIL\>,' .. 30 let b:match_words = '\<REPEAT\>:\<UNTIL\>,' ..
21 \ '\<\%(BEGIN\|CASE\|FOR\|IF\|LOOP\|WHILE\|WITH\)\>' .. 31 \ '\<\%(BEGIN\|CASE\|FOR\|IF\|LOOP\|WHILE\|WITH\|RECORD\)\>' ..
22 \ ':' .. 32 \ ':' ..
23 \ '\<\%(ELSIF\|ELSE\)\>\|\%(^\s*\)\@<=\w\+\%(\s*\,\s*\w\+\)\=\s*\:=\@!' .. 33 \ '\<\%(ELSIF\|ELSE\)\>\|\%(^\s*\)\@<=\w\+\%(\s*\,\s*\w\+\)\=\s*\:=\@!' ..
24 \ ':' .. 34 \ ':' ..
25 \ '\<END\>' 35 \ '\<END\>,' ..
36 \ '(\*:\*),<\*:\*>'
37 let b:match_skip = 's:Comment\|Pragma'
38 let b:undo_ftplugin ..= " | unlet! b:match_ignorecase b:match_skip b:match_words"
26 endif 39 endif
27 40
28 if (has("gui_win32") || has("gui_gtk")) && !exists("b:browsefilter") 41 if (has("gui_win32") || has("gui_gtk")) && !exists("b:browsefilter")
29 let b:browsefilter = "Modula-2 Source Files (*.def *.mod)\t*.def;*.mod\n" .. 42 let b:browsefilter = "Modula-2 Source Files (*.def *.mod)\t*.def;*.mod\n" ..
30 \ "All Files (*.*)\t*.*\n" 43 \ "All Files (*.*)\t*.*\n"
44 let b:undo_ftplugin ..= " | unlet! b:browsefilter"
31 endif 45 endif
32
33 let b:undo_ftplugin = "setl com< cms< fo< " ..
34 \ "| unlet! b:browsefilter b:match_words"
35 46
36 let &cpo = s:cpo_save 47 let &cpo = s:cpo_save
37 unlet s:cpo_save 48 unlet s:cpo_save
38 49
39 " vim: nowrap sw=2 sts=2 ts=8 noet: 50 " vim: nowrap sw=2 sts=2 ts=8 noet: