1
0
Fork 0
mirror of synced 2024-11-17 22:45:34 -05:00
ultimate-vim/sources_non_forked/syntastic/syntax_checkers/perl6/perl6.vim

107 lines
3.7 KiB
VimL
Raw Normal View History

2017-11-24 08:59:41 -05:00
"============================================================================
"File: perl6.vim
"Description: Syntax checking plugin for syntastic
"Maintainer: Claudio Ramirez <pub.claudio 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.
"
"============================================================================
"
" Security:
"
" This checker runs 'perl6 -c' against your file, which in turn executes
" any BEGIN and CHECK blocks in your file. This is probably fine if you
" wrote the file yourself, but it can be a problem if you're trying to
" check third party files. If you are 100% willing to let Vim run the code
" in your file, set g:syntastic_enable_perl6_checker to 1 in your vimrc
" to enable this
" checker:
"
" let g:syntastic_enable_perl6_checker = 1
"
" Reference:
"
" - https://docs.perl6.org/programs/00-running
if exists('g:loaded_syntastic_perl6_perl6_checker')
finish
endif
let g:loaded_syntastic_perl6_perl6_checker = 1
if !exists('g:syntastic_perl6_lib_path')
let g:syntastic_perl6_lib_path = []
endif
if !exists('g:syntastic_perl6_perl6_sort')
let g:syntastic_perl6_perl6_sort = 1
endif
let s:save_cpo = &cpo
set cpo&vim
function! SyntaxCheckers_perl6_perl6_IsAvailable() dict " {{{1
" don't call executable() here, to allow things like
" let g:syntastic_perl6_perl6_exec = '/usr/bin/env perl6'
silent! call syntastic#util#system(self.getExecEscaped() . ' -e ' . syntastic#util#shescape('exit(0)'))
return (v:shell_error == 0) && syntastic#util#versionIsAtLeast(self.getVersion(), [2017, 1])
endfunction " }}}1
function! SyntaxCheckers_perl6_perl6_GetHighlightRegex(item) " {{{1
let term = matchstr(a:item['text'], '\m''\zs.\{-}\ze''')
if term !=# ''
return '\V' . escape(term, '\')
endif
let term = matchstr(a:item['text'], '\m^Undeclared .\+:\W\zs\S\+\ze')
if term !=# ''
return '\V' . escape(term, '\')
endif
let term = matchstr(a:item['text'], '\mCould not find \zs.\{-}\ze at')
if term !=# ''
return '\V' . escape(term, '\')
endif
let term = matchstr(a:item['text'], '\mCould not find \zs\S\+$')
return term !=# '' ? '\V' . escape(term, '\') : ''
endfunction " }}}1
function! SyntaxCheckers_perl6_perl6_GetLocList() dict " {{{1
if type(g:syntastic_perl6_lib_path) == type('')
call syntastic#log#oneTimeWarn('variable g:syntastic_perl6_lib_path should be a list')
let includes = split(g:syntastic_perl6_lib_path, ',')
else
let includes = copy(syntastic#util#var('perl6_lib_path', []))
endif
" support for PERL6LIB environment variable
if $PERL6LIB !=# ''
let includes += split($PERL6LIB, ':')
endif
call map(includes, '"-I" . v:val')
let errorformat =
\ '%f:%l:%c:%m,' .
\ ':%l:%c:%m'
let makeprg = self.makeprgBuild({ 'args_before': ['-c'] + includes })
return SyntasticMake({
\ 'makeprg': makeprg,
\ 'errorformat': errorformat,
\ 'env': { 'RAKUDO_EXCEPTIONS_HANDLER': 'JSON' },
\ 'defaults': { 'bufnr': bufnr(''), 'type': 'E' },
\ 'returns': [0, 1],
\ 'preprocess': 'perl6',
\ 'postprocess': ['guards', 'iconv'] })
endfunction " }}}1
call g:SyntasticRegistry.CreateAndRegisterChecker({
\ 'filetype': 'perl6',
\ 'name': 'perl6',
\ 'enable': 'enable_perl6_checker'})
let &cpo = s:save_cpo
unlet s:save_cpo
" vim: set sw=4 sts=4 et fdm=marker: