Modul:Arguments: Perbedaan antara revisi
Konten dihapus Konten ditambahkan
Tidak ada ringkasan suntingan |
Hidayatsrf (bicara | kontrib) pesan galat tetap ditampilkan dalam bahasa Inggris, untuk mempermudah pemeliharaan |
||
| (2 revisi perantara oleh 2 pengguna tidak ditampilkan) | |||
Baris 2:
-- #invoke. It is intended for use by other Lua modules, and should not be
-- called from #invoke directly.
local libraryUtil = require('libraryUtil')
local checkType = libraryUtil.checkType
local arguments = {}
-- Generate four different tidyVal functions, so that we don't have to check the
-- options every time we call it.
local function tidyValDefault(key, val)
if type(val) == 'string' then
Baris 23:
end
end
local function tidyValTrimOnly(key, val)
if type(val) == 'string' then
Baris 31:
end
end
local function tidyValRemoveBlanksOnly(key, val)
if type(val) == 'string' then
Baris 43:
end
end
local function tidyValNoChange(key, val)
return val
end
local function matchesTitle(given, title)
local tp = type( given )
return (tp == 'string' or tp == 'number') and mw.title.new( given ).prefixedText == title
end
local translate_mt = { __index = function(t, k) return k end }
function arguments.getArgs(frame, options)
checkType('getArgs', 1, frame, 'table', true)
Baris 58 ⟶ 60:
frame = frame or {}
options = options or {}
--[[
-- Set up argument translation.
--]]
options.translate = options.translate or {}
if getmetatable(options.translate) == nil then
setmetatable(options.translate, translate_mt)
end
if options.backtranslate == nil then
options.backtranslate = {}
for k,v in pairs(options.translate) do
options.backtranslate[v] = k
end
end
if options.backtranslate and getmetatable(options.backtranslate) == nil then
setmetatable(options.backtranslate, {
__index = function(t, k)
if options.translate[k] ~= k then
return nil
else
return k
end
end
})
end
--[[
-- Get the argument tables. If we were passed a valid frame object, get the
Baris 97 ⟶ 124:
end
end
-- We test for false specifically here so that nil (the default) acts like true.
if found or options.frameOnly == false then
Baris 122 ⟶ 149:
luaArgs = frame
end
-- Set the order of precedence of the argument tables. If the variables are
-- nil, nothing will be added to the table, which is how we avoid clashes
-- between the frame/parent args and the Lua args.
local argTables = {fargs}
argTables[#argTables + 1] = pargs
argTables[#argTables + 1] = luaArgs
--[[
-- Generate the tidyVal function. If it has been specified by the user, we
Baris 160 ⟶ 187:
end
end
--[[
-- Set up the args, metaArgs and nilArgs tables. args will be the one
Baris 169 ⟶ 196:
local args, metaArgs, nilArgs, metatable = {}, {}, {}, {}
setmetatable(args, metatable)
local function mergeArgs(tables)
--[[
Baris 190 ⟶ 217:
end
end
--[[
-- Define metatable behaviour. Arguments are memoized in the metaArgs table,
Baris 202 ⟶ 229:
-- the arguments will already have been copied over.
--]]
metatable.__index = function (t, key)
--[[
Baris 215 ⟶ 242:
-- must be nil.
--]]
if type(key) == 'string' then
key = options.translate[key]
end
local val = metaArgs[key]
if val ~= nil then
Baris 231 ⟶ 261:
return nil
end
metatable.__newindex = function (t, key, val)
-- This function is called when a module tries to add a new value to the
-- args table, or tries to change an existing value.
if type(key) == 'string' then
key = options.translate[key]
end
if options.readOnly then
error(
Baris 263 ⟶ 296:
end
end
local function translatenext(invariant)
local k, v = next(invariant.t, invariant.k)
invariant.k = k
if k == nil then
return nil
elseif type(k) ~= 'string' or not options.backtranslate then
return k, v
else
local backtranslate = options.backtranslate[k]
if backtranslate == nil then
-- Skip this one. This is a tail call, so this won't cause stack overflow
return translatenext(invariant)
else
return backtranslate, v
end
end
end
metatable.__pairs = function ()
-- Called when pairs is run on the args table.
Baris 270 ⟶ 321:
metatable.donePairs = true
end
return
end
local function inext(t, i)
-- This uses our __index metamethod
Baris 280 ⟶ 331:
end
end
metatable.__ipairs = function (t)
-- Called when ipairs is run on the args table.
return inext, t, 0
end
return args
end
return arguments
| |||