Pacify Luacheck.

Mostly just renaming unused args.
This commit is contained in:
Phil Hagelberg 2015-10-19 07:21:37 +07:00
parent 27278fb887
commit b861303333

View File

@ -15,11 +15,9 @@ local tostring, tonumber = tostring, tonumber
local math_floor = math.floor local math_floor = math.floor
local math_ceil = math.ceil local math_ceil = math.ceil
local math_random = math.random local math_random = math.random
local math_cos = math.cos
local math_atan2 = math.atan2 or math.atan local math_atan2 = math.atan2 or math.atan
local math_sqrt = math.sqrt local math_sqrt = math.sqrt
local math_abs = math.abs local math_abs = math.abs
local math_pi = math.pi
local noop = function() local noop = function()
end end
@ -131,7 +129,7 @@ end
function lume.weightedchoice(t) function lume.weightedchoice(t)
local sum = 0 local sum = 0
for k, v in pairs(t) do for _, v in pairs(t) do
assert(v >= 0, "weight value less than zero") assert(v >= 0, "weight value less than zero")
sum = sum + v sum = sum + v
end end
@ -172,7 +170,7 @@ end
function lume.clear(t) function lume.clear(t)
local iter = getiter(t) local iter = getiter(t)
for k, v in iter(t) do for k, _ in iter(t) do
t[k] = nil t[k] = nil
end end
return t return t
@ -250,7 +248,7 @@ end
function lume.all(t, fn) function lume.all(t, fn)
fn = iteratee(fn) fn = iteratee(fn)
local iter = getiter(t) local iter = getiter(t)
for k, v in iter(t) do for _, v in iter(t) do
if not fn(v) then return false end if not fn(v) then return false end
end end
return true return true
@ -260,7 +258,7 @@ end
function lume.any(t, fn) function lume.any(t, fn)
fn = iteratee(fn) fn = iteratee(fn)
local iter = getiter(t) local iter = getiter(t)
for k, v in iter(t) do for _, v in iter(t) do
if fn(v) then return true end if fn(v) then return true end
end end
return false return false
@ -271,7 +269,7 @@ function lume.reduce(t, fn, first)
local acc = first local acc = first
local started = first and true or false local started = first and true or false
local iter = getiter(t) local iter = getiter(t)
for k, v in iter(t) do for _, v in iter(t) do
if started then if started then
acc = fn(acc, v) acc = fn(acc, v)
else else
@ -286,7 +284,7 @@ end
function lume.set(t) function lume.set(t)
local rtn = {} local rtn = {}
for k, v in pairs(lume.invert(t)) do for k, _ in pairs(lume.invert(t)) do
rtn[#rtn + 1] = k rtn[#rtn + 1] = k
end end
return rtn return rtn
@ -302,7 +300,7 @@ function lume.filter(t, fn, retainkeys)
if fn(v) then rtn[k] = v end if fn(v) then rtn[k] = v end
end end
else else
for k, v in iter(t) do for _, v in iter(t) do
if fn(v) then rtn[#rtn + 1] = v end if fn(v) then rtn[#rtn + 1] = v end
end end
end end
@ -319,7 +317,7 @@ function lume.reject(t, fn, retainkeys)
if not fn(v) then rtn[k] = v end if not fn(v) then rtn[k] = v end
end end
else else
for k, v in iter(t) do for _, v in iter(t) do
if not fn(v) then rtn[#rtn + 1] = v end if not fn(v) then rtn[#rtn + 1] = v end
end end
end end
@ -346,7 +344,7 @@ function lume.concat(...)
local t = select(i, ...) local t = select(i, ...)
if t ~= nil then if t ~= nil then
local iter = getiter(t) local iter = getiter(t)
for k, v in iter(t) do for _, v in iter(t) do
rtn[#rtn + 1] = v rtn[#rtn + 1] = v
end end
end end
@ -379,14 +377,14 @@ function lume.count(t, fn)
local iter = getiter(t) local iter = getiter(t)
if fn then if fn then
fn = iteratee(fn) fn = iteratee(fn)
for k, v in iter(t) do for _, v in iter(t) do
if fn(v) then count = count + 1 end if fn(v) then count = count + 1 end
end end
else else
if isarray(t) then if isarray(t) then
return #t return #t
end end
for k in iter(t) do count = count + 1 end for _ in iter(t) do count = count + 1 end
end end
return count return count
end end
@ -435,7 +433,7 @@ end
function lume.keys(t) function lume.keys(t)
local rtn = {} local rtn = {}
local iter = getiter(t) local iter = getiter(t)
for k, v in iter(t) do rtn[#rtn + 1] = k end for k, _ in iter(t) do rtn[#rtn + 1] = k end
return rtn return rtn
end end
@ -458,12 +456,12 @@ end
function lume.once(fn, ...) function lume.once(fn, ...)
local fn = lume.fn(fn, ...) local f = lume.fn(fn, ...)
local done = false local done = false
return function(...) return function(...)
if done then return end if done then return end
done = true done = true
return fn(...) return f(...)
end end
end end
@ -562,7 +560,7 @@ local serialize_map = {
} }
setmetatable(serialize_map, { setmetatable(serialize_map, {
__index = function(t, k) error("unsupported serialize type: " .. k) end __index = function(_, k) error("unsupported serialize type: " .. k) end
}) })
serialize = function(x, stk) serialize = function(x, stk)
@ -601,19 +599,19 @@ function lume.wordwrap(str, limit)
limit = limit or 72 limit = limit or 72
local check local check
if type(limit) == "number" then if type(limit) == "number" then
check = function(str) return #str >= limit end check = function(s) return #s >= limit end
else else
check = limit check = limit
end end
local rtn = {} local rtn = {}
local line = "" local line = ""
for word, spaces in str:gmatch("(%S+)(%s*)") do for word, spaces in str:gmatch("(%S+)(%s*)") do
local str = line .. word local s = line .. word
if check(str) then if check(s) then
table.insert(rtn, line .. "\n") table.insert(rtn, line .. "\n")
line = word line = word
else else
line = str line = s
end end
for c in spaces:gmatch(".") do for c in spaces:gmatch(".") do
if c == "\n" then if c == "\n" then
@ -681,7 +679,7 @@ function lume.hotswap(modname)
end end
local err = nil local err = nil
local function onerror(e) local function onerror(e)
for k, v in pairs(_G) do _G[k] = oldglobal[k] end for k, _ in pairs(_G) do _G[k] = oldglobal[k] end
err = lume.trim(e) err = lume.trim(e)
end end
local ok, oldmod = pcall(require, modname) local ok, oldmod = pcall(require, modname)
@ -760,7 +758,7 @@ function lume.chain(value)
end end
setmetatable(lume, { setmetatable(lume, {
__call = function(t, ...) __call = function(_, ...)
return lume.chain(...) return lume.chain(...)
end end
}) })