Module:Chem2: Difference between revisions

(5 intermediate revisions by 3 users not shown)

Line 2:

local p = {} -- module's table

~~local am = {}~~ -- Elements with wiki links

-- Elements with wiki links

am.H="[[Hydrogen~~|H]]~~"~~;am.~~He="[[Helium~~|He]]~~";

local am = {

H = "Hydrogen",

He = "Helium",

Li = "Lithium",

Be = "Beryllium",

B = "Boron",

C = "Carbon",

N = "Nitrogen",

O = "Oxygen",

F = "Fluorine",

Ne = "Neon",

Na = "Sodium",

Mg = "Magnesium",

Al = "Aluminium",

Si = "Silicon",

P = "Phosphorus",

S = "Sulfur",

Cl = "Chlorine",

Ar = "Argon",

K = "Potassium",

Ca = "Calcium",

Sc = "Scandium",

Ti = "Titanium",

V = "Vanadium",

Cr = "Chromium",

Mn = "Manganese",

Fe = "Iron",

Co = "Cobalt",

Ni = "Nickel",

Cu = "Copper",

Zn = "Zinc",

Ga = "Gallium",

Ge = "Germanium",

As = "Arsenic",

Se = "Selenium",

Br = "Bromine",

Kr = "Krypton",

Rb = "Rubidium",

Sr = "Strontium",

Y = "Yttrium",

Zr = "Zirconium",

Nb = "Niobium",

Mo = "Molybdenum",

Tc = "Technetium",

Ru = "Ruthenium",

Rh = "Rhodium",

Pd = "Palladium",

Ag = "Silver",

Cd = "Cadmium",

In = "Indium",

Sn = "Tin",

Sb = "Antimony",

Te = "Tellurium",

I = "Iodine",

Xe = "Xenon",

Cs = "Caesium",

Ba = "Barium",

La = "Lanthanum",

Ce = "Cerium",

Pr = "Praseodymium",

Nd = "Neodymium",

Pm = "Promethium",

Sm = "Samarium",

Eu = "Europium",

Gd = "Gadolinium",

Tb = "Terbium",

Dy = "Dysprosium",

Ho = "Holmium",

Er = "Erbium",

Tm = "Thulium",

Yb = "Ytterbium",

Lu = "Lutetium",

Hf = "Hafnium",

Ta = "Tantalum",

W = "Tungsten",

Re = "Rhenium",

Os = "Osmium",

Ir = "Iridium",

Pt = "Platinum",

Au = "Gold",

Hg = "Mercury (element)",

Tl = "Thallium",

Pb = "Lead",

Bi = "Bismuth",

Po = "Polonium",

At = "Astatine",

Rn = "Radon",

Fr = "Francium",

Ra = "Radium",

Ac = "Actinium",

Th = "Thorium",

Pa = "Protactinium",

U = "Uranium",

Np = "Neptunium",

Pu = "Plutonium",

Am = "Americium",

Cm = "Curium",

Bk = "Berkelium",

Cf = "Californium",

Es = "Einsteinium",

Fm = "Fermium",

Md = "Mendelevium",

No = "Nobelium",

Lr = "Lawrencium",

Rf = "Rutherfordium",

Db = "Dubnium",

Sg = "Seaborgium",

Bh = "Bohrium",

Hs = "Hassium",

Mt = "Meitnerium",

Ds = "Darmstadtium",

Rg = "Roentgenium",

Cp = "Copernicium",

Nh = "Nihonium",

Fl = "Flerovium",

Mc = "Moscovium",

Lv = "Livermorium",

Ts = "Tennessine",

Og = "Oganesson",

-- Groups etc with element-like names

Bn = 'Benzyl group',

Bz = 'Benzoyl group',

D = 'Deuterium',

Et = 'Ethyl group',

Ln = 'Lanthanide',

Nu = 'Nucleophile',

Ph = 'Phenyl group',

R = 'Substituent',

T = 'Tritium',

Tf = 'Trifluoromethylsulfonyl group',

X = 'Halogen',

}

-- Groups which are redirected from their normal target if wikilinked; never

-- autolinked.

local groups = {

CH3 = 'Methyl group',

CO3 = 'Carbonate',

COOH = 'Carboxyl group',

ClO = 'Hypochlorite',

ClO2 = 'Chlorite',

ClO3 = 'Chlorate',

ClO4 = 'Perchlorate',

H2O = 'Water of crystallization',

H3O = 'Hydronium',

NH2 = 'Amine group',

NH4 = 'Ammonium',

NO3 = 'Nitrate',

PO3 = 'Phosphite',

PO4 = 'Phosphate',

SH = 'Thiol group',

SO3 = 'Sulfite',

SO4 = 'Sulfate',

SeH = 'Selenol group'

}

