link_checker.vim

let s:save_cpo = &cpo
set cpo&vim

function! Matcher(path)
    let fromLinkTagList = []
    let toLinkTagList = []
    for line in readfile(a:path)
        call add(fromLinkTagList, matchstr(line,'|\zs\S\{-}\ze|'))
        call add(toLinkTagList, matchstr(line,'\*\zs\S\{-}\ze\*'))
    endfor

    let match_list = []
    for char in toLinkTagList
        if index(fromLinkTagList, char) != -1 && !empty(char)
            call add(match_list, char)
        endif
    endfor

    return match_list
endfunction


function! PathGet()
    return split(globpath(&runtimepath, "doc/*.txt"),"\n")
endfunction


function! Report(notlink,filename)
    let ret = map(deepcopy(a:notlink), "{'filename':a:filename,'text':v:val}")

    call setqflist(ret)
    copen
endfunction

function! Main()
    let l:paths =  PathGet()
    for path in l:paths
        let l:infomation = Matcher(path)
        if !empty(l:infomation)
            call Report(l:infomation, path)
        endif
    endfor
endfunction

call Main()

let &cpo = s:save_cpo
unlet s:save_cpo