Wikipedia

Modulo:Citazione/sandbox: differenze tra le versioni

Naviga nella cronologia in modo interattivo
← Differenza precedente
Contenuto cancellato Contenuto aggiunto
m Annullata la modifica 104047800
Etichetta: Annulla
correggo
 
(37 versioni intermedie di 7 utenti non mostrate)
Riga 13:
 
--[[ ===============================================================================
CaricamenteCarica dellela tabelletabella di configurazione, delcorreggendo modulo.il nome se caricato da sandbox
-- nota: non ancora attiva per qualche motivo non funziona
===============================================================================]]
local function load_configuration_table(name)
local cfg = mw.loadData( 'Modulo:Citazione/Configurazione/sandbox');
local frame = mw.getCurrentFrame()
local real_name = name
if nil ~= string.find (frame:getTitle(), 'sandbox', 1, true) then
real_name = real_name .. '/sandbox'
end
return mw.loadData(real_name)
end
 
--[[ ===============================================================================
Caricamento delle tabelle di configurazione del modulo.
===============================================================================]]
local cfg = mw.loadData('Module:Citazione/Configurazione/sandbox')
--local cfg = load_configuration_table('Module:Citazione/Configurazione')
 
--[[ ===============================================================================
Lista di tutti i parametri riconosciuti.
===============================================================================]]
local whitelist = mw.loadData( 'ModuloModule:Citazione/Whitelist/sandbox' );
--local whitelist = load_configuration_table('Module:Citazione/Whitelist')
 
--[[ ===============================================================================
Riga 83 ⟶ 98:
 
--[[ ===============================================================================
Ritorna true/false a seconda che la stringa siasi esclusivamentepossa inscrivere caratteriin latinicorsivo
===============================================================================]]
local function is_latinis_italicizable( str )
return require('Modulo:IsLatinValido in corsivo')._IsLatin_main({ str })
end
 
Riga 461 ⟶ 476:
if type(links) == 'table' then
for _, t in ipairs(links) do
t[2] = is_latinis_italicizable( t[2] ) and wrap( 'italic-title', t[2] ) or t[2]
value = value .. ' / ' .. external_link( t[1], t[2] )
end
Riga 502 ⟶ 517:
if ( code == "A" ) then
return link_id({link=handler.link, label=handler.label,
pattern="[http[openlibrary://openlibrary.org/authors/OL$1 |$1]]",id=id, separator=handler.separator,
encode = handler.encode})
elseif ( code == "M" ) then
return link_id({link=handler.link, label=handler.label,
pattern="[http[openlibrary://openlibrary.org/books/OL$1 |$1]]",id=id, separator=handler.separator,
encode = handler.encode})
elseif ( code == "W" ) then
return link_id({link=handler.link, label=handler.label,
pattern= "[http[openlibrary://openlibrary.org/works/OL$1 |$1]]",id=id, separator=handler.separator,
encode = handler.encode})
else
return link_id({link=handler.link, label=handler.label,
pattern= "[http://[openlibrary.org/:OL$1 |$1]]",id=id, separator=handler.separator,
encode = handler.encode}) ..
' ' .. set_error( 'bad_ol' );
Riga 784 ⟶ 799:
Estrae una lista di nomi (autori o editori) dalla lista argomenti
===============================================================================]]
local function extract_names(args, list_name, parent_name)
local names = {};
local i = 1;
local last;
local parameters = {
first = cfg.aliases[list_name .. '-First'],
last = cfg.aliases[list_name .. '-Last'],
link = cfg.aliases[list_name .. '-Link'],
}
 
if parent_name then
for k, t in pairs(parameters) do
local new_values = {}
for _, v in ipairs(t) do
table.insert( new_values, substitute(v, parent_name) )
end
parameters[k] = new_values
end
end
 
while true do
last = select_one( args, cfgparameters.aliases[list_name .. '-Last']last, 'redundant_parameters', i );
if not is_set(last) then
local first = select_one( args, cfgparameters.aliases[list_name .. '-First']first, 'redundant_parameters', i )
if not is_set(first) then
break;
Riga 799 ⟶ 829:
last = first,
first = '',
link = select_one( args, cfgparameters.aliases[list_name .. '-Link']link, 'redundant_parameters', i ),
}
end
Riga 805 ⟶ 835:
names[i] = {
last = last,
first = select_one( args, cfgparameters.aliases[list_name .. '-First']first, 'redundant_parameters', i ),
link = select_one( args, cfgparameters.aliases[list_name .. '-Link']link, 'redundant_parameters', i ),
};
end
Riga 812 ⟶ 842:
end
return names;
end
 
