Module:Array - Revision history

Pppery: Reverted edit by 213.147.181.177 (talk) to last version by Erutuon

2023-08-22T15:32:32Z

Reverted edit by 213.147.181.177 (talk) to last version by Erutuon

Show changes

213.147.181.177: ←Replaced content with 'return 0'

2023-08-22T14:52:35Z

←Replaced content with 'return 0'

Show changes

Erutuon: change module name again

2020-01-09T08:35:09Z

change module name again

← Previous revision		Revision as of 08:35, 9 January 2020
Line 3:		Line 3:

	local function load_table_module()		local function load_table_module()
	return require "Module:~~Array/table~~"		return require "Module:TableTools"
	end		end

Erutuon: gah, just use a copy of the Wiktionary wikt:Module:table

2019-09-17T21:57:58Z

gah, just use a copy of the Wiktionary wikt:Module:table

← Previous revision		Revision as of 21:57, 17 September 2019
Line 3:		Line 3:

	local function load_table_module()		local function load_table_module()
	~~local module =~~ require "Module:~~TableTools~~"		return require "Module:Array/table"
	module.contains = module.inArray
	return module
	end		end

Erutuon: latest version from wikt:Module:array with modifications, a function to load Module:TableTools and apply modifications

2019-09-17T21:45:57Z

latest version from wikt:Module:array with modifications, a function to load Module:TableTools and apply modifications

← Previous revision		Revision as of 21:45, 17 September 2019
Line 1:		Line 1:
	local Array = {}		local Array = {}
	local array_constructor		local array_constructor

			local function load_table_module()
			local module = require "Module:TableTools"
			module.contains = module.inArray
			return module
			end

	-- Copy table library so as not to unexpectedly change the behavior of code that		-- Copy table library so as not to unexpectedly change the behavior of code that
Line 31:		Line 37:
	-- string.sub-style slicing.		-- string.sub-style slicing.
	function array_methods:slice(i, j)		function array_methods:slice(i, j)
	if ~~type(~~i) == ~~"number"~~ then		if i == nil then
			i = 1
			elseif type(i) == "number" then
	i = self:adjust_index(i)		i = self:adjust_index(i)
	else		else
Line 42:		Line 50:
	error("Expected number, got " .. type(j))		error("Expected number, got " .. type(j))
	end		end



	local new_arr = array_constructor()		local new_arr = array_constructor()
			local k = 0
	for index = i, j do		for index = i, j do
			k = k + 1
	new_arr:insert(self[index]) -- Fix! Will do weird stuff to sparse arrays!
			new_arr[k] = self[index]
	end		end
	return new_arr		return new_arr
Line 58:		Line 66:
	-- key will be stored.		-- key will be stored.
	local function to_array(map, field_for_key)		local function to_array(map, field_for_key)
	m_table = m_table or ~~require "Module:TableTools"~~		m_table = m_table or load_table_module()

	local arr = {}		local arr = {}
Line 75:		Line 83:

	-- Functions from [[Module:TableTools]] that operate on arrays or sparse arrays.		-- Functions from [[Module:TableTools]] that operate on arrays or sparse arrays.
	-- List copied from [[~~wikt:~~Module:~~table~~/documentation]].		-- List copied from [[Module:TableTools/documentation]].
	local operate_on_array = {		local operate_on_array = {
	-- non-sparse		-- non-sparse
Line 81:		Line 89:
	"reverseIpairs", "reverse", "invert", "listToSet", "isArray",		"reverseIpairs", "reverse", "invert", "listToSet", "isArray",
	-- sparse		-- sparse
	"numKeys", "maxIndex", "compressSparseArray", "sparseIpairs"		"numKeys", "maxIndex", "compressSparseArray", "sparseIpairs",
			-- tables in general
			"shallowcopy", "deepcopy",
	}		}

