scripts: Add script which is able to generate part of vim.vim file

scripts/genvimvim.lua

@@ -0,0 +1,122 @@
+if arg[1] == '--help' then
+  print('Usage: genoptions.lua src/nvim runtime/syntax/vim/generated.vim')
+  os.exit(0)
+end
+
+local nvimsrcdir = arg[1]
+local syntax_file = arg[2]
+
+package.path = nvimsrcdir .. '/?.lua;' .. package.path
+
+local lld = {}
+local syn_fd = io.open(syntax_file, 'w')
+lld.line_length = 0
+local w = function(s)
+  syn_fd:write(s)
+  if s:find('\n') then
+    lld.line_length = #(s:gsub('.*\n', ''))
+  else
+    lld.line_length = lld.line_length + #s
+  end
+end
+
+local options = require('options')
+local auevents = require('auevents')
+local ex_cmds = require('ex_cmds')
+
+local cmd_kw = function(prev_cmd, cmd)
+  if not prev_cmd then
+    return cmd:sub(1, 1) .. '[' .. cmd:sub(2) .. ']'
+  else
+    local shift = 1
+    while cmd:sub(shift, shift) == prev_cmd:sub(shift, shift) do
+      shift = shift + 1
+    end
+    if shift >= #cmd then
+      return cmd
+    else
+      return cmd:sub(1, shift) .. '[' .. cmd:sub(shift + 1) .. ']'
+    end
+  end
+end
+
+vimcmd_start = 'syn keyword vimCommand contained '
+w(vimcmd_start)
+local prev_cmd = nil
+for _, cmd_desc in ipairs(ex_cmds) do
+  if lld.line_length > 850 then
+    w('\n' .. vimcmd_start)
+  end
+  local cmd = cmd_desc.command
+  if cmd:match('%w') and cmd ~= 'z' then
+    w(' ' .. cmd_kw(prev_cmd, cmd))
+  end
+  prev_cmd = cmd
+end
+
+local vimopt_start = 'syn keyword vimOption contained '
+w('\n\n' .. vimopt_start)
+
+for _, opt_desc in ipairs(options.options) do
+  if lld.line_length > 850 then
+    w('\n' .. vimopt_start)
+  end
+  w(' ' .. opt_desc.full_name)
+  if opt_desc.abbreviation then
+    w(' ' .. opt_desc.abbreviation)
+  end
+  if opt_desc.type == 'bool' then
+    w(' inv' .. opt_desc.full_name)
+    w(' no' .. opt_desc.full_name)
+    if opt_desc.abbreviation then
+      w(' inv' .. opt_desc.abbreviation)
+      w(' no' .. opt_desc.abbreviation)
+    end
+  end
+end
+
+w('\n\nsyn case ignore')
+local vimau_start = 'syn keyword vimAutoEvent contained '
+w('\n\n' .. vimau_start)
+
+for _, au in ipairs(auevents.events) do
+  if lld.line_length > 850 then
+    w('\n' .. vimau_start)
+  end
+  w(' ' .. au)
+end
+for au, _ in pairs(auevents.aliases) do
+  if lld.line_length > 850 then
+    w('\n' .. vimau_start)
+  end
+  w(' ' .. au)
+end
+
+w('\n\nsyn case match')
+local vimfun_start = 'syn keyword vimFuncName contained '
+w('\n\n' .. vimfun_start)
+eval_fd = io.open(nvimsrcdir .. '/eval.c', 'r')
+local started = 0
+for line in eval_fd:lines() do
+  if line == '} functions[] =' then
+    started = 1
+  elseif started == 1 then
+    assert (line == '{')
+    started = 2
+  elseif started == 2 then
+    if line == '};' then
+      break
+    end
+    local func_name = line:match('^  {"(%w+)",')
+    if func_name then
+      if lld.line_length > 850 then
+        w('\n' .. vimfun_start)
+      end
+      w(' ' .. func_name)
+    end
+  end
+end
+eval_fd:close()
+
+w('\n')
+syn_fd:close()