Модуль:CTD

<div style="color: #555555; font-size: 80%; font-style: italic; font-family: serif; text-align: center;">Материал из '''Библиотеки Теопедии''', http://ru.teopedia.org/lib</div>

В этом модуле хранятся функции для Большого теософского словаря.

Одна из веток использования:

{{ТД источник}} ← {{ЕПБ.Источник}} ← {{Кратко из БТС}} ← {{Кратко из БТС (оформление)}} ← Модуль:CTD.info()

Для отладки: 

=p.info{ args={
["type"]  = "личность",
["term"]  = "Понятие",
["term_to_show"] = "Поня́тие для показа",
["description"]   = "Полное описание.",
["shortly"]   = "Краткое описание.",
["origin"]    = "происхождение",
["lifetime"]    = "1831-1891",
["wiki_page"]   = "Вики страница",
["userparam"]   = "текст@сноска@личность@серый"
}}

local ctd = {} -- функции для Большого теософского словаря; copied from https://ru.teopedia.org/lib/Module:CTD

local function isempty(s)
  return s == nil or s == ''
end

-- Split string 'inputstr' by separator 'sep' and return values in table
-- Issue: do not insert nil value if in the middle; f.e.: текст@@выражение@
local function split_string(inputstr, sep)
    if sep == nil then
        sep = "%s"
    end
    local t={}
    for str in string.gmatch(inputstr, "([^"..sep.."]+)") do
        table.insert(t, str)
    end
    return t
end


-- Convert local links [[link|text]] and URL [link text] to plain text.
-- See original function in module PM.
local function remove_links( wiki_str )
	local str = wiki_str

	-- remove local links
	i = mw.ustring.find(str,'[[',1,true)
	j = mw.ustring.find(str,']]',i,true)
	while i ~= nil do
		local link_text = mw.ustring.sub(str, i+2, j-1)
		local k = mw.ustring.find(link_text, '|', 1, true) 
		if k ~= nil then
			link_text = mw.ustring.sub(link_text, k+1)
		end
		str = mw.ustring.sub(str, 1, i-1) .. link_text .. mw.ustring.sub(str, j+2, -1)
		i = mw.ustring.find(str,'[[',1,true)
		j = mw.ustring.find(str,']]',i,true)
	end	
	
	-- remove URL
	i = mw.ustring.find(str,'[http',1,true)
	j = mw.ustring.find(str,']',i,true)
	while i ~= nil do
		local link_text = mw.ustring.sub(str, i+1, j-1)
		local k = mw.ustring.find(link_text, ' ', 1, true) 
		if k ~= nil then
			link_text = mw.ustring.sub(link_text, k+1)
		end
		str = mw.ustring.sub(str, 1, i-1) .. link_text .. mw.ustring.sub(str, j+1, -1)
		i = mw.ustring.find(str,'[http',1,true)
		j = mw.ustring.find(str,']',i,true)
	end	
	
	return str
end


-- NOT FINISHED
-- Add a point at the end of text, check for ".." and "...."
local function point_at_end( text )
	local str = text .. '.'
	
	-- check for 2 or 4 points at ending restrict to 1 or 3.
	
	return str
end

-- Create short description without hyper links
-- Used in : Шаблон:Понятие БТС
-- Call example: 
-- {{#invoke: CTD | shortly 
--  | short_text = Short description, if exist 
--  | long_text  = Long description
-- }}
function ctd.shortly( frame )
	local result = ''

	-- check if sort description specified
	if not isempty(frame.args['short_text']) then
		result = frame.args['short_text']
	else 
		result = frame.args['long_text']
		-- keep only text before Category
		local i = mw.ustring.find(result,'[[Категория',1,true)
		if i ~= nil then
			result = mw.ustring.sub(result, 1, i-1)
		end
		-- convert all links to plain text
		result = remove_links(result)
		-- take only first 100 characters; string.sub() uses bytes instead of chars
		if mw.ustring.len(result) > 100 then
			result = mw.ustring.sub( result, 1, 100) .. '...'
		end
	end
	
	-- Use function point_at_end() when finished
	-- return point_at_end(result)
	return result
