Editing Module:Var

local p={}
local lib_arg={}
local lib_str=mw.ustring
local yesno = require('Module:Yesno')
local main_template_name = "變數"
local module_call ="#invoke:Var"
local soft_subst_main = "Softsubst"
local messages,_L,lib_es,lib_tc,command_list = {
	magic_space = '\127'..string.char( 0xC2, 0xA0 ),
	strip_mark = "\127'\"`UNIQ--%s-%s-QINU`\"'\127",
	strip_mark_pattern = "\127'\"`UNIQ%%-%%-%s%%-%s%%-QINU`\"'\127",
	arg_global = '_arg_process',
	cant_subst = '替換引用階段無法存取變數',
	cat_subst_not_done = "未完成替換引用的頁面",
	not_support_strip_warning_cmt = "<!--可能需要手動調整的擴展標籤-->",
	not_support_strip_warning = "[[Template:softsubst]]警告：欲顯示替換引用原碼的模板中包含了擴展標籤，可能導致結果不準確，或替換引用失敗。",
	do_subst = '<p class="notice metadata" id="spoiler" style="font-size: small">以下内容為[[WP:Subst|替換引用]]後的預期內容，請自行拷貝原始碼完成替換引用。</p><div style="clear: both; overflow: auto; border: 1px solid #cccccc; padding: 4px; text-align: left; background: transparency;">',
	remove_hide_strip_mark = "<span%s+style%s*=%s*[\"\']%s*display%s*:%s*none%s*;?%s*[\"\']%s*>[^<]+UNIQ%-%-nowiki[^<]+<%s*/%s*span%s*>",
	var_undefine = '變數 "%s" 未定義。',
	NullPointerException = '[[NullPointerException|空指標]]錯誤'},{p=p},require("Module:EditState"),
	require("Module:TrackingCategory"),{'none',
	set = {'set', '設定', '設置'},
	get = {'get', '取值','取', '取得'},
	getconst = {'getconst'},
	ref = {'ref', '取址'},
	refget = {'refget', 'refgetname'},
	hide = {'hide', '隱藏'},
	subst = {'subst'},
	call = {'call', 'callconst', '呼叫', '執行', '運行'},
	hist = {'hist', '歷史'},
	delete = {'del', 'delete', '刪除'},
	new = {'new'},
};
local notsupport_strip = false
local no_color = false
local printf = lib_str.format
local sub = lib_str.sub
local gsub = lib_str.gsub
local trim = mw.text.trim
local split = mw.text.split
local function _test_cmd(cmd_names, test)
	local result, trim_test = false, trim(lib_str.lower(test))
	for i=1,#cmd_names do result = result or (trim_test == cmd_names[i]) end
	return result
end
local function addWarning(msg)
	return mw.addWarning(require('Module:Error').error{[1] = msg})
end
local function codeNowikiWithColor(frame, code_lang, text)
	if no_color then return frame:extensionTag('nowiki',text) end
	return frame:extensionTag('syntaxhighlight',text, {inline='', lang=code_lang})
end
local strip_code_color_map = {}
local ignore_strip_code = {
	indicator = true, 
	h=true,
	item=true
}
local function strip_code_color(frame, strip_code)
	local strip_type = strip_code:lower()
	if ignore_strip_code[strip_type] == true then return {'',''} end
	if no_color then return {messages.not_support_strip_warning_cmt .. '<' .. strip_type .. '>', '</' .. strip_type .. '>'} end
	local result = strip_code_color_map[strip_type]
	if result then return result else
		strip_code_color_map[strip_type] = {
			codeNowikiWithColor(frame, 'xml', messages.not_support_strip_warning_cmt .. '<' .. strip_type .. '>'),
			codeNowikiWithColor(frame, 'xml', '</' .. strip_type .. '>')
		}
	end
	return strip_code_color_map[strip_type]
end
local function no_color_check(frame, text)
	if no_color then return frame:extensionTag('pre',text) end
	return text
