" Author: Carl Smedstad <carl.smedstad at protonmail dot com>
" Description: sqlfluff for SQL files

let g:ale_sql_sqlfluff_executable =
\   get(g:, 'ale_sql_sqlfluff_executable', 'sqlfluff')

let g:ale_sql_sqlfluff_options =
\   get(g:, 'ale_sql_sqlfluff_options', '')

function! ale_linters#sql#sqlfluff#Executable(buffer) abort
    return ale#Var(a:buffer, 'sql_sqlfluff_executable')
endfunction

function! ale_linters#sql#sqlfluff#Command(buffer, version) abort
    let l:executable = ale_linters#sql#sqlfluff#Executable(a:buffer)
    let l:options = ale#Var(a:buffer, 'sql_sqlfluff_options')

    let l:cmd =
    \    ale#Escape(l:executable)
    \    . ' lint'

    let l:config_file = ale#path#FindNearestFile(a:buffer, '.sqlfluff')

    if !empty(l:config_file)
        let l:cmd .= ' --config ' . ale#Escape(l:config_file)
    else
        let l:cmd .= ' --dialect ansi'
    endif

    let l:cmd .=
    \   ' --format json '
    \   . l:options
    \   . ' %t'

    return l:cmd
endfunction

function! ale_linters#sql#sqlfluff#Handle(buffer, version, lines) abort
    let l:output = []
    let l:json_lines = ale#util#FuzzyJSONDecode(a:lines, [])

    if empty(l:json_lines)
        return l:output
    endif

    let l:json = l:json_lines[0]

    " if there's no warning, 'result' is `null`.
    if empty(get(l:json, 'violations'))
        return l:output
    endif

    if ale#semver#GTE(a:version, [3, 0, 0])
        for l:violation in get(l:json, 'violations', [])
            let l:err = {
            \   'filename': l:json.filepath,
            \   'lnum': l:violation.start_line_no,
            \   'col': l:violation.start_line_pos,
            \   'text': l:violation.description,
            \   'code': l:violation.code,
            \   'type': 'W',
            \}

            if has_key(l:violation, 'end_line_no')
                let l:err.end_lnum = l:violation.end_line_no
            endif

            if has_key(l:violation, 'end_line_pos')
                let l:err.end_col = l:violation.end_line_pos
            endif

            call add(l:output, l:err)
        endfor
    else
        for l:violation in get(l:json, 'violations', [])
            call add(l:output, {
            \   'filename': l:json.filepath,
            \   'lnum': l:violation.line_no,
            \   'col': l:violation.line_pos,
            \   'text': l:violation.description,
            \   'code': l:violation.code,
            \   'type': 'W',
            \})
        endfor
    endif

    return l:output
endfunction

call ale#linter#Define('sql', {
\   'name': 'sqlfluff',
\   'executable': function('ale_linters#sql#sqlfluff#Executable'),
\   'command': {buffer -> ale#semver#RunWithVersionCheck(
\       buffer,
\       ale_linters#sql#sqlfluff#Executable(buffer),
\       '%e --version',
\       function('ale_linters#sql#sqlfluff#Command'),
\   )},
\   'callback': {buffer, lines -> ale#semver#RunWithVersionCheck(
\       buffer,
\       ale_linters#sql#sqlfluff#Executable(buffer),
\       '%e --version',
\       {buffer, version -> ale_linters#sql#sqlfluff#Handle(
\           buffer,
\           l:version,
\           lines)},
\   )},
\})