" Vim completion script" Language:	XML" Maintainer:	Mikolaj Machowski ( mikmach AT wp DOT pl )" Last Change:	2006 Jul 18" Version: 1.8"" Changelog:" 1.8 - 2006 Jul 18"       - allow for closing of xml tags even when data file isn't available " This function will create Dictionary with users namespace strings and values" canonical (system) names of data files.  Names should be lowercase," descriptive to avoid any future conflicts. For example 'xhtml10s' should be" name for data of XHTML 1.0 Strict and 'xhtml10t' for XHTML 1.0 Transitional" User interface will be provided by XMLns command defined in ftplugin/xml.vim" Currently supported canonicals are:" xhtml10s - XHTML 1.0 Strict" xsl      - XSLfunction! xmlcomplete#CreateConnection(canonical, ...) " {{{ 	" When only one argument provided treat name as default namespace (without	" 'prefix:').	if exists("a:1")		let users = a:1	else		let users = 'DEFAULT'	endif 	" Source data file. Due to suspected errors in autoload do it with	" :runtime.	" TODO: make it properly (using autoload, that is) later	exe "runtime autoload/xml/".a:canonical.".vim" 	" Remove all traces of unexisting files to return [] when trying	" omnicomplete something	" TODO: give warning about non-existing canonicals - should it be?	if !exists("g:xmldata_".a:canonical)		unlet! g:xmldata_connection		return 0	endif 	" We need to initialize Dictionary to add key-value pair	if !exists("g:xmldata_connection")		let g:xmldata_connection = {}	endif 	let g:xmldata_connection[users] = a:canonical endfunction" }}} function! xmlcomplete#CreateEntConnection(...) " {{{	if a:0 > 0		let g:xmldata_entconnect = a:1	else		let g:xmldata_entconnect = 'DEFAULT'	endifendfunction" }}} function! xmlcomplete#CompleteTags(findstart, base)  if a:findstart    " locate the start of the word	let curline = line('.')    let line = getline('.')    let start = col('.') - 1	let compl_begin = col('.') - 2     while start >= 0 && line[start - 1] =~ '\(\k\|[:.-]\)'		let start -= 1    endwhile 	if start >= 0 && line[start - 1] =~ '&'		let b:entitiescompl = 1		let b:compl_context = ''		return start	endif 	let b:compl_context = getline('.')[0:(compl_begin)]	if b:compl_context !~ '<[^>]*$'		" Look like we may have broken tag. Check previous lines. Up to		" 10?		let i = 1		while 1			let context_line = getline(curline-i)			if context_line =~ '<[^>]*$'				" Yep, this is this line				let context_lines = getline(curline-i, curline-1) + [b:compl_context]				let b:compl_context = join(context_lines, ' ')				break			elseif context_line =~ '>[^<]*$' || i == curline				" Normal tag line, no need for completion at all				" OR reached first line without tag at all				let b:compl_context = ''				break			endif			let i += 1		endwhile		" Make sure we don't have counter		unlet! i	endif	let b:compl_context = matchstr(b:compl_context, '.*\zs<.*') 	" Make sure we will have only current namespace	unlet! b:xml_namespace	let b:xml_namespace = matchstr(b:compl_context, '^<\zs\k*\ze:')	if b:xml_namespace == ''		let b:xml_namespace = 'DEFAULT'	endif     return start   else	" Initialize base return lists    let res = []    let res2 = []	" a:base is very short - we need context	if len(b:compl_context) == 0  && !exists("b:entitiescompl")		return []	endif	let context = matchstr(b:compl_context, '^<\zs.*')	unlet! b:compl_context	" There is no connection of namespace and data file.	if !exists("g:xmldata_connection") || g:xmldata_connection == {}		" There is still possibility we may do something - eg. close tag		let b:unaryTagsStack = "base meta link hr br param img area input col"		if context =~ '^\/'			let opentag = xmlcomplete#GetLastOpenTag("b:unaryTagsStack")			return [opentag.">"]		else			return []		endif	endif 	" Make entities completion	if exists("b:entitiescompl")		unlet! b:entitiescompl 		if !exists("g:xmldata_entconnect") || g:xmldata_entconnect == 'DEFAULT'			let values =  g:xmldata{'_'.g:xmldata_connection['DEFAULT']}['vimxmlentities']		else			let values =  g:xmldata{'_'.g:xmldata_entconnect}['vimxmlentities']		endif 		" Get only lines with entity declarations but throw out		" parameter-entities - they may be completed in future		let entdecl = filter(getline(1, "$"), 'v:val =~ "<!ENTITY\\s\\+[^%]"') 		if len(entdecl) > 0			let intent = map(copy(entdecl), 'matchstr(v:val, "<!ENTITY\\s\\+\\zs\\(\\k\\|[.-:]\\)\\+\\ze")')			let values = intent + values		endif 		if len(a:base) == 1			for m in values				if m =~ '^'.a:base					call add(res, m.';')				endif			endfor			return res		else			for m in values				if m =~? '^'.a:base					call add(res, m.';')				elseif m =~? a:base					call add(res2, m.';')				endif			endfor 			return res + res2		endif 	endif	if context =~ '>'		" Generally if context contains > it means we are outside of tag and		" should abandon action		return []	endif     " find tags matching with "a:base"	" If a:base contains white space it is attribute.	" It could be also value of attribute...	" We have to get first word to offer	" proper completions	if context == ''		let tag = ''	else		let tag = split(context)[0]	endif	" Get rid of namespace	let tag = substitute(tag, '^'.b:xml_namespace.':', '', '')  	" Get last word, it should be attr name	let attr = matchstr(context, '.*\s\zs.*')	" Possible situations where any prediction would be difficult:	" 1. Events attributes	if context =~ '\s' 		" If attr contains =\s*[\"'] we catched value of attribute		if attr =~ "=\s*[\"']" || attr =~ "=\s*$"			" Let do attribute specific completion			let attrname = matchstr(attr, '.*\ze\s*=')			let entered_value = matchstr(attr, ".*=\\s*[\"']\\?\\zs.*") 			if tag =~ '^[?!]'				" Return nothing if we are inside of ! or ? tag				return []			else				if has_key(g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}, tag) && has_key(g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}[tag][1], attrname)					let values = g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}[tag][1][attrname]				else					return []				endif			endif 			if len(values) == 0				return []			endif 			" We need special version of sbase			let attrbase = matchstr(context, ".*[\"']")			let attrquote = matchstr(attrbase, '.$')			if attrquote !~ "['\"]"				let attrquoteopen = '"'				let attrquote = '"'			else				let attrquoteopen = ''			endif 			for m in values				" This if is needed to not offer all completions as-is				" alphabetically but sort them. Those beginning with entered				" part will be as first choices				if m =~ '^'.entered_value					call add(res, attrquoteopen . m . attrquote.' ')				elseif m =~ entered_value					call add(res2, attrquoteopen . m . attrquote.' ')				endif			endfor 			return res + res2 		endif 		if tag =~ '?xml'			" Two possible arguments for <?xml> plus variation			let attrs = ['encoding', 'version="1.0"', 'version']		elseif tag =~ '^!'			" Don't make completion at all			"			return []		else            if !has_key(g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}, tag)				" Abandon when data file isn't complete 				return [] 			endif			let attrs = keys(g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}[tag][1])		endif 		for m in sort(attrs)			if m =~ '^'.attr				call add(res, m)			elseif m =~ attr				call add(res2, m)			endif		endfor		let menu = res + res2		let final_menu = []		if has_key(g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}, 'vimxmlattrinfo')			for i in range(len(menu))				let item = menu[i]				if has_key(g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}['vimxmlattrinfo'], item)					let m_menu = g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}['vimxmlattrinfo'][item][0]					let m_info = g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}['vimxmlattrinfo'][item][1]				else					let m_menu = ''					let m_info = ''				endif				if tag !~ '^[?!]' && len(g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}[tag][1][item]) > 0 && g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}[tag][1][item][0] =~ '^\(BOOL\|'.item.'\)$'					let item = item				else					let item .= '="'				endif				let final_menu += [{'word':item, 'menu':m_menu, 'info':m_info}]			endfor		else			for i in range(len(menu))				let item = menu[i]				if tag !~ '^[?!]' && len(g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}[tag][1][item]) > 0 && g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}[tag][1][item][0] =~ '^\(BOOL\|'.item.'\)$'					let item = item				else					let item .= '="'				endif				let final_menu += [item]			endfor		endif		return final_menu 	endif	" Close tag	let b:unaryTagsStack = "base meta link hr br param img area input col"	if context =~ '^\/'		let opentag = xmlcomplete#GetLastOpenTag("b:unaryTagsStack")		return [opentag.">"]	endif 	" Complete elements of XML structure	" TODO: #REQUIRED, #IMPLIED, #FIXED, #PCDATA - but these should be detected like	" entities - in first run	" keywords: CDATA, ID, IDREF, IDREFS, ENTITY, ENTITIES, NMTOKEN, NMTOKENS	" are hardly recognizable but keep it in reserve	" also: EMPTY ANY SYSTEM PUBLIC DATA	if context =~ '^!'		let tags = ['!ELEMENT', '!DOCTYPE', '!ATTLIST', '!ENTITY', '!NOTATION', '![CDATA[', '![INCLUDE[', '![IGNORE['] 		for m in tags			if m =~ '^'.context				let m = substitute(m, '^!\[\?', '', '')				call add(res, m)			elseif m =~ context				let m = substitute(m, '^!\[\?', '', '')				call add(res2, m)			endif		endfor 		return res + res2 	endif 	" Complete text declaration	if context =~ '^?'		let tags = ['?xml'] 		for m in tags			if m =~ '^'.context				call add(res, substitute(m, '^?', '', ''))			elseif m =~ context				call add(res, substitute(m, '^?', '', ''))			endif		endfor 		return res + res2 	endif 	" Deal with tag completion.	let opentag = xmlcomplete#GetLastOpenTag("b:unaryTagsStack")	let opentag = substitute(opentag, '^\k*:', '', '')	if opentag == ''		"return []	    let tags = keys(g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]})		call filter(tags, 'v:val !~ "^vimxml"')	else		if !has_key(g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}, opentag)			" Abandon when data file isn't complete			return []		endif		let tags = g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}[opentag][0]	endif 	let context = substitute(context, '^\k*:', '', '') 	for m in tags		if m =~ '^'.context			call add(res, m)		elseif m =~ context			call add(res2, m)		endif	endfor	let menu = res + res2	if b:xml_namespace == 'DEFAULT'		let xml_namespace = ''	else		let xml_namespace = b:xml_namespace.':'	endif	if has_key(g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}, 'vimxmltaginfo')		let final_menu = []		for i in range(len(menu))			let item = menu[i]			if has_key(g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}['vimxmltaginfo'], item)				let m_menu = g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}['vimxmltaginfo'][item][0]				let m_info = g:xmldata{'_'.g:xmldata_connection[b:xml_namespace]}['vimxmltaginfo'][item][1]			else				let m_menu = ''				let m_info = ''			endif			let final_menu += [{'word':xml_namespace.item, 'menu':m_menu, 'info':m_info}]		endfor	else		let final_menu = map(menu, 'xml_namespace.v:val')	endif 	return final_menu   endifendfunction " MM: This is severely reduced closetag.vim used with kind permission of Steven"     Mueller"     Changes: strip all comments; delete error messages; add checking for"     namespace" Author: Steven Mueller <diffusor@ugcs.caltech.edu>" Last Modified: Tue May 24 13:29:48 PDT 2005 " Version: 0.9.1 function! xmlcomplete#GetLastOpenTag(unaryTagsStack)	let linenum=line('.')	let lineend=col('.') - 1 " start: cursor position	let first=1              " flag for first line searched	let b:TagStack=''        " main stack of tags	let startInComment=s:InComment() 	if exists("b:xml_namespace")		if b:xml_namespace == 'DEFAULT'			let tagpat='</\=\(\k\|[.-]\)\+\|/>'		else			let tagpat='</\='.b:xml_namespace.':\(\k\|[.-]\)\+\|/>'		endif	else		let tagpat='</\=\(\k\|[.-]\)\+\|/>'	endif	while (linenum>0)		let line=getline(linenum)		if first			let line=strpart(line,0,lineend)		else			let lineend=strlen(line)		endif		let b:lineTagStack=''		let mpos=0		let b:TagCol=0		while (mpos > -1)			let mpos=matchend(line,tagpat)			if mpos > -1				let b:TagCol=b:TagCol+mpos				let tag=matchstr(line,tagpat) 				if exists('b:closetag_disable_synID') || startInComment==s:InCommentAt(linenum, b:TagCol)					let b:TagLine=linenum					call s:Push(matchstr(tag,'[^<>]\+'),'b:lineTagStack')				endif				let lineend=lineend-mpos				let line=strpart(line,mpos,lineend)			endif		endwhile		while (!s:EmptystackP('b:lineTagStack'))			let tag=s:Pop('b:lineTagStack')			if match(tag, '^/') == 0		"found end tag				call s:Push(tag,'b:TagStack')			elseif s:EmptystackP('b:TagStack') && !s:Instack(tag, a:unaryTagsStack)	"found unclosed tag				return tag			else				let endtag=s:Peekstack('b:TagStack')				if endtag == '/'.tag || endtag == '/'					call s:Pop('b:TagStack')	"found a open/close tag pair				elseif !s:Instack(tag, a:unaryTagsStack) "we have a mismatch error					return ''				endif			endif		endwhile		let linenum=linenum-1 | let first=0	endwhilereturn ''endfunction function! s:InComment()	return synIDattr(synID(line('.'), col('.'), 0), 'name') =~ 'Comment\|String'endfunction function! s:InCommentAt(line, col)	return synIDattr(synID(a:line, a:col, 0), 'name') =~ 'Comment\|String'endfunction function! s:SetKeywords()	let g:IsKeywordBak=&iskeyword	let &iskeyword='33-255'endfunction function! s:RestoreKeywords()	let &iskeyword=g:IsKeywordBakendfunction function! s:Push(el, sname)	if !s:EmptystackP(a:sname)		exe 'let '.a:sname."=a:el.' '.".a:sname	else		exe 'let '.a:sname.'=a:el'	endifendfunction function! s:EmptystackP(sname)	exe 'let stack='.a:sname	if match(stack,'^ *$') == 0		return 1	else		return 0	endifendfunction 

Lines 1–500 of 537. Load more