annotate runtime/pack/dist/opt/matchit/autoload/matchit.vim @ 19574:d4deb2e50667

Update runtime files Commit: https://github.com/vim/vim/commit/eab6dff19f387469a200011bc6cf3508f5e43a4a Author: Bram Moolenaar <Bram@vim.org> Date: Sun Mar 1 19:06:45 2020 +0100 Update runtime files
author Bram Moolenaar <Bram@vim.org>
date Sun, 01 Mar 2020 19:15:04 +0100
parents 6d11fc4aa683
children f0d7cb510ce3
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
15735
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
1 " matchit.vim: (global plugin) Extended "%" matching
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
2 " autload script of matchit plugin, see ../plugin/matchit.vim
19574
d4deb2e50667 Update runtime files
Bram Moolenaar <Bram@vim.org>
parents: 18456
diff changeset
3 " Last Change: Mar 01, 2020
15735
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
4
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
5 let s:last_mps = ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
6 let s:last_words = ":"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
7 let s:patBR = ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
8
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
9 let s:save_cpo = &cpo
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
10 set cpo&vim
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
11
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
12 " Auto-complete mappings: (not yet "ready for prime time")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
13 " TODO Read :help write-plugin for the "right" way to let the user
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
14 " specify a key binding.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
15 " let g:match_auto = '<C-]>'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
16 " let g:match_autoCR = '<C-CR>'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
17 " if exists("g:match_auto")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
18 " execute "inoremap " . g:match_auto . ' x<Esc>"=<SID>Autocomplete()<CR>Pls'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
19 " endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
20 " if exists("g:match_autoCR")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
21 " execute "inoremap " . g:match_autoCR . ' <CR><C-R>=<SID>Autocomplete()<CR>'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
22 " endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
23 " if exists("g:match_gthhoh")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
24 " execute "inoremap " . g:match_gthhoh . ' <C-O>:call <SID>Gthhoh()<CR>'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
25 " endif " gthhoh = "Get the heck out of here!"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
26
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
27 let s:notslash = '\\\@1<!\%(\\\\\)*'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
28
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
29 function s:RestoreOptions()
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
30 " In s:CleanUp(), :execute "set" restore_options .
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
31 let restore_options = ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
32 if get(b:, 'match_ignorecase', &ic) != &ic
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
33 let restore_options .= (&ic ? " " : " no") . "ignorecase"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
34 let &ignorecase = b:match_ignorecase
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
35 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
36 if &ve != ''
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
37 let restore_options = " ve=" . &ve . restore_options
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
38 set ve=
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
39 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
40 return restore_options
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
41 endfunction
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
42
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
43 function matchit#Match_wrapper(word, forward, mode) range
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
44 let restore_options = s:RestoreOptions()
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
45 " If this function was called from Visual mode, make sure that the cursor
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
46 " is at the correct end of the Visual range:
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
47 if a:mode == "v"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
48 execute "normal! gv\<Esc>"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
49 elseif a:mode == "o" && mode(1) !~# '[vV]'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
50 exe "norm! v"
19574
d4deb2e50667 Update runtime files
Bram Moolenaar <Bram@vim.org>
parents: 18456
diff changeset
51 elseif a:mode == "n" && mode(1) =~# 'ni'
d4deb2e50667 Update runtime files
Bram Moolenaar <Bram@vim.org>
parents: 18456
diff changeset
52 exe "norm! v"
15735
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
53 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
54 " In s:CleanUp(), we may need to check whether the cursor moved forward.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
55 let startpos = [line("."), col(".")]
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
56 " Use default behavior if called with a count.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
57 if v:count
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
58 exe "normal! " . v:count . "%"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
59 return s:CleanUp(restore_options, a:mode, startpos)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
60 end
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
61
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
62 " First step: if not already done, set the script variables
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
63 " s:do_BR flag for whether there are backrefs
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
64 " s:pat parsed version of b:match_words
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
65 " s:all regexp based on s:pat and the default groups
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
66 if !exists("b:match_words") || b:match_words == ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
67 let match_words = ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
68 elseif b:match_words =~ ":"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
69 let match_words = b:match_words
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
70 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
71 " Allow b:match_words = "GetVimMatchWords()" .
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
72 execute "let match_words =" b:match_words
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
73 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
74 " Thanks to Preben "Peppe" Guldberg and Bram Moolenaar for this suggestion!
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
75 if (match_words != s:last_words) || (&mps != s:last_mps)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
76 \ || exists("b:match_debug")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
77 let s:last_mps = &mps
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
78 " quote the special chars in 'matchpairs', replace [,:] with \| and then
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
79 " append the builtin pairs (/*, */, #if, #ifdef, #ifndef, #else, #elif,
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
80 " #endif)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
81 let default = escape(&mps, '[$^.*~\\/?]') . (strlen(&mps) ? "," : "") .
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
82 \ '\/\*:\*\/,#\s*if\%(n\=def\)\=:#\s*else\>:#\s*elif\>:#\s*endif\>'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
83 " s:all = pattern with all the keywords
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
84 let match_words = match_words . (strlen(match_words) ? "," : "") . default
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
85 let s:last_words = match_words
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
86 if match_words !~ s:notslash . '\\\d'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
87 let s:do_BR = 0
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
88 let s:pat = match_words
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
89 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
90 let s:do_BR = 1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
91 let s:pat = s:ParseWords(match_words)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
92 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
93 let s:all = substitute(s:pat, s:notslash . '\zs[,:]\+', '\\|', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
94 " Just in case there are too many '\(...)' groups inside the pattern, make
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
95 " sure to use \%(...) groups, so that error E872 can be avoided
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
96 let s:all = substitute(s:all, '\\(', '\\%(', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
97 let s:all = '\%(' . s:all . '\)'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
98 if exists("b:match_debug")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
99 let b:match_pat = s:pat
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
100 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
101 " Reconstruct the version with unresolved backrefs.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
102 let s:patBR = substitute(match_words.',',
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
103 \ s:notslash.'\zs[,:]*,[,:]*', ',', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
104 let s:patBR = substitute(s:patBR, s:notslash.'\zs:\{2,}', ':', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
105 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
106
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
107 " Second step: set the following local variables:
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
108 " matchline = line on which the cursor started
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
109 " curcol = number of characters before match
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
110 " prefix = regexp for start of line to start of match
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
111 " suffix = regexp for end of match to end of line
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
112 " Require match to end on or after the cursor and prefer it to
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
113 " start on or before the cursor.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
114 let matchline = getline(startpos[0])
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
115 if a:word != ''
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
116 " word given
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
117 if a:word !~ s:all
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
118 echohl WarningMsg|echo 'Missing rule for word:"'.a:word.'"'|echohl NONE
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
119 return s:CleanUp(restore_options, a:mode, startpos)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
120 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
121 let matchline = a:word
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
122 let curcol = 0
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
123 let prefix = '^\%('
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
124 let suffix = '\)$'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
125 " Now the case when "word" is not given
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
126 else " Find the match that ends on or after the cursor and set curcol.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
127 let regexp = s:Wholematch(matchline, s:all, startpos[1]-1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
128 let curcol = match(matchline, regexp)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
129 " If there is no match, give up.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
130 if curcol == -1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
131 return s:CleanUp(restore_options, a:mode, startpos)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
132 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
133 let endcol = matchend(matchline, regexp)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
134 let suf = strlen(matchline) - endcol
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
135 let prefix = (curcol ? '^.*\%' . (curcol + 1) . 'c\%(' : '^\%(')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
136 let suffix = (suf ? '\)\%' . (endcol + 1) . 'c.*$' : '\)$')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
137 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
138 if exists("b:match_debug")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
139 let b:match_match = matchstr(matchline, regexp)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
140 let b:match_col = curcol+1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
141 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
142
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
143 " Third step: Find the group and single word that match, and the original
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
144 " (backref) versions of these. Then, resolve the backrefs.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
145 " Set the following local variable:
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
146 " group = colon-separated list of patterns, one of which matches
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
147 " = ini:mid:fin or ini:fin
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
148 "
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
149 " Now, set group and groupBR to the matching group: 'if:endif' or
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
150 " 'while:endwhile' or whatever. A bit of a kluge: s:Choose() returns
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
151 " group . "," . groupBR, and we pick it apart.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
152 let group = s:Choose(s:pat, matchline, ",", ":", prefix, suffix, s:patBR)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
153 let i = matchend(group, s:notslash . ",")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
154 let groupBR = strpart(group, i)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
155 let group = strpart(group, 0, i-1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
156 " Now, matchline =~ prefix . substitute(group,':','\|','g') . suffix
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
157 if s:do_BR " Do the hard part: resolve those backrefs!
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
158 let group = s:InsertRefs(groupBR, prefix, group, suffix, matchline)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
159 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
160 if exists("b:match_debug")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
161 let b:match_wholeBR = groupBR
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
162 let i = matchend(groupBR, s:notslash . ":")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
163 let b:match_iniBR = strpart(groupBR, 0, i-1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
164 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
165
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
166 " Fourth step: Set the arguments for searchpair().
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
167 let i = matchend(group, s:notslash . ":")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
168 let j = matchend(group, '.*' . s:notslash . ":")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
169 let ini = strpart(group, 0, i-1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
170 let mid = substitute(strpart(group, i,j-i-1), s:notslash.'\zs:', '\\|', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
171 let fin = strpart(group, j)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
172 "Un-escape the remaining , and : characters.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
173 let ini = substitute(ini, s:notslash . '\zs\\\(:\|,\)', '\1', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
174 let mid = substitute(mid, s:notslash . '\zs\\\(:\|,\)', '\1', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
175 let fin = substitute(fin, s:notslash . '\zs\\\(:\|,\)', '\1', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
176 " searchpair() requires that these patterns avoid \(\) groups.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
177 let ini = substitute(ini, s:notslash . '\zs\\(', '\\%(', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
178 let mid = substitute(mid, s:notslash . '\zs\\(', '\\%(', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
179 let fin = substitute(fin, s:notslash . '\zs\\(', '\\%(', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
180 " Set mid. This is optimized for readability, not micro-efficiency!
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
181 if a:forward && matchline =~ prefix . fin . suffix
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
182 \ || !a:forward && matchline =~ prefix . ini . suffix
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
183 let mid = ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
184 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
185 " Set flag. This is optimized for readability, not micro-efficiency!
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
186 if a:forward && matchline =~ prefix . fin . suffix
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
187 \ || !a:forward && matchline !~ prefix . ini . suffix
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
188 let flag = "bW"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
189 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
190 let flag = "W"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
191 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
192 " Set skip.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
193 if exists("b:match_skip")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
194 let skip = b:match_skip
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
195 elseif exists("b:match_comment") " backwards compatibility and testing!
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
196 let skip = "r:" . b:match_comment
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
197 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
198 let skip = 's:comment\|string'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
199 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
200 let skip = s:ParseSkip(skip)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
201 if exists("b:match_debug")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
202 let b:match_ini = ini
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
203 let b:match_tail = (strlen(mid) ? mid.'\|' : '') . fin
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
204 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
205
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
206 " Fifth step: actually start moving the cursor and call searchpair().
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
207 " Later, :execute restore_cursor to get to the original screen.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
208 let view = winsaveview()
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
209 call cursor(0, curcol + 1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
210 if skip =~ 'synID' && !(has("syntax") && exists("g:syntax_on"))
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
211 let skip = "0"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
212 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
213 execute "if " . skip . "| let skip = '0' | endif"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
214 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
215 let sp_return = searchpair(ini, mid, fin, flag, skip)
18456
6d11fc4aa683 Update runtime files
Bram Moolenaar <Bram@vim.org>
parents: 15735
diff changeset
216 if &selection isnot# 'inclusive' && a:mode == 'v'
6d11fc4aa683 Update runtime files
Bram Moolenaar <Bram@vim.org>
parents: 15735
diff changeset
217 " move cursor one pos to the right, because selection is not inclusive
6d11fc4aa683 Update runtime files
Bram Moolenaar <Bram@vim.org>
parents: 15735
diff changeset
218 " add virtualedit=onemore, to make it work even when the match ends the " line
6d11fc4aa683 Update runtime files
Bram Moolenaar <Bram@vim.org>
parents: 15735
diff changeset
219 if !(col('.') < col('$')-1)
6d11fc4aa683 Update runtime files
Bram Moolenaar <Bram@vim.org>
parents: 15735
diff changeset
220 set ve=onemore
6d11fc4aa683 Update runtime files
Bram Moolenaar <Bram@vim.org>
parents: 15735
diff changeset
221 endif
6d11fc4aa683 Update runtime files
Bram Moolenaar <Bram@vim.org>
parents: 15735
diff changeset
222 norm! l
6d11fc4aa683 Update runtime files
Bram Moolenaar <Bram@vim.org>
parents: 15735
diff changeset
223 endif
15735
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
224 let final_position = "call cursor(" . line(".") . "," . col(".") . ")"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
225 " Restore cursor position and original screen.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
226 call winrestview(view)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
227 normal! m'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
228 if sp_return > 0
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
229 execute final_position
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
230 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
231 return s:CleanUp(restore_options, a:mode, startpos, mid.'\|'.fin)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
232 endfun
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
233
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
234 " Restore options and do some special handling for Operator-pending mode.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
235 " The optional argument is the tail of the matching group.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
236 fun! s:CleanUp(options, mode, startpos, ...)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
237 if strlen(a:options)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
238 execute "set" a:options
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
239 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
240 " Open folds, if appropriate.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
241 if a:mode != "o"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
242 if &foldopen =~ "percent"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
243 normal! zv
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
244 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
245 " In Operator-pending mode, we want to include the whole match
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
246 " (for example, d%).
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
247 " This is only a problem if we end up moving in the forward direction.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
248 elseif (a:startpos[0] < line(".")) ||
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
249 \ (a:startpos[0] == line(".") && a:startpos[1] < col("."))
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
250 if a:0
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
251 " Check whether the match is a single character. If not, move to the
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
252 " end of the match.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
253 let matchline = getline(".")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
254 let currcol = col(".")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
255 let regexp = s:Wholematch(matchline, a:1, currcol-1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
256 let endcol = matchend(matchline, regexp)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
257 if endcol > currcol " This is NOT off by one!
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
258 call cursor(0, endcol)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
259 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
260 endif " a:0
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
261 endif " a:mode != "o" && etc.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
262 return 0
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
263 endfun
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
264
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
265 " Example (simplified HTML patterns): if
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
266 " a:groupBR = '<\(\k\+\)>:</\1>'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
267 " a:prefix = '^.\{3}\('
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
268 " a:group = '<\(\k\+\)>:</\(\k\+\)>'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
269 " a:suffix = '\).\{2}$'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
270 " a:matchline = "123<tag>12" or "123</tag>12"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
271 " then extract "tag" from a:matchline and return "<tag>:</tag>" .
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
272 fun! s:InsertRefs(groupBR, prefix, group, suffix, matchline)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
273 if a:matchline !~ a:prefix .
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
274 \ substitute(a:group, s:notslash . '\zs:', '\\|', 'g') . a:suffix
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
275 return a:group
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
276 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
277 let i = matchend(a:groupBR, s:notslash . ':')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
278 let ini = strpart(a:groupBR, 0, i-1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
279 let tailBR = strpart(a:groupBR, i)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
280 let word = s:Choose(a:group, a:matchline, ":", "", a:prefix, a:suffix,
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
281 \ a:groupBR)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
282 let i = matchend(word, s:notslash . ":")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
283 let wordBR = strpart(word, i)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
284 let word = strpart(word, 0, i-1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
285 " Now, a:matchline =~ a:prefix . word . a:suffix
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
286 if wordBR != ini
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
287 let table = s:Resolve(ini, wordBR, "table")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
288 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
289 let table = ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
290 let d = 0
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
291 while d < 10
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
292 if tailBR =~ s:notslash . '\\' . d
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
293 let table = table . d
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
294 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
295 let table = table . "-"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
296 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
297 let d = d + 1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
298 endwhile
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
299 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
300 let d = 9
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
301 while d
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
302 if table[d] != "-"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
303 let backref = substitute(a:matchline, a:prefix.word.a:suffix,
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
304 \ '\'.table[d], "")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
305 " Are there any other characters that should be escaped?
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
306 let backref = escape(backref, '*,:')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
307 execute s:Ref(ini, d, "start", "len")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
308 let ini = strpart(ini, 0, start) . backref . strpart(ini, start+len)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
309 let tailBR = substitute(tailBR, s:notslash . '\zs\\' . d,
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
310 \ escape(backref, '\\&'), 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
311 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
312 let d = d-1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
313 endwhile
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
314 if exists("b:match_debug")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
315 if s:do_BR
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
316 let b:match_table = table
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
317 let b:match_word = word
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
318 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
319 let b:match_table = ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
320 let b:match_word = ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
321 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
322 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
323 return ini . ":" . tailBR
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
324 endfun
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
325
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
326 " Input a comma-separated list of groups with backrefs, such as
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
327 " a:groups = '\(foo\):end\1,\(bar\):end\1'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
328 " and return a comma-separated list of groups with backrefs replaced:
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
329 " return '\(foo\):end\(foo\),\(bar\):end\(bar\)'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
330 fun! s:ParseWords(groups)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
331 let groups = substitute(a:groups.",", s:notslash.'\zs[,:]*,[,:]*', ',', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
332 let groups = substitute(groups, s:notslash . '\zs:\{2,}', ':', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
333 let parsed = ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
334 while groups =~ '[^,:]'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
335 let i = matchend(groups, s:notslash . ':')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
336 let j = matchend(groups, s:notslash . ',')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
337 let ini = strpart(groups, 0, i-1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
338 let tail = strpart(groups, i, j-i-1) . ":"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
339 let groups = strpart(groups, j)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
340 let parsed = parsed . ini
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
341 let i = matchend(tail, s:notslash . ':')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
342 while i != -1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
343 " In 'if:else:endif', ini='if' and word='else' and then word='endif'.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
344 let word = strpart(tail, 0, i-1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
345 let tail = strpart(tail, i)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
346 let i = matchend(tail, s:notslash . ':')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
347 let parsed = parsed . ":" . s:Resolve(ini, word, "word")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
348 endwhile " Now, tail has been used up.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
349 let parsed = parsed . ","
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
350 endwhile " groups =~ '[^,:]'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
351 let parsed = substitute(parsed, ',$', '', '')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
352 return parsed
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
353 endfun
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
354
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
355 " TODO I think this can be simplified and/or made more efficient.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
356 " TODO What should I do if a:start is out of range?
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
357 " Return a regexp that matches all of a:string, such that
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
358 " matchstr(a:string, regexp) represents the match for a:pat that starts
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
359 " as close to a:start as possible, before being preferred to after, and
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
360 " ends after a:start .
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
361 " Usage:
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
362 " let regexp = s:Wholematch(getline("."), 'foo\|bar', col(".")-1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
363 " let i = match(getline("."), regexp)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
364 " let j = matchend(getline("."), regexp)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
365 " let match = matchstr(getline("."), regexp)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
366 fun! s:Wholematch(string, pat, start)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
367 let group = '\%(' . a:pat . '\)'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
368 let prefix = (a:start ? '\(^.*\%<' . (a:start + 2) . 'c\)\zs' : '^')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
369 let len = strlen(a:string)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
370 let suffix = (a:start+1 < len ? '\(\%>'.(a:start+1).'c.*$\)\@=' : '$')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
371 if a:string !~ prefix . group . suffix
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
372 let prefix = ''
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
373 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
374 return prefix . group . suffix
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
375 endfun
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
376
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
377 " No extra arguments: s:Ref(string, d) will
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
378 " find the d'th occurrence of '\(' and return it, along with everything up
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
379 " to and including the matching '\)'.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
380 " One argument: s:Ref(string, d, "start") returns the index of the start
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
381 " of the d'th '\(' and any other argument returns the length of the group.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
382 " Two arguments: s:Ref(string, d, "foo", "bar") returns a string to be
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
383 " executed, having the effect of
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
384 " :let foo = s:Ref(string, d, "start")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
385 " :let bar = s:Ref(string, d, "len")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
386 fun! s:Ref(string, d, ...)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
387 let len = strlen(a:string)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
388 if a:d == 0
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
389 let start = 0
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
390 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
391 let cnt = a:d
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
392 let match = a:string
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
393 while cnt
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
394 let cnt = cnt - 1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
395 let index = matchend(match, s:notslash . '\\(')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
396 if index == -1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
397 return ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
398 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
399 let match = strpart(match, index)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
400 endwhile
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
401 let start = len - strlen(match)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
402 if a:0 == 1 && a:1 == "start"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
403 return start - 2
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
404 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
405 let cnt = 1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
406 while cnt
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
407 let index = matchend(match, s:notslash . '\\(\|\\)') - 1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
408 if index == -2
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
409 return ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
410 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
411 " Increment if an open, decrement if a ')':
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
412 let cnt = cnt + (match[index]=="(" ? 1 : -1) " ')'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
413 let match = strpart(match, index+1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
414 endwhile
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
415 let start = start - 2
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
416 let len = len - start - strlen(match)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
417 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
418 if a:0 == 1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
419 return len
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
420 elseif a:0 == 2
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
421 return "let " . a:1 . "=" . start . "| let " . a:2 . "=" . len
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
422 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
423 return strpart(a:string, start, len)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
424 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
425 endfun
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
426
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
427 " Count the number of disjoint copies of pattern in string.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
428 " If the pattern is a literal string and contains no '0' or '1' characters
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
429 " then s:Count(string, pattern, '0', '1') should be faster than
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
430 " s:Count(string, pattern).
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
431 fun! s:Count(string, pattern, ...)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
432 let pat = escape(a:pattern, '\\')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
433 if a:0 > 1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
434 let foo = substitute(a:string, '[^'.a:pattern.']', "a:1", "g")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
435 let foo = substitute(a:string, pat, a:2, "g")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
436 let foo = substitute(foo, '[^' . a:2 . ']', "", "g")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
437 return strlen(foo)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
438 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
439 let result = 0
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
440 let foo = a:string
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
441 let index = matchend(foo, pat)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
442 while index != -1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
443 let result = result + 1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
444 let foo = strpart(foo, index)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
445 let index = matchend(foo, pat)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
446 endwhile
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
447 return result
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
448 endfun
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
449
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
450 " s:Resolve('\(a\)\(b\)', '\(c\)\2\1\1\2') should return table.word, where
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
451 " word = '\(c\)\(b\)\(a\)\3\2' and table = '-32-------'. That is, the first
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
452 " '\1' in target is replaced by '\(a\)' in word, table[1] = 3, and this
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
453 " indicates that all other instances of '\1' in target are to be replaced
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
454 " by '\3'. The hard part is dealing with nesting...
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
455 " Note that ":" is an illegal character for source and target,
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
456 " unless it is preceded by "\".
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
457 fun! s:Resolve(source, target, output)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
458 let word = a:target
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
459 let i = matchend(word, s:notslash . '\\\d') - 1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
460 let table = "----------"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
461 while i != -2 " There are back references to be replaced.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
462 let d = word[i]
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
463 let backref = s:Ref(a:source, d)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
464 " The idea is to replace '\d' with backref. Before we do this,
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
465 " replace any \(\) groups in backref with :1, :2, ... if they
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
466 " correspond to the first, second, ... group already inserted
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
467 " into backref. Later, replace :1 with \1 and so on. The group
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
468 " number w+b within backref corresponds to the group number
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
469 " s within a:source.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
470 " w = number of '\(' in word before the current one
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
471 let w = s:Count(
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
472 \ substitute(strpart(word, 0, i-1), '\\\\', '', 'g'), '\(', '1')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
473 let b = 1 " number of the current '\(' in backref
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
474 let s = d " number of the current '\(' in a:source
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
475 while b <= s:Count(substitute(backref, '\\\\', '', 'g'), '\(', '1')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
476 \ && s < 10
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
477 if table[s] == "-"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
478 if w + b < 10
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
479 " let table[s] = w + b
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
480 let table = strpart(table, 0, s) . (w+b) . strpart(table, s+1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
481 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
482 let b = b + 1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
483 let s = s + 1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
484 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
485 execute s:Ref(backref, b, "start", "len")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
486 let ref = strpart(backref, start, len)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
487 let backref = strpart(backref, 0, start) . ":". table[s]
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
488 \ . strpart(backref, start+len)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
489 let s = s + s:Count(substitute(ref, '\\\\', '', 'g'), '\(', '1')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
490 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
491 endwhile
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
492 let word = strpart(word, 0, i-1) . backref . strpart(word, i+1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
493 let i = matchend(word, s:notslash . '\\\d') - 1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
494 endwhile
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
495 let word = substitute(word, s:notslash . '\zs:', '\\', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
496 if a:output == "table"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
497 return table
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
498 elseif a:output == "word"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
499 return word
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
500 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
501 return table . word
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
502 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
503 endfun
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
504
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
505 " Assume a:comma = ",". Then the format for a:patterns and a:1 is
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
506 " a:patterns = "<pat1>,<pat2>,..."
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
507 " a:1 = "<alt1>,<alt2>,..."
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
508 " If <patn> is the first pattern that matches a:string then return <patn>
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
509 " if no optional arguments are given; return <patn>,<altn> if a:1 is given.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
510 fun! s:Choose(patterns, string, comma, branch, prefix, suffix, ...)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
511 let tail = (a:patterns =~ a:comma."$" ? a:patterns : a:patterns . a:comma)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
512 let i = matchend(tail, s:notslash . a:comma)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
513 if a:0
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
514 let alttail = (a:1 =~ a:comma."$" ? a:1 : a:1 . a:comma)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
515 let j = matchend(alttail, s:notslash . a:comma)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
516 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
517 let current = strpart(tail, 0, i-1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
518 if a:branch == ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
519 let currpat = current
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
520 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
521 let currpat = substitute(current, s:notslash . a:branch, '\\|', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
522 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
523 while a:string !~ a:prefix . currpat . a:suffix
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
524 let tail = strpart(tail, i)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
525 let i = matchend(tail, s:notslash . a:comma)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
526 if i == -1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
527 return -1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
528 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
529 let current = strpart(tail, 0, i-1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
530 if a:branch == ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
531 let currpat = current
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
532 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
533 let currpat = substitute(current, s:notslash . a:branch, '\\|', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
534 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
535 if a:0
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
536 let alttail = strpart(alttail, j)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
537 let j = matchend(alttail, s:notslash . a:comma)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
538 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
539 endwhile
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
540 if a:0
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
541 let current = current . a:comma . strpart(alttail, 0, j-1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
542 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
543 return current
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
544 endfun
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
545
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
546 fun! matchit#Match_debug()
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
547 let b:match_debug = 1 " Save debugging information.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
548 " pat = all of b:match_words with backrefs parsed
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
549 amenu &Matchit.&pat :echo b:match_pat<CR>
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
550 " match = bit of text that is recognized as a match
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
551 amenu &Matchit.&match :echo b:match_match<CR>
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
552 " curcol = cursor column of the start of the matching text
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
553 amenu &Matchit.&curcol :echo b:match_col<CR>
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
554 " wholeBR = matching group, original version
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
555 amenu &Matchit.wh&oleBR :echo b:match_wholeBR<CR>
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
556 " iniBR = 'if' piece, original version
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
557 amenu &Matchit.ini&BR :echo b:match_iniBR<CR>
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
558 " ini = 'if' piece, with all backrefs resolved from match
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
559 amenu &Matchit.&ini :echo b:match_ini<CR>
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
560 " tail = 'else\|endif' piece, with all backrefs resolved from match
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
561 amenu &Matchit.&tail :echo b:match_tail<CR>
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
562 " fin = 'endif' piece, with all backrefs resolved from match
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
563 amenu &Matchit.&word :echo b:match_word<CR>
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
564 " '\'.d in ini refers to the same thing as '\'.table[d] in word.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
565 amenu &Matchit.t&able :echo '0:' . b:match_table . ':9'<CR>
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
566 endfun
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
567
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
568 " Jump to the nearest unmatched "(" or "if" or "<tag>" if a:spflag == "bW"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
569 " or the nearest unmatched "</tag>" or "endif" or ")" if a:spflag == "W".
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
570 " Return a "mark" for the original position, so that
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
571 " let m = MultiMatch("bW", "n") ... call winrestview(m)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
572 " will return to the original position. If there is a problem, do not
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
573 " move the cursor and return {}, unless a count is given, in which case
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
574 " go up or down as many levels as possible and again return {}.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
575 " TODO This relies on the same patterns as % matching. It might be a good
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
576 " idea to give it its own matching patterns.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
577 fun! matchit#MultiMatch(spflag, mode)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
578 let restore_options = s:RestoreOptions()
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
579 let startpos = [line("."), col(".")]
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
580 " save v:count1 variable, might be reset from the restore_cursor command
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
581 let level = v:count1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
582 if a:mode == "o" && mode(1) !~# '[vV]'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
583 exe "norm! v"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
584 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
585
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
586 " First step: if not already done, set the script variables
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
587 " s:do_BR flag for whether there are backrefs
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
588 " s:pat parsed version of b:match_words
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
589 " s:all regexp based on s:pat and the default groups
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
590 " This part is copied and slightly modified from matchit#Match_wrapper().
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
591 if !exists("b:match_words") || b:match_words == ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
592 let match_words = ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
593 " Allow b:match_words = "GetVimMatchWords()" .
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
594 elseif b:match_words =~ ":"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
595 let match_words = b:match_words
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
596 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
597 execute "let match_words =" b:match_words
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
598 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
599 if (match_words != s:last_words) || (&mps != s:last_mps) ||
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
600 \ exists("b:match_debug")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
601 let default = escape(&mps, '[$^.*~\\/?]') . (strlen(&mps) ? "," : "") .
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
602 \ '\/\*:\*\/,#\s*if\%(n\=def\)\=:#\s*else\>:#\s*elif\>:#\s*endif\>'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
603 let s:last_mps = &mps
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
604 let match_words = match_words . (strlen(match_words) ? "," : "") . default
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
605 let s:last_words = match_words
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
606 if match_words !~ s:notslash . '\\\d'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
607 let s:do_BR = 0
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
608 let s:pat = match_words
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
609 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
610 let s:do_BR = 1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
611 let s:pat = s:ParseWords(match_words)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
612 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
613 let s:all = '\%(' . substitute(s:pat, '[,:]\+', '\\|', 'g') . '\)'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
614 if exists("b:match_debug")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
615 let b:match_pat = s:pat
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
616 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
617 " Reconstruct the version with unresolved backrefs.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
618 let s:patBR = substitute(match_words.',',
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
619 \ s:notslash.'\zs[,:]*,[,:]*', ',', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
620 let s:patBR = substitute(s:patBR, s:notslash.'\zs:\{2,}', ':', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
621 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
622
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
623 " Second step: figure out the patterns for searchpair()
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
624 " and save the screen, cursor position, and 'ignorecase'.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
625 " - TODO: A lot of this is copied from matchit#Match_wrapper().
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
626 " - maybe even more functionality should be split off
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
627 " - into separate functions!
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
628 let openlist = split(s:pat . ',', s:notslash . '\zs:.\{-}' . s:notslash . ',')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
629 let midclolist = split(',' . s:pat, s:notslash . '\zs,.\{-}' . s:notslash . ':')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
630 call map(midclolist, {-> split(v:val, s:notslash . ':')})
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
631 let closelist = []
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
632 let middlelist = []
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
633 call map(midclolist, {i,v -> [extend(closelist, v[-1 : -1]),
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
634 \ extend(middlelist, v[0 : -2])]})
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
635 call map(openlist, {i,v -> v =~# s:notslash . '\\|' ? '\%(' . v . '\)' : v})
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
636 call map(middlelist, {i,v -> v =~# s:notslash . '\\|' ? '\%(' . v . '\)' : v})
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
637 call map(closelist, {i,v -> v =~# s:notslash . '\\|' ? '\%(' . v . '\)' : v})
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
638 let open = join(openlist, ',')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
639 let middle = join(middlelist, ',')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
640 let close = join(closelist, ',')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
641 if exists("b:match_skip")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
642 let skip = b:match_skip
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
643 elseif exists("b:match_comment") " backwards compatibility and testing!
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
644 let skip = "r:" . b:match_comment
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
645 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
646 let skip = 's:comment\|string'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
647 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
648 let skip = s:ParseSkip(skip)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
649 let view = winsaveview()
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
650
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
651 " Third step: call searchpair().
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
652 " Replace '\('--but not '\\('--with '\%(' and ',' with '\|'.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
653 let openpat = substitute(open, '\%(' . s:notslash . '\)\@<=\\(', '\\%(', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
654 let openpat = substitute(openpat, ',', '\\|', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
655 let closepat = substitute(close, '\%(' . s:notslash . '\)\@<=\\(', '\\%(', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
656 let closepat = substitute(closepat, ',', '\\|', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
657 let middlepat = substitute(middle, '\%(' . s:notslash . '\)\@<=\\(', '\\%(', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
658 let middlepat = substitute(middlepat, ',', '\\|', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
659
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
660 if skip =~ 'synID' && !(has("syntax") && exists("g:syntax_on"))
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
661 let skip = '0'
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
662 else
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
663 try
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
664 execute "if " . skip . "| let skip = '0' | endif"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
665 catch /^Vim\%((\a\+)\)\=:E363/
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
666 " We won't find anything, so skip searching, should keep Vim responsive.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
667 return {}
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
668 endtry
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
669 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
670 mark '
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
671 while level
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
672 if searchpair(openpat, middlepat, closepat, a:spflag, skip) < 1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
673 call s:CleanUp(restore_options, a:mode, startpos)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
674 return {}
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
675 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
676 let level = level - 1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
677 endwhile
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
678
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
679 " Restore options and return a string to restore the original position.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
680 call s:CleanUp(restore_options, a:mode, startpos)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
681 return view
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
682 endfun
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
683
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
684 " Search backwards for "if" or "while" or "<tag>" or ...
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
685 " and return "endif" or "endwhile" or "</tag>" or ... .
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
686 " For now, this uses b:match_words and the same script variables
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
687 " as matchit#Match_wrapper() . Later, it may get its own patterns,
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
688 " either from a buffer variable or passed as arguments.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
689 " fun! s:Autocomplete()
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
690 " echo "autocomplete not yet implemented :-("
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
691 " if !exists("b:match_words") || b:match_words == ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
692 " return ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
693 " end
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
694 " let startpos = matchit#MultiMatch("bW")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
695 "
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
696 " if startpos == ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
697 " return ""
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
698 " endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
699 " " - TODO: figure out whether 'if' or '<tag>' matched, and construct
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
700 " " - the appropriate closing.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
701 " let matchline = getline(".")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
702 " let curcol = col(".") - 1
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
703 " " - TODO: Change the s:all argument if there is a new set of match pats.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
704 " let regexp = s:Wholematch(matchline, s:all, curcol)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
705 " let suf = strlen(matchline) - matchend(matchline, regexp)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
706 " let prefix = (curcol ? '^.\{' . curcol . '}\%(' : '^\%(')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
707 " let suffix = (suf ? '\).\{' . suf . '}$' : '\)$')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
708 " " Reconstruct the version with unresolved backrefs.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
709 " let patBR = substitute(b:match_words.',', '[,:]*,[,:]*', ',', 'g')
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
710 " let patBR = substitute(patBR, ':\{2,}', ':', "g")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
711 " " Now, set group and groupBR to the matching group: 'if:endif' or
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
712 " " 'while:endwhile' or whatever.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
713 " let group = s:Choose(s:pat, matchline, ",", ":", prefix, suffix, patBR)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
714 " let i = matchend(group, s:notslash . ",")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
715 " let groupBR = strpart(group, i)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
716 " let group = strpart(group, 0, i-1)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
717 " " Now, matchline =~ prefix . substitute(group,':','\|','g') . suffix
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
718 " if s:do_BR
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
719 " let group = s:InsertRefs(groupBR, prefix, group, suffix, matchline)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
720 " endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
721 " " let g:group = group
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
722 "
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
723 " " - TODO: Construct the closing from group.
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
724 " let fake = "end" . expand("<cword>")
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
725 " execute startpos
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
726 " return fake
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
727 " endfun
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
728
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
729 " Close all open structures. "Get the heck out of here!"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
730 " fun! s:Gthhoh()
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
731 " let close = s:Autocomplete()
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
732 " while strlen(close)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
733 " put=close
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
734 " let close = s:Autocomplete()
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
735 " endwhile
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
736 " endfun
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
737
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
738 " Parse special strings as typical skip arguments for searchpair():
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
739 " s:foo becomes (current syntax item) =~ foo
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
740 " S:foo becomes (current syntax item) !~ foo
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
741 " r:foo becomes (line before cursor) =~ foo
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
742 " R:foo becomes (line before cursor) !~ foo
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
743 fun! s:ParseSkip(str)
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
744 let skip = a:str
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
745 if skip[1] == ":"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
746 if skip[0] == "s"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
747 let skip = "synIDattr(synID(line('.'),col('.'),1),'name') =~? '" .
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
748 \ strpart(skip,2) . "'"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
749 elseif skip[0] == "S"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
750 let skip = "synIDattr(synID(line('.'),col('.'),1),'name') !~? '" .
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
751 \ strpart(skip,2) . "'"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
752 elseif skip[0] == "r"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
753 let skip = "strpart(getline('.'),0,col('.'))=~'" . strpart(skip,2). "'"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
754 elseif skip[0] == "R"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
755 let skip = "strpart(getline('.'),0,col('.'))!~'" . strpart(skip,2). "'"
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
756 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
757 endif
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
758 return skip
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
759 endfun
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
760
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
761 let &cpo = s:save_cpo
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
762 unlet s:save_cpo
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
763
5688ec97294b Add missing matchit file.
Bram Moolenaar <Bram@vim.org>
parents:
diff changeset
764 " vim:sts=2:sw=2:et: