모듈:Mfunctions 문서 원본 보기

local p, FuncTable = {}, {}

function FuncTable:parse(text)
	text = mw.text.decode(mw.text.unstripNoWiki(text)) -- <nowiki> 해제
	local pi, fi = 1, 1 -- 처리 위치 초기화
	
	-- 변수 처리
	while text:find('{{%b{}}}', pi) do
		local pos, param = text:find('{{%b{}}}', pi), text:match('{{%b{}}}', pi) -- 현재 처리 위치, 호출 문법 기억
		local inner = param:sub(4, -4) -- 대괄호 제거
		inner = inner:find('{%b{}}') and self:parse(inner) or inner -- 대괄호 내부 파싱 (재귀함수)
		local name = inner:find('|') and inner:sub(1, inner:find('|') - 1) or inner -- 변수명
		local default = inner:find('|') and inner:sub(inner:find('|') + 1) -- 입력된 변수가 없을 때 대신 표시되는 기본값
		local parent = mw.getCurrentFrame():getParent() -- 이 함수를 실행하는 모듈이 호출된 틀의 프레임
		local result = parent and parent.args[name] or default or param -- 출력값
		pi = pos + #param -- 처리 위치 넘기기
		text = text:sub(1, pos - 1) .. result .. text:sub(pi) -- 덮어쓰기
	end
	
	-- 함수 처리
	while text:find('{%b{}}', fi) do
		local pos, func = text:find('{%b{}}', fi), text:match('{%b{}}', fi) -- 현재 처리 위치, 호출 문법 기억
		local inner = func:sub(3, -3) -- 대괄호 제거
		inner = inner:find('{%b{}}') and self:parse(inner) or inner -- 대괄호 내부 파싱 (재귀함수)
		local name = inner:sub(1, inner:find(':') and inner:find(':') - 1) -- 함수명
		local result = '' -- 출력값 초기화
		fi = pos + #func -- 처리 위치 넘기기
		
		if name:find('%b##') then -- 임의 함수라면
			name = name:sub(2, -2) -- 이름 전후의 # 제거
			local argstr = inner:find(':') and inner:sub(inner:find(':') + 1) -- 인자 문법
			local args = {} -- 인자 목록 초기화
			
			if argstr then
				local ai = 1 -- 인자 번호 초기화
				
				for arg in mw.text.gsplit(argstr, '|') do
					if arg:find('=') then -- 속성명이 있으면
						args[arg:sub(1, arg:find('=') - 1)] = arg:sub(arg:find('=') + 1) -- 인자 목록에 추가
					else -- 속성명이 없으면
						args[ai] = arg -- 인자 목록에 현재 번호로 추가
						ai = ai + 1 -- 다음 인자 번호
					end
				end
			end
			
			if self[name] then -- 정의된 값이 있으면
				if type(self[name]) == 'function' then -- 함수로 처리시
					result = self[name](mw.getCurrentFrame():newChild{
						title = '#' .. name .. '#', -- 함수명
						args = args -- 인자
					}) -- 처리 함수에 프레임을 인자로 넘기고 결과값을 출력값으로 지정
				else -- 정적 값이 있으면
					result = self[name] -- 출력값을 지정된 값으로 지정
				end
				
				if type(result) == 'table' then
					error("임의 파서 함수 '" .. name .. "'에 문제가 있습니다 (반환될 값의 타입은 table이 될 수 없습니다)") -- 반환된 값이 테이블이면 에러 발생
				end
			else -- 정의된 값이 없다면
				result = '{{' .. inner .. '}}' -- 그대로 반환
			end
		else -- 아니라면
			result = '{{' .. inner .. '}}' -- 그대로 반환 후 파싱 대기
		end
		
		text = text:sub(1, pos - 1) .. result .. text:sub(fi) -- 덮어쓰기
	end
	
	return mw.getCurrentFrame():preprocess(text) -- 기타 문법 파싱
end

function FuncTable:set(name, value)
	if type(value) == 'table' then
		error('임의 함수값의 타입은 table이 될 수 없습니다') -- 함수값이 테이블이면 에러 반환
	else
		self[name] = value -- 입력된 함수명에 입력된 값을 지정
		return self -- 메소드 체이닝을 위해 테이블 반환
	end
end

function p.new(t)
	local tbl = {} -- 테이블 초기화
	
	if type(t) == 'table' then -- 기초 테이블이 있다면
		for key in pairs(t) do
			tbl[key] = t[key] -- 예외 가능성 제거를 위해 내용만 복사
		end
	end
	
	return setmetatable(tbl, {__index = FuncTable}) -- 함수 테이블 생성
end

-- 디버깅용
function p.test(frame)
	return p.new():parse(frame.args[1])
end

return p