Модуль:Religious reference

ХӀокху модулах лаьцна хааман Модуль:Religious reference/doc агӀо кхолла мега

local p = {} -- p stands for package

function linkVerses(verses)
	local normalized_verses = mw.ustring.gsub(mw.ustring.gsub(verses, '%s', ''), '[‐‒–—―−]', '-')
	-- hyphen, figure dash, en dash, em dash, horizontal bar and minus to hyphen-minus
	local raw_blocks = mw.text.split(normalized_verses, ';')

	local linked_blocks = {}
	for _, raw_block in ipairs(raw_blocks) do
		local raw_parts = mw.text.split(raw_block, ',')
		
		local linked_parts = {}
		if mw.ustring.match(raw_block, ':') then
			local chapter, verses, chapter_prefix
			for _, raw_part in ipairs(raw_parts) do
				-- possible forms of raw_part: 1, 1-2, 1:2, 1:2-3, 1:2-2:3
				
				if mw.ustring.match(raw_part, ':') then
					chapter, verses = mw.ustring.match(raw_part, '^([0-9]+):(.*)$')
					
					if not chapter then
						return nil, 'недопустимое значение ' .. raw_part
					end
					
					--[[
					if #linked_parts > 0 then
						table.insert(linked_blocks, linked_parts)
						linked_parts = {}
					end
					]]
					
					if mw.ustring.match(verses, ':') then
						local chapter1, verse1, chapter2, verse2 =
							mw.ustring.match(raw_part, '^([0-9]+):([0-9]+)-([0-9]+):([0-9]+)$')
						if chapter1 then -- deal with 1:2-2:3
							table.insert(linked_parts, {chapter1 .. ':' .. verse1, chapter1 .. ':' .. verse1,
								chapter2 .. ':' .. verse2, chapter2 .. ':' .. verse2})
						else
							return nil, 'недопустимое значение ' .. raw_part
						end
						break
					end
					chapter_prefix = chapter .. ':'  -- transform 1:2 to 2 and 1:2-3 to 2-3
				else
					if chapter == nil then
						return nil, 'перед стихом ' .. raw_part .. ' не указана глава'
					end
					verses = raw_part
					chapter_prefix = ''
				end
					
				local verse = mw.ustring.match(verses, '^([0-9]+)$') -- deal with 1 and 1-2, but possibly with prefix
				if verse then
					table.insert(linked_parts, {chapter .. ':' .. verse, chapter_prefix .. verse})
				else
					local verse1, verse2 = mw.ustring.match(verses, '^([0-9]+)-([0-9]+)$')
					if verse1 then
						if tonumber(verse2) - tonumber(verse1) == 1 then
							table.insert(linked_parts, {chapter .. ':' .. verse1, chapter_prefix .. verse1})
							table.insert(linked_parts, {chapter .. ':' .. verse2, verse2})
						else
							table.insert(linked_parts, {chapter .. ':' .. verse1, chapter_prefix .. verse1 .. '—' .. verse2})
						end
					else
						return nil, 'недопустимое значение ' .. raw_part
					end
				end
			end
		else
			for _, raw_part in ipairs(raw_parts) do
				local chapter = mw.ustring.match(raw_part, '^[0-9]+$')
				if chapter then
					table.insert(linked_parts, {chapter, chapter})
				else
					local chapter1, chapter2 = mw.ustring.match(raw_part, '^([0-9]+)-([0-9]+)$')
					if chapter1 then
						if tonumber(chapter2) - tonumber(chapter1) == 1 then
							table.insert(linked_parts, {chapter1, chapter1})
							table.insert(linked_parts, {chapter2, chapter2})
						else
							table.insert(linked_parts, {chapter1, chapter1 .. '—' .. chapter2})
						end
					else
						return nil, 'недопустимое значение ' .. raw_part
					end
				end
			end
		end
		
		table.insert(linked_blocks, linked_parts)
	end
	
	return linked_blocks, nil
end

function generateBibleError(text)
	return '<span class="error">Библия: ' .. text .. '</span>[[Категори:Википеди:Страницы с неправильно заполненным шаблоном Библия]]'
end

function getNotEmpty(args, arg)
	local val = args[arg]
	if val == '' then
		return nil
	else
		return val
	end
end

function p.citeBible (frame)
	local args = frame:getParent().args
	
	local book = getNotEmpty(args, 1)
	local verses = getNotEmpty(args, 2)
	local postfix = getNotEmpty(args, 3)
	local nobook = getNotEmpty(args, 'б') or getNotEmpty(args, 'без книги')
	local text = getNotEmpty(args, 'т') or getNotEmpty(args, 'текст')
	
	if book == nil then
		return generateBibleError('отсутствует название книги')
	end
	if verses == nil then
		return generateBibleError('отсутствует последовательность стихов')
	end
	
	local wikisource_link = frame:preprocess('{{Инжил/Abbr|' .. book .. '|s}}')
	if wikisource_link == '' then
		return generateBibleError('сокращение ' .. book .. ' неизвестно, см. [[Кеп:Инжил/Abbr|список допустимых]]')
	end
	
	local linked_blocks, error = linkVerses(verses)
	if error then
		return generateBibleError(error)
	end
	
	local formatted_blocks = {}
	local parts_number = 0
	for _, linked_parts in ipairs(linked_blocks) do
		local formatted_parts = {}
		for _, linked_part in ipairs(linked_parts) do
			if #linked_part == 4 then
				table.insert(formatted_parts, frame:preprocess(
					'[[:s:' .. wikisource_link .. '#' .. linked_part[1] .. '|' .. linked_part[2] .. ']] — ' .. 
					'[[:s:' .. wikisource_link .. '#' .. linked_part[3] .. '|' .. linked_part[4] .. ']]'
				))
			else
				table.insert(formatted_parts, frame:preprocess(
					'[[:s:' .. wikisource_link .. '#' .. linked_part[1] .. '|' .. 
					(text or (linked_part[2] .. (postfix or ''))) .. ']]' -- TODO
				))
				parts_number = parts_number + 1
			end
		end
		table.insert(formatted_blocks, table.concat(formatted_parts, ', '))
	end
	
	if text ~= nil and text ~= '' and parts_number > 1 then
		return generateBibleError('при указании текста допустимо вводить только один стих или одну главу')
	end
	
	if postfix ~= nil and postfix ~= '' and parts_number > 1 then
		return generateBibleError('при указании постфикса допустимо вводить только один стих или одну главу')
	end
	
	local res = table.concat(formatted_blocks, ';' .. mw.ustring.char( 0x2002 )) -- EN SPACE
	
	-- TODO
	if postfix ~= nil and postfix ~= '' then
		res = res .. '[[Категори:Википеди:Инжил кеп тӀехь постфикс йолу агӀонаш]]'
	end
	
	if not text and not nobook then
		res = frame:preprocess(
			'[[{{Инжил/Abbr|' .. book .. '}}|' .. book .. '.]]&nbsp;'
		) .. res
	end
	
	return res
end

return p