From d1cf20868358281d7940c0f24052d8a04ad61acf Mon Sep 17 00:00:00 2001 From: Vincent Lequertier Date: Sun, 9 Oct 2016 17:31:03 +0200 Subject: [PATCH] Add support for perl and perlcritic --- README.md | 1 + ale_linters/perl/perl.vim | 46 +++++++++++++++++++++++++++++++++ ale_linters/perl/perlcritic.vim | 46 +++++++++++++++++++++++++++++++++ doc/ale.txt | 1 + 4 files changed, 94 insertions(+) create mode 100644 ale_linters/perl/perl.vim create mode 100644 ale_linters/perl/perlcritic.vim diff --git a/README.md b/README.md index 8fd4a769..a628e9e3 100644 --- a/README.md +++ b/README.md @@ -39,6 +39,7 @@ name. That seems to be the fairest way to arrange this table. | HTML | [HTMLHint](http://htmlhint.com/), [tidy](http://www.html-tidy.org/) | | JavaScript | [eslint](http://eslint.org/), [jscs](http://jscs.info/), [jshint](http://jshint.com/) | | JSON | [jsonlint](http://zaa.ch/jsonlint/) | +| Perl | [perl -c](https://perl.org/), [perl-critic](https://metacpan.org/pod/Perl::Critic) | | PHP | [php -l](https://secure.php.net/), [phpcs](https://github.com/squizlabs/PHP_CodeSniffer) | | Pug | [pug-lint](https://github.com/pugjs/pug-lint) | | Python | [flake8](http://flake8.pycqa.org/en/latest/) | diff --git a/ale_linters/perl/perl.vim b/ale_linters/perl/perl.vim new file mode 100644 index 00000000..ad33b6dc --- /dev/null +++ b/ale_linters/perl/perl.vim @@ -0,0 +1,46 @@ +" Author: Vincent Lequertier +" Description: This file adds support for checking perl syntax + +if exists('g:loaded_ale_linters_perl_perlcritic') + finish +endif + +let g:loaded_ale_linters_perl_perl = 1 +function! ale_linters#perl#perl#Handle(buffer, lines) + let pattern = '\(.\+\) at \(.\+\) line \(\d\+\)' + let output = [] + + for line in a:lines + let l:match = matchlist(line, pattern) + + if len(l:match) == 0 + continue + endif + + let line = l:match[3] + let column = 1 + let text = l:match[1] + let type = 'E' + + " vcol is Needed to indicate that the column is a character. + call add(output, { + \ 'bufnr': a:buffer, + \ 'lnum': line, + \ 'vcol': 0, + \ 'col': column, + \ 'text': text, + \ 'type': type, + \ 'nr': -1, + \}) + endfor + + return output +endfunction + +call ALEAddLinter('perl', { +\ 'name': 'perl', +\ 'executable': 'perl', +\ 'output_stream': 'both', +\ 'command': 'perl -X -c -Mwarnings -Ilib', +\ 'callback': 'ale_linters#perl#perl#Handle', +\}) diff --git a/ale_linters/perl/perlcritic.vim b/ale_linters/perl/perlcritic.vim new file mode 100644 index 00000000..98ac83a8 --- /dev/null +++ b/ale_linters/perl/perlcritic.vim @@ -0,0 +1,46 @@ +" Author: Vincent Lequertier +" Description: This file adds support for checking perl with perl critic + +if exists('g:loaded_ale_linters_perl_perlcritic') + finish +endif + +let g:loaded_ale_linters_perl_perlcritic = 1 +function! ale_linters#perl#perlcritic#Handle(buffer, lines) + let pattern = '\(.\+\) at \(.\+\) line \(\d\+\)' + let output = [] + + for line in a:lines + let l:match = matchlist(line, pattern) + + if len(l:match) == 0 + continue + endif + + let line = l:match[3] + let column = 1 + let text = l:match[1] + let type = 'E' + + " vcol is Needed to indicate that the column is a character. + call add(output, { + \ 'bufnr': a:buffer, + \ 'lnum': line, + \ 'vcol': 0, + \ 'col': column, + \ 'text': text, + \ 'type': type, + \ 'nr': -1, + \}) + endfor + + return output +endfunction + +call ALEAddLinter('perl', { +\ 'name': 'perlcritic', +\ 'executable': 'perlcritic', +\ 'output_stream': 'sdtout', +\ 'command': 'perlcritic --verbose 3 --nocolor', +\ 'callback': 'ale_linters#perl#perlcritic#Handle', +\}) diff --git a/doc/ale.txt b/doc/ale.txt index 6772c25a..44f1c7f8 100644 --- a/doc/ale.txt +++ b/doc/ale.txt @@ -53,6 +53,7 @@ The following languages and tools are supported. * HTML: 'HTMLHint', 'tidy' * JavaScript: 'eslint', 'jscs', 'jshint' * JSON: 'jsonlint' +* Perl: 'perl' (-c flag), 'perlcritic' * PHP: 'php' (-l flag), 'phpcs' * Pug: 'pug-lint' * Python: 'flake8'