Модуль:Документ

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

local pp = {}
local global = mw.ext.luaglobal;
tools = require( 'Модуль:Tools' )  -- нужен в doctools
refTools = require( 'Модуль:RefTools' )  -- нужен в doctools
local doctools = require 'Module:DocTools'
global.strict( true )


pp[''] = function ( frame )
	local Args, tmp = tools.checkargs( frame:getParent().args,
        { ['номер'] = '', ['дата'] = '', ['вид'] = '', ['вид+'] = true,
-- 26.07.2017 отказываемся от потока            ['структура'] = 'иерархия',
            ['комментарий'] = true, ['сноска'] = true, ['каждому'] = true,
            ['содержание'] = 'текст', ['заголовок'] = true, ['выключен'] = true,
            ['публикация'] = true, ['источник'] = true, ['архив'] = true,
            ['подвиг'] = true, ['указ'] = true, } )
	local errorDateAdvice = 'Используйте формат даты '
		.. '«<var>ЧЧ</var>.<var>ММ</var>.<var>ГГГГ</var>» или '
		.. '«<var>ММ</var>.<var>ГГГГ</var>» или «<var>ГГГГ</var>»'
    if not Args then
		return tools.errorMsg( 'Документ', 'Неизвестный параметр «' .. tmp .. '»', '' )
    end


	local gDoc = global.get( 'gDoc' )
	if gDoc then
		return tools.errorMsg ( 'Документ', 'Повторное использование шаблона «Документ»' )
	end
	local docOff = Args['выключен']
	if mw.ustring.lower( docOff or '' ) == 'да' then
		docOff = 'Формирование сведений о персоналиях на основании данного документа отключено'
	end

	local DocName = mw.title.getCurrentTitle().text
	local name, idx, part, parts = mw.ustring.match( DocName, "^(.+) (%([IVX]+%)) [—−-] часть (%d+) из (%d+)$" )
	if not name then
		name, part, parts = mw.ustring.match( DocName, "^(.+) [—−-] часть (%d+) из (%d+)$" )
	end
	if not name then
		name, idx = mw.ustring.match( DocName, "^(.+) (%([IVX]+%))$" )
	end
	local DocInfo
	if idx then
		DocInfo = 'Имеются [' .. tostring( mw.uri.fullUrl( 'Special:PrefixIndex', {
				prefix = name,
				namespace = 3008,
			} ) )
			.. ' другие документы] с такими же реквизитами.'
		name = name .. ' ' .. idx
	end
	if parts then
		DocInfo = 'Из-за большого объема настоящий документ разделен на ['
			.. tostring( mw.uri.fullUrl( 'Special:PrefixIndex', {
				prefix = name,
				namespace = 3008,
			} ) )
			.. ' несколько частей]. ' .. ( DocInfo or '' )
	end

	local docNumber = Args['номер']
	local docDate =  Args['дата']
	if docNumber == '~' then
		docNumber = mw.ustring.match( DocName, ' № ([^ ]+) ' ) or mw.ustring.match( DocName, ' № ([^ ]+)$' )
		if not docNumber and not string.find(DocName, '№', 1, true ) then
			docNumber = '-'
		end
	end
	if docDate == '~' then
		docDate = mw.ustring.match( DocName, ' от (%d%d%.%d%d%.%d%d%d%d)' )
	end
	if not docDate or not docNumber then
		return tools.errorMsg ( 'Документ', 'Для даты или номера документа использовано значение «~», но заголовок разобрать не удалось' )
	end


	if docNumber == '-' then
		docNumber = ''
	end

	docDate = tools.parseDate( docDate )
	if not docDate then
		return tools.errorMsg ( 'Документ', 'Неправильный формат даты документа', errorDateAdvice )
	end

	local types = mw.loadData( 'Модуль:Документ/Виды документов' )
	local docType = tools.db( types, tools.noPhrase( Args['вид'] ) )

	if not docType then
		return tools.errorMsg ( 'Документ',
			'Параметр «вид» должен указывать один из допустимых видов документов',
			'Перечень допустимых видов документов см. [[Модуль:Документ/Виды документов|тут]]' )
	end
	local docTypeName = docType.hdr
	local vovCtg
	tmp = Args['вид+']
	if tmp then
		if tmp == '~' then
			tmp = mw.ustring.match( DocName, '^Приказ войскам ([^№]+) №' )
			if not tmp then
				local weapon
				weapon, tmp = mw.ustring.match( DocName, '^Приказ командующего (артиллерией) ([^№]+) №' )
				if not weapon then
					weapon, tmp = mw.ustring.match( DocName, '^Приказ командующего (бронетанковыми и механизированными войсками) ([^№]+) №' )
				end
				if not weapon then
					return tools.errorMsg ( 'Документ', 'Для параметра «вид+» использовано значение «~», но заголовок разобрать не удалось' )
				end
				docType = tools.db( types, tools.noPhrase( 'приказ командующего' ) )
				docTypeName = docType.hdr
				vovCtg = 'Приказы ' .. tmp
				tmp = weapon .. ' ' .. tmp
			else
				vovCtg = 'Приказы ' .. tmp
			end
		end
		docTypeName = docTypeName .. ' ' .. tmp
	end
---	local defSort = docType.sort .. string.sub(docDate .. '----------', 1, 7 )
---	if mw.ustring.len( docNumber ) < 5 then
---		defSort = defSort .. mw.ustring.sub( '----' .. docNumber, -4, -1 )
---	end

