Модуль:Упоминание — различия между версиями

Материал из Кадровый состав НКВД 1935-1939
Перейти к: навигация, поиск
 
(не показано 10 промежуточных версий этого же участника)
Строка 3: Строка 3:
 
local Args, Doc, Frame
 
local Args, Doc, Frame
 
tools = require( 'Модуль:Tools' )
 
tools = require( 'Модуль:Tools' )
 +
refTools = require( 'Module:RefTools' )
 
local doctools = require( 'Модуль:DocTools' )
 
local doctools = require( 'Модуль:DocTools' )
 +
local abbr = mw.loadData( 'Модуль:Аббревиатуры' )
 
local rankTable = mw.loadData( 'Модуль:Звания' )
 
local rankTable = mw.loadData( 'Модуль:Звания' )
local pope = require( 'Модуль:Поиск персоны' )
+
--local pope = require( 'Модуль:Поиск персоны' )
 
global.strict( true )
 
global.strict( true )
--[[
+
 
local function checkDouble ( ... )
 
    local res, k = {}
 
    for i, field in ipairs( { ... } ) do
 
        if Args[field] and Doc.h2v[field] then
 
            return 'В секции {{' .. field
 
                .. '}} у шаблона не может быть собственного параметра «'
 
                .. field .. '»'
 
        else
 
            res[i] = Args[field] or Doc.h2v[field]
 
        end
 
        k = i
 
    end
 
    return nil, unpack( res, 1, k )
 
end
 
--]]
 
 
local function toRank( para )
 
local function toRank( para )
 
local z = rankTable[para.rank]
 
local z = rankTable[para.rank]
 
local i = 0
 
local i = 0
if z then  
+
if z then
 
if z.diap then
 
if z.diap then
 
for j, d in ipairs( z.diap ) do
 
for j, d in ipairs( z.diap ) do
if para.date < d[1] then
+
if para.cDate < d[1] then
 
i = j-1
 
i = j-1
 
break
 
break
Строка 39: Строка 26:
 
end
 
end
  
