55 lines
2.0 KiB
VimL
55 lines
2.0 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.
|
|
"
|
|
"============================================================================
|
|
|
|
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'})
|