--	local defSort = string.sub(docDate .. '----------', 1, 10 )
	local defSort = string.char( 0x30 + tonumber( '0' .. string.sub( docDate, 9, 10 ) ) )
	frame:callParserFunction{ name = 'DEFAULTSORT', args = ' ' .. defSort .. mw.title.getCurrentTitle().text }

	local docRevers = mw.ustring.lower( Args['содержание'] )

	local docOrigin = {
		['реверс'] =     'содержание документа восстановлено на основании биографических справок',
		['извлечение'] = 'извлечение из документа, приводится в изложении',
		['текст'] =      'содержание документа приводится в изложении',
	}
	docOrigin = docOrigin[docRevers]
	if not docOrigin then
		return tools.errorMsg ( 'Документ',
			'Параметр «содержание» может иметь значения «реверс», «извлечение» или «текст»',
			'Значение «реверс» указывается для документов, восстановленных по'
				.. ' биографическим справкам, «извлечение» или «текст» — при '
				.. ' при воспроизведении текста документа' )
	end

-- 26.07.2017 отказываемся от потока 	local docStream = mw.ustring.lower( Args['структура'] )
	local docStream = 'иерархия'
	if docStream == 'поток' then
		docStream = true
	elseif docStream == 'иерархия' then
		docStream = false
	else
		return tools.errorMsg ( 'Документ',
			'Параметр «структура» может иметь значения «поток» или «иерархия»',
			'Значение «поток» указывается для документов, в которых рубрики '
				.. ' не образуют вложенность' )
	end

	local out = ''
	if DocInfo then
		out = '<p class="nkvd-doc-parts>' .. DocInfo .. '</p>'
	end
	if docOff then
		out = out .. '<p class="nkvd-doc-off>' .. docOff .. '</p>[[Категория:Выключенные документы]]'
	end
	if vovCtg then
		out = out .. '[[Категория:' .. vovCtg .. '|' .. string.sub(docDate,4,4) .. docDate .. ']]'
	end

	local ukdate = Args['указ']
	if ukdate then
		ukdate = tools.parseDate( ukdate )
		out = out .. [[
<p class="nkvd-griph">Утвержден Указом Президиума Верховного Совета СССР от <b>]]
			.. tools.reparseDate( ukdate ) .. [[</b></p>]]
	end

	out = out .. [[
<p class="nkvd-doc-header">]] .. docTypeName .. [[</p>]]
	if docDate ~= '' or docNumber ~= '' then
		out = out .. [[
<p class="nkvd-doc-attr">]]
		tmp = {}
		if docNumber ~= '' then
			tmp[#tmp+1] =  [[№ <b>]] .. docNumber .. [[</b>]]
			if docType.ctg == 'Указы Президиума Верховного Совета СССР' and string.sub( docNumber, 1, 2 ) == '60' then
				tmp[#tmp] = '<abbr title="До середины 1943 года указы не имели собственной нумерации; указан номер канцелярского дела с материалами указа.">' .. tmp[#tmp] .. '</abbr>'
			end
		end
		if docDate then
			tmp[#tmp+1] =  [[<b>]] .. tools.textDate( docDate ) .. [[</b>]]
		end
		out = out .. table.concat( tmp, ', &nbsp; ' ) .. [[</p>
]]
	end
	if Args['заголовок']  then
		out = out .. '<p class="nkvd-doc-name">' .. Args['заголовок'] .. '</p>'
	end
	local source, podvig = Args['источник'], Args['подвиг']
	tmp = ''
	if podvig then
		if string.sub( podvig, -1, -1 ) == '+' then
			tmp = '[[Категория:Наградные листы просмотрены]]'
			podvig = string.sub( podvig, 1, -2 )
		else
		end
		podvig = '«[http://podvignaroda.ru/?#id=' .. podvig
			.. ' Подвиг народа]»'
	end
	out = out .. tmp .. [[
<p class="nkvd-doc-subheader">(]] .. docOrigin
	out = out .. ')' .. doctools.endRecord( Args )

	local cargo = frame:expandTemplate{ title = 'Таблица документов' }

	global.set( 'gDoc', {
			off = docOff ~= nil,
			date = docDate,
			stream = docStream,
			revers = true, -- docRevers == 'реверс', -- менее жесткие проверки -- хотя для модуля Персона тут всегда было TRUE
			notEmpty = false,   -- «Была персона» для иерархии
			publication = Args['публикация'],
			source = source,
			podvig = podvig,
			ukdate = ukdate,
			archive = Args['архив'],
			n2h = {},      -- number to header
			h2v = {},      -- header to value
			Log = ''
		} )
--	if Args['каждому'] then
--		global.set( 'gUniref-Документ', Args['каждому'] )
--	end
	global.set( 'gUniref-Документ', refTools.collect( Args, 'каждому' ) )

	if docDate == '' then
		tmp = 'без даты'
	elseif string.len(docDate) == 4 then
		tmp = 'за ??.' .. docDate
	else
		tmp = ' за ' .. string.sub( docDate, 6, 7 ) .. '.' .. string.sub( docDate, 1, 4 )
	end
	out = out .. '[[Категория:' .. docType.ctg .. ' ' .. tmp .. ']]'
	return out
end


--[[------------------------------------------------------------------------]]--
pp['Отладка'] = function ( frame  )
	local Doc = global.get( 'gDoc' )
	local x = mw.dumpObject( Doc )
	Doc.Log = ''
	global.set( 'gDoc', Doc )
	return x
end
return pp