Modulo:CAS: differenze tra le versioni

Versione delle 20:39, 1 nov 2013

Versione attuale delle 15:06, 1 mar 2022

(7 versioni intermedie di 4 utenti non mostrate)

Riga 1:

local p = {}

local dump = {}

local function check_CAS(cas_string)

--Ritorna true se cas_string è un numero CAS valido.

--cas_string deve essere una stringa di 64-10 cifre senza spazi o altri separatori

if #cas_string<64 or #cas_string>10 then

return false

end

Riga 12 ⟶ 13:

local moltiplicatore = 0

local not_number = false

local reverse_cas = stringcas_string.reverse(cas_string)

for c in stringreverse_cas:gmatch(reverse_cas, '.') do

cifra = tonumber(c)

if ccifra == nil then

not_number = true

else

somma = somma + moltiplicatore * cifra

end

moltiplicatore = moltiplicatore + 1

end

if not_number then return false end

if modulo(somma % 10) == tonumber(cas_string:sub(-1)) then

return true

else

Riga 41 ⟶ 43:

-- unisco i parametri ordinali se più di uno

for _, sub_cas in ipairs(origArgs) do

args[#args+1] = mw.text.trim(sub_cas)

end

cas_string = table.concat(args)

--pulisco da eventuali trattini

cas_string = string.gsub(cas_string, '-', '')

--Alcuni template invocano questo modulo senza preventivamente controllare

--se sia stato fornito un CAS (manualmente o tramite Wikidata). Anziché

--considerarlo un errore, è più opportuno non emettere alcun output, in modo

--tale che sia a sua volta considerato un parametro assente.

if #cas_string == 0 then

return ''

end

--controllo se è un CAS valido

local check_result = check_CAS(cas_string)

Riga 52 ⟶ 61:

error_string = ''

if check_result then

CAS_formattato = cas_string:sub(1, -4) .. '-' .. cas_string:sub(-3, -2) .. '-' .. cas_string:sub(-1)

else

error_string = '&nbsp;<strong class="error">numero CAS non valido</strong>'

Riga 59 ⟶ 68:

tostring(mw.uri.fullUrl('toollabs:magnustools/cas.php',

{['cas']=CAS_formattato, ['language']='it'})) .. ' ' ..

CAS_formattato .. ']</span></span>' .. error_string

return reply

end