summaryrefslogtreecommitdiff
path: root/ale_linters/sml
diff options
context:
space:
mode:
authorpaulo alem <biggahed@gmail.com>2017-02-18 00:05:33 -0200
committerpaulo alem <biggahed@gmail.com>2017-02-18 00:05:33 -0200
commit677e55df0f4a0aa67a8689f7017bd2eb95e2ea3d (patch)
tree9937b92988d53598fa29704839c850ae6ed5ac41 /ale_linters/sml
parentb21ca4ed4e09bd519ba2943aed17cff909dd71e2 (diff)
downloadale-677e55df0f4a0aa67a8689f7017bd2eb95e2ea3d.zip
Add sml support via smlnj
Diffstat (limited to 'ale_linters/sml')
-rw-r--r--ale_linters/sml/smlnj.vim42
1 files changed, 42 insertions, 0 deletions
diff --git a/ale_linters/sml/smlnj.vim b/ale_linters/sml/smlnj.vim
new file mode 100644
index 00000000..5e7f40a4
--- /dev/null
+++ b/ale_linters/sml/smlnj.vim
@@ -0,0 +1,42 @@
+" Author: Paulo Alem <paulo.alem@gmail.com>
+" Description: Rudimentary SML checking with smlnj compiler
+
+if exists('g:loaded_ale_sml_smlnj_checker')
+ finish
+endif
+
+let g:loaded_ale_sml_smlnj_checker = 1
+
+function! ale_linters#sml#smlnj#Handle(buffer, lines) abort
+ " Try to match basic sml errors
+
+ let l:out = []
+ let l:pattern = '^.*\:\([0-9\.]\+\)\ \(\w\+\)\:\ \(.*\)'
+
+ for l:line in a:lines
+ let l:match = matchlist(l:line, l:pattern)
+
+ if len(l:match) == 0
+ continue
+ endif
+
+ call add(l:out, {
+ \ 'bufnr': a:buffer,
+ \ 'lnum': l:match[1] + 0,
+ \ 'vcol': 0,
+ \ 'col': 1,
+ \ 'text': l:match[2] . ': ' . l:match[3],
+ \ 'type': l:match[2] ==# 'error' ? 'E' : 'W',
+ \ 'nr': -1,
+ \})
+ endfor
+
+ return l:out
+endfunction
+
+call g:ale#linter#Define('sml', {
+\ 'name': 'smlnj',
+\ 'executable': 'sml',
+\ 'command': 'sml',
+\ 'callback': 'ale_linters#sml#smlnj#Handle',
+\})