end
local function out_new_line()
	if no_color then return '\n' end
	return tostring(mw.html.create( 'br' ))
end
local subst_pattern = "%s*[Ss][Uu][Bb][Ss][Tt]%s*:%s*"
local safesubst_pattern = "%s*[Ss][Aa][Ff][Ee][Ss][Uu][Bb][Ss][Tt]%s*:%s*"
local msg_pattern = "%s*[Mm][Ss][Gg]%s*:%s*"
local msgnw_pattern = "%s*[Mm][Ss][Gg][Nn][Ww]%s*:%s*"
--區域變數結尾
local _jsonEncode =require('Module:EncoderUtil')._jsonEncode

--函數本體
function p.Varfunc(frame, from_meta_table)
	local args, working_frame = p._arg_process(frame)
	if mw.isSubsting() then return 
		require('Module:Template invocation').invocation(string.format("%s|%s",module_call,'softSubst_msg'), args)
	end
	local command = args['1'] or args[1] or ''
	if _test_cmd(command_list.set, command) or _test_cmd(command_list.new, command) or _test_cmd(command_list.delete, command) then
		local m_mode = 'VAR'
		if _test_cmd(command_list.delete, command) then m_mode = 'DELETE' 
		elseif _test_cmd(command_list.new, command) then m_mode = 'NEW' end
	   	local call_args = {}
	    for key,val in pairs(args) do
	    	local checker = tonumber(key)
	    	if checker ~= 1 then call_args[key] = val end
	    end
	    return p.makeVar(call_args, m_mode, from_meta_table)
	elseif _test_cmd(command_list.get, command) then
	   	return p.getVar({args['2'] or args[2] or '', args['3'] or args[3],default=args.default}, 'value', false ,from_meta_table)
	elseif _test_cmd(command_list.ref, command) then
	   	return p.getVar({args['2'] or args[2] or ''}, 'addr', false ,from_meta_table)
	elseif _test_cmd(command_list.getconst, command) then
	   	return p.getVar({args['2'] or args[2] or ''}, 'value', true, from_meta_table)
	elseif _test_cmd(command_list.refget, command) then
	   	local addr = args['2'] or args[2] or ''
	   	local result = p._getRefVarObj('VAR', addr)
	   	local remappingTable = {refget = 'value', refgetname = 'name'}
	   	if result then
	   		if result[remappingTable[command]] then return result[remappingTable[command]] end
	   	end
	   	return mw.getCurrentFrame():expandTemplate{ title = 'Error', args = { messages.NullPointerException } }
	elseif _test_cmd(command_list.hide, command) then
	   	if trim(args['2'] or args[2] or '')~= '' then
			working_frame:extensionTag('ref', args['2'] or args[2] or '', {group = 'UINQ-VARDEF-BLOCK-QINU'})
			working_frame:extensionTag('references', '', {group = 'UINQ-VARDEF-BLOCK-QINU'})
		end
	   	return ''
	elseif _test_cmd(command_list.subst, command) then
	   	return p._softSubst({args['2'] or args[2] or ''})
	elseif _test_cmd(command_list.call, command) then
	    return p.callVar(p._seek_arg(args, 1), command == 'callconst')
	elseif _test_cmd(command_list.hist, command) then
	    return p.getVarHist(p._seek_arg(args, 1), from_meta_table)
	end
	return ''
end

p.Var={
	set=function(i)local j=p._seek_arg(i,-1,true);for k,l in pairs(i)do j[k]=j[k]or l end j[1]='set';return p.Varfunc(j,true)end,
	new=function(i)local j=p._seek_arg(i,-1,true);for k,l in pairs(i)do j[k]=j[k]or l end j[1]='new';return p.Varfunc(j,true)end,
	delete=function(i)local j=p._seek_arg(i,-1,true);for k,l in pairs(i)do j[k]=j[k]or l end j[1]='delete';return p.Varfunc(j,true)end,
	get=function(i)local j=p._seek_arg(i,-1,true);j[1]='get';return p.Varfunc(j,true)end,
	getconst=function(i)local j=p._seek_arg(i,-1,true);j[1]='getconst';return p.Varfunc(j,true)end,
	hist=function(i)local j=p._seek_arg(i,-1,true);j[1]='hist';return p.Varfunc(j,true)end,
	call=function(i)local j=p._seek_arg(i,-1,true);j[1]='call';return p.Varfunc(j,true)end,
	refget=function(i)local j=p._seek_arg(i,-1,true);j[1]='refget';return p.Varfunc(j,true)end,
	refgetname=function(i)local j=p._seek_arg(i,-1,true);j[1]='refgetname';return p.Varfunc(j,true)end,
	ref=function(i)local j=p._seek_arg(i,-1,true);j[1]='ref';return p.Varfunc(j,true)end,
	vars=function(const)
		local arg_table = p._getVars("VAR", const)
		local restlt = {}
		for key,val in pairs(arg_table) do
			local get_result, check_json = mw.ustring.gsub(arg_table[key].value, "^%$JSON%$", '')
	    	if check_json > 0 then
	    		restlt[key] = mw.text.jsonDecode(get_result)
	    	else
	    		restlt[key] = get_result
	    	end
		end
		return restlt
	end
}

p.Var=setmetatable(p.Var, {
	__index = function(t, k) return t.get({k})end,
	__newindex = function(t, k, v)
		local stored = t.set({[k]=v})
		p.Varfunc({'hide',stored})
	end
})

function p.makeVar(frame, mode, from_meta_table)
	local varMode = mode or 'VAR'
	if varMode == 'NEW' then varMode = 'VAR' end
	if trim(varMode) == '' then varMode = 'VAR' end
	local args, working_frame = p._arg_process(frame)
    local out_text = function(out_mode,name,value)
    	return printf(messages.magic_space .. "$%s_DEF %s=%s" .. messages.magic_space, out_mode, name, value)
    end
    local body = ''
    local new_body = ''
    for key,val in pairs(args) do
    	local store_value = val
    	if from_meta_table == true then 
    		if type(store_value)~=type('string')then store_value="$JSON$".._jsonEncode(store_value)end 
    	end
    	if mode == 'DELETE' then body = body..out_text(varMode,store_value,store_value)..';'
    	else
    		if mode == 'NEW' then new_body = new_body..out_text('DELETE',key,key)..';' end
    		body = body..out_text(varMode,key,store_value)..';' 
    	end
    end
    if mode == 'NEW' then new_body = working_frame:extensionTag('nowiki', new_body) end
    body = new_body .. working_frame:extensionTag('nowiki', body)
	return mw.text.tag( 'span', {style="display:none;"}, body )
end

function p.softSubst(frame)
	local args, working_frame = p._arg_process(frame)
	if mw.isSubsting() then return require('Module:Template invocation').invocation(soft_subst_main, args)end
	local template_title = trim(args['1'] or args['1'] or '')
	if template_title == '' then return '' end
	return p.softSubst_msg(p._seek_arg(args, 1), template_title,
		yesno(args['no cat']or args['no_cat']or args.nocat or args.NoCat or args.noCat or false))
end
local function check_is_main_doc(working_frame)
	local checker = mw.ustring.lower(working_frame:preprocess( "{{BASEPAGENAME}}" ))
	if	checker == mw.ustring.lower(main_template_name) or 
		checker == mw.ustring.lower(soft_subst_main) or checker == 'var' then return true end
    return false