--[[ ===============================================================================
Genera link a wikisource
===============================================================================]]
local function build_wikisource_link(language, title, chapter, anchor)
if is_set(title) then
return mw.ustring.format("s:%s%s%s%s", is_set(language) and (language .. ":") or "" ,
title, is_set(chapter) and ("/" .. chapter) or "" ,
is_set(anchor) and ("#" .. anchor) or "")
end
end
 
Riga 935 ⟶ 954:
local Others = A['Others'];
local Editors = A['Editors'];
local No_editor = A['No_editor'];
local e = extract_names( args, 'EditorList' );
 
Riga 964 ⟶ 982:
local Illustrator = A['Illustrator'];
local Translator = A['Translator'];
local Institution = A['Institution'];
 
if is_set(OriginalTitle) and not is_set(TransTitle) then
TransTitle = TitleOriginalTitle
Title = OriginalTitle
end
 
Riga 1 068 ⟶ 1 086:
end
else
-- formatta Volume e Issue considerando numeri anche le stringhe del tipo n-n o n/n
if is_set(Volume) then
if tonumber(Volume:gsub('[-/]', ''), 10) or A:ORIGIN('Volume') == "vol" then
Volume = "vol. " .. Volume
end
end
if is_set(Issue) and A:ORIGIN('Periodical') ~= "collana" then
if tonumber(Issue:gsub('[-/]', ''), 10) then
Issue = "nº. " .. Issue
end
end
Riga 1 104 ⟶ 1 123:
local ID_list = extract_ids( args );
if ( isPubblicazione ) then
if not is_set(URL) and not is_set(ID_list['PMC']TitleLink) then
if is_set(ID_list['PMC']) then
local Embargo = A['Embargo'];
if local is_set(Embargo) then= A['Embargo'];
if is_set(Embargo) then
local lang = mw.getContentLanguage();
local good1,lang result1,= good2, result2mw.getContentLanguage();
local good1, result1, good2, result2;
good1, result1 = pcall( lang.formatDate, lang, 'U', Embargo );
good2, result2 = pcall( lang.formatDate, lang, 'U' );
 
if good1 and good2 and tonumber( result1 ) < tonumber( result2 ) then
URL = "httphttps://www.ncbi.nlm.nih.gov/pmc/articles/PMC" .. ID_list['PMC'];
URLorigin = cfg.id_handlers['PMC'].parameters[1];
end
else
URL = "https://www.ncbi.nlm.nih.gov/pmc/articles/PMC" .. ID_list['PMC'];
URLorigin = cfg.id_handlers['PMC'].parameters[1];
end
elseif is_set(ID_list['DOI']) then
else
URL = "httphttps://wwwoadoi.ncbi.nlm.nih.gov/pmc/articlesorg/PMC" .. ID_list['PMCDOI'];
URLorigin = cfg.id_handlers['PMCDOI'].parameters[1];
end
end
Riga 1 158 ⟶ 1 182:
------------------------------------------------------------------------------
local auto_Periodical = false
if in_array(config.CitationClass, {'web'}) and not is_set(Periodical) and not is_set(PublisherName) and is_set(URL) then
Periodical = mw.ustring.match(URL, "//([^/#%?]*)") or ''
-- tolgo anche eventuale www.
Riga 1 165 ⟶ 1 189:
end
-- evito ripetizione se il dominio è stato usato come titolo o editore
if is_set(Periodical) andthen
if mw.ustring.lower(Title or '') == mw.ustring.lower(Periodical) then
Periodical = nil''
end
if mw.ustring.lower(PublisherName) == mw.ustring.lower(Periodical) then
PublisherName = ''
end
end
auto_Periodical = true
end
------------------------------------------------------------------------------
-- Per cambiare posizione alle collane nella citazione rispetto ai nomi
-- di rivista ed evitare che siano precedute da un "in"
------------------------------------------------------------------------------
local EditorialCollection = ''
if is_set(Periodical) and A:ORIGIN('Periodical') == "collana" then
EditorialCollection = "(collana " .. Periodical;
if is_set(Issue) then
EditorialCollection = EditorialCollection .. ', ' .. Issue;
Issue = '';
end
EditorialCollection = EditorialCollection .. ')';
Periodical = '';
end
 
Riga 1 185 ⟶ 1 228:
 
