139 lines
3.8 KiB
VimL
139 lines
3.8 KiB
VimL
|
"=============================================================================
|
|||
|
|
" $Id: syntax.vim 246 2010-09-19 22:40:58Z luc.hermitte $
|
|||
|
|
" File: autoload/lh/syntax.vim {{{1
|
|||
|
|
" Author: Luc Hermitte <EMAIL:hermitte {at} free {dot} fr>
|
|||
|
|
" <URL:http://code.google.com/p/lh-vim/>
|
|||
|
|
" Version: 2.2.1
|
|||
|
|
" Created: 05th Sep 2007
|
|||
|
|
" Last Update: $Date: 2010-09-19 18:40:58 -0400 (Sun, 19 Sep 2010) $ (05th Sep 2007)
|
|||
|
|
"------------------------------------------------------------------------
|
|||
|
|
" Description: <09>description<6F>
|
|||
|
|
"
|
|||
|
|
"------------------------------------------------------------------------
|
|||
|
|
" Installation:
|
|||
|
|
" Drop it into {rtp}/autoload/lh/
|
|||
|
|
" Vim 7+ required.
|
|||
|
|
" History: <09>history<72>
|
|||
|
|
" v1.0.0:
|
|||
|
|
" Creation ;
|
|||
|
|
" Functions moved from lhVimSpell
|
|||
|
|
" TODO:
|
|||
|
|
" function, to inject "contained", see lhVimSpell approach
|
|||
|
|
" }}}1
|
|||
|
|
"=============================================================================
|
|||
|
|
|
|||
|
|
|
|||
|
|
"=============================================================================
|
|||
|
|
let s:cpo_save=&cpo
|
|||
|
|
set cpo&vim
|
|||
|
|
"------------------------------------------------------------------------
|
|||
|
|
" ## Functions {{{1
|
|||
|
|
" # Debug {{{2
|
|||
|
|
function! lh#syntax#verbose(level)
|
|||
|
|
let s:verbose = a:level
|
|||
|
|
endfunction
|
|||
|
|
|
|||
|
|
function! s:Verbose(expr)
|
|||
|
|
if exists('s:verbose') && s:verbose
|
|||
|
|
echomsg a:expr
|
|||
|
|
endif
|
|||
|
|
endfunction
|
|||
|
|
|
|||
|
|
function! lh#syntax#debug(expr)
|
|||
|
|
return eval(a:expr)
|
|||
|
|
endfunction
|
|||
|
|
|
|||
|
|
" # Public {{{2
|
|||
|
|
" Functions: Show name of the syntax kind of a character {{{3
|
|||
|
|
function! lh#syntax#name_at(l,c, ...)
|
|||
|
|
let what = a:0 > 0 ? a:1 : 0
|
|||
|
|
return synIDattr(synID(a:l, a:c, what),'name')
|
|||
|
|
endfunction
|
|||
|
|
function! lh#syntax#NameAt(l,c, ...)
|
|||
|
|
let what = a:0 > 0 ? a:1 : 0
|
|||
|
|
return lh#syntax#name_at(a:l, a:c, what)
|
|||
|
|
endfunction
|
|||
|
|
|
|||
|
|
function! lh#syntax#name_at_mark(mark, ...)
|
|||
|
|
let what = a:0 > 0 ? a:1 : 0
|
|||
|
|
return lh#syntax#name_at(line(a:mark), col(a:mark), what)
|
|||
|
|
endfunction
|
|||
|
|
function! lh#syntax#NameAtMark(mark, ...)
|
|||
|
|
let what = a:0 > 0 ? a:1 : 0
|
|||
|
|
return lh#syntax#name_at_mark(a:mark, what)
|
|||
|
|
endfunction
|
|||
|
|
|
|||
|
|
" Functions: skip string, comment, character, doxygen {{{3
|
|||
|
|
func! lh#syntax#skip_at(l,c)
|
|||
|
|
return lh#syntax#name_at(a:l,a:c) =~? 'string\|comment\|character\|doxygen'
|
|||
|
|
endfun
|
|||
|
|
func! lh#syntax#SkipAt(l,c)
|
|||
|
|
return lh#syntax#skip_at(a:l,a:c)
|
|||
|
|
endfun
|
|||
|
|
|
|||
|
|
func! lh#syntax#skip()
|
|||
|
|
return lh#syntax#skip_at(line('.'), col('.'))
|
|||
|
|
endfun
|
|||
|
|
func! lh#syntax#Skip()
|
|||
|
|
return lh#syntax#skip()
|
|||
|
|
endfun
|
|||
|
|
|
|||
|
|
func! lh#syntax#skip_at_mark(mark)
|
|||
|
|
return lh#syntax#skip_at(line(a:mark), col(a:mark))
|
|||
|
|
endfun
|
|||
|
|
func! lh#syntax#SkipAtMark(mark)
|
|||
|
|
return lh#syntax#skip_at_mark(a:mark)
|
|||
|
|
endfun
|
|||
|
|
|
|||
|
|
" Function: Show current syntax kind {{{3
|
|||
|
|
command! SynShow echo 'hi<'.lh#syntax#name_at_mark('.',1).'> trans<'
|
|||
|
|
\ lh#syntax#name_at_mark('.',0).'> lo<'.
|
|||
|
|
\ synIDattr(synIDtrans(synID(line('.'), col('.'), 1)), 'name').'>'
|
|||
|
|
|
|||
|
|
|
|||
|
|
" Function: lh#syntax#list_raw(name) : string {{{3
|
|||
|
|
function! lh#syntax#list_raw(name)
|
|||
|
|
let a_save = @a
|
|||
|
|
try
|
|||
|
|
redir @a
|
|||
|
|
exe 'silent! syn list '.a:name
|
|||
|
|
redir END
|
|||
|
|
let res = @a
|
|||
|
|
finally
|
|||
|
|
let @a = a_save
|
|||
|
|
endtry
|
|||
|
|
return res
|
|||
|
|
endfunction
|
|||
|
|
|
|||
|
|
" Function: lh#syntax#list(name) : List {{{3
|
|||
|
|
function! lh#syntax#list(name)
|
|||
|
|
let raw = lh#syntax#list_raw(a:name)
|
|||
|
|
let res = []
|
|||
|
|
let lines = split(raw, '\n')
|
|||
|
|
let started = 0
|
|||
|
|
for l in lines
|
|||
|
|
if started
|
|||
|
|
let li = (l =~ 'links to') ? '' : l
|
|||
|
|
elseif l =~ 'xxx'
|
|||
|
|
let li = matchstr(l, 'xxx\s*\zs.*')
|
|||
|
|
let started = 1
|
|||
|
|
else
|
|||
|
|
let li = ''
|
|||
|
|
endif
|
|||
|
|
if strlen(li) != 0
|
|||
|
|
let li = substitute(li, 'contained\S*\|transparent\|nextgroup\|skipwhite\|skipnl\|skipempty', '', 'g')
|
|||
|
|
let kinds = split(li, '\s\+')
|
|||
|
|
call extend(res, kinds)
|
|||
|
|
endif
|
|||
|
|
endfor
|
|||
|
|
return res
|
|||
|
|
endfunction
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
" Functions }}}1
|
|||
|
|
"------------------------------------------------------------------------
|
|||
|
|
let &cpo=s:cpo_save
|
|||
|
|
"=============================================================================
|
|||
|
|
" vim600: set fdm=marker:
|