syntastic/syntax_checkers/haxe/haxe.vim
Martin Grenfell 16424e5761 add guards to all checkers
goddamn I love macros
2013-02-21 15:50:41 +00:00

60 lines
2.1 KiB
VimL

"============================================================================
"File: haxe.vim
"Description: Syntax checking plugin for syntastic.vim
"Maintainer: David Bernard <david.bernard.31 at gmail dot com>
"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_haxe_haxe_checker")
finish
endif
let g:loaded_syntastic_haxe_haxe_checker=1
function! SyntaxCheckers_haxe_haxe_IsAvailable()
return executable('haxe')
endfunction
" s:FindInParent
" find the file argument and returns the path to it.
" Starting with the current working dir, it walks up the parent folders
" until it finds the file, or it hits the stop dir.
" If it doesn't find it, it returns "Nothing"
function! s:FindInParent(fln,flsrt,flstp)
let here = a:flsrt
while ( strlen( here) > 0 )
let p = split(globpath(here, a:fln), '\n')
if len(p) > 0
return ['ok', here, fnamemodify(p[0], ':p:t')]
endif
let fr = match(here, '/[^/]*$')
if fr == -1
break
endif
let here = strpart(here, 0, fr)
if here == a:flstp
break
endif
endwhile
return ['fail', '', '']
endfunction
function! SyntaxCheckers_haxe_haxe_GetLocList()
let [success, hxmldir, hxmlname] = s:FindInParent('*.hxml', expand('%:p:h'), '/')
if success == 'ok'
let makeprg = 'cd ' . hxmldir . '; haxe ' . hxmlname
let errorformat = '%E%f:%l: characters %c-%*[0-9] : %m'
return SyntasticMake({ 'makeprg': makeprg, 'errorformat': errorformat })
else
return SyntasticMake({})
endif
endfunction
call g:SyntasticRegistry.CreateAndRegisterChecker({
\ 'filetype': 'haxe',
\ 'name': 'haxe'})