Модуль:CTD: различия между версиями

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


-- Invoke information from CTD about a term and shows it in footnote, pop-up or right next to term in square brackets.
-- Invoke information from CTD about a TERM and shows it in footnote, pop-up or right next to term in square brackets.
-- Used in Шаблон:Кратко из БТС (оформление)
-- Used in : Шаблон:Кратко из БТС (оформление)
-- Call example: {{#invoke: CTD | info | term=Term | term_to_show=Term with accent or diacritic marks | shortly=Short description | description=Full description | origin = Origin | userparam=text@view }}
-- Based on: Шаблон:Понятие БТС
-- 'view' is a language dependent parameter, consider changes in code
-- Call example:  
-- {{#invoke: CTD | info  
--  | term         = Term  
--  | term_to_show = Term with accent or diacritic marks  
--  | shortly     = Short description  
--  | description = Full description  
--  | origin       = Origin  
--  | wiki_page    = Wiki page title
--  | userparam   = text@view  
-- }}
-- Where 'userparam' consist of:
-- text = text to show; generally it is the original text of request
-- view = style of displaying information; a language dependent parameter (consider changes in code below)
function ctd.info( frame )
function ctd.info( frame )
local term = ''
local term = ''
Строка 56: Строка 68:
-- check if origin specified
-- check if origin specified
if not isempty(frame.args['origin']) then
if not isempty(frame.args['origin']) then
origin = ' ' .. frame.args['origin']
origin = ' (' .. frame.args['origin'] .. ')'
end
end
Строка 70: Строка 82:
text = '{{#tag:span|' .. text .. '|style=border-bottom:1px dotted gray; cursor:help;|title=' .. description .. ' (БТС, ' .. term .. ')|}}'  
text = '{{#tag:span|' .. text .. '|style=border-bottom:1px dotted gray; cursor:help;|title=' .. description .. ' (БТС, ' .. term .. ')|}}'  
end
end
if view == 'сноска' or view == 'сноска и подсказка' then
if view == 'сноска' or view == 'сноска и подсказка' or view == 'подсказка и сноска' then
reference = '<ref>' .. term_to_show ..' ('.. origin .. ') – ' .. description .. ' ('.. bts ..', ' .. term_link .. ').</ref>'
reference = '<ref>' .. term_to_show .. origin .. ' – ' .. description .. ' ('.. bts ..', ' .. term_link .. ').</ref>'
end
end
if view == 'скобки' then
if view == 'скобки' then
Строка 81: Строка 93:
     return frame:preprocess( text .. reference )
     return frame:preprocess( text .. reference )
end
-- Invoke information from CTD about a FOREIGN EXPRESSION and shows it in footnote, pop-up or right next to expression in square brackets.
-- Used in : Шаблон:О выражении (оформление)
-- Based on: Шаблон:Иноязычное выражение БТС
-- Call example:
-- {{#invoke: CTD | expression_info
--  | expression = Foreing expression
--  | language  = Language of expression
--  | origin    = Origin
--  | translation= Full translation and description
--  | shortly    = Short description
--  | additional = Some additional information (historical, etc.)
--  | wiki_page  = Wiki page title
--  | userparam=text@view
-- }}
-- Where 'userparam' consist of:
-- text = text to show; generally it is the original text of request
-- view = style of displaying information; a language dependent parameter (consider changes in code below)
function ctd.expression_info( frame )
local expression = '<i>' .. frame.args['expression'] .. '</i>'
local short_translation = ''
local reference = ''
local origin = ''
local bts = ' (<span style="font-style:italic;" title="Большой теософский словарь">[['.. frame.args['wiki_page'] ..'|БТС]]</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 )
-- check if short description is specified
if not isempty(frame.args['shortly']) then
short_translation = frame.args['shortly']
elseif not isempty(frame.args['translation']) then
short_translation = frame.args['translation']
else
short_translation = frame.args['description']
end
-- check if origin specified
if not isempty(frame.args['origin']) then
origin = ' ('
if not isempty(frame.args['language']) then
origin = origin ..frame.args['language'] .. '. '
end
origin = origin .. frame.args['origin'] .. ')'
end
-- considering type of view
if view == 'подсказка' or view == 'сноска и подсказка' or view == 'подсказка и сноска' then
text = '<span style="border-bottom: 1px dotted gray; cursor: help;" title="'.. short_translation ..' (БТС, ' .. frame.args['expression'] .. ')">'.. text ..'</span>'
elseif view == 'сноска' or view == 'сноска и подсказка' or view == 'подсказка и сноска' then
reference = '<ref><i>' .. frame.args['expression'] .. '</i>' .. origin .. ' – ' .. frame.args['translation'] .. bts ..'.</ref>'
elseif view == 'скобки' then
text = text ..' ['.. short_translation
if not isempty(frame.args['language']) then
text = text..' ('.. frame.args['language'] .. '.)'
end
text = text ..']'
end
-- add debug information
--text = '<p>DEBUG: view: ' .. view .. "; term: " .. term .. "; description: " .. description .. "; origin: " .. origin .. '</p>' .. text
    --return frame:preprocess( text .. reference )
    return text .. reference
end
end


return ctd
return ctd

Версия от 00:12, 13 февраля 2023

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

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

{{ТД источник}}{{ЕПБ.Источник}}{{Кратко из БТС}}{{Кратко из БТС (оформление)}}Модуль: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

-- For debug
function ctd.test( frame )
	local i, j = string.find(frame.args['userparam'],'@',1,true)
	local sub1 =  string.sub( string.lower(frame.args['userparam']), 1, i-1 )
	local sub2 =  string.sub( string.lower(frame.args['userparam']), j+1 )
	
	return 'userparam='.. frame.args['userparam'] .. '; i=' .. i .. '; j=' .. '; sub1=' .. sub1 .. '; sub2=' .. sub2
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 
--  | term_to_show = Term with accent or diacritic marks 
--  | shortly      = Short description 
--  | description  = Full description 
--  | origin       = Origin 
--  | wiki_page    = Wiki page title 
--  | userparam    = text@view 
-- }}
-- Where 'userparam' consist of:
-- text = text to show; generally it is the original text of request
-- view = style of displaying information; a language dependent parameter (consider changes in code below)
function ctd.info( frame )
	local term = ''
	local term_to_show = ''
	local reference = ''
	local description = ''
	local origin = ''
	local term_link = ''
	local bts = '<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 )

	-- 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']
	else
		description = frame.args['description']
	end
	
	-- check if origin specified
	if not isempty(frame.args['origin']) then
		origin = ' (' .. frame.args['origin'] .. ')'
	end
	
	-- check if origin specified
	if not isempty(frame.args['wiki_page']) then
		term_link = '[['.. frame.args['wiki_page'] ..'|'.. term ..']]'
	else 
		term_link = term
	end
	
	-- considering type of view
	if view == 'подсказка' or view == 'сноска и подсказка' or view == 'подсказка и сноска' then
		text = '{{#tag:span|' .. text .. '|style=border-bottom:1px dotted gray; cursor:help;|title=' .. description .. ' (БТС, ' .. term .. ')|}}' 
	end
	if view == 'сноска' or view == 'сноска и подсказка' or view == 'подсказка и сноска' then
		reference = '<ref>' .. term_to_show .. origin .. ' – ' .. description .. ' ('.. bts ..', ' .. term_link .. ').</ref>'
	end
	if view == 'скобки' then
		text = text .. ' [' .. description .. ']'
	end

	-- add debug information
	--text = '<p>DEBUG: view: ' .. view .. "; term: " .. term .. "; description: " .. description .. "; origin: " .. origin .. '</p>' .. text
	
    return frame:preprocess( text .. reference )