---------------------------------------------------------------
-- Compone la stringa deldella linguaggiolingua
---------------------------------------------------------------
local Language_code = ""
Riga 1 203 ⟶ 1 246:
first_language = frame_lingue[1]:lower();
local lg_error;
Language_code, lg_error = require("Modulo:LinguaggiLingue").lingue(frame_lingue)
if lg_error and #lg_error > 0 then
local error_string = mw.text.listToText(lg_error, ", ", " e " )
Riga 1 218 ⟶ 1 261:
 
------------------------------------------------------------------------------
-- Aggiunge automaticamente il wikilink se chiamato da citaa wikisourceWikisource
------------------------------------------------------------------------------
if is_set(A['Source']) and not in_array(config.CitationClass, =={ "wikisourceweb", "video", "tv", "audio" } ) then
Anchorlocal source = A['AnchorSource'];
-- se s=1 usa lo stesso valore di titolo/capitolo
if is_set(TitleLink) then
if source == "1" then
TitleLink = build_wikisource_link(first_language, TitleLink, "", Anchor)
source = Title .. (is_set(Chapter) and ("/" .. Chapter) or "")
elseif is_set(Title) then
TitleLink = build_wikisource_link(first_language, Title, "", (is_set(Chapter) and "") or Anchor)
end
if is_set(ChapterLink) then
ChapterLink = build_wikisource_link(first_language, ChapterLink, "", Anchor)
elseif is_set(Chapter) and is_set(Title) then
ChapterLink = build_wikisource_link(first_language, Title, Chapter, Anchor)
end
source = "s:" .. (is_set(first_language) and (first_language .. ":") or "") .. source
if is_set(Chapter) then ChapterLink = source
else TitleLink = source end
end
 
Riga 1 265 ⟶ 1 305:
-- Recupero e formatto lista curatori
------------------------------------------------------------------------------
local EditorCount, msg_editors
local CuratoriEtal = A['Etalcuratori']
control.coauthors = false
ifcontrol.etal = is_set(CuratoriEtal) then
control.etal = true
else
control.etal = false
end
if is_set(Editors) then
msg_editors = 'editors'
else
local EditorCount
Editors, EditorCount = list_people(control, e)
if is_set(Editors) then
ifmsg_editors = EditorCount <= 1 then msg_editors =and 'editor' else msg_editors =or 'editors' end
end
end
 
------------------------------------------------------------------------------
-- SeRecupero none sonoformatto definitilista autori sostituisco cone curatori di un singolo capitolo dell'opera citata
------------------------------------------------------------------------------
local msg_chapter_editors
if not is_set(Authors) and is_set(Editors) then
local Contributors, ChapterEditors = "", ""
Authors = Editors
if is_set(Chapter) then
Editors = ""
local ChapterEditorCount
control.etal = false
Contributors = list_people(control,
extract_names( args, 'ContributorList', A:ORIGIN('Chapter') ))
ChapterEditors, ChapterEditorCount = list_people(control,
extract_names( args, 'ChapterEditorList', A:ORIGIN('Chapter') ))
if is_set(ChapterEditors) then
msg_chapter_editors = ChapterEditorCount <= 1 and 'editor' or 'editors'
end
end
 
Riga 1 410 ⟶ 1 457:
end
end
Chapter = is_latinis_italicizable( Chapter ) and wrap( 'italic-title', Chapter ) or Chapter;
if is_set(TransChapter) then Chapter = Chapter .. " " .. TransChapter end
if is_set(Chapter) then
Riga 1 447 ⟶ 1 494:
end
end
Title = is_latinis_italicizable( Title ) and wrap('italic-title', Title ) or Title;
if is_set(TransTitle) then Title = Title .. " " .. TransTitle end
if is_set(Title) then
Riga 1 559 ⟶ 1 606:
elseif is_set(PublisherName) then
PublisherName = PublisherName .. " " .. OrigDate
elseif is_set(PlasePlace) then
Place = Place .. " " .. OrigDate
else
Riga 1 568 ⟶ 1 615:
-- Several of the above rely upon detecting this as nil, so do it last.
if is_set(Periodical) then Periodical = wrap( 'italic-title', Periodical ) end
if config.CitationClass=="news" and is_set(Place) then
if is_set(Periodical) then
Periodical = table.concat({Periodical, ' (', Place, ')'})
Place = ""
elseif is_set(Title) then
Title = table.concat({Title, ' (', Place, ')'})
Place = ""
end
end
 
