265 lines
7.7 KiB
VimL
265 lines
7.7 KiB
VimL
"============================================================================
|
|
"File: syntastic.vim
|
|
"Description: vim plugin for on the fly syntax checking
|
|
"Maintainer: Martin Grenfell <martin.grenfell at gmail dot com>
|
|
"Version: 1.0.0
|
|
"Last Change: 11 Aug, 2009
|
|
"License: This program is free software. It comes without any warranty,
|
|
" to the extent permitted by applicable law. You can redistribute
|
|
" it and/or modify it under the terms of the Do What The Fuck You
|
|
" Want To Public License, Version 2, as published by Sam Hocevar.
|
|
" See http://sam.zoy.org/wtfpl/COPYING for more details.
|
|
"
|
|
"============================================================================
|
|
|
|
if exists("g:loaded_syntastic_plugin")
|
|
finish
|
|
endif
|
|
let g:loaded_syntastic_plugin = 1
|
|
|
|
let s:running_windows = has("win16") || has("win32") || has("win64")
|
|
|
|
if !exists("g:syntastic_enable_signs") || !has('signs')
|
|
let g:syntastic_enable_signs = 0
|
|
endif
|
|
|
|
if !exists("g:syntastic_auto_loc_list")
|
|
let g:syntastic_auto_loc_list = 0
|
|
endif
|
|
|
|
if !exists("g:syntastic_quiet_warnings")
|
|
let g:syntastic_quiet_warnings = 0
|
|
endif
|
|
|
|
if !exists("g:syntastic_disabled_filetypes")
|
|
let g:syntastic_disabled_filetypes = []
|
|
endif
|
|
|
|
"load all the syntax checkers
|
|
runtime! syntax_checkers/*.vim
|
|
|
|
"refresh and redraw all the error info for this buf when saving or reading
|
|
autocmd bufreadpost,bufwritepost * call s:UpdateErrors()
|
|
function! s:UpdateErrors()
|
|
call s:CacheErrors()
|
|
|
|
if g:syntastic_enable_signs
|
|
call s:RefreshSigns()
|
|
endif
|
|
|
|
if g:syntastic_auto_loc_list
|
|
if s:BufHasErrorsOrWarningsToDisplay()
|
|
call s:ShowLocList()
|
|
else
|
|
"TODO: this will close the loc list window if one was opened by
|
|
"something other than syntastic
|
|
lclose
|
|
endif
|
|
endif
|
|
endfunction
|
|
|
|
"detect and cache all syntax errors in this buffer
|
|
"
|
|
"depends on a function called SyntaxCheckers_{&ft}_GetLocList() existing
|
|
"elsewhere
|
|
function! s:CacheErrors()
|
|
let b:syntastic_loclist = []
|
|
|
|
if filereadable(expand("%"))
|
|
for ft in split(&ft, '\.')
|
|
if s:Checkable(ft)
|
|
let b:syntastic_loclist = extend(b:syntastic_loclist, SyntaxCheckers_{ft}_GetLocList())
|
|
endif
|
|
endfor
|
|
endif
|
|
endfunction
|
|
|
|
"return true if there are cached errors/warnings for this buf
|
|
function! s:BufHasErrorsOrWarnings()
|
|
return exists("b:syntastic_loclist") && !empty(b:syntastic_loclist)
|
|
endfunction
|
|
|
|
"return true if there are cached errors for this buf
|
|
function! s:BufHasErrors()
|
|
return len(s:ErrorsForType('E')) > 0
|
|
endfunction
|
|
|
|
function! s:BufHasErrorsOrWarningsToDisplay()
|
|
return s:BufHasErrors() || (!g:syntastic_quiet_warnings && s:BufHasErrorsOrWarnings())
|
|
endfunction
|
|
|
|
function! s:ErrorsForType(type)
|
|
if !exists("b:syntastic_loclist")
|
|
return []
|
|
endif
|
|
return filter(copy(b:syntastic_loclist), 'v:val["type"] ==# "' . a:type . '"')
|
|
endfunction
|
|
|
|
if g:syntastic_enable_signs
|
|
"use >> to display syntax errors in the sign column
|
|
sign define SyntasticError text=>> texthl=error
|
|
sign define SyntasticWarning text=>> texthl=todo
|
|
endif
|
|
|
|
"start counting sign ids at 5000, start here to hopefully avoid conflicting
|
|
"with any other code that places signs (not sure if this precaution is
|
|
"actually needed)
|
|
let s:first_sign_id = 5000
|
|
let s:next_sign_id = s:first_sign_id
|
|
|
|
"place signs by all syntax errs in the buffer
|
|
function s:SignErrors()
|
|
if s:BufHasErrorsOrWarningsToDisplay()
|
|
for i in b:syntastic_loclist
|
|
let sign_type = 'SyntasticError'
|
|
if i['type'] == 'W'
|
|
let sign_type = 'SyntasticWarning'
|
|
endif
|
|
|
|
exec "sign place ". s:next_sign_id ." line=". i['lnum'] ." name=". sign_type ." file=". expand("%:p")
|
|
call add(s:BufSignIds(), s:next_sign_id)
|
|
let s:next_sign_id += 1
|
|
endfor
|
|
endif
|
|
endfunction
|
|
|
|
"remove the signs with the given ids from this buffer
|
|
function! s:RemoveSigns(ids)
|
|
for i in a:ids
|
|
exec "sign unplace " . i
|
|
call remove(s:BufSignIds(), index(s:BufSignIds(), i))
|
|
endfor
|
|
endfunction
|
|
|
|
"get all the ids of the SyntaxError signs in the buffer
|
|
function! s:BufSignIds()
|
|
if !exists("b:syntastic_sign_ids")
|
|
let b:syntastic_sign_ids = []
|
|
endif
|
|
return b:syntastic_sign_ids
|
|
endfunction
|
|
|
|
"update the error signs
|
|
function! s:RefreshSigns()
|
|
let old_signs = copy(s:BufSignIds())
|
|
call s:SignErrors()
|
|
call s:RemoveSigns(old_signs)
|
|
let s:first_sign_id = s:next_sign_id
|
|
endfunction
|
|
|
|
"display the cached errors for this buf in the location list
|
|
function! s:ShowLocList()
|
|
if exists("b:syntastic_loclist")
|
|
call setloclist(0, b:syntastic_loclist)
|
|
let num = winnr()
|
|
lopen
|
|
if num != winnr()
|
|
wincmd p
|
|
endif
|
|
endif
|
|
endfunction
|
|
|
|
command Errors call s:ShowLocList()
|
|
|
|
"return [syntax:X(Y)] if syntax errors are detected in the buffer, where X is the
|
|
"line number of the first error and Y is the number of errors detected. (Y) is
|
|
"only displayed if > 1 errors are detected
|
|
"
|
|
"return '' if no errors are cached for the buffer
|
|
function! SyntasticStatuslineFlag()
|
|
if s:BufHasErrorsOrWarningsToDisplay()
|
|
|
|
let first_err_line = b:syntastic_loclist[0]['lnum']
|
|
if g:syntastic_quiet_warnings
|
|
let first_err_line = s:ErrorsForType('E')[0]['lnum']
|
|
endif
|
|
|
|
let err_count = len(b:syntastic_loclist)
|
|
if g:syntastic_quiet_warnings
|
|
let err_count = len(s:ErrorsForType('E'))
|
|
endif
|
|
|
|
let toReturn = '[syntax:' . first_err_line
|
|
|
|
if err_count > 1
|
|
let toReturn .= '(' . err_count . ')'
|
|
endif
|
|
|
|
let toReturn .= ']'
|
|
|
|
return toReturn
|
|
else
|
|
return ''
|
|
endif
|
|
endfunction
|
|
|
|
"A wrapper for the :lmake command. Sets up the make environment according to
|
|
"the options given, runs make, resets the environment, returns the location
|
|
"list
|
|
"
|
|
"a:options can contain the following keys:
|
|
" 'makeprg'
|
|
" 'errorformat'
|
|
"
|
|
"The corresponding options are set for the duration of the function call. They
|
|
"are set with :let, so dont escape spaces.
|
|
function! SyntasticMake(options)
|
|
let old_loclist = getloclist(0)
|
|
let old_makeprg = &makeprg
|
|
let old_shellpipe = &shellpipe
|
|
let old_errorformat = &errorformat
|
|
|
|
if !s:running_windows
|
|
"this is a hack to stop the screen needing to be ':redraw'n when
|
|
"when :lmake is run. Otherwise the screen flickers annoyingly
|
|
let &shellpipe='&>'
|
|
endif
|
|
|
|
if has_key(a:options, 'makeprg')
|
|
let &makeprg = a:options['makeprg']
|
|
endif
|
|
|
|
if has_key(a:options, 'errorformat')
|
|
let &errorformat = a:options['errorformat']
|
|
endif
|
|
|
|
silent lmake!
|
|
let errors = getloclist(0)
|
|
|
|
call setloclist(0, old_loclist)
|
|
let &makeprg = old_makeprg
|
|
let &errorformat = old_errorformat
|
|
let &shellpipe=old_shellpipe
|
|
|
|
return errors
|
|
endfunction
|
|
|
|
function! s:Checkable(ft)
|
|
return exists("*SyntaxCheckers_". a:ft ."_GetLocList") &&
|
|
\ index(g:syntastic_disabled_filetypes, a:ft) == -1
|
|
endfunction
|
|
|
|
command! -nargs=? SyntasticEnable call s:Enable(<f-args>)
|
|
command! -nargs=? SyntasticDisable call s:Disable(<f-args>)
|
|
|
|
"disable syntax checking for the given filetype (defaulting to current ft)
|
|
function! s:Disable(...)
|
|
let ft = a:0 ? a:1 : &filetype
|
|
|
|
if !empty(ft) && index(g:syntastic_disabled_filetypes, ft) == -1
|
|
call add(g:syntastic_disabled_filetypes, ft)
|
|
endif
|
|
endfunction
|
|
|
|
"enable syntax checking for the given filetype (defaulting to current ft)
|
|
function! s:Enable(...)
|
|
let ft = a:0 ? a:1 : &filetype
|
|
|
|
let i = index(g:syntastic_disabled_filetypes, ft)
|
|
if i != -1
|
|
call remove(g:syntastic_disabled_filetypes, i)
|
|
endif
|
|
endfunction
|
|
|
|
" vim: set et sts=4 sw=4:
|