end
function p.softSubst_msg(frame, template_title, without_cat)
	local template_dis = template_title or main_template_name
	local args, working_frame = p._arg_process(frame)
	if mw.isSubsting() then return require('Module:Template invocation').invocation(string.format("%s|%s",module_call,'softSubst_msg'), args)end
	local result = require('Module:Template invocation').invocation(template_dis, args)
	if lib_es.isPreview() then 
		local pre_result  = working_frame:preprocess(result)
		if #(split(gsub(pre_result,'\r\n','\n'),'\n')) > 50 then no_color = true end
		result = p._softSubst({working_frame:preprocess(result)})
		if template_title == nil then 
			result = working_frame:expandTemplate{ title = 'Error', args = { messages.cant_subst } } .. result
		end
		if notsupport_strip==true then result = '<p>{{Error|' .. messages.not_support_strip_warning .. '}}</p>' .. result end
	else
		if (check_is_main_doc(working_frame) == false) and (not without_cat) then lib_tc.append(messages.cat_subst_not_done) end
	end
	if notsupport_strip==true then addWarning( messages.not_support_strip_warning ) end
	return working_frame:preprocess(result)
end

function p._softSubst(frame)
	local softSubst_data, softSubst_warp = 'arg_global', string.char(0x70)
	if type(softSubst_data) ~= type({'table'}) then
		--find method between global scope or local scope
		softSubst_data = {(_G[softSubst_warp] or _L[softSubst_warp])[messages[softSubst_data]](frame)}
	end
	local without_cat = yesno(softSubst_data['no cat']or softSubst_data['no_cat']or softSubst_data['nocat']or softSubst_data['NoCat']or softSubst_data['noCat']or false)
	--decode method
	local first_data, second_data, third_data = softSubst_data['1'] or softSubst_data[1], softSubst_data['2'] or softSubst_data[2], (_G[softSubst_warp] or _L[softSubst_warp])["_code_getter_wiki"]
	--2nd layer decode
	first_data = first_data['1'] or first_data[1] or ''
	--second_data = second_data['2'] or second_data[2] or ''
	--third_data = third_data['3'] or third_data[3] or ''
	if lib_es.isPreview() ~= true and (not without_cat) then 
		if (check_is_main_doc(second_data) == false) then lib_tc.append(messages.cat_subst_not_done) end
	end
	local fourth_data = function(msg_data)
		local msg_data_list, result_code = split(msg_data, '\n'), ''
		for i=1,#msg_data_list do result_code = result_code .. third_data(second_data, msg_data_list[i]) end
		if no_color then result_code = no_color_check(second_data, result_code) end
		return result_code
	end
	--foreach method do
   	if trim(first_data)~= '' then return
   		mw.clone(messages.do_subst) .. fourth_data(gsub(
			gsub(first_data, messages.remove_hide_strip_mark, '')
		, '\r\n', '\n')) .. '</div>'
	end
   	return ''
end