-- set translator / illustrator
Riga 1 612 ⟶ 1 650:
fragment_citation:append(fragment_Title)
else
if is_set(AuthorsChapterEditors) and (is_set(EditorsContributors) andor is_set(Title)args["anteposizione-curatore"] and== not is_set(Chapter"no") then
EditorsChapterEditors = 'a cura di ' .. EditorsChapterEditors
fragment_citation = Fragment.new({AuthorsContributors, Chapter, ChapterEditors}, sepc)
fragment_citation:appends({fragment_Title, Editors})
else
if is_set(msg_editors) and not is_set(No_editorChapterEditors) then
ChapterEditors = wrap(msg_chapter_editors, ChapterEditors)
if is_set(Editors) then
Editors = wrap(msg_editors, Editors)
else
Authors = wrap(msg_editors, Authors)
end
end
if is_set(Chapter) and not (is_set(Contributors) or is_set(ChapterEditors)) then
fragment_citation = Fragment.new({Authors, Chapter}, sepc)
if Chapter ~= "" or Editors ~= ""is_set(Authors) then
Contributors, Authors = Authors, ""
if A:ORIGIN('Periodical') == 'sito' or auto_Periodical then -- antepone "su" anzichè "in" per i siti web
elseif is_set(Editors) and args["anteposizione-curatore"] ~= "no" then
fragment_citation:last("su")
ChapterEditors, Editors = wrap(msg_editors, Editors), ""
else
fragment_citation:last("in")
end
end
fragment_citation:appends = Fragment.new({Editorsis_set(Contributors) and Contributors or ChapterEditors, fragment_TitleChapter}, sepc)
end
if is_set(Chapter) then
-- antepone "su" anzichè "in" per i siti web
if A:ORIGIN('Periodical') == 'sito' or auto_Periodical then
fragment_citation:last("su")
else
fragment_citation:last("in")
end
end
if is_set(Editors) and (is_set(Authors) or args["anteposizione-curatore"] == "no" and not is_set(Chapter)) then
Editors = 'a cura di ' .. Editors
fragment_citation:appends({Authors, fragment_Title, Editors})
else
if is_set(Editors) then
Editors = wrap(msg_editors, Editors)
end
fragment_citation:appends({is_set(Authors) and Authors or Editors, fragment_Title})
end
end
fragment_citation:appends( { Conference, Periodical, Translator, Illustrator, Others, Series, Volume, Issue,
VolumeEdition, Issue, EditionInstitution, Place, PublisherName, Station, Date, Position } )
local fragment_ID_list = Fragment.new(ID_list, sepc):append(ID):start(",")
local fragment_URL = Fragment.new(URL):start(",")
Riga 1 643 ⟶ 1 692:
local fragment_Via = Fragment.new(Via):start(".")
local fragment_Quote = Fragment.new({Quote}):start(".")
fragment_citation:appends({fragment_ID_list, EditorialCollection, fragment_URL, fragment_AccessDate, fragment_Archived, fragment_Via, fragment_Quote})
if PostScript == 'nessuno' then
fragment_citation:last("nothing")
Riga 1 649 ⟶ 1 698:
fragment_citation:last("..")
end
fragment_citation:appends({fragment_Quote})
fragment_citation:start(" ")
local text = Language_code .. tostring(fragment_citation)
-- aggiungo l'icona per cita video/audio
if config.CitationClass == "video" then text = cfg.messages['icon_video'] .. ' ' .. text end
if config.CitationClass == "audio" then text = cfg.messages['icon_audio'] .. ' ' .. text end
if config.CitationClass == "wikisource" then text = cfg.messages['Wikisource icon'] .. ' ' .. text end
 
-- Now enclose the whole thing in a <span/> element
Riga 1 760 ⟶ 1 809:
else
if #suggestions == 0 then
suggestions = mw.loadData( 'Modulo:Citazione/Suggerimenti' );
--suggestions = load_configuration_table( 'Modulo:Citazione/Suggerimenti');
end
if suggestions[ k:lower() ] ~= nil then
Riga 1 785 ⟶ 1 835:
end
return citation0( config, args )
end
 
-- Temporanea per retrocompatibilità
function z.collegamenti(args)
return citation0( {CitationClass = 'web'}, args )
end
 
-- Funzione per generare direttamente una citazione da un altro modulo
function z.cita_da_modulo(classe, args)
-- mi assicuro che le code messaggi di errore siano vuote per evitare problemi in caso
-- per citazioni multiple dall'interno dello stesso modulo
z.error_categories = {}; -- lista delle categorie di errore
z.error_ids = {}; -- lista dei codici di errore
z.message_tail = {}; -- messaggi di errore da visualizzare in coda alla citazione
return citation0( {CitationClass = classe}, args )
end
Estratto da "https://it.wikipedia.org/wiki/Modulo:Citazione/sandbox"