vim-patch:211211052d04 (#27048)

runtime(odin): include ftplugin, syntax and indent script (vim/vim#13867)

211211052d

Translate the files from Vim9 script to legacy Vim script. Notably:

- Prefer case-matching comparisons where needed.
- Save and restore `&cpo`.
- Make the functions script-local. (Pretty easy to use these in expr options now
  since Vim 9.0 anyways)

Add a note after the header for each file stating that they're manually
translated.

Co-authored-by: Maxim Kim <habamax@gmail.com>

runtime/indent/odin.vim

@@ -0,0 +1,124 @@
+" Vim indent plugin file
+" Language: Odin
+" Maintainer: Maxim Kim <habamax@gmail.com>
+" Website: https://github.com/habamax/vim-odin
+" Last Change: 2024-01-15
+"
+" This file has been manually translated from Vim9 script.
+
+if exists("b:did_indent")
+    finish
+endif
+let b:did_indent = 1
+
+let s:cpo_save = &cpo
+set cpo&vim
+
+let b:undo_indent = 'setlocal cindent< cinoptions< cinkeys< indentexpr<'
+
+setlocal cindent
+setlocal cinoptions=L0,m1,(s,j1,J1,l1,+0,:0,#1
+setlocal cinkeys=0{,0},0),0],!^F,:,o,O
+
+setlocal indentexpr=s:GetOdinIndent(v:lnum)
+
+function s:PrevLine(lnum) abort
+    let plnum = a:lnum - 1
+    while plnum > 1
+        let plnum = prevnonblank(plnum)
+        let pline = getline(plnum)
+        " XXX: take into account nested multiline /* /* */ */ comments
+        if pline =~# '\*/\s*$'
+            while getline(plnum) !~# '/\*' && plnum > 1
+                let plnum -= 1
+            endwhile
+            if getline(plnum) =~# '^\s*/\*'
+                let plnum -= 1
+            else
+                break
+            endif
+        elseif pline =~# '^\s*//'
+            let plnum -= 1
+        else
+            break
+        endif
+    endwhile
+    return plnum
+endfunction
+
+function s:GetOdinIndent(lnum) abort
+    let plnum = s:PrevLine(a:lnum)
+    let pline = getline(plnum)
+    let pindent = indent(plnum)
+    " workaround of cindent "hang"
+    " if the previous line looks like:
+    " : #{}
+    " : #whatever{whateverelse}
+    " and variations where : # { } are in the string
+    " cindent(lnum) hangs
+    if pline =~# ':\s\+#.*{.*}'
+        return pindent
+    endif
+
+    let indent = cindent(a:lnum)
+    let line = getline(a:lnum)
+
+    if line =~# '^\s*#\k\+'
+        if pline =~# '[{:]\s*$'
+            let indent = pindent + shiftwidth()
+        else
+            let indent = pindent
+        endif
+    elseif pline =~# 'switch\s.*{\s*$'
+        let indent = pindent
+    elseif pline =~# 'case\s*.*,\s*\(//.*\)\?$' " https://github.com/habamax/vim-odin/issues/8
+        let indent = pindent + matchstr(pline, 'case\s*')->strcharlen()
+    elseif line =~# '^\s*case\s\+.*,\s*$'
+        let indent = pindent - shiftwidth()
+    elseif pline =~# 'case\s*.*:\s*\(//.*\)\?$'
+        if line !~# '^\s*}\s*$' && line !~# '^\s*case[[:space:]:]'
+            let indent = pindent + shiftwidth()
+        endif
+    elseif pline =~# '^\s*@.*' && line !~# '^\s*}'
+        let indent = pindent
+    elseif pline =~# ':[:=].*}\s*$'
+        let indent = pindent
+    elseif pline =~# '^\s*}\s*$'
+        if line !~# '^\s*}' && line !~# 'case\s*.*:\s*$'
+            let indent = pindent
+        else
+            let indent = pindent - shiftwidth()
+        endif
+    elseif pline =~# '\S:\s*$'
+        " looking up for a case something,
+        "                       whatever,
+        "                       anything:
+        " ... 20 lines before
+        for idx in range(plnum - 1, plnum - 21, -1)
+            if plnum < 1
+                break
+            endif
+            if getline(idx) =~# '^\s*case\s.*,\s*$'
+                let indent = indent(idx) + shiftwidth()
+                break
+            endif
+        endfor
+    elseif pline =~# '{[^{]*}\s*$' && line !~# '^\s*[})]\s*$' " https://github.com/habamax/vim-odin/issues/2
+        let indent = pindent
+    elseif pline =~# '^\s*}\s*$' " https://github.com/habamax/vim-odin/issues/3
+        " Find line with opening { and check if there is a label:
+        " If there is, return indent of the closing }
+        call cursor(plnum, 1)
+        silent normal! %
+        let brlnum = line('.')
+        let brline = getline('.')
+        if plnum != brlnum && (brline =~# '^\s*\k\+:\s\+for' || brline =~# '^\s*\k\+\s*:=')
+            let indent = pindent
+        endif
+    endif
+
+    return indent
+endfunction
+
+let &cpo = s:cpo_save
+unlet s:cpo_save