Modül:Parçacıklar

[bullvar_katip]

-- İngilice vikipedi'den aktarıldı -- Low-overhead version of to avoid exceeding -- template include size at List of baryons. local particleTable, supsub local function stripToNil(text) -- If text is a string, return its trimmed content, or nil if empty. -- Otherwise return text (which may, for example, be nil). if type(text) == 'string' then text = text:match('(%S.-)%s*$') end return text end local BREAK = "__BR__" -- A group is a list of one or more particles with optional separating text. -- Some items are defined with special meanings: -- Parameter Output -- / " / " -- + " + " -- or " or " -- seen " (seen) " -- _word1_word2 " word1 word2" (wordN is any text) -- (text) "(text)" (text is any text) -- br "" (and separates the group into logical lines) -- Each logical line in the final text is in a nowrap span. local Group Group = { add = function (self, item) if item ~= nil then if item == BREAK then selfurgeCurrent else self.nrCurrent = self.nrCurrent + 1 self.current[self.nrCurrent] = item end end end, new = function return setmetatable({ nrCurrent = 0, current = {}, nrLines = 0, lines = {}, }, Group) end, purgeCurrent = function (self) if self.nrCurrent > 0 then self.nrLines = self.nrLines + 1 self.lines[self.nrLines] = self.nrCurrent = 0 self.current = {} end end, text = function (self) selfurgeCurrent return table.concat(self.lines, ) end, } Group.__index = Group local keyitems = { ['/'] = " / ", ['+'] = " + ", ['or'] = " or ", ['seen'] = " (seen) ", ['br'] = BREAK, } local function expand(item, wantLink) -- Return text after expanding given item. -- Throw an error if item is not recognized. local function quit(reason) reason = reason or 'has an invalid definition' error('Particle "' .. item .. '" ' .. reason, 0) end local function su(sup, sub, align) local options = { align = align, lineHeight = '1.0em', } return supsub(sup, sub, options) end local kw = keyitems[item] if kw then return kw end if item:sub(1, 1) '_' then return item:gsub('_', ' ') end if item:sub(1, 1) '(' and item:sub(-1) == ')' then return item -- no space wanted end local particle = particleTable[item:lower] or quit('is not defined') local prefix, suffix if wantLink then prefix = suffix = else prefix = suffix = end local symbol = particle[1] or quit('has no symbol defined') if particle.anti then symbol = end return prefix .. su(particle.TL, particle.BL, 'r') .. symbol .. su(particle.TR, particle.BR, 'l') .. suffix end function main(frame) local args = frame:getParent.args local wantLink = args.link == 'yes' and true or false -- Arguments are passed using #invoke in an article to avoid double-expansion. local sandbox = frame:getTitle:find('sandbox', 1, true) and '/sandbox' or particleTable = mw.loadData('Modülarçacıklar/veri' .. sandbox).particles supsub = require('Modül:Su')._main local group = Group.new for _, arg in ipairs(args) do arg = stripToNil(arg) if arg then group:add(expand(arg, wantLink)) end end return group:text end return { main = main, }