f49f615ef6
This PR first and formost implements support for dot-seperate filetypes, a very trivial change. This closes #132 But more importantly, this PR vastly improves the test quality for `ale#linter#Get`. It enables us to reset the state of ale's internal linter cache, to facilitate better testing, as well as making use of mocked linters instead of depending on linters on disk (which may change). In addition, a dummy linter is defined to test the autoloading behavior. Header guards were removed from all linters as: * A: ale won't try and load linters if they already exist in memory * B: we can't reset state for testing if they can't be loaded again
66 lines
1.9 KiB
VimL
66 lines
1.9 KiB
VimL
" Author: w0rp <devw0rp@gmail.com>
|
|
" Description: gcc for Fortran files
|
|
|
|
" Set this option to change the GCC options for warnings for Fortran.
|
|
if !exists('g:ale_fortran_gcc_options')
|
|
let g:ale_fortran_gcc_options = '-Wall'
|
|
endif
|
|
|
|
function! ale_linters#fortran#gcc#Handle(buffer, lines)
|
|
" We have to match a starting line and a later ending line together,
|
|
" like so.
|
|
"
|
|
" :21.34:
|
|
" Error: Expected comma in I/O list at (1)
|
|
let l:line_marker_pattern = '^:\(\d\+\)\.\(\d\+\):$'
|
|
let l:message_pattern = '^\(Error\|Warning\): \(.\+\)$'
|
|
let l:looking_for_message = 0
|
|
let l:last_loclist_obj = {}
|
|
|
|
let l:output = []
|
|
|
|
for l:line in a:lines
|
|
if l:looking_for_message
|
|
let l:match = matchlist(l:line, l:message_pattern)
|
|
else
|
|
let l:match = matchlist(l:line, l:line_marker_pattern)
|
|
endif
|
|
|
|
if len(l:match) == 0
|
|
continue
|
|
endif
|
|
|
|
if l:looking_for_message
|
|
let l:looking_for_message = 0
|
|
|
|
" Now we have the text, we can set it and add the error.
|
|
let l:last_loclist_obj.text = l:match[2]
|
|
let l:last_loclist_obj.type = l:match[1] ==# 'Warning' ? 'W' : 'E'
|
|
call add(l:output, l:last_loclist_obj)
|
|
else
|
|
let l:last_loclist_obj = {
|
|
\ 'bufnr': a:buffer,
|
|
\ 'lnum': l:match[1] + 0,
|
|
\ 'vcol': 0,
|
|
\ 'col': l:match[2] + 0,
|
|
\ 'nr': -1,
|
|
\}
|
|
|
|
" Start looking for the message and error type.
|
|
let l:looking_for_message = 1
|
|
endif
|
|
endfor
|
|
|
|
return l:output
|
|
endfunction
|
|
|
|
call ale#linter#Define('fortran', {
|
|
\ 'name': 'gcc',
|
|
\ 'output_stream': 'stderr',
|
|
\ 'executable': 'gcc',
|
|
\ 'command': 'gcc -S -x f95 -fsyntax-only -ffree-form '
|
|
\ . g:ale_fortran_gcc_options
|
|
\ . ' -',
|
|
\ 'callback': 'ale_linters#fortran#gcc#Handle',
|
|
\})
|