Модуль:КПСС

Материал из Кадровый состав НКВД 1935-1939
Версия от 10:11, 7 января 2016; StasR (обсуждение | вклад)
(разн.) ← Предыдущая версия | Текущая версия (разн.) | Следующая версия → (разн.)
Перейти к навигации Перейти к поиску

Для документации этого модуля может быть создана страница Модуль:КПСС/doc

local pp = {}
local global = mw.ext.luaglobal;
local tools = require( 'Модуль:Tools' )
global.strict( true )

pp.Main = function ( frame )
	local flag = { [''] = 0, ['нет'] = -1, ['б/п'] = -1, 
		['кандидат'] = 1, ['член'] = 2, ['да'] = 2, }
	local errorAdvice = 'Используйте формат {{ КПСС | кандидат = <var>дата</var> | '
		.. 'член = <var>дата</var> | выбыл = <var>дата</var> | '
		.. 'дополнение = <var>текст</var> | сноска =  <var>текст</var> | '
		.. 'источник = <var>текст</var> }}. Дата выбытия указывается, если '
		.. 'последующего восстановления в партии не было. Используйте формат '
		.. '{{ КПСС | нет / да / кандидат }} для лиц, никогда не состоявших '
		.. 'в партии / для коммунистов, о которых нет никаких других данных.'
	local errorDateAdvice = 'Используйте формат даты '
		.. '«<var>ЧЧ</var>.<var>ММ</var>.<var>ГГГГ</var>» или '
		.. '«<var>ММ</var>.<var>ГГГГ</var>» или «<var>ГГГГ</var>»'
	local Args = tools.args( frame:getParent().args )
	local gKPSS = global.get( 'gKPSS' ) or {}
	local tmp = flag[mw.ustring.lower(  Args[1] or ''  )]
	if not tmp then
		return tools.errorMsg( 'КПСС', 'Некорректное значение параметра', errorAdvice )
	end
	local KPSS = { ['флаг'] = tmp }
	local dates = { 'кандидат', 'член', 'выбыл' }
	for i, x in ipairs( dates ) do
		if Args[x] then
			tmp = tools.parseDate( Args[x], 1898 )
			if not tmp then
				return tools.errorMsg( 'КПСС', 
					'Ошибка в записи даты «' .. x .. '»', errorDateAdvice )
			end
			KPSS[x] = tmp
		end
	end
	if ( KPSS['флаг'] or 0 ) == 0 then
		if not KPSS['член'] and KPSS['кандидат'] then
			KPSS['флаг'] = flag['кандидат']
		end
	end
	KPSS['дополнение'], KPSS['сноска'], KPSS['источник'] = 
		Args['дополнение'], Args['сноска'], Args['источник']
	table.insert( gKPSS, KPSS )
	global.set( 'gKPSS', gKPSS )
	return '<i></i>'
end

return pp

--[===[
--[[------------------------------------------------------------------------]]--
pp['КПСС'] = function ( frame )
	Frame = frame
	Args = frame:getParent().args
	local flag = { [''] = 0, ['нет'] = -1, ['б/п'] = -1, 
		['кандидат'] = 1, ['член'] = 2, ['да'] = 2, }
	local errorAdvice = 'Используйте формат {{ КПСС | кандидат = <var>дата</var> | '
		.. 'член = <var>дата</var> | выбыл = <var>дата</var> | '
		.. 'дополнение = <var>текст</var> | сноска =  <var>текст</var> | '
		.. 'источник = <var>текст</var> }}. Дата выбытия указывается, если '
		.. 'последующего восстановления в партии не было. Используйте формат '
		.. '{{ КПСС | нет / да / кандидат }} для лиц, никогда не состоявших '
		.. 'в партии / для коммунистов, о которых нет никаких других данных.'
	local errorDateAdvice = 'Используйте формат даты '
		.. '«<var>ЧЧ</var>.<var>ММ</var>.<var>ГГГГ</var>» или '
		.. '«<var>ММ</var>.<var>ГГГГ</var>» или «<var>ГГГГ</var>»'
	if global.get( 'gKPSS' ) then
		return tools.errorMsg( 'КПСС', 'Повторное использование шаблона «КПСС»' )
	end
	local tmp = flag[mw.ustring.lower( mw.text.trim( Args[1] or '' ) )]
	if not tmp then
		return tools.errorMsg( 'КПСС', 'Некорректное значение параметра', errorAdvice )
	end
	local gKPSS = { ['флаг'] = tmp }
	local dates = { 'кандидат', 'член', 'выбыл' }
	for i, x in ipairs( dates ) do
		if ( Args[x] or '' ) ~= '' then
			tmp = tools.parseDate( Args[x], 1898 )
			if not tmp then
				return tools.errorMsg( 'КПСС', 
					'Ошибка в записи даты «' .. x .. '»', errorDateAdvice )
			end
			gKPSS[x] = tmp
		end
	end
	gKPSS['дополнение'], gKPSS['сноска'], gKPSS['источник'] = 
		Args['дополнение'] or '', Args['сноска'] or '', Args['источник'] or ''
	global.set( 'gKPSS', gKPSS )
	return '<i></i>'
end
--]===]