Module:Smyth: Difference between revisions

Revision as of 07:51, 4 October 2016

Latest revision as of 17:22, 9 February 2020

(4 intermediate revisions by 2 users not shown)

Line 1:

local export = {}

local function Smyth(section, part)

data = {

["Smyth"] = {

["path"] = "1999.04.0007"

}

}

local find, match, gmatch = mw.ustring.find, mw.ustring.match, mw.ustring.gmatch

local function makeURL(resourceCode, part, code)

code = mw.uri.encode(code, "PATH")

return "http://www.perseus.tufts.edu/hopper/text?doc=Perseus:text:" .. path .. ":" .. part .. "=" .. code

end

function Smyth(section, part)

if not part then

part = "smythp"

end

SmythData = data.Smyth

path = SmythData.path

local Part, url

if section == "" or section == nil then

Line 40 ⟶ 25:

end

end

code section = mw.uri.encode(codesection, "PATH")

url = makeURL(path, part, section)

return url = "http://www.perseus.tufts.edu/hopper/text?doc=Perseus:text:" 1999.04. path .. "0007:" .. part .. "=" .. codesection

end

return { url = url, Part = Part }

Line 52 ⟶ 38:

if sectionParameter then

n = 1

if mw.ustring.find(sectionParameter, "[^%d%s]") then

for number, postscript, separator in mw.ustring.gmatch(sectionParameter, "(%d+ ?%u?)(%.?[%l%d]?)(%p?[^%d]*)") do

sections[n], postscripts[n], separators[n] = number, postscript, separator

if sections[n] == "" or sections[n] == nil then

Line 61 ⟶ 47:

end

else

sections[1], separators[1] = mw.ustring.match(sectionParameter, "(%d+)"), ""

end

else

Line 79 ⟶ 65:

if not postscripts[i] then postscripts[i] = "" end

if not separators[i] then separators[i] = "" end

output = output .. "[" .. Smyth(sections[i]).url .. " "

if i == 1 then

output = output .. " "sign .. sign" "

end

output = output .. " " .. sections[i] .. postscripts[i] .. "]" .. separators[i]

end

end

Line 91 ⟶ 77:

function export.SmythPart(frame)

local sectionParameter = frame.args[1]

local section = mw.ustring.match(sectionParameter, "(%d+)")

return Smyth(section).Part

end