end


-- Invoke information from CTD about a TERM and shows it in footnote, pop-up or right next to term in square brackets.
-- Used in : Шаблон:Кратко из БТС (оформление)
-- Based on: Шаблон:Понятие БТС
-- Call example: 
-- {{#invoke: CTD | info 
--  | term         = Term, that is word or phrase 
--  | term_to_show = Term with accent or diacritic marks 
--  | lifetime     = Lifetime (for person or conception) or day of issue (for literature and periodical)
--  | shortly      = Short description 
--  | description  = Full description 
--  | origin       = Origin 
--  | wiki_page    = Wiki page title 
--  | author       = Author of a book or an article; applied to literature
--  | author_short = Name with initials
--  | published    = Book or article published; applied to literature
--  | userparam    = text@view@type@style@specification 
-- }}
-- Where 'userparam' consist of all the parameters that can not be fetched by symantic property:
-- * text = text to show; generally it is the original text of request - term or name
-- * view = style of displaying information: подсказка, сноска, скобки, текст
-- * type = type of term: понятие (по умолчанию), личность, выражение, литература, периодика / conception, person, expression, literature, periodical
-- * style= серый / gray
-- * specification = уточнение к литературному источнику: том, страница, глава и т.п.
-- View, type and style are language dependent parameters, consider changes in code below.
-- TODO: Всплывающую подсказку сделать вики текстом и добавить ссылку [[{{{БТС статья}}}|БТС]] 
function ctd.info( frame )
	local term = ''
	local term_to_show = ''
	local reference = ''
	local description = ''
	local origin = ''
	local lifetime = ''			-- comment: date 
	local lifetime_short = ''   -- just date
	local term_link = ''
	local ctd_title = '<span style="border-bottom: 1px dotted gray; cursor:help;" title="Большой теософский словарь">БТС</span>'
	
	-- split 'text@view' value of parameter 'userparam' in two variables
	--local i, j = string.find(frame.args['userparam'],'@',1,true)
	--local text = string.sub(frame.args['userparam'], 1, i-1)
	--local view = string.sub( string.lower(frame.args['userparam']), j+1 )
	-- split 'userparam' in variables
	--local t = split_string(frame.args['userparam'],'@')
	local t = mw.text.split(frame.args['userparam'],'@')
	local text_original, view, term_type, style, specification = t[1], t[2], t[3], t[4], t[5]
	local text = text_original
	if isempty(view) then view = 'подсказка' end	
	if isempty(term_type) then term_type = 'понятие' end	
	--if isempty(style) then style = 'серый' end	

	-- define term to show, i.e. with accent and diacritic
	if not isempty(frame.args['term_to_show']) then
		term_to_show = frame.args['term_to_show']
	elseif not isempty(frame.args['term']) then
		term_to_show = frame.args['term']
	else
		term_to_show = text
	end
	
	-- define term in a simple form as a title in dictionary
	if not isempty(frame.args['term']) then
		term = frame.args['term']
	else
		term = text
	end
	
	-- check if short description is specified
	if not isempty(frame.args['shortly']) then
		description = frame.args['shortly']
	elseif not isempty(frame.args['translation']) then -- for term type = expression
		description = frame.args['translation']
	else
		description = frame.args['description']
	end
	
	-- construct origin string
	-- style for expression: (lang. origin)
	-- all other types: (origin, lifetime)
	if    not isempty(frame.args['origin']) 
	   or not isempty(frame.args['lifetime']) 
	   or not isempty(frame.args['language'])  then
		origin = ' ('
		if not isempty(frame.args['language']) then
			origin = origin ..frame.args['language'] .. '. '
		end
		if not isempty(frame.args['origin']) then
			origin = origin .. frame.args['origin']
		end
		if not isempty(frame.args['origin']) and 
		   not isempty(frame.args['lifetime']) or not isempty(frame.args['published'])then
			origin = origin .. ', '
		end
		if not isempty(frame.args['lifetime']) then
			origin = origin .. frame.args['lifetime']
		elseif not isempty(frame.args['published']) then
			origin = origin .. frame.args['published']
		end
		origin = origin .. ')'
	end

	-- construct lifetime string for pop-up message
	if    not isempty(frame.args['lifetime']) then
		if term_type == 'личность' then
			lifetime = ' Время жизни: '.. frame.args['lifetime']
		elseif term_type == 'выражение' then
			lifetime = ' Время применения: '.. frame.args['lifetime']
		else
			lifetime = ' Время существования: '.. frame.args['lifetime']
		end
		lifetime_short = frame.args['lifetime']
	end
	if not isempty(frame.args['published']) then
		lifetime = ' Время публикации: '.. frame.args['published']
		lifetime_short = frame.args['published']
	end
	if    not isempty(frame.args['lifetime']) 
	   or not isempty(frame.args['published']) then
		lifetime = lifetime .. '.'
	end
	
	-- set hyperlink if there is a wiki page for a term
	local term_without_link = term_to_show
	if not isempty(frame.args['wiki_page']) then
		term_to_show = '[['.. frame.args['wiki_page'] ..'|'.. term_to_show ..']]'
	end
	
	-- set author if we deal with literature
	if not isempty(frame.args['author_short']) then
		term_to_show = frame.args['author_short'] ..', «'.. term_to_show ..'»'
	elseif not isempty(frame.args['author']) then
		term_to_show = frame.args['author'] ..', «'.. term_to_show ..'»'
	end
	-- add volume, chapter, page and so on
	if not isempty(specification) then
		term_to_show = term_to_show ..', '.. specification
	end
	
	-- considering TYPE of VIEW
	if view == 'подсказка' or view == 'сноска и подсказка' or view == 'подсказка и сноска' then
		local popup_str = description .. lifetime
		if term_type == 'литература' then
			popup_str = term_without_link ..', '.. lifetime_short
		elseif term_type == 'литература с оригиналом' then
			popup_str = term_without_link ..', '.. lifetime_short ..' '.. origin
		end
		text = '<span style="border-bottom: 1px dotted gray; cursor: help;" title="' .. popup_str .. ' (БТС, ' .. term .. ').">' .. text .. '</span>'  
	end
	
	-- вид "сноска" и "текст" одинаковый; второй применяется в случаях, когда сноска указывается вручную, поэтому он повторяет вид "сноска", только без тега <ref>
	if view == 'сноска' or view == 'сноска и подсказка' or view == 'подсказка и сноска' 
	   or view == 'текст' then
		reference =  term_to_show .. origin .. '. – ' .. description .. ' ('.. ctd_title ..').'
		if not isempty(style) then   -- there is only one additional style for now, so ignore the value
			reference = '<span style="color: gray;">' .. reference ..'</span>'
		end
		if view ~= 'текст' then
			reference = '<ref>' .. reference ..'</ref>'
		end
	end
	
	if view == 'скобки' then
		local comment = description
		
		if term_type == 'литература' then
			comment = term_to_show ..', '.. lifetime_short
		elseif term_type == 'литература с оригиналом' then
			comment = term_to_show ..', '.. lifetime_short ..' '.. origin
		end

		if isempty(style) then
			text = text .. ' [' .. comment .. '.]'
		else
			text = text .. ' <span style="color: gray;">[' .. comment .. '.]</span>'
		end
	end
	
	local final_output = text .. reference 

	-- DEBUG
	--final_output = 'userparam: '.. frame.args['userparam'] ..'\n- text ='.. text_original ..'\n- view ='.. view ..'\n- type ='.. term_type ..'\n- style ='.. tostring(style) ..'\n- specification ='.. specification ..'\nOUTPUT: '.. text .. reference 
	--return  final_output 
	
    return frame:preprocess( final_output )
end

return ctd
Источник — https://ru.teopedia.org/w-lib/index.php?title=Модуль:CTD&oldid=62487