<commit_before>"============================================================================
"File: tcl.vim
"Description: Syntax checking plugin for syntastic.vim
"Maintainer: <NAME> <<EMAIL>.l.m.thomas 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.
"
"============================================================================

if exists("loaded_tcl_syntax_checker")
    finish
endif
let loaded_tcl_syntax_checker = 1

"bail if the user doesnt have tclsh installed
if !executable("tclsh")
    finish
endif

function! SyntaxCheckers_tcl_GetLocList()
    let makeprg = 'tclsh '.shellescape(expand('%'))
    let errorformat = '%f:%l:%m'

    return SyntasticMake({ 'makeprg': makeprg, 'errorformat': errorformat })
endfunction<commit_msg>Initial commit, adds support for nagelfar TCL syntax checker and moves the tclsh syntax checker into a tcl directory.<commit_after>"============================================================================
"File:        tcl.vim
"Description: Figures out which tcl syntax checker (if any) to load
"             from the tcl directory.
"Maintainer:  <NAME> <james.pickard at gmail. got 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.
"
" Use g:syntastic_tcl_checker option to specify which tcl checker executable
" should be used (see below for a list of supported checkers).
" If g:syntastic_tcl_checker is not set, just use the first syntax
" checker that we find installed.
"============================================================================
if exists("loaded_tcl_syntax_checker")
    finish
endif
let loaded_tcl_syntax_checker = 1


let s:supported_checkers = ["tclsh", "nagelfar.tcl"]

function! s:load_checker(checker)
    exec "runtime syntax_checkers/tcl/" . a:checker . ".vim"
endfunction

if exists("g:syntastic_tcl_checker")
    if index(s:supported_checkers, g:syntastic_tcl_checker) != -1 && executable(g:syntastic_tcl_checker)
        call s:load_checker(g:syntastic_tcl_checker)
    else
        echoerr "tcl syntax not supported or not installed."
    endif
else
    for checker in s:supported_checkers
        if executable(checker)
            call s:load_checker(checker)
            break
        endif
    endfor
endif
{'fraction_non_alphanumeric': 0.18036853295535082, 'fraction_numerical': 0.001771793054571226, 'mean_word_length': 4.276635514018691, 'pattern_counts': {'":': 0, '<': 8, '<?xml version=': 0, '>': 8, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '6165928', 'n_tokens_mistral': 830, 'n_tokens_neox': 795, 'n_words': 281}