diff options
Diffstat (limited to 'autoload')
| -rw-r--r-- | autoload/polyglot.vim | 705 | ||||
| -rw-r--r-- | autoload/polyglot/detect.vim | 262 | ||||
| -rw-r--r-- | autoload/polyglot/shebang.vim | 129 | ||||
| -rw-r--r-- | autoload/polyglot/sleuth.vim (renamed from autoload/sleuth.vim) | 2 |
4 files changed, 392 insertions, 706 deletions
diff --git a/autoload/polyglot.vim b/autoload/polyglot.vim deleted file mode 100644 index 33210855..00000000 --- a/autoload/polyglot.vim +++ /dev/null @@ -1,705 +0,0 @@ -" Please do not edit this file directly, instead modify polyglot.vim or scripts/build - -" Line continuation is used here, remove 'C' from 'cpoptions' -let s:cpo_save = &cpo -set cpo&vim - -func! polyglot#Shebang() - if getline(1) =~# "^#!" - let ft = polyglot#ShebangFiletype() - if ft != "" - let &ft = ft - endif - endif - - if &ft == "" - runtime! scripts.vim - endif - - return &ft != "" -endfunc - -let s:r_hashbang = '^#!\s*\(\S\+\)\s*\(.*\)\s*' -let s:r_envflag = '%(\S\+=\S\+\|-[iS]\|--ignore-environment\|--split-string\)' -let s:r_env = '^\%(\' . s:r_envflag . '\s\+\)*\(\S\+\)' - -func! polyglot#ShebangFiletype() - let l:line1 = getline(1) - - if l:line1 !~# "^#!" - return - endif - - let l:pathrest = matchlist(l:line1, s:r_hashbang) - - if len(l:pathrest) == 0 - return - endif - - let [_, l:path, l:rest; __] = l:pathrest - - let l:script = split(l:path, "/")[-1] - - if l:script == "env" - let l:argspath = matchlist(l:rest, s:r_env) - if len(l:argspath) == 0 - return - endif - - let l:script = l:argspath[1] - endif - - if has_key(s:interpreters, l:script) - return s:interpreters[l:script] - endif - - for interpreter in keys(s:interpreters) - if l:script =~# '^' . interpreter - return s:interpreters[interpreter] - endif - endfor -endfunc - -let s:interpreters = { - \ 'osascript': 'applescript', - \ 'tcc': 'c', - \ 'coffee': 'coffee', - \ 'crystal': 'crystal', - \ 'dart': 'dart', - \ 'elixir': 'elixir', - \ 'escript': 'erlang', - \ 'fish': 'fish', - \ 'gnuplot': 'gnuplot', - \ 'groovy': 'groovy', - \ 'runhaskell': 'haskell', - \ 'chakra': 'javascript', - \ 'd8': 'javascript', - \ 'gjs': 'javascript', - \ 'js': 'javascript', - \ 'node': 'javascript', - \ 'nodejs': 'javascript', - \ 'qjs': 'javascript', - \ 'rhino': 'javascript', - \ 'v8': 'javascript', - \ 'v8-shell': 'javascript', - \ 'julia': 'julia', - \ 'lua': 'lua', - \ 'moon': 'moon', - \ 'ocaml': 'ocaml', - \ 'ocamlrun': 'ocaml', - \ 'ocamlscript': 'ocaml', - \ 'cperl': 'perl', - \ 'perl': 'perl', - \ 'php': 'php', - \ 'swipl': 'prolog', - \ 'yap': 'prolog', - \ 'pwsh': 'ps1', - \ 'python': 'python', - \ 'python2': 'python', - \ 'python3': 'python', - \ 'qmake': 'qmake', - \ 'Rscript': 'r', - \ 'racket': 'racket', - \ 'perl6': 'raku', - \ 'raku': 'raku', - \ 'rakudo': 'raku', - \ 'ruby': 'ruby', - \ 'macruby': 'ruby', - \ 'rake': 'ruby', - \ 'jruby': 'ruby', - \ 'rbx': 'ruby', - \ 'scala': 'scala', - \ 'ash': 'sh', - \ 'bash': 'sh', - \ 'dash': 'sh', - \ 'ksh': 'sh', - \ 'mksh': 'sh', - \ 'pdksh': 'sh', - \ 'rc': 'sh', - \ 'sh': 'sh', - \ 'zsh': 'sh', - \ 'boolector': 'smt2', - \ 'cvc4': 'smt2', - \ 'mathsat5': 'smt2', - \ 'opensmt': 'smt2', - \ 'smtinterpol': 'smt2', - \ 'smt-rat': 'smt2', - \ 'stp': 'smt2', - \ 'verit': 'smt2', - \ 'yices2': 'smt2', - \ 'z3': 'smt2', - \ 'deno': 'typescript', - \ 'ts-node': 'typescript', -\ } - -func! polyglot#DetectInpFiletype() - let line = getline(nextnonblank(1)) - if line =~# '^\*' - set ft=abaqus | return - endif - for lnum in range(1, min([line("$"), 500])) - let line = getline(lnum) - if line =~? '^header surface data' - set ft=trasys | return - endif - endfor -endfunc - -func! polyglot#DetectAsaFiletype() - if exists("g:filetype_asa") - let &ft = g:filetype_asa | return - endif - set ft=aspvbs | return -endfunc - -func! polyglot#DetectAspFiletype() - if exists("g:filetype_asp") - let &ft = g:filetype_asp | return - endif - for lnum in range(1, min([line("$"), 3])) - let line = getline(lnum) - if line =~? 'perlscript' - set ft=aspperl | return - endif - endfor - set ft=aspvbs | return -endfunc - -func! polyglot#DetectHFiletype() - for lnum in range(1, min([line("$"), 200])) - let line = getline(lnum) - if line =~# '^\s*\(@\(interface\|class\|protocol\|property\|end\|synchronised\|selector\|implementation\)\(\<\|\>\)\|#import\s\+.\+\.h[">]\)' - if exists("g:c_syntax_for_h") - set ft=objc | return - endif - set ft=objcpp | return - endif - endfor - if exists("g:c_syntax_for_h") - set ft=c | return - endif - if exists("g:ch_syntax_for_h") - set ft=ch | return - endif - set ft=cpp | return -endfunc - -func! polyglot#DetectMFiletype() - let saw_comment = 0 - for lnum in range(1, min([line("$"), 100])) - let line = getline(lnum) - if line =~# '^\s*/\*' - let saw_comment = 1 - endif - if line =~# '^\s*\(@\(interface\|class\|protocol\|property\|end\|synchronised\|selector\|implementation\)\(\<\|\>\)\|#import\s\+.\+\.h[">]\)' - set ft=objc | return - endif - if line =~# '^\s*%' - set ft=octave | return - endif - if line =~# '^\s*(\*' - set ft=mma | return - endif - if line =~? '^\s*\(\(type\|var\)\(\<\|\>\)\|--\)' - set ft=murphi | return - endif - endfor - if saw_comment - set ft=objc | return - endif - if exists("g:filetype_m") - let &ft = g:filetype_m | return - endif - set ft=octave | return -endfunc - -func! polyglot#DetectFsFiletype() - for lnum in range(1, min([line("$"), 50])) - let line = getline(lnum) - if line =~# '^\(: \|new-device\)' - set ft=forth | return - endif - if line =~# '^\s*\(#light\|import\|let\|module\|namespace\|open\|type\)' - set ft=fsharp | return - endif - if line =~# '\s*\(#version\|precision\|uniform\|varying\|vec[234]\)' - set ft=glsl | return - endif - endfor - if exists("g:filetype_fs") - let &ft = g:filetype_fs | return - endif - set ft=forth | return -endfunc - -func! polyglot#DetectReFiletype() - for lnum in range(1, min([line("$"), 50])) - let line = getline(lnum) - if line =~# '^\s*#\%(\%(if\|ifdef\|define\|pragma\)\s\+\w\|\s*include\s\+[<"]\|template\s*<\)' - set ft=cpp | return - endif - set ft=reason | return - endfor -endfunc - -func! polyglot#DetectIdrFiletype() - for lnum in range(1, min([line("$"), 5])) - let line = getline(lnum) - if line =~# '^\s*--.*[Ii]dris \=1' - set ft=idris | return - endif - if line =~# '^\s*--.*[Ii]dris \=2' - set ft=idris2 | return - endif - endfor - for lnum in range(1, min([line("$"), 30])) - let line = getline(lnum) - if line =~# '^pkgs =.*' - set ft=idris | return - endif - if line =~# '^depends =.*' - set ft=idris2 | return - endif - if line =~# '^%language \(TypeProviders\|ElabReflection\)' - set ft=idris | return - endif - if line =~# '^%language PostfixProjections' - set ft=idris2 | return - endif - if line =~# '^%access .*' - set ft=idris | return - endif - endfor - if exists("g:filetype_idr") - let &ft = g:filetype_idr | return - endif - set ft=idris2 | return -endfunc - -func! polyglot#DetectLidrFiletype() - for lnum in range(1, min([line("$"), 200])) - let line = getline(lnum) - if line =~# '^>\s*--.*[Ii]dris \=1' - set ft=lidris | return - endif - endfor - set ft=lidris2 | return -endfunc - -func! polyglot#DetectBasFiletype() - for lnum in range(1, min([line("$"), 5])) - let line = getline(lnum) - if line =~? 'VB_Name\|Begin VB\.\(Form\|MDIForm\|UserControl\)' - set ft=vb | return - endif - endfor - set ft=basic | return -endfunc - -func! polyglot#DetectPmFiletype() - let line = getline(nextnonblank(1)) - if line =~# 'XPM2' - set ft=xpm2 | return - endif - if line =~# 'XPM' - set ft=xpm | return - endif - for lnum in range(1, min([line("$"), 50])) - let line = getline(lnum) - if line =~# '^\s*\%(use\s\+v6\(\<\|\>\)\|\(\<\|\>\)module\(\<\|\>\)\|\(\<\|\>\)\%(my\s\+\)\=class\(\<\|\>\)\)' - set ft=raku | return - endif - if line =~# '\(\<\|\>\)use\s\+\%(strict\(\<\|\>\)\|v\=5\.\)' - set ft=perl | return - endif - endfor - if exists("g:filetype_pm") - let &ft = g:filetype_pm | return - endif - set ft=perl | return -endfunc - -func! polyglot#DetectPlFiletype() - let line = getline(nextnonblank(1)) - if line =~# '^[^#]*:-' || line =~# '^\s*\%(%\|/\*\)' || line =~# '\.\s*$' - set ft=prolog | return - endif - for lnum in range(1, min([line("$"), 50])) - let line = getline(lnum) - if line =~# '^\s*\%(use\s\+v6\(\<\|\>\)\|\(\<\|\>\)module\(\<\|\>\)\|\(\<\|\>\)\%(my\s\+\)\=class\(\<\|\>\)\)' - set ft=raku | return - endif - if line =~# '\(\<\|\>\)use\s\+\%(strict\(\<\|\>\)\|v\=5\.\)' - set ft=perl | return - endif - endfor - if exists("g:filetype_pl") - let &ft = g:filetype_pl | return - endif - set ft=perl | return -endfunc - -func! polyglot#DetectTFiletype() - for lnum in range(1, min([line("$"), 5])) - let line = getline(lnum) - if line =~# '^\.' - set ft=nroff | return - endif - endfor - for lnum in range(1, min([line("$"), 50])) - let line = getline(lnum) - if line =~# '^\s*\%(use\s\+v6\(\<\|\>\)\|\(\<\|\>\)module\(\<\|\>\)\|\(\<\|\>\)\%(my\s\+\)\=class\(\<\|\>\)\)' - set ft=raku | return - endif - if line =~# '\(\<\|\>\)use\s\+\%(strict\(\<\|\>\)\|v\=5\.\)' - set ft=perl | return - endif - endfor - if exists("g:filetype_t") - let &ft = g:filetype_t | return - endif - set ft=perl | return -endfunc - -func! polyglot#DetectTt2Filetype() - for lnum in range(1, min([line("$"), 3])) - let line = getline(lnum) - if line =~? '<\%(!DOCTYPE HTML\|[%?]\|html\)' - set ft=tt2html | return - endif - endfor - set ft=tt2 | return -endfunc - -func! polyglot#DetectHtmlFiletype() - let line = getline(nextnonblank(1)) - if line =~# '^\(%\|<[%&].*>\)' - set ft=mason | return - endif - for lnum in range(1, min([line("$"), 50])) - let line = getline(lnum) - if line =~# '{%-\=\s*\(end.*\|extends\|block\|macro\|set\|if\|for\|include\|trans\)\(\<\|\>\)\|{#\s\+' - set ft=htmldjango | return - endif - if line =~# '\(\<\|\>\)DTD\s\+XHTML\s' - set ft=xhtml | return - endif - endfor - set ft=html | au! BufWritePost <buffer> ++once call polyglot#DetectHtmlFiletype() - return -endfunc - - -" Restore 'cpoptions' -let &cpo = s:cpo_save -unlet s:cpo_save - -""" ftdetect/polyglot.vim - -" don't spam the user when Vim is started in Vi compatibility mode -let s:cpo_save = &cpo -set cpo&vim - -" Disable all native vim ftdetect -if exists('g:polyglot_test') - autocmd! -endif - -func! s:Observe(fn) - let b:polyglot_observe = a:fn - augroup polyglot-observer - au! CursorHold,CursorHoldI,BufWritePost <buffer> - \ execute('if polyglot#' . b:polyglot_observe . '() | au! polyglot-observer | endif') - augroup END -endfunc - -let s:disabled_packages = {} -let s:new_polyglot_disabled = [] - -if exists('g:polyglot_disabled') - for pkg in g:polyglot_disabled - let base = split(pkg, '\.') - if len(base) > 0 - let s:disabled_packages[pkg] = 1 - call add(s:new_polyglot_disabled, base[0]) - endif - endfor -else - let g:polyglot_disabled_not_set = 1 -endif - -function! s:SetDefault(name, value) - if !exists(a:name) - let {a:name} = a:value - endif -endfunction - -call s:SetDefault('g:markdown_enable_spell_checking', 0) -call s:SetDefault('g:markdown_enable_input_abbreviations', 0) -call s:SetDefault('g:markdown_enable_mappings', 0) - -" Enable jsx syntax by default -call s:SetDefault('g:jsx_ext_required', 0) - -" Needed for sql highlighting -call s:SetDefault('g:javascript_sql_dialect', 'sql') - -" Make csv loading faster -call s:SetDefault('g:csv_start', 1) -call s:SetDefault('g:csv_end', 2) - -" Disable json concealing by default -call s:SetDefault('g:vim_json_syntax_conceal', 0) - -call s:SetDefault('g:filetype_euphoria', 'elixir') - -if !exists('g:python_highlight_all') - call s:SetDefault('g:python_highlight_builtins', 1) - call s:SetDefault('g:python_highlight_builtin_objs', 1) - call s:SetDefault('g:python_highlight_builtin_types', 1) - call s:SetDefault('g:python_highlight_builtin_funcs', 1) - call s:SetDefault('g:python_highlight_builtin_funcs_kwarg', 1) - call s:SetDefault('g:python_highlight_exceptions', 1) - call s:SetDefault('g:python_highlight_string_formatting', 1) - call s:SetDefault('g:python_highlight_string_format', 1) - call s:SetDefault('g:python_highlight_string_templates', 1) - call s:SetDefault('g:python_highlight_indent_errors', 1) - call s:SetDefault('g:python_highlight_space_errors', 1) - call s:SetDefault('g:python_highlight_doctests', 1) - call s:SetDefault('g:python_highlight_func_calls', 1) - call s:SetDefault('g:python_highlight_class_vars', 1) - call s:SetDefault('g:python_highlight_operators', 1) - call s:SetDefault('g:python_highlight_file_headers_as_comments', 1) - call s:SetDefault('g:python_slow_sync', 1) -endif - -" We need it because scripts.vim in vim uses "set ft=" which cannot be -" overridden with setf (and we can't use set ft= so our scripts.vim work) -func! s:Setf(ft) - if &filetype !~# '\<'.a:ft.'\>' - let &filetype = a:ft - endif -endfunc - -" Function used for patterns that end in a star: don't set the filetype if the -" file name matches ft_ignore_pat. -" When using this, the entry should probably be further down below with the -" other StarSetf() calls. -func! s:StarSetf(ft) - if expand("<amatch>") !~ g:ft_ignore_pat && &filetype !~# '\<'.a:ft.'\>' - let &filetype = a:ft - endif -endfunc - -augroup filetypedetect - -" scripts/build inserts here filetype detection autocommands - -au! BufNewFile,BufRead,StdinReadPost * if expand("<afile>") !~ g:ft_ignore_pat | - \ call polyglot#Shebang() | endif - -au BufEnter * if &ft == "" && expand("<afile>") !~ g:ft_ignore_pat | - \ call s:Observe('Shebang') | endif - -augroup END - -if !has_key(s:disabled_packages, 'autoindent') - " Code below re-implements sleuth for vim-polyglot - let g:loaded_sleuth = 1 - let g:loaded_foobar = 1 - - " Makes shiftwidth to be synchronized with tabstop by default - if &shiftwidth == &tabstop - let &shiftwidth = 0 - endif - - function! s:guess(lines) abort - let options = {} - let ccomment = 0 - let podcomment = 0 - let triplequote = 0 - let backtick = 0 - let xmlcomment = 0 - let heredoc = '' - let minindent = 10 - let spaces_minus_tabs = 0 - let i = 0 - - for line in a:lines - let i += 1 - - if !len(line) || line =~# '^\W*$' - continue - endif - - if line =~# '^\s*/\*' - let ccomment = 1 - endif - if ccomment - if line =~# '\*/' - let ccomment = 0 - endif - continue - endif - - if line =~# '^=\w' - let podcomment = 1 - endif - if podcomment - if line =~# '^=\%(end\|cut\)\>' - let podcomment = 0 - endif - continue - endif - - if triplequote - if line =~# '^[^"]*"""[^"]*$' - let triplequote = 0 - endif - continue - elseif line =~# '^[^"]*"""[^"]*$' - let triplequote = 1 - endif - - if backtick - if line =~# '^[^`]*`[^`]*$' - let backtick = 0 - endif - continue - elseif &filetype ==# 'go' && line =~# '^[^`]*`[^`]*$' - let backtick = 1 - endif - - if line =~# '^\s*<\!--' - let xmlcomment = 1 - endif - if xmlcomment - if line =~# '-->' - let xmlcomment = 0 - endif - continue - endif - - " This is correct order because both "<<EOF" and "EOF" matches end - if heredoc != '' - if line =~# heredoc - let heredoc = '' - endif - continue - endif - let herematch = matchlist(line, '\C<<\W*\([A-Z]\+\)\s*$') - if len(herematch) > 0 - let heredoc = herematch[1] . '$' - endif - - let spaces_minus_tabs += line[0] == "\t" ? 1 : -1 - - if line[0] == "\t" - setlocal noexpandtab - let &l:shiftwidth=&tabstop - let b:sleuth_culprit .= ':' . i - return 1 - elseif line[0] == " " - let indent = len(matchstr(line, '^ *')) - if (indent % 2 == 0 || indent % 3 == 0) && indent < minindent - let minindent = indent - endif - endif - endfor - - if minindent < 10 - setlocal expandtab - let &l:shiftwidth=minindent - let b:sleuth_culprit .= ':' . i - return 1 - endif - - return 0 - endfunction - - function! s:detect_indent() abort - if &buftype ==# 'help' - return - endif - - let b:sleuth_culprit = expand("<afile>:p") - if s:guess(getline(1, 32)) - return - endif - let pattern = sleuth#GlobForFiletype(&filetype) - if len(pattern) == 0 - return - endif - let pattern = '{' . pattern . ',.git,.svn,.hg}' - let dir = expand('%:p:h') - let level = 3 - while isdirectory(dir) && dir !=# fnamemodify(dir, ':h') && level > 0 - " Ignore files from homedir and root - if dir == expand('~') || dir == '/' - unlet b:sleuth_culprit - return - endif - for neighbor in glob(dir . '/' . pattern, 0, 1)[0:level] - let b:sleuth_culprit = neighbor - " Do not consider directories above .git, .svn or .hg - if fnamemodify(neighbor, ":h:t")[0] == "." - let level = 0 - continue - endif - if neighbor !=# expand('%:p') && filereadable(neighbor) - if s:guess(readfile(neighbor, '', 32)) - return - endif - endif - endfor - - let dir = fnamemodify(dir, ':h') - let level -= 1 - endwhile - - unlet b:sleuth_culprit - endfunction - - setglobal smarttab - - function! SleuthIndicator() abort - let sw = &shiftwidth ? &shiftwidth : &tabstop - if &expandtab - return 'sw='.sw - elseif &tabstop == sw - return 'ts='.&tabstop - else - return 'sw='.sw.',ts='.&tabstop - endif - endfunction - - augroup polyglot-sleuth - au! - au FileType * call s:detect_indent() - au User Flags call Hoist('buffer', 5, 'SleuthIndicator') - augroup END - - command! -bar -bang Sleuth call s:detect_indent() -endif - -func! s:verify() - if exists("g:polyglot_disabled_not_set") - if exists("g:polyglot_disabled") - echohl WarningMsg - echo "vim-polyglot: g:polyglot_disabled should be defined before loading vim-polyglot" - echohl None - endif - - unlet g:polyglot_disabled_not_set - endif -endfunc - -au VimEnter * call s:verify() - -" Save polyglot_disabled without postfixes -if exists('g:polyglot_disabled') - let g:polyglot_disabled = s:new_polyglot_disabled -endif - -" restore Vi compatibility settings -let &cpo = s:cpo_save
\ No newline at end of file diff --git a/autoload/polyglot/detect.vim b/autoload/polyglot/detect.vim new file mode 100644 index 00000000..e92d4d12 --- /dev/null +++ b/autoload/polyglot/detect.vim @@ -0,0 +1,262 @@ +func! polyglot#detect#Inp() + let line = getline(nextnonblank(1)) + if line =~# '^\*' + set ft=abaqus | return + endif + for lnum in range(1, min([line("$"), 500])) + let line = getline(lnum) + if line =~? '^header surface data' + set ft=trasys | return + endif + endfor +endfunc + +func! polyglot#detect#Asa() + if exists("g:filetype_asa") + let &ft = g:filetype_asa | return + endif + set ft=aspvbs | return +endfunc + +func! polyglot#detect#Asp() + if exists("g:filetype_asp") + let &ft = g:filetype_asp | return + endif + for lnum in range(1, min([line("$"), 3])) + let line = getline(lnum) + if line =~? 'perlscript' + set ft=aspperl | return + endif + endfor + set ft=aspvbs | return +endfunc + +func! polyglot#detect#H() + for lnum in range(1, min([line("$"), 200])) + let line = getline(lnum) + if line =~# '^\s*\(@\(interface\|class\|protocol\|property\|end\|synchronised\|selector\|implementation\)\(\<\|\>\)\|#import\s\+.\+\.h[">]\)' + if exists("g:c_syntax_for_h") + set ft=objc | return + endif + set ft=objcpp | return + endif + endfor + if exists("g:c_syntax_for_h") + set ft=c | return + endif + if exists("g:ch_syntax_for_h") + set ft=ch | return + endif + set ft=cpp | return +endfunc + +func! polyglot#detect#M() + let saw_comment = 0 + for lnum in range(1, min([line("$"), 100])) + let line = getline(lnum) + if line =~# '^\s*/\*' + let saw_comment = 1 + endif + if line =~# '^\s*\(@\(interface\|class\|protocol\|property\|end\|synchronised\|selector\|implementation\)\(\<\|\>\)\|#import\s\+.\+\.h[">]\)' + set ft=objc | return + endif + if line =~# '^\s*%' + set ft=octave | return + endif + if line =~# '^\s*(\*' + set ft=mma | return + endif + if line =~? '^\s*\(\(type\|var\)\(\<\|\>\)\|--\)' + set ft=murphi | return + endif + endfor + if saw_comment + set ft=objc | return + endif + if exists("g:filetype_m") + let &ft = g:filetype_m | return + endif + set ft=octave | return +endfunc + +func! polyglot#detect#Fs() + for lnum in range(1, min([line("$"), 50])) + let line = getline(lnum) + if line =~# '^\(: \|new-device\)' + set ft=forth | return + endif + if line =~# '^\s*\(#light\|import\|let\|module\|namespace\|open\|type\)' + set ft=fsharp | return + endif + if line =~# '\s*\(#version\|precision\|uniform\|varying\|vec[234]\)' + set ft=glsl | return + endif + endfor + if exists("g:filetype_fs") + let &ft = g:filetype_fs | return + endif + set ft=forth | return +endfunc + +func! polyglot#detect#Re() + for lnum in range(1, min([line("$"), 50])) + let line = getline(lnum) + if line =~# '^\s*#\%(\%(if\|ifdef\|define\|pragma\)\s\+\w\|\s*include\s\+[<"]\|template\s*<\)' + set ft=cpp | return + endif + set ft=reason | return + endfor +endfunc + +func! polyglot#detect#Idr() + for lnum in range(1, min([line("$"), 5])) + let line = getline(lnum) + if line =~# '^\s*--.*[Ii]dris \=1' + set ft=idris | return + endif + if line =~# '^\s*--.*[Ii]dris \=2' + set ft=idris2 | return + endif + endfor + for lnum in range(1, min([line("$"), 30])) + let line = getline(lnum) + if line =~# '^pkgs =.*' + set ft=idris | return + endif + if line =~# '^depends =.*' + set ft=idris2 | return + endif + if line =~# '^%language \(TypeProviders\|ElabReflection\)' + set ft=idris | return + endif + if line =~# '^%language PostfixProjections' + set ft=idris2 | return + endif + if line =~# '^%access .*' + set ft=idris | return + endif + endfor + if exists("g:filetype_idr") + let &ft = g:filetype_idr | return + endif + set ft=idris2 | return +endfunc + +func! polyglot#detect#Lidr() + for lnum in range(1, min([line("$"), 200])) + let line = getline(lnum) + if line =~# '^>\s*--.*[Ii]dris \=1' + set ft=lidris | return + endif + endfor + set ft=lidris2 | return +endfunc + +func! polyglot#detect#Bas() + for lnum in range(1, min([line("$"), 5])) + let line = getline(lnum) + if line =~? 'VB_Name\|Begin VB\.\(Form\|MDIForm\|UserControl\)' + set ft=vb | return + endif + endfor + set ft=basic | return +endfunc + +func! polyglot#detect#Pm() + let line = getline(nextnonblank(1)) + if line =~# 'XPM2' + set ft=xpm2 | return + endif + if line =~# 'XPM' + set ft=xpm | return + endif + for lnum in range(1, min([line("$"), 50])) + let line = getline(lnum) + if line =~# '^\s*\%(use\s\+v6\(\<\|\>\)\|\(\<\|\>\)module\(\<\|\>\)\|\(\<\|\>\)\%(my\s\+\)\=class\(\<\|\>\)\)' + set ft=raku | return + endif + if line =~# '\(\<\|\>\)use\s\+\%(strict\(\<\|\>\)\|v\=5\.\)' + set ft=perl | return + endif + endfor + if exists("g:filetype_pm") + let &ft = g:filetype_pm | return + endif + if polyglot#shebang#Detect() | return | endif + set ft=perl | au! BufWritePost <buffer> ++once call polyglot#detect#Pm() + return +endfunc + +func! polyglot#detect#Pl() + let line = getline(nextnonblank(1)) + if line =~# '^[^#]*:-' || line =~# '^\s*\%(%\|/\*\)' || line =~# '\.\s*$' + set ft=prolog | return + endif + for lnum in range(1, min([line("$"), 50])) + let line = getline(lnum) + if line =~# '^\s*\%(use\s\+v6\(\<\|\>\)\|\(\<\|\>\)module\(\<\|\>\)\|\(\<\|\>\)\%(my\s\+\)\=class\(\<\|\>\)\)' + set ft=raku | return + endif + if line =~# '\(\<\|\>\)use\s\+\%(strict\(\<\|\>\)\|v\=5\.\)' + set ft=perl | return + endif + endfor + if exists("g:filetype_pl") + let &ft = g:filetype_pl | return + endif + if polyglot#shebang#Detect() | return | endif + set ft=perl | au! BufWritePost <buffer> ++once call polyglot#detect#Pl() + return +endfunc + +func! polyglot#detect#T() + for lnum in range(1, min([line("$"), 5])) + let line = getline(lnum) + if line =~# '^\.' + set ft=nroff | return + endif + endfor + for lnum in range(1, min([line("$"), 50])) + let line = getline(lnum) + if line =~# '^\s*\%(use\s\+v6\(\<\|\>\)\|\(\<\|\>\)module\(\<\|\>\)\|\(\<\|\>\)\%(my\s\+\)\=class\(\<\|\>\)\)' + set ft=raku | return + endif + if line =~# '\(\<\|\>\)use\s\+\%(strict\(\<\|\>\)\|v\=5\.\)' + set ft=perl | return + endif + endfor + if exists("g:filetype_t") + let &ft = g:filetype_t | return + endif + if polyglot#shebang#Detect() | return | endif + set ft=perl | au! BufWritePost <buffer> ++once call polyglot#detect#T() + return +endfunc + +func! polyglot#detect#Tt2() + for lnum in range(1, min([line("$"), 3])) + let line = getline(lnum) + if line =~? '<\%(!DOCTYPE HTML\|[%?]\|html\)' + set ft=tt2html | return + endif + endfor + set ft=tt2 | return +endfunc + +func! polyglot#detect#Html() + let line = getline(nextnonblank(1)) + if line =~# '^\(%\|<[%&].*>\)' + set ft=mason | return + endif + for lnum in range(1, min([line("$"), 50])) + let line = getline(lnum) + if line =~# '{%-\=\s*\(end.*\|extends\|block\|macro\|set\|if\|for\|include\|trans\)\(\<\|\>\)\|{#\s\+' + set ft=htmldjango | return + endif + if line =~# '\(\<\|\>\)DTD\s\+XHTML\s' + set ft=xhtml | return + endif + endfor + set ft=html | au! BufWritePost <buffer> ++once call polyglot#detect#Html() + return +endfunc diff --git a/autoload/polyglot/shebang.vim b/autoload/polyglot/shebang.vim new file mode 100644 index 00000000..bf2a793a --- /dev/null +++ b/autoload/polyglot/shebang.vim @@ -0,0 +1,129 @@ +" Please do not edit this file directly, instead modify polyglot.vim or scripts/build + +func! polyglot#shebang#Detect() + let ft = s:Filetype() + if ft != "" + let &ft = ft + endif + + if &ft == "" + runtime! scripts.vim + endif + + return &ft != "" +endfunc + +let s:r_hashbang = '^#!\s*\(\S\+\)\s*\(.*\)\s*' +let s:r_envflag = '%(\S\+=\S\+\|-[iS]\|--ignore-environment\|--split-string\)' +let s:r_env = '^\%(\' . s:r_envflag . '\s\+\)*\(\S\+\)' + +func! s:Filetype() + let l:line1 = getline(1) + + if l:line1 !~# "^#!" + return + endif + + let l:pathrest = matchlist(l:line1, s:r_hashbang) + + if len(l:pathrest) == 0 + return + endif + + let [_, l:path, l:rest; __] = l:pathrest + + let l:script = split(l:path, "/")[-1] + + if l:script == "env" + let l:argspath = matchlist(l:rest, s:r_env) + if len(l:argspath) == 0 + return + endif + + let l:script = l:argspath[1] + endif + + if has_key(s:interpreters, l:script) + return s:interpreters[l:script] + endif + + for interpreter in keys(s:interpreters) + if l:script =~# '^' . interpreter + return s:interpreters[interpreter] + endif + endfor +endfunc + + + +let s:interpreters = { + \ 'osascript': 'applescript', + \ 'tcc': 'c', + \ 'coffee': 'coffee', + \ 'crystal': 'crystal', + \ 'dart': 'dart', + \ 'elixir': 'elixir', + \ 'escript': 'erlang', + \ 'fish': 'fish', + \ 'gnuplot': 'gnuplot', + \ 'groovy': 'groovy', + \ 'runhaskell': 'haskell', + \ 'chakra': 'javascript', + \ 'd8': 'javascript', + \ 'gjs': 'javascript', + \ 'js': 'javascript', + \ 'node': 'javascript', + \ 'nodejs': 'javascript', + \ 'qjs': 'javascript', + \ 'rhino': 'javascript', + \ 'v8': 'javascript', + \ 'v8-shell': 'javascript', + \ 'julia': 'julia', + \ 'lua': 'lua', + \ 'moon': 'moon', + \ 'ocaml': 'ocaml', + \ 'ocamlrun': 'ocaml', + \ 'ocamlscript': 'ocaml', + \ 'cperl': 'perl', + \ 'perl': 'perl', + \ 'php': 'php', + \ 'swipl': 'prolog', + \ 'yap': 'prolog', + \ 'pwsh': 'ps1', + \ 'python': 'python', + \ 'python2': 'python', + \ 'python3': 'python', + \ 'qmake': 'qmake', + \ 'Rscript': 'r', + \ 'racket': 'racket', + \ 'perl6': 'raku', + \ 'raku': 'raku', + \ 'rakudo': 'raku', + \ 'ruby': 'ruby', + \ 'macruby': 'ruby', + \ 'rake': 'ruby', + \ 'jruby': 'ruby', + \ 'rbx': 'ruby', + \ 'scala': 'scala', + \ 'ash': 'sh', + \ 'bash': 'sh', + \ 'dash': 'sh', + \ 'ksh': 'sh', + \ 'mksh': 'sh', + \ 'pdksh': 'sh', + \ 'rc': 'sh', + \ 'sh': 'sh', + \ 'zsh': 'sh', + \ 'boolector': 'smt2', + \ 'cvc4': 'smt2', + \ 'mathsat5': 'smt2', + \ 'opensmt': 'smt2', + \ 'smtinterpol': 'smt2', + \ 'smt-rat': 'smt2', + \ 'stp': 'smt2', + \ 'verit': 'smt2', + \ 'yices2': 'smt2', + \ 'z3': 'smt2', + \ 'deno': 'typescript', + \ 'ts-node': 'typescript', + \ }
\ No newline at end of file diff --git a/autoload/sleuth.vim b/autoload/polyglot/sleuth.vim index 3a41f6f9..d74de687 100644 --- a/autoload/sleuth.vim +++ b/autoload/polyglot/sleuth.vim @@ -232,6 +232,6 @@ let s:globs = { \ 'zsh': '*.zsh,.zshrc,.zshenv,.zlogin,.zprofile,.zlogout,.zlog*,.zcompdump*,.zfbfmarks,.zsh*', \} -func! sleuth#GlobForFiletype(type) +func! polyglot#sleuth#GlobForFiletype(type) return get(s:globs, a:type, '') endfunc |