mirrors/neovim
1
0
Fork 0
mirror of https://github.com/neovim/neovim.git synced 2025-12-15 19:05:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

vim-patch:9.0.0006: not all Visual Basic files are recognized (#19153)

Browse Source 
Problem:    Not all Visual Basic files are recognized.
Solution:   Change detection of *.cls files. (Doug Kearns)
8b5901e2f9
This commit is contained in:
Christian Clason
2022-06-29 18:43:56 +02:00
committed by GitHub
parent ba583f8206
commit 1eb9624666
5 changed files with 92 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
runtime/lua/vim/filetype/detect.lua
View File

@@ -83,19 +83,19 @@ function M.bas(bufnr)
local fb_keywords =
[[\c^\s*\%(extern\|var\|enum\|private\|scope\|union\|byref\|operator\|constructor\|delete\|namespace\|public\|property\|with\|destructor\|using\)\>\%(\s*[:=(]\)\@!]]
local fb_preproc =
[[\c^\s*\%(#\a\+\|option\s\+\%(byval\|dynamic\|escape\|\%(no\)\=gosub\|nokeyword\|private\|static\)\>\)]]
[[\c^\s*\%(#\s*\a\+\|option\s\+\%(byval\|dynamic\|escape\|\%(no\)\=gosub\|nokeyword\|private\|static\)\>\|\%(''\|rem\)\s*\$lang\>\|def\%(byte\|longint\|short\|ubyte\|uint\|ulongint\|ushort\)\>\)]]
local fb_comment = "^%s*/'"
-- OPTION EXPLICIT, without the leading underscore, is common to many dialects
local qb64_preproc = [[\c^\s*\%($\a\+\|option\s\+\%(_explicit\|_\=explicitarray\)\>\)]]
for _, line in ipairs(getlines(bufnr, 1, 100)) do
if line:find(fb_comment) or matchregex(line, fb_preproc) or matchregex(line, fb_keywords) then
if findany(line:lower(), visual_basic_content) then
return 'vb'
elseif line:find(fb_comment) or matchregex(line, fb_preproc) or matchregex(line, fb_keywords) then
return 'freebasic'
elseif matchregex(line, qb64_preproc) then
return 'qb64'
elseif findany(line:lower(), visual_basic_content) then
return 'vb'
end
end
return 'basic'
@@ -172,11 +172,16 @@ function M.class(bufnr)
end
function M.cls(bufnr)
if vim.g.filetype_cls then
return vim.g.filetype_cls
end
local line = getlines(bufnr, 1)
if line:find('^%%') then
return 'tex'
elseif line:find('^#') and line:lower():find('rexx') then
return 'rexx'
elseif line == 'VERSION 1.0 CLASS' then
return 'vb'
else
return 'st'
end