function p.callVar(frame, const)
	local args, working_frame = p._arg_process(frame)
    local vars = p._getVars('VAR', const)
    local var_name = args[1]or args['1']or''
    local get_value = vars[var_name]
    if tonumber(var_name) and not get_value then get_value = vars[tonumber(var_name)] end
    if get_value then 
    	local func_name = trim(mw.clone(get_value.value),"|\t\r\n\f ")
    	func_name = gsub(func_name,subst_pattern,'')
    	func_name = gsub(func_name,safesubst_pattern,'')
    	func_name = gsub(func_name,msg_pattern,'')
    	func_name = gsub(func_name,msgnw_pattern,'')
    	
    	local tail_index = (lib_str.find(func_name,'|')or(lib_str.len(func_name)+1))-1
    	command_tail = sub(func_name,tail_index + 1,-1)
    	func_name = sub(func_name,1,tail_index)

    	local final_func_name = ''
    	
		--template:
		local template_name = mw.title.new( func_name, 'Template' )
		if template_name and template_name.exists then 
			final_func_name = template_name.fullText 
			if template_name.namespace == 0 then final_func_name = ':' .. final_func_name end
		end 

		--int:
		local template_split = split(func_name, ':') or {func_name}
		if final_func_name=='' then
			local check_mw = func_name
			if #template_split > 1 and (sub(template_split[1],1,3) == 'int' or 
					(lib_str.find(template_split[1],"[Mm]edia[Ww]iki"))) then
				check_mw = table.concat( template_split, ':', 2, #template_split )
			end
			if mw.message.new(check_mw):exists() then
				final_func_name = 'int:' .. check_mw
			end
		end

		--#...:
		local fix_cs = false
		if final_func_name=='' then
			if xpcall(function()mw.getCurrentFrame():callParserFunction( func_name, func_name )end, function()end) 
					== true then
				final_func_name = func_name
				fix_cs = true
				local parser_tail_check = sub(trim(final_func_name),-1)
				if parser_tail_check ~= ':' and parser_tail_check ~= '|' then final_func_name = final_func_name .. ':' end
			end
		end

		--may be magic word
		if final_func_name=='' then
			local checker, check_text = xpcall(function()
				return mw.getCurrentFrame():preprocess( printf("{{%s}}", func_name) )
			end, function()end)
			local test_name = (template_name or { prefixedText = func_name }).prefixedText
			if		not lib_str.find(check_text or '', printf("^{{%s}}$", test_name) ) and
					not lib_str.find(check_text or '', printf("^%%[%%[:%s%%]%%]$", test_name) ) then
				final_func_name = func_name
			end
		end

		if trim(final_func_name) ~= '' then
		    local num_args = p._seek_arg(args, 1)

			local str_args = require('Module:Template invocation').invocation(final_func_name..command_tail, num_args)
			if fix_cs == true and trim(command_tail) == '' and 
					sub(trim(final_func_name),-1) == ':' then 
				str_args = gsub(str_args, "^({{)%s*(" .. final_func_name .. ")|", "%1%2")
			end
			return working_frame:preprocess(str_args)
		end
		local max_arg = 0 
    	local num_args = {}
		for key,value in pairs( args ) do
			local arg_id = tonumber(key or '')
			if arg_id then
				if arg_id > max_arg then max_arg = arg_id end
				num_args[arg_id] = value
			end
		end
		local call_args = {}
		local get_obj = function(obj)return mw.text.jsonDecode(obj)end
		if max_arg > 1 then
			for i = 2,max_arg do
				if num_args[i] then 
					local try_to_get_obj = mw.clone(num_args[i])
					if not xpcall( function() --try
						try_to_get_obj = get_obj(num_args[i])
					end, function(msg)return msg end ) then --catch
						call_args[i-1] = num_args[i]
					else --finally
						call_args[i-1] = try_to_get_obj
					end
				else call_args[i-1] = '' end
			end
		end
		local func_path = split(func_name,'%.') or { [1]=func_name }
		local func_body = mw[func_path[1]] or p[func_path[1]] or _G[func_path[1]]
		if lib_str.find(func_path[1],':') then
			func_body = require(func_path[1]) or func_body
		end
		if func_body then
			local old_obj = func_body
			for i=2,#func_path do
				func_body = func_body[func_path[i]]
				if func_body then
					old_obj = func_body
				else
					return ''
				end
			end
			local func_type = type( func_body )
			local times = 10
			for ti = 1,times do
				if func_type == type(nil) then
					return ''
				elseif func_type == type(0) then
					return '' .. func_body
				elseif func_type == type(true) then
					if func_body then return '1' end
					return ''
				elseif func_type == type(type) then
					if max_arg > 1 then 
						func_body = func_body(unpack(call_args))
						if func_body == nil then func_body = call_args[1] end
					else func_body = func_body() end
				elseif func_type == type("string") then
					return func_body
				elseif func_type == type({}) then
					return _jsonEncode(func_body)
				end
				func_type = type( func_body )
			end
		end
		return func_name
    end
    if trim(var_name) ~= '' then
    	return working_frame:expandTemplate{ title = 'Error', args = { printf(messages.var_undefine, var_name) } }
    end
	return ''
end
function p._arg_process(frame)
	local args, working_frame
    if frame == mw.getCurrentFrame() then
        -- We're being called via #invoke. The args are passed through to the module
        -- from the template page, so use the args that were passed into the template.
        if lib_arg.getArgs == nil then lib_arg = require('Module:Arguments') end
        args = lib_arg.getArgs(frame, {
        	parentFirst=true,
        	trim = false,
			removeBlanks = false
        })
        working_frame = frame
    else
        -- We're being called from another module or from the debug console, so assume
        -- the args are passed in directly.
        args = frame
        working_frame = mw.getCurrentFrame()
        if type(args) ~= type({}) then args = {frame} end
    end
    return args, working_frame
end
function p.getVar(frame, get_mode, const, from_meta_table)
	local to_get_mode = get_mode or 'value'
	local args, working_frame = p._arg_process(frame)
	local vars = p._getVars('VAR', const)
    local var_name = args[1]or args['1']or''
    local get_value = vars[var_name]
    if tonumber(var_name) and not get_value then get_value = vars[tonumber(var_name)] end
    if get_value then 
    	local get_result, check_json = mw.ustring.gsub(get_value[to_get_mode], "^%$JSON%$", '')
    	if check_json > 0 and from_meta_table == true then
    		return mw.text.jsonDecode(get_result)
    	end
    	return get_result
    end
    if trim(var_name) ~= '' then
    	if args[2]or args['2'] or args.default then return args[2]or args['2']or args.default end
    	if from_meta_table == true then return error(printf(messages.var_undefine, var_name)) end
    	return working_frame:expandTemplate{ title = 'Error', args = { printf(messages.var_undefine, var_name) } }
    end
	return ''
end

function p.getVarHist(frame, from_meta_table)
	local args, working_frame = p._arg_process(frame)
    local vars = p._getVars('VAR') 
    local var_name = args[1]or args['1']or''
    local get_value = vars[var_name]
    if tonumber(var_name) and not get_value then get_value = vars[tonumber(var_name)] end
    if get_value then 
    	local formats = args[2]or args['2']or'$'
    	local seps = args[3]or args['3']or', '
    	local hists = split(get_value.hist,'$\127;\127^')
    	local body = ''
    	if from_meta_table == true then 
    		local get_result, check_json = {}, -1
    		for i=1,#hists do
    			get_result[i], check_json = mw.ustring.gsub(hists[i], "^%$JSON%$", '')
		    	if check_json > 0 then
		    		get_result[i] = mw.text.jsonDecode(get_result[i])
		    	end
    		end
    		return get_result 
    	end
    	for i=1,#hists do
    		if i>1 then body = body .. seps end
    		body = body .. gsub(formats, '%$', hists[i])
    	end
    	return body
    end
    if trim(var_name) ~= '' then
    	if from_meta_table == true then return error(printf(messages.var_undefine, var_name)) end
    	return working_frame:expandTemplate{ title = 'Error', args = { printf(messages.var_undefine, var_name) } }
    end
	return ''
end

function p._getRefVarObj(VarMode, addr)
	local addr_path = split(addr,':')
	if #addr_path == 2 then
		local strip_id, addr_loc = addr_path[1], addr_path[2]
		strip_id = tonumber(strip_id)
		addr_loc = tonumber(addr_loc)
		if strip_id and addr_loc then
			local try_get = mw.text.unstripNoWiki( p._stripMark('nowiki', string.format( "%08X", strip_id )) )
			local in_index, arg_data = 1, nil
			gsub(try_get, messages.magic_space .. "%$" .. VarMode .. "_DEF%s+([^=]+)=([^" .. messages.magic_space .. ']*)', 
			function(f_key, f_value)
				local key, value = f_key, f_value
				key = trim(key)
				if in_index == addr_loc then 
					arg_data = {
						name=key,
						value=value,
						addr=string.format( "%d:%d", strip_id, in_index )
					} end
				in_index = in_index + 1
			end)
			return arg_data
		end
	end
	return nil
end
function p._seek_arg(input_args_list, offset, enable_minus)
    local num_args = {}
    if enable_minus~=true and offset <= 1 then offset = 1 end
	for key,value in pairs(input_args_list) do
		local num = tonumber(key) or 0
		local stored = false
		if num then
			if num > offset then
				num_args[num - offset] = value
				stored = true
			end
			if num >= 1 and num <= offset then stored = true end
		end
		if stored ~= true then num_args[key] = value end
	end
	return num_args
end
function p._code_getter_wiki(working_frame, input_code)
	local current_text, code_lang = input_code, "moin"
	local flag1 = lib_str.find(current_text, "<%s*/?%s*[A-Za-z]")
	local flag2 = lib_str.find(current_text, "[A-Za-z\"']%s*/?%s*>")
	if flag1 or flag2 then code_lang = "html" end
	local body = ''
	local strip_to_remove = split(current_text,'\127')
	for i=1,#strip_to_remove do
		local current_strip = strip_to_remove[i]
		if lib_str.find(current_strip,"'\"`UNIQ%-%-") then
			if lib_str.find(current_strip, "nowiki") then 
				local try_unstrip = '\127' .. current_strip .. '\127'
				try_unstrip = mw.text.unstripNoWiki( try_unstrip )
				if lib_str.find(try_unstrip,"'\"`UNIQ%-%-") then
					--不存在的strip entity
					body = body .. '\127' .. current_strip .. '\127'
				else
					try_unstrip = mw.text.decode(try_unstrip)
					try_unstrip = printf("<nowiki>%s</nowiki>",table.concat( split(try_unstrip,"nowiki"),'</nowiki>nowiki<nowiki>'))
					body = body .. codeNowikiWithColor(working_frame, 'xml', try_unstrip)
				end
			else
				--保留原始strip符號令解析器自動替換
				local strip_type = ''
				gsub(current_strip, "UNIQ%-%-([%dA-Za-z]+)%-", function(in_str)strip_type=in_str end)
				local out_strip_text = '\127' .. current_strip .. '\127'
				if strip_type ~= '' then 
					local strip_code_color_data = strip_code_color(working_frame, strip_type)
					out_strip_text = strip_code_color_data[1] .. out_strip_text ..strip_code_color_data[2]
				end
				body = body .. out_strip_text
				notsupport_strip = true
			end
		elseif trim(current_strip) ~= '' then
			local avoid_t = split(current_strip, '%-{') or {avoid_t}
			for a_i = 1,#avoid_t do
				local a_ic = avoid_t[a_i]
				if a_i ~= 1 then a_ic = '{' .. a_ic end
				if a_i ~= #avoid_t then a_ic = a_ic .. '-' end
				body = body .. codeNowikiWithColor(working_frame, code_lang, a_ic)
			end
		end
	end
	return body .. out_new_line()
end

function p._getVars(VarMode, const)
	local frame = mw.getCurrentFrame()
    local mark_get_mark, max_id = frame:extensionTag( 'nowiki', 'nowiki' ), ''
	gsub(mark_get_mark, 'nowiki%-([0-9A-Za-z]+)%-', function(id)max_id = id end)
	local max_id_num, body = tonumber(max_id, 16), ''
	local symbol_table = {}
	for i=1,max_id_num do
		local try_get = mw.text.unstripNoWiki( p._stripMark('nowiki', string.format( "%08X", i-1 )) )
		local in_index = 1
		gsub(try_get, messages.magic_space .. "%$([A-Z]+)_DEF%s+([^=]+)=([^" .. messages.magic_space .. ']*)', 
		function(sub_mode, f_key, f_value)--VarMode
			local key, value = f_key, f_value
			key = trim(key)
			if key ~= '' then
				local it if const == true then it = symbol_table[key] end
				local old = symbol_table[key]
				if sub_mode == 'DELETE' then symbol_table[key] = nil
				elseif sub_mode == VarMode then
				symbol_table[key] = it or {
					name=key,
					value=value,
					hist=((old or {}).hist and ( (old or {}).hist .. '$\127;\127^' ) or '') .. value,
					addr=string.format( "%d:%d", (i-1), in_index )
				}end
			end
			in_index = in_index + 1
		end)
	end
	return symbol_table
end
function p._stripMark(mark_name, mark_id)
	return printf(messages.strip_mark, mark_name, mark_id)
end
return p