local query = Frame:expandTemplate{ title = 'Таблица званий', args = {
+
local query = Frame:expandTemplate{ title = 'Cargo:Ranks', args = {
person = para.person,
+
nLast = para.nLast,
date = para.date,
+
nFirst = para.nFirst,
 +
nMiddle = para.nMiddle,
 +
nDisambig = para.nDisambig,
 +
nFull = para.nFull,
 +
nPrecision = para.nPrecision,
 +
cDate = para.cDate,
 
rank = para.rank,
 
rank = para.rank,
 
subrank = i,
 
subrank = i,
Строка 52: Строка 44:
 
return query
 
return query
 
end
 
end
+
 
  
  
Строка 61: Строка 53:
 
Args, tmp = tools.checkargs( frame:getParent().args,
 
Args, tmp = tools.checkargs( frame:getParent().args,
 
         { true, '', ['дата'] = true, ['звание'] = true, ['подразделение'] = true,
 
         { true, '', ['дата'] = true, ['звание'] = true, ['подразделение'] = true,
['место службы'] = true, -- добавлено по сравнению с персоной
+
['место службы'] = true,
 
             ['должность'] = true,
 
             ['должность'] = true,
             ['награда'] = true, ['номер'] = true,
+
             ['сноска/должность'] = true, ['сноска/звание'] = true,
--            ['подразделение+'] = true,  ['должность+'] = true, ['звание+'] = true,
 
--            ['документ'] = true, ['действие'] = true, ['отмена'] = true,
 
 
             ['сноска'] = true, ['пояснение'] = true, } )
 
             ['сноска'] = true, ['пояснение'] = true, } )
 
     if not Args then
 
     if not Args then
 
         return tools.errorMsg( 'упоминание', 'Неизвестный параметр «' .. tmp .. '»' )
 
         return tools.errorMsg( 'упоминание', 'Неизвестный параметр «' .. tmp .. '»' )
 
     end
 
     end
    local dry = mw.text.trim( frame.args[1] or '' ) == 'dry'
+
--    local dry = mw.text.trim( frame.args[1] or '' ) == 'dry'
 +
local mode = frame.args.mode or ''
 +
local dry = mode == '-'
 +
local fio_precision
 +
if mode == '?' then
 +
fio_precision = '?'
 +
end
  
 
local porno = global.get( 'porno' )
 
local porno = global.get( 'porno' )
Строка 88: Строка 84:
 
return tools.errorMsg ( 'упоминание', 'Не указано ФИО персоны' )
 
return tools.errorMsg ( 'упоминание', 'Не указано ФИО персоны' )
 
end
 
end
--@TODO Проверять формат ФИО (хотя кривое будет красным)
+
local fio_l, fio_f, fio_m, fio_d, fio_warn = tools.splitName( fio )
 +
-- local fio_precision = nil
 +
if not fio_l then
 +
return tools.errorMsg( 'упоминание', fio_f )
 +
end
 +
if fio_d and ( mode == '-' or mode == '*' ) then
 +
return tools.errorMsg( 'упоминание' .. mode, 'Этот вариант шаблона не может использоваться c индексом тезки' )
 +
end
 +
if mode == '*' then
 +
fio = fio .. ' (*)'
 +
fio_d = '(*)'
 +
end
 +
 
local cargoQ = ''
 
local cargoQ = ''
if not noCargo then
 
cargoQ = pope.makePattern( fio )
 
if mw.ustring.find( cargoQ, '%', 1, true ) then
 
cargoQ = frame:expandTemplate{ title = 'Таблица неизвестных', args = {
 
pattern = cargoQ,
 
} }
 
elseif not mw.ustring.find( fio, '(', 1, true ) and mw.title.new( fio .. ' (I)' ).exists then
 
cargoQ = frame:expandTemplate{ title = 'Таблица неизвестных', args = {
 
pattern = fio .. ' %',
 
} }
 
else
 
cargoQ = ''
 
end
 
end
 
  
 
if Doc.debug then
 
if Doc.debug then
Строка 115: Строка 109:
  
 
     local pos, unit, segment
 
     local pos, unit, segment
         = Args['должность'], Args['подразделение'], Args['место службы']
+
         = doctools.abbr( Args['должность'], abbr.pos ), Args['подразделение'], doctools.abbr( Args['место службы'], abbr.segm )
    -- звание почти всегда (кроме присвоения званий) фиксировано, можно приготовить
+
 
     local rank = Args['звание']
+
     local rank = doctools.abbr( Args['звание'], abbr.rank )
 
     if rank then
 
     if rank then
 
     if rankTable[rank] then
 
     if rankTable[rank] then
Строка 125: Строка 119:
 
    end
 
    end
 
else
 
else
             return tools.errorMsg( 'персона',
+
             return tools.errorMsg( 'упоминание',
 
                 'Неизвестное звание «' .. rank .. '» в параметре «звание»')
 
                 'Неизвестное звание «' .. rank .. '» в параметре «звание»')
end
+
end
 
     end
 
     end
  
Строка 147: Строка 141:
 
     end
 
     end
  
    -- сборка примечания
+
--    -- сборка примечания
local reference = {}
+
-- local refers = {}
if Args['сноска'] then
+
-- refers[#refers+1] = Args['сноска']
table.insert( reference, tools.phrase( Args['сноска'] ) )
+
-- refers[#refers+1] = global.get( 'gUniref-Документ' )
end
+
-- refers = table.concat( refers, '' )
tmp = global.get( 'gUniref-Документ' )
+
-- -- собрали примечание
if tmp then
 
table.insert( reference, tools.phrase( tmp ) )
 
end
 
reference = table.concat( reference, ' ' )
 
-- собрали примечание
 
--[====[
 
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  |присвоить звание|
 
    if Doc.h2v['действие'] == 'присвоить звание' then
 
        tmp, rank, newRank = checkDouble( 'звание', 'звание+' )
 
        if tmp then
 
            return tools.errorMsg( 'персона', tmp )
 
        end
 
        if not newRank then
 
            return tools.errorMsg( 'персона', 'Не задано присваиваемое звание' )
 
        end
 
  
        if Args['звание+'] then
+
local referTable = {}
tmp = tools.db( rankTable, newRank, 'кого' )
+
local ownRef, usedRef = refTools.collect( Args, 'сноска' ), {}
if not tmp then
+
refTools.absorb( referTable, global.get( 'gUniref-Документ' ) )
return tools.errorMsg( 'персона', 'Указано неизвестное звание' )
+
refTools.absorb( referTable, ownRef )
end
 
            newText = ' <span class="nkvd-doc-new">— звание <b>'
 
                .. tmp .. '</b></span>'
 
        end
 
        originRank = 12
 
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |лишить звания|
 
    elseif Doc.h2v['действие'] == 'лишить звания' then
 
        newRank = 'лишен'
 
        originRank = 14
 
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |наградить|
 
    elseif  Doc.h2v['действие'] == 'наградить' then
 
        local prize, prizeNum
 
        tmp, prize = checkDouble( 'награда' )
 
        if tmp then
 
            return tools.errorMsg( 'персона', tmp )
 
        end
 
        if not prize then
 
            return tools.errorMsg( 'персона', 'Не указана награда' )
 
        end
 
        prizeNum = Args['номер']
 
        newText = ' <span class="nkvd-doc-new">'
 
        if Args['награда'] then
 
            newText = newText .. '— <b>' .. prize .. '</b>'
 
        end
 
        if prizeNum then
 
            newText = newText .. ' <i>[№ ' .. prizeNum .. ']</i>'
 
        end
 
        newText = newText .. '</span>'
 
        if not noCargo then
 
        cargoQ = frame:expandTemplate{ title = 'Таблица наград', args = {
 
            person = fio,
 
            date = Doc.date,  -- не бывает собственной даты
 
            prize = prize,
 
            number = prizeNum,
 
            origin = 12 + canceledDelta,
 
canceled = canceledBy,
 
            reference = reference,
 
isVolatile = porno,
 
            } }
 
end
 
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  |лишить награды|
 
    elseif  Doc.h2v['действие'] == 'лишить награды' then
 
        local prize, prizeNum
 
        tmp, prize = checkDouble( 'награда' )
 
        if tmp then
 
            return tools.errorMsg( 'персона', tmp )
 
        end
 
        if not prize then
 
            return tools.errorMsg( 'персона', 'Не указана награда' )
 
        end
 
        prizeNum = Args['номер']
 
        newText = ' <span class="nkvd-doc-new">'
 
        if Args['награда'] then
 
            newText = newText .. '— <b>' .. prize .. '</b>'
 
        end
 
        if prizeNum then
 
            newText = newText .. ' <i>[№ ' .. prizeNum .. ']</i>'
 
        end
 
        newText = newText .. '</span>'
 
        if not noCargo then
 
        cargoQ = frame:expandTemplate{ title = 'Таблица наград', args = {
 
            person = fio,
 
            date = Doc.date,  -- не бывает собственной даты
 
            prize = prize,
 
            number = prizeNum,
 
            origin = 14 + canceledDelta,
 
canceled = canceledBy,
 
            reference = reference,
 
isVolatile = porno,
 
            } }
 
    end
 
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |назначить|
 
    elseif  Doc.h2v['действие'] == 'назначить' then
 
        tmp, actionDate = checkDouble( 'дата' )
 
        if tmp then
 
            return tools.errorMsg( 'персона', tmp )
 
        end
 
        newPos, newUnit, newSegment, segment
 
            = Args['должность+'], Args['подразделение+'], segment, nil
 
        if not newPos or not (newUnit or Doc.revers) then
 
            return tools.errorMsg( 'персона',
 
                'Для назначения должны быть указаны должность и подразделение' )
 
        end
 
        if not actionDate then
 
            actionDate = Doc.date
 
        end
 
        if newUnit == '=' then
 
            newUnit = unit
 
        elseif unit == '=' then
 
            unit = newUnit
 
        end
 
newText = ' <span class="nkvd-doc-new">— на должность <b>' .. newPos .. '</b>'
 
if newUnit then
 
            if unit == newUnit then
 
                newText = newText .. ' того же подразделения'
 
            else
 
                newText = newText .. ' в подразделении <b>' .. newUnit .. '</b>'
 
            end
 
        end
 
        newText = newText .. '</span>'
 
        originPos = 12
 
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |уволить|
 
elseif  Doc.h2v['действие'] == 'уволить'
 
or Doc.h2v['действие'] == 'уволить и лишить звания' then
 
local dismissTab = mw.loadData( 'Модуль:Виды увольнения' )
 
        tmp, actionDate = checkDouble( 'дата' )
 
        if tmp then
 
            return tools.errorMsg( 'персона', tmp )
 
        end
 
        if not actionDate then
 
            actionDate = Doc.date
 
        end
 
        if not Doc.h2v['увольнение'] then
 
return tools.errorMsg( 'персона',
 
'Действие «Уволить» обязательно должно включать секцию «увольнение»' )
 
end
 
local dismissMode = Doc.h2v['увольнение'][1]
 
        if not noCargo then
 
cargoQ = frame:expandTemplate{ title = 'Таблица увольнений', args = {
 
person = fio,
 
dismissal_type = dismissTab.direction[dismissMode],
 
article = Doc.h2v['увольнение'][2],
 
formula = Doc.h2v['увольнение'][3],
 
isVolatile = porno,
 
} }
 
end
 
        newPos = '-'
 
        newUnit = dismissTab.dirParam[dismissTab.direction[dismissMode]].unit
 
        originPos = 14
 
if Doc.h2v['действие'] == 'уволить и лишить звания' then
 
            newRank = 'лишен'
 
        originRank = 14
 
end
 
  
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |освободить от должности|
 
elseif  Doc.h2v['действие'] == 'освободить от должности' then
 
local dismissTab = mw.loadData( 'Модуль:Виды увольнения' )
 
        tmp, actionDate = checkDouble( 'дата' )
 
        if tmp then
 
            return tools.errorMsg( 'персона', tmp )
 
        end
 
        if not actionDate then
 
            actionDate = Doc.date
 
        end
 
        if not noCargo then
 
cargoQ = frame:expandTemplate{ title = 'Таблица увольнений', args = {
 
person = fio,
 
dismissal_type = dismissTab.direction['резерв'],
 
article = '',
 
formula = '',
 
isVolatile = porno,
 
} }
 
end
 
        newPos = '(резерв)'
 
        newUnit = Args['подразделение+']
 
        if newUnit  then
 
        newText = ' <span class="nkvd-doc-new">с направлением в <b>'
 
        .. newUnit .. '</b></span>'
 
        end
 
        originPos = 14
 
 
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  |отменить|
 
elseif  Doc.h2v['действие'] == 'отменить' then
 
-- документ, действие, должность, звание, подразделение
 
local cDoc = Args['документ']
 
if not cDoc then
 
return tools.errorMsg( 'персона',
 
'Необходимо указать имя страницы отменяемого приказа' )
 
end
 
if mw.ustring.sub( cDoc, 1, 9 ) == 'Документ:' then
 
cDoc = mw.ustring.sub( cDoc, 10, -1 )
 
end
 
cDoc = '[[Документ:' .. cDoc .. '|' .. cDoc .. ']]'
 
local cAction = mw.ustring.lower( Args['действие'] )
 
if not cAction then
 
return tools.errorMsg( 'персона',
 
'Необходимо указать отменяемое действие («действие=уволить/'
 
.. 'лишить звания/откомандировать...»' )
 
end
 
-- в запись-new ставится newRank c origin=originRank + canceledDelta
 
-- в запись-old ставится rank с origin=originRank-8
 
-- решаем систему уравнений: originRank + canceledDelta = 11
 
-- originRank - 8 = 3
 
-- originRank = 11, canceledDelta = 0
 
if cAction == 'присвоить звание' or cAction == 'лишить звания'
 
or cAction == 'уволить и лишить звания' then
 
newRank = 'Отмена документа ' .. cDoc
 
originRank = 11
 
end
 
if cAction == 'назначить' or cAction == 'уволить'
 
or cAction == 'уволить и лишить звания' then
 
newPos = 'Отмена документа ' .. cDoc
 
originPos = 11
 
end
 
 
beforeText = '<span class="nkvd-doc-new">' .. cDoc .. '</span> в части решения '
 
.. '<span class="nkvd-doc-new">' .. cAction .. '</span>:<br>'
 
 
 
-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |ой!|
 
else
 
return tools.errorMsg( 'персона', 'Ошибка алгоритма:'
 
.. ' неизвестное действие «' .. Doc.h2v['действие'] .. '»' )
 
    end
 
 
if newRank then
 
        if not noCargo then
 
cargoQ = cargoQ .. frame:expandTemplate{ title = 'Таблица званий', args = {
 
person = fio,
 
date = actionDate,
 
rank = newRank,
 
canceled = canceledBy,
 
            origin = originRank + canceledDelta,
 
reference = reference,
 
isVolatile = porno,
 
} }
 
end
 
    end
 
--]====]
 
 
if rank then
 
if rank then
--[[
 
        if newRank then
 
            tmp = originRank - 8
 
        else
 
            tmp = 3
 
        end
 
--]]
 
 
         if not noCargo then
 
         if not noCargo then
 
cargoQ = cargoQ .. toRank {
 
cargoQ = cargoQ .. toRank {
person = fio,
+
nLast = fio_l,
date = actionDate, --+ Doc.date, -- упоминание — на дату составления документа
+
nFirst = fio_f,
 +
nMiddle = fio_m,
 +
nDisambig = fio_d,
 +
nFull = fio,
 +
nPrecision = fio_precision,
 +
cDate = actionDate, --+ Doc.date, -- упоминание — на дату составления документа
 
rank = rank,
 
rank = rank,
 
            origin = 3, --+ tmp,
 
            origin = 3, --+ tmp,
-- reference = reference,
+
reference = table.concat(referTable['звание'] or {}, '¶' ),
 
alias = DocAlias,
 
alias = DocAlias,
 
isVolatile = porno,
 
isVolatile = porno,
 
}
 
}
 
end
 
end
 +
usedRef['звание'] = true
 
end
 
end
--[[
 
if newPos or newUnit or newSegment then
 
        if not noCargo then
 
cargoQ = cargoQ .. frame:expandTemplate{ title = 'Таблица назначений', args = {
 
person = fio,
 
date = actionDate,
 
unit = newUnit,
 
segment = newSegment,
 
position = newPos,
 
canceled = canceledBy,
 
            origin = originPos + canceledDelta,
 
reference = reference,
 
isVolatile = porno,
 
} }
 
end
 
end
 
--]]
 
 
if segment == '-' then
 
if segment == '-' then
 
segment = nil
 
segment = nil
 
end
 
end
 
if pos or unit or segment then
 
if pos or unit or segment then
--[[
 
        if newPos or newUnit then
 
            tmp = originPos - 8
 
        else
 
            tmp = 3
 
        end
 
--]]
 
 
         if not noCargo then
 
         if not noCargo then
cargoQ = cargoQ .. frame:expandTemplate{ title = 'Таблица назначений', args = {
+
cargoQ = cargoQ .. frame:expandTemplate{ title = 'Cargo:Designations', args = {
person = fio,
+
nLast = fio_l,
date = actionDate, --+ Doc.date, -- упоминание — на дату составления документа
+
nFirst = fio_f,
 +
nMiddle = fio_m,
 +
nDisambig = fio_d,
 +
nFull = fio,
 +
nPrecision = fio_precision,
 +
cDate = actionDate, --+ Doc.date, -- упоминание — на дату составления документа
 
unit = unit,
 
unit = unit,
 
position = pos,
 
position = pos,
 
segment = segment,
 
segment = segment,
 
            origin = 3, --+ tmp,
 
            origin = 3, --+ tmp,
-- reference = reference,
+
reference = table.concat(referTable['должность'] or {}, '¶' ),
 
alias = DocAlias,
 
alias = DocAlias,
 
isVolatile = porno,
 
isVolatile = porno,
 
} }
 
} }
 
end
 
end
 +
usedRef['должность'] = true
 
end
 
end
+
 
if not noCargo then
+
if not noCargo and Args['пояснение'] then
cargoQ = cargoQ .. frame:expandTemplate{ title = 'Таблица упоминаний', args = {
+
cargoQ = cargoQ .. frame:expandTemplate{ title = 'Cargo:Mentions', args = {
person = fio,
+
nLast = fio_l,
date = actionDate,
+
nFirst = fio_f,
reference = reference,
+
nMiddle = fio_m,
 +
nDisambig = fio_d,
 +
nFull = fio,
 +
nPrecision = fio_precision,
 +
cDate = actionDate,
 +
reference = table.concat(referTable['common'] or {}, '¶' ),
 
comment = Args['пояснение'],
 
comment = Args['пояснение'],
 
alias = DocAlias,
 
alias = DocAlias,
Строка 465: Строка 212:
 
} }
 
} }
 
end
 
end
+
if Args['пояснение'] then
 +
usedRef['common'] = true
 +
end
 +
 
 +
for i, _ in pairs( ownRef ) do
 +
if not usedRef[i] then
 +
return tools.errorMsg( 'упоминание', 'указана сноска к незаданному параметру «' .. i .. '»')
 +
end
 +
end
 +
 
  
 
local out, suffix = Args[2], ''
 
local out, suffix = Args[2], ''
Строка 472: Строка 228:
 
elseif out == '+' then
 
elseif out == '+' then
 
if rank then
 
if rank then
suffix = ', ' .. rank
+
suffix = ', ' .. tools.db( rankTable, rank, 'кто' ) -- rank
 
end
 
end
 
if pos or unit or segment then
 
if pos or unit or segment then
Строка 483: Строка 239:
 
end
 
end
 
if segment then
 
if segment then
tmp[#tmp+1] = '<i>' .. segment .. '</i>'
+
tmp[#tmp+1] = tools.segment( segment )
 
end
 
end
 
suffix = suffix .. ' (' .. table.concat( tmp, '; ' ) .. ')'
 
suffix = suffix .. ' (' .. table.concat( tmp, '; ' ) .. ')'
end
+
end
if ownDate then
+
if ownDate then
 
suffix = suffix .. ' [по сост. на ' .. tools.reparseDate( ownDate ) .. ']'
 
suffix = suffix .. ' [по сост. на ' .. tools.reparseDate( ownDate ) .. ']'
 
end
 
end
 +
out = fio
 +
elseif out == '' then
 
out = fio
 
out = fio
 
end
 
end
+
 
 
if out ~= '' then
 
if out ~= '' then
 
if dry then
 
if dry then
Строка 500: Строка 258:
 
end
 
end
 
out = out .. suffix
 
out = out .. suffix
end
 
 
if not dry then
 
out = out ..  '[[' .. fio .. '|<span class="fa fa-external-link nkvd-doc-mention-flag" title="Упоминание — ' .. fio .. '"></span>]]'
 
 
end
 
end
--[====[
+
if referTable.common then
if dry then
+
debugTxt = '[[Категория:Универсальные сноски]]' .. debugTxt
out = fio
 
else
 
out = '[[' .. fio .. ']]'
 
 
end
 
end
out = beforeText .. '<span class="nkvd-doc-fio">' .. out .. '</span>'
+
 
if Args['звание'] then
+
if fio_precision then
tmp = tools.db( rankTable, Args['звание'], 'кто' )
+
out = out .. ' <span class="nkvd-idx"><i class="fa fa-question fa-lg">'
if not tmp then
+
.. '</i></span>'
return tools.errorMsg( 'персона', 'Указано неизвестное звание' )
 
end
 
out = out .. ', ' .. tmp
 
 
end
 
end
if Args['подразделение'] or Args['должность'] then
+
if #fio_warn ~= 0 then
if Args['подразделение'] then
+
for _, warn in ipairs( fio_warn ) do
tmp = { unit }
+
out = out .. ' <i class="fa fa-warning fa-lg" style="color: #f05f1a;"'
else
+
.. ' title="' .. warn .. '"></i>'
tmp = {}
 
 
end
 
end
table.insert( tmp, pos )
+
out = out .. '[[Категория:Неаккуратные ссылки на персоналии]]'
out = out .. ' (' .. table.concat( tmp, '; ' ) .. ')'
 
 
end
 
end
if newText ~= '' then
+
if not dry then
out = out .. newText
+
out = out .. '[[' .. fio .. '|<span class="fa fa-external-link nkvd-doc-mention-flag" title="Упоминание — ' .. fio .. '"></span>]]'
end
 
if Args['дата'] then
 
out = out .. ' <span class="nkvd-doc-new">c <b>'
 
            .. tools.reparseDate( ownDate ) .. '</b></span>'
 
end
 
if porno == 800 then
 
debugTxt = '[[Категория:Чересчур длинный документ]]' .. debugTxt
 
 
end
 
end
  
if dry then
+
return debugTxt .. out .. refTools.makeRef(  refTools.toline( ownRef ) ) .. cargoQ
dry = 'no'
 
else
 
dry = ''
 
end
 
--]====]
 
-- global.set( 'gDoc', Doc )
 
return debugTxt .. out .. cargoQ
 
  
  

Текущая версия на 00:50, 27 февраля 2017

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

local pp = {}
local global = mw.ext.luaglobal;
local Args, Doc, Frame
tools = require( 'Модуль:Tools' )
refTools = require( 'Module:RefTools' )
local doctools = require( 'Модуль:DocTools' )
local abbr = mw.loadData( 'Модуль:Аббревиатуры' )
local rankTable = mw.loadData( 'Модуль:Звания' )
--local pope = require( 'Модуль:Поиск персоны' )
global.strict( true )

local function toRank( para )
	local z = rankTable[para.rank]
	local i = 0
	if z then
		if z.diap then
			for j, d in ipairs( z.diap ) do
				if para.cDate < d[1] then
					i = j-1
					break
				end
			end
		else
			i = 1
		end
	end

	local query = Frame:expandTemplate{ title = 'Cargo:Ranks', args = {
			nLast = para.nLast,
			nFirst = para.nFirst,
			nMiddle = para.nMiddle,
			nDisambig = para.nDisambig,
			nFull = para.nFull,
			nPrecision = para.nPrecision,
			cDate = para.cDate,
			rank = para.rank,
			subrank = i,
			canceled = para.canceled,
			origin = para.origin,
			reference = para.reference,
			alias = para.alias,
			isVolatile = para.isVolatile,
		} }
	return query
end



pp.Main = function ( frame )
	Frame = frame
    local tmp
    local debugTxt = ''
	Args, tmp = tools.checkargs( frame:getParent().args,
        { true, '', ['дата'] = true, ['звание'] = true, ['подразделение'] = true,
			['место службы'] = true,
            ['должность'] = true,
            ['сноска/должность'] = true, ['сноска/звание'] = true,
            ['сноска'] = true, ['пояснение'] = true, } )
    if not Args then
        return tools.errorMsg( 'упоминание', 'Неизвестный параметр «' .. tmp .. '»' )
    end
--    local dry = mw.text.trim( frame.args[1] or '' ) == 'dry'
	local mode = frame.args.mode or ''
	local dry = mode == '-'
	local fio_precision 
	if mode == '?' then
		fio_precision = '?'
	end

	local porno = global.get( 'porno' )
	porno = (porno or 0) + 1
	global.set( 'porno', porno )

	Doc = global.get( 'gDoc' )
	local DocAlias = global.get( 'gDocAlias' )
	if not Doc then
		return tools.errorMsg( 'упоминание',
			'Первым на странице должен размещаться шаблон {{ Документ }}' )
	end
    local noCargo = Doc.off or dry

	local fio = Args[1]
	if not fio then
		return tools.errorMsg ( 'упоминание', 'Не указано ФИО персоны' )
	end
	local fio_l, fio_f, fio_m, fio_d, fio_warn = tools.splitName( fio )
--	local fio_precision = nil
	if not fio_l then
		return tools.errorMsg( 'упоминание', fio_f )
	end
	if fio_d and ( mode == '-' or mode == '*' ) then
		return tools.errorMsg( 'упоминание' .. mode, 'Этот вариант шаблона не может использоваться c индексом тезки' )
	end
	if mode == '*' then
		fio = fio .. ' (*)'
		fio_d = '(*)'
	end
	
	local cargoQ = ''

	if Doc.debug then
		debugTxt = {}
		for _, h in ipairs( Doc.n2h ) do
			table.insert( debugTxt, '[' .. h .. '] = ' .. mw.dumpObject( Doc.h2v[h] ) )
		end
		debugTxt = '\n******* ' .. table.concat( debugTxt, '; ' ) .. '\n'
	end


    local pos, unit, segment
        = doctools.abbr( Args['должность'], abbr.pos ), Args['подразделение'], doctools.abbr( Args['место службы'], abbr.segm )

    local rank = doctools.abbr( Args['звание'], abbr.rank )
    if rank then
    	if rankTable[rank] then
    		if rankTable[rank].redirect then
		    	rank = rankTable[rank].redirect
		    	Args['звание'] = rank
		    end
		else
            return tools.errorMsg( 'упоминание',
                'Неизвестное звание «' .. rank .. '» в параметре «звание»')
		end
    end

    local ownDate = Args['дата']
	local actionDate
    if ownDate then
        ownDate = tools.parseDate( ownDate )
        if not ownDate then
            return tools.errorMsg( 'упоминание',
                'Некорректный формат даты в параметре «дата»')
        end
        if Doc.h2v['дата'] then
            return tools.errorMsg( 'упоминание',
                'В секции {{дата}} у шаблона не может быть собственного параметра «дата»' )
        end
        actionDate = ownDate
    else
        actionDate = Doc.date
    end

--    -- сборка примечания
--	local refers = {}
--	refers[#refers+1] = Args['сноска']
--	refers[#refers+1] = global.get( 'gUniref-Документ' )
--	refers = table.concat( refers, '¶' )
--	-- собрали примечание

	local referTable = {}
	local ownRef, usedRef = refTools.collect( Args, 'сноска' ), {}
	refTools.absorb( referTable, global.get( 'gUniref-Документ' ) )
	refTools.absorb( referTable, ownRef )

	if rank then
        if not noCargo then
			cargoQ = cargoQ .. toRank {
				nLast = fio_l,
				nFirst = fio_f,
				nMiddle = fio_m,
				nDisambig = fio_d,
				nFull = fio,
				nPrecision = fio_precision,
				cDate = actionDate, --+ Doc.date, -- упоминание — на дату составления документа
				rank = rank,
	            origin = 3, --+ tmp,
				reference = table.concat(referTable['звание'] or {}, '¶' ),
				alias = DocAlias,
				isVolatile = porno,
				}
		end
		usedRef['звание'] = true
	end
	if segment == '-' then
		segment = nil
	end
	if pos or unit or segment then
        if not noCargo then
			cargoQ = cargoQ .. frame:expandTemplate{ title = 'Cargo:Designations', args = {
				nLast = fio_l,
				nFirst = fio_f,
				nMiddle = fio_m,
				nDisambig = fio_d,
				nFull = fio,
				nPrecision = fio_precision,
				cDate = actionDate, --+ Doc.date, -- упоминание — на дату составления документа
				unit = unit,
				position = pos,
				segment = segment,
	            origin = 3, --+ tmp,
				reference = table.concat(referTable['должность'] or {}, '¶' ),
				alias = DocAlias,
				isVolatile = porno,
				} }
		end
		usedRef['должность'] = true
	end

	if not noCargo and Args['пояснение'] then
		cargoQ = cargoQ .. frame:expandTemplate{ title = 'Cargo:Mentions', args = {
			nLast = fio_l,
			nFirst = fio_f,
			nMiddle = fio_m,
			nDisambig = fio_d,
			nFull = fio,
			nPrecision = fio_precision,
			cDate = actionDate,
			reference = table.concat(referTable['common'] or {}, '¶' ),
			comment = Args['пояснение'],
			alias = DocAlias,
			isVolatile = porno,
		} }
	end
	if Args['пояснение'] then
		usedRef['common'] = true
	end

	for i, _ in pairs( ownRef ) do
		if not usedRef[i] then
			return tools.errorMsg( 'упоминание', 'указана сноска к незаданному параметру «' .. i .. '»')
		end
	end


	local out, suffix = Args[2], ''
	if out == '-' then
		out = ''
	elseif out == '+' then
		if rank then
			suffix = ', ' .. tools.db( rankTable, rank, 'кто' ) -- rank
		end
		if pos or unit or segment then
			tmp = {}
			if pos then
				tmp[#tmp+1] = pos
			end
			if unit then
				tmp[#tmp+1] = unit
			end
			if segment then
				tmp[#tmp+1] = tools.segment( segment )
			end
			suffix = suffix .. ' (' .. table.concat( tmp, '; ' ) .. ')'
		end
		if ownDate then
			suffix = suffix .. ' [по сост. на ' .. tools.reparseDate( ownDate ) .. ']'
		end
		out = fio
	elseif out == '' then
		out = fio
	end

	if out ~= '' then
		if dry then
			out = '<span class="nkvd-doc-mention-dry">' .. out .. '</span>'
		else
			out = '[[' .. fio .. '|<span class="nkvd-doc-mention">' .. out .. '</span>]]'
		end
		out = out .. suffix
	end
	if referTable.common then
		debugTxt = '[[Категория:Универсальные сноски]]' .. debugTxt
	end

	if fio_precision then
		out = out .. ' <span class="nkvd-idx"><i class="fa fa-question fa-lg">'
			.. '</i></span>'
	end
	if #fio_warn ~= 0 then
		for _, warn in ipairs( fio_warn ) do
			out = out .. ' <i class="fa fa-warning fa-lg" style="color: #f05f1a;"'
				.. ' title="' .. warn .. '"></i>'
		end
		out = out .. '[[Категория:Неаккуратные ссылки на персоналии]]'
	end
	if not dry then
		out = out ..  '[[' .. fio .. '|<span class="fa fa-external-link nkvd-doc-mention-flag" title="Упоминание — ' .. fio .. '"></span>]]'
	end

	return debugTxt .. out .. refTools.makeRef(  refTools.toline( ownRef ) ) .. cargoQ



end
return pp