Line 87:		Line 97:
	local create_new_array = {		local create_new_array = {
	-- Functions from [[Module:TableTools]] that create an array.		-- Functions from [[Module:TableTools]] that create an array.
	-- List copied from [[Module:~~table~~/documentation]].		-- List copied from [[Module:TableTools/documentation]].
	"removeDuplicates", "numKeys", "affixNums", "compressSparseArray",		"removeDuplicates", "numKeys", "affixNums", "compressSparseArray",
	"keysToList", "reverse",		"keysToList", "reverse",
			-- Functions from [[Module:TableTools]] that create an table.
			"shallowcopy", "deepcopy",
	-- Functions from [[Module:fun]] that create an array.		-- Functions from [[Module:fun]] that create an array.
	"map", "filter",		"map", "filter",
Line 99:		Line 111:
	local second_argument_is_array = { "map", "some", "all", "filter" }		local second_argument_is_array = { "map", "some", "all", "filter" }

	-- Add ~~shorter~~ aliases for the functions from [[Module:TableTools]] whose names		-- Add aliases for the functions from [[Module:TableTools]] whose names
	-- contain "array" or "list", which is redundant.		-- contain "array" or "list", which is redundant, and whose names don't conform
			-- to the usual camel case.
	-- The key redirects to the value.		-- The key redirects to the value.
	local alias_of = {		local alias_of = {
	compress = "compressSparseArray", keys = "keysToList", toSet = "listToSet",		compress = "compressSparseArray", keys = "keysToList", toSet = "listToSet",
			deepCopy = "deepcopy", shallowCopy = "shallowcopy",
	}		}

Line 123:		Line 137:
	local function reverse_arguments(func)		local function reverse_arguments(func)
	return function (a, b)		return function (a, b)
	return func(b, a)		return func(b, a, true)
	end		end
	end		end
Line 152:		Line 166:

	local func		local func
	m_table = m_table or ~~require "Module:TableTools"~~		m_table = m_table or load_table_module()
	if m_table.contains(operate_on_array, key) then		if m_table.contains(operate_on_array, key) then
	if m_table.contains(create_new_array, key) then		if m_table.contains(create_new_array, key) then
Line 178:		Line 192:
	function Array.__add(a, b)		function Array.__add(a, b)
	if type(a) == 'table' and type(b) == 'table' then		if type(a) == 'table' and type(b) == 'table' then
	m_table = m_table or ~~require "Module:TableTools"~~		m_table = m_table or load_table_module()

	local new_arr = array_constructor(m_table.shallowcopy(a))		local new_arr = array_constructor(m_table.shallowcopy(a))
Line 199:		Line 213:
	-- limitations of it being a virtual table.		-- limitations of it being a virtual table.
	if mt and mt.mw_loadData then		if mt and mt.mw_loadData then
	m_table = m_table or ~~require "Module:TableTools"~~		m_table = m_table or load_table_module()
	arr = m_table.shallowcopy(arr)		arr = m_table.shallowcopy(arr)
	end		end
Line 227:		Line 241:
	end		end

	m_table = m_table or ~~require "Module:TableTools"~~		m_table = m_table or load_table_module()

	if m_table.contains(create_new_array, key)		if m_table.contains(create_new_array, key) then
	and not m_table.contains(operate_on_array, key) then
	local func = create_array_generating_func(key, m_table, "table")		local func = create_array_generating_func(key, m_table, "table")
	array_generating_funcs[key] = func		array_generating_funcs[key] = func

Erutuon: Module:table → Module:TableTools

2019-03-11T22:01:23Z

Module:table → Module:TableTools

← Previous revision		Revision as of 22:01, 11 March 2019
Line 58:		Line 58:
	-- key will be stored.		-- key will be stored.
	local function to_array(map, field_for_key)		local function to_array(map, field_for_key)
	m_table = m_table or require "Module:~~table~~"		m_table = m_table or require "Module:TableTools"

	local arr = {}		local arr = {}
Line 74:		Line 74:
	end		end

	-- Functions from [[Module:~~table~~]] that operate on arrays or sparse arrays.		-- Functions from [[Module:TableTools]] that operate on arrays or sparse arrays.
	-- List copied from [[Module:table/documentation]].		-- List copied from [[wikt:Module:table/documentation]].
	local operate_on_array = {		local operate_on_array = {
	-- non-sparse		-- non-sparse
Line 86:		Line 86:
	-- Not all of these operate on arrays.		-- Not all of these operate on arrays.
	local create_new_array = {		local create_new_array = {
	-- Functions from [[Module:~~table~~]] that create an array.		-- Functions from [[Module:TableTools]] that create an array.
	-- List copied from [[Module:table/documentation]].		-- List copied from [[Module:table/documentation]].
	"removeDuplicates", "numKeys", "affixNums", "compressSparseArray",		"removeDuplicates", "numKeys", "affixNums", "compressSparseArray",
Line 99:		Line 99:
	local second_argument_is_array = { "map", "some", "all", "filter" }		local second_argument_is_array = { "map", "some", "all", "filter" }

	-- Add shorter aliases for the functions from [[Module:~~table~~]] whose names		-- Add shorter aliases for the functions from [[Module:TableTools]] whose names
	-- contain "array" or "list", which is redundant.		-- contain "array" or "list", which is redundant.
	-- The key redirects to the value.		-- The key redirects to the value.
Line 152:		Line 152:

	local func		local func
	m_table = m_table or require "Module:~~table~~"		m_table = m_table or require "Module:TableTools"
	if m_table.contains(operate_on_array, key) then		if m_table.contains(operate_on_array, key) then
	if m_table.contains(create_new_array, key) then		if m_table.contains(create_new_array, key) then
Line 178:		Line 178:
	function Array.__add(a, b)		function Array.__add(a, b)
	if type(a) == 'table' and type(b) == 'table' then		if type(a) == 'table' and type(b) == 'table' then
	m_table = m_table or require "Module:~~table~~"		m_table = m_table or require "Module:TableTools"

	local new_arr = array_constructor(m_table.shallowcopy(a))		local new_arr = array_constructor(m_table.shallowcopy(a))
Line 199:		Line 199:
	-- limitations of it being a virtual table.		-- limitations of it being a virtual table.
	if mt and mt.mw_loadData then		if mt and mt.mw_loadData then
	m_table = m_table or require "Module:~~table~~"		m_table = m_table or require "Module:TableTools"
	arr = m_table.shallowcopy(arr)		arr = m_table.shallowcopy(arr)
	end		end
Line 227:		Line 227:
	end		end

	m_table = m_table or require "Module:~~table~~"		m_table = m_table or require "Module:TableTools"

	if m_table.contains(create_new_array, key)		if m_table.contains(create_new_array, key)

Erutuon: copied from wikt:Module:table

2019-03-11T21:59:04Z

copied from wikt:Module:table

New page

local Array = {}
local array_constructor

-- Copy table library so as not to unexpectedly change the behavior of code that
-- uses it.
local array_methods = mw.clone(table)

-- Create version of table.sort that returns the table.
array_methods.sort = function (t, comp)
table.sort(t, comp)
return t
end

-- ipairs and unpack operate on arrays.
array_methods.ipairs = ipairs
array_methods.unpack = unpack

function array_methods:type()
local mt = getmetatable(self)
return type(mt) == "table" and mt.__type or nil
end

function array_methods:adjustIndex(index)
index = math.floor(index)
if index < 0 then
index = #self + index + 1
end
return index
end

-- string.sub-style slicing.
function array_methods:slice(i, j)
if type(i) == "number" then
i = self:adjust_index(i)
else
error("Expected number, got " .. type(i))
end

if j == nil or type(j) == "number" then
j = self:adjust_index(j or -1)
else
error("Expected number, got " .. type(j))
end

local new_arr = array_constructor()
for index = i, j do
new_arr:insert(self[index]) -- Fix! Will do weird stuff to sparse arrays!
end
return new_arr
end

-- A function to convert string key-table modules such
-- as [[Module:languages/data2]] into arrays.
-- "from" is a bad name.
-- field_for_key supplies the field name in which the
-- key will be stored.
local function to_array(map, field_for_key)
m_table = m_table or require "Module:table"

local arr = {}
local i = 0
for key, val in pairs(map) do
i = i + 1
local new_val = m_table.shallowcopy(val)
if field_for_key then
new_val[field_for_key] = key
end
arr[i] = new_val
end

return array_constructor(arr)
end

-- Functions from [[Module:table]] that operate on arrays or sparse arrays.
-- List copied from [[Module:table/documentation]].
local operate_on_array = {
-- non-sparse
"removeDuplicates", "length", "contains", "serialCommaJoin",
"reverseIpairs", "reverse", "invert", "listToSet", "isArray",
-- sparse
"numKeys", "maxIndex", "compressSparseArray", "sparseIpairs"
}

-- Not all of these operate on arrays.
local create_new_array = {
-- Functions from [[Module:table]] that create an array.
-- List copied from [[Module:table/documentation]].
"removeDuplicates", "numKeys", "affixNums", "compressSparseArray",
"keysToList", "reverse",
-- Functions from [[Module:fun]] that create an array.
"map", "filter",
}

-- Functions from [[Module:fun]] that take an array in the second argument.
-- They just have to have the argument order reversed to work as methods of the
-- array object.
local second_argument_is_array = { "map", "some", "all", "filter" }

-- Add shorter aliases for the functions from [[Module:table]] whose names
-- contain "array" or "list", which is redundant.
-- The key redirects to the value.
local alias_of = {
compress = "compressSparseArray", keys = "keysToList", toSet = "listToSet",
}

local function get_module_function(key, module, module_name)
return module[key]
or error("No function named " .. tostring(key) .. " in Module:" .. module_name)
end

local function wrap_in_array_constructor(func)
return function (...)
return array_constructor(func(...))
end
end

local function create_array_generating_func(key, module, module_name)
return wrap_in_array_constructor(get_module_function(key, module, module_name))
end

local function reverse_arguments(func)
return function (a, b)
return func(b, a)
end
end

local function underscore_to_camel_case(str)
if type(str) ~= "string" then return str end
str = str:gsub("_(.)", string.upper)
return str
end

local m_table, m_fun
local Array = {}
Array.__type = "array"
function Array:__index(key)
if type(key) ~= "string" then
return nil
end

-- Convert underscores to camel case: num_keys -> numKeys.
key = underscore_to_camel_case(key)

local val = array_methods[key]
if val then
return val
end

key = alias_of[key] or key

local func
m_table = m_table or require "Module:table"
if m_table.contains(operate_on_array, key) then
if m_table.contains(create_new_array, key) then
func = create_array_generating_func(key, m_table, "table")
else
func = m_table[key]
end
elseif m_table.contains(second_argument_is_array, key) then
m_fun = m_fun or require "Module:fun"

local raw_func = reverse_arguments(get_module_function(key, m_fun, "fun"))
if m_table.contains(create_new_array, key) then
func = wrap_in_array_constructor(raw_func)
else
func = raw_func
end
end

if func then
array_methods[key] = func
return func
end
end

function Array.__add(a, b)
if type(a) == 'table' and type(b) == 'table' then
m_table = m_table or require "Module:table"

local new_arr = array_constructor(m_table.shallowcopy(a))

for _, val in ipairs(b) do
new_arr:insert(val)
end

return new_arr
end
end

function Array:new(...)
local arr
if select("#", ...) == 1 and type((...)) == "table" then
arr = ...

local mt = getmetatable(arr)
-- If table has been loaded with mw.loadData, copy it to avoid the
-- limitations of it being a virtual table.
if mt and mt.mw_loadData then
m_table = m_table or require "Module:table"
arr = m_table.shallowcopy(arr)
end
else
arr = { ... }
end
return setmetatable(arr, self)
end

-- Declared as local above.
function array_constructor(...)
return Array:new(...)
end

local array_generating_funcs = { from = to_array }
local Array_library_mt = {
__call = Array.new, __index = array_generating_funcs
}
setmetatable(Array, Array_library_mt)

function Array_library_mt:__index(key)
key = underscore_to_camel_case(key)
key = alias_of[key] or key

if array_generating_funcs[key] then
return array_generating_funcs[key]
end

m_table = m_table or require "Module:table"

if m_table.contains(create_new_array, key)
and not m_table.contains(operate_on_array, key) then
local func = create_array_generating_func(key, m_table, "table")
array_generating_funcs[key] = func
return func
end
end

return Array