end


-- Invoke information from CTD about a FOREIGN EXPRESSION and shows it in footnote, pop-up or right next to expression in square brackets.
-- Used in : Шаблон:О выражении (оформление)
-- Based on: Шаблон:Иноязычное выражение БТС
-- Call example: 
-- {{#invoke: CTD | expression_info 
--  | expression = Foreing expression 
--  | language   = Language of expression
--  | origin     = Origin 
--  | translation= Full translation and description 
--  | shortly    = Short description 
--  | additional = Some additional information (historical, etc.)
--  | wiki_page  = Wiki page title 
--  | userparam=text@view 
-- }}
-- Where 'userparam' consist of:
-- text = text to show; generally it is the original text of request
-- view = style of displaying information; a language dependent parameter (consider changes in code below)
function ctd.expression_info( frame )
	local expression = '<i>' .. frame.args['expression'] .. '</i>'
	local short_translation = ''
	local reference = ''
	local origin = ''
	local bts = ' (<span style="font-style:italic;" title="Большой теософский словарь">[['.. frame.args['wiki_page'] ..'|БТС]]</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 )

	-- check if short description is specified
	if not isempty(frame.args['shortly']) then
		short_translation = frame.args['shortly']
	elseif not isempty(frame.args['translation']) then
		short_translation = frame.args['translation']
	else
		short_translation = frame.args['description']
	end
	
	-- check if origin specified
	if not isempty(frame.args['origin']) then
		origin = ' (' 
		if not isempty(frame.args['language']) then
			origin = origin ..frame.args['language'] .. '. '
		end
		origin = origin .. frame.args['origin'] .. ')'
	end
	
	-- considering type of view
	if view == 'подсказка' or view == 'сноска и подсказка' or view == 'подсказка и сноска' then
		text = '<span style="border-bottom: 1px dotted gray; cursor: help;" title="'.. short_translation ..' (БТС, ' .. frame.args['expression'] .. ')">'.. text ..'</span>'
	elseif view == 'сноска' or view == 'сноска и подсказка' or view == 'подсказка и сноска' then
		reference = '<ref><i>' .. frame.args['expression'] .. '</i>' .. origin .. ' – ' .. frame.args['translation'] .. bts ..'.</ref>'
	elseif view == 'скобки' then
		text = text ..' ['.. short_translation 
		if not isempty(frame.args['language']) then
			text = text..' ('.. frame.args['language'] .. '.)'
		end
		text = text ..']'
	end

	-- add debug information
	--text = '<p>DEBUG: view: ' .. view .. "; term: " .. term .. "; description: " .. description .. "; origin: " .. origin .. '</p>' .. text
	
    --return frame:preprocess( text .. reference )
    return text .. reference
end

return ctd