local T_ELEM = 0 -- token types

Line 27:

Line 176:

local T_UNDERSCORE = 19 -- _{ ... }

local T_CARET = 20 -- ^{ ... }

local T_NOCHANGE = 30 -- Anything else like ☃

local T_LINKOPEN = 21 -- Opening of link, always like "[[target|" even if the source wasn't

local T_NOCHANGE = 30 -- Anything else like ☃

function su(up, down) -- ~~like template~~:su

function su(up, down)

if (down == "") then

if up == "" then

return "<~~span style~~=\"~~display:inline~~-~~block; margin~~-~~bottom:-0.3em; vertical-align:0.8em; line-height:1.2em; font-size:70%; text-align:left;\~~">~~" .. up .. "~~ ~~";~~

return ('%s'):format(down)

~~else~~

end

return "~~" .. up .. "~~ ~~" .. down .. "~~";

if down == "" then

~~end~~

return ('%s'):format(up)

end

return ('%s%s'):format(up, down)

end

function DotIt()

return '·'

end

function item(f) -- (iterator) returns one token (type, value) at a time from the formula 'f'

local i = 1

~~local first = "true";~~

return function ()

local t, x = nil, nil

if (~~first~~ == ~~"true"~~ and f:match('^[0-9]', i)) then

if (i == 1) and f:match('^[0-9]', i) then

x = f:match('^[%d.]+', i); t = T_NOCHANGE; i = i + x:len(); -- matching coefficient (need a space first)

elseif i <= f:len() then

x = f:match('^%s+[%d.]+', i); t = T_NOCHANGE; -- matching coefficient (need a space first)

if not x then x = f:match('^%s[+]', i); t = T_NOCHANGE; end -- matching + (H2O + H2O)

if not x then x = f:match('^%&%#[%w%d]+%;', i); t = T_NOCHANGE; end -- &#...;

if not x then x = f:match('^%<%-%>', i); t = T_ARROW_EQ; end -- matching <->

if not x then x = f:match('^%-%>', i); t = T_ARROW_R; end -- matching ->

if not x then x = f:match('^%u%l*', i); t = T_ELEM; end -- matching symbols like Aaaaa

if not x then x = f:match('^%d+[+-]', i); t = T_SUF_CHARGE; end -- matching x+, x-

if not x then x = f:match('^%d+%(%d*[+-]%)', i); t = T_SUF_CHARGE2; end -- matching x(y+/-), x(+/-)

if not x then x = f:match('^%(%d*[+-]%)', i); t = T_CHARGE; end -- matching (x+) (xx+), (x-) (xx-)

if not x then x = f:match('^[%d.]+', i); t = T_NUM; end -- matching number

if not x then x = f:match('^[(|{|%[]', i); t = T_OPEN; end -- matching ({[

if not x and (f:match('^%[%[%[[^[]', i) or f:match('^%[[^[]', i)) then

if not x then x = f:match('^[)|}|%]]', i); t = T_CLOSE; end -- matching )}]

i = i + 1; return T_OPEN, '[' end -- escape [[[X or [X (relevant to auto-linking)

if not x then x = f:match('^[+-]', i); t = T_PM_CHARGE; end -- matching + or -

if not x and f:sub(i, i + 1) == '[[' then

if not x then x = f:match('^%*[%d.]*H2O', i); t = T_WATER; end -- Crystal water

x = f:match('^%[%[([^]|]*)', i) -- link target

if not x then x = f:match('^%*[%d.]*', i); t = T_CRYSTAL; end -- Crystal

local len = x:len() + 3

if not x then x = f:match('^[\\].{%d+}', i); t = T_SPECIAL2; end -- \y{x}

x = '[[' .. (groups[x] or am[x] or x) .. '|' -- override link target for common groups

if not x then x = f:match('^[\\].', i); t = T_SPECIAL; end -- \x

if not x then x = f:match('^_{[^}]*}', i); t = T_UNDERSCORE; end -- _{...}

if f:sub(len + i, len + i) == ']' then

if not x then x = f:match('^\^{[^}]*}', i); t = T_CARET; end -- ^{...}

-- We're going to read the link twice, once as target and once as

if not x then x = f:match('^.', i); t = T_NOCHANGE; end --the rest - one by one

-- chemical markup, e.g. [[CH3]] => "[[CH3|", "CH3]]"

if x then i = i + x:len(); else i = i + 999; error("Invalid character in formula~~!!!!!!~~! : "..f) end

i = i + 2

end

else

~~first = "false"~~

i = i + len

return t, x

end

return T_LINKOPEN, x