if exists( "g:__AL_XPT_EVAL_VIM__" ) && g:__AL_XPT_EVAL_VIM__ >= XPT#ver
	finish
endif
let g:__AL_XPT_EVAL_VIM__ = XPT#ver
let s:oldcpo = &cpo
set cpo-=< cpo+=B
let s:log = xpt#debug#Logger( 'warn' )
let s:log = xpt#debug#Logger( 'debug' )
exe XPT#importConst
let s:_evalCache = { 'strMask' : {}, 'compiledExpr' : {} }
fun! xpt#eval#Eval(str,closures)
	if a:str == ''
		return ''
	endif
	let globals = a:closures[0]
	let x = b:xptemplateData
	let expr = xpt#eval#Compile(a:str)
	let globals._ctx = { 'closures':a:closures, 'renderContext':x.renderContext, }
	let xfunc = globals
	try
		let r = eval(expr)
		return r
	catch /.*/
		call XPT#warn(v:throwpoint)
		call XPT#warn(v:exception)
		call XPT#warn(expr)
		return ''
	endtry
endfunction
fun! xpt#eval#Compile(s)
	if a:s is ''
		return ''
	endif
	let expr = get(s:_evalCache.compiledExpr,a:s,0)
	if expr is 0
		if a:s !~ s:item_var . '\|' . s:item_func
			let expr = string(xpt#util#UnescapeChar(a:s,s:nonsafe))
		elseif a:s =~ '\V\^$\w\+\$'
			let expr = 'xfunc.GetVar(' . string( a:s ) . ')'
		else
			let expr = s:DoCompile(a:s)
		endif
		let s:_evalCache.compiledExpr[a:s] = expr
	endif
	return expr
endfunction
fun! s:DoCompile(s)
	let fptn = '\V' . '\w\+(\[^($]\{-})' . '\|' . s:nonEscaped . '{\w\+(\[^($]\{-})}'
	let vptn = '\V' . s:nonEscaped . '$\w\+' . '\|' . s:nonEscaped . '{$\w\+}'
	let sptn = '\V' . s:nonEscaped . '(\[^($]\{-})'
	let patternVarOrFunc = fptn . '\|' . vptn . '\|' . sptn
	if a:s !~ s:regEval
		return string(xpt#util#UnescapeChar(a:s,s:nonsafe))
	endif
	let stringMask = s:CreateStringMask(a:s)
	if stringMask !~ patternVarOrFunc
		return string(xpt#util#UnescapeChar(a:s,s:nonsafe))
	endif
	let str = a:s
	let evalMask = repeat('-', len(stringMask))
	while 1
		let matchedIndex = match(stringMask,patternVarOrFunc)
		if matchedIndex == -1
			break
		endif
		let matchedLen = len(matchstr(stringMask,patternVarOrFunc))
		let matched = str[matchedIndex : matchedIndex + matchedLen - 1]
		if matched =~ '^{.*}$'
			let matched = matched[1:-2]
		endif
		if matched[0:0] == '(' && matched[-1:-1] == ')'
			let contextedMatchedLen = len(matched)
			let spaces = repeat(' ', contextedMatchedLen)
			let stringMask = (matchedIndex == 0 ? "" : stringMask[:matchedIndex-1]) . spaces . stringMask[matchedIndex + matchedLen :]
			continue
		elseif matched[-1:] == ')'
			let funcname = matchstr(matched, '^\w\+')
			let args = matched[len(funcname) + 1 : -2]
			let matched = "xfunc.Call('" . funcname . "',[" . args . '])'
		elseif matched[0:0] == '$'
			let matched = 'xfunc.GetVar(' . string( matched ) . ')'
		endif
		let contextedMatchedLen = len(matched)
		let spaces = repeat(' ', contextedMatchedLen)
		let evalMask = (matchedIndex == 0 ? "" : evalMask[:matchedIndex-1]) . '+' . spaces[1:] . evalMask[matchedIndex + matchedLen :]
		let stringMask = (matchedIndex == 0 ? "" : stringMask[:matchedIndex-1]) . spaces . stringMask[matchedIndex + matchedLen :]
		let str  = (matchedIndex == 0 ? "" :  str[:matchedIndex-1]) . matched . str[matchedIndex + matchedLen :]
	endwhile
	let idx = 0
	let expr = ''
	while 1
		let matches = matchlist( evalMask, '\V\(-\*\)\(+ \*\)\?', idx )
		if '' == matches[0]
			break
		endif
		if '' != matches[1]
			let part = str[idx : idx + len(matches[1]) - 1]
			if matches[2] != ''
				let part = xpt#util#UnescapeChar(part . '$', '{$( ')
				let part = strpart(part,0,strlen(part) - 1)
			else
				let part = xpt#util#UnescapeChar(part, '{$( ')
			endif
			let expr .= ',' . string(part)
		endif
		if '' != matches[2]
			let expr .= ',' . str[ idx + len(matches[1]) : idx + len(matches[0]) - 1 ]
		endif
		let idx += len(matches[0])
	endwhile
	let expr = "xfunc.Concat(" . expr[ 1: ] . ')'
	return expr
endfunction
fun! s:CreateStringMask(str)
	if a:str == ''
		return ''
	endif
	if has_key(s:_evalCache.strMask,a:str)
		return s:_evalCache.strMask[a:str]
	endif
	let dqe = '\V\('. s:nonEscaped . '"\)'
	let sqe = '\V\('. s:nonEscaped . "'\\)"
	let dptn = dqe.'\_.\{-}\1'
	let sptn = sqe.'\%(\_[^'']\)\{-}'''
	let mask = substitute(a:str, '[ *]', '+', 'g')
	while 1
		let d = match(mask,dptn)
		let s = match(mask,sptn)
		if d == -1 && s == -1
			break
		endif
		if d > -1 && (d < s || s == -1)
			let sub = matchstr(mask,dptn)
			let sub = repeat(' ', len(sub))
			let mask = substitute(mask, dptn, sub, '')
		elseif s > -1
			let sub = matchstr(mask,sptn)
			let sub = repeat(' ', len(sub))
			let mask = substitute(mask, sptn, sub, '')
		endif
	endwhile
	let s:_evalCache.strMask[a:str] = mask
	return mask
endfunction
let &cpo = s:oldcpo