มอดูล:test

มอดูลนี้ขาดหน้าย่อยแสดงเอกสารการใช้งาน กรุณาสร้างขึ้น

ลิงก์ที่เป็นประโยชน์: รายชื่อหน้าย่อย • การรวมมา • มอดูลทดสอบ

---

local export = {}

local links = require("Module:links")

local lang = require("Module:languages").getByCode("lo")
local script = require("Module:scripts").getByCode("Laoo")
local PAGENAME = mw.title.getCurrentTitle().text

local function contains(table, val)

	for i = 1, #table do
		if table[i] == val then 
			return true
		end
	end

	return false

end

local function hash(text)

	local charTbl = {}

	text = mw.ustring.gsub(text, ".", {["ຼ"]="ລ", ["ຽ"]="ຍ", ["ໜ"]="ຫນ", ["ໝ"]="ຫມ"})
	for c in mw.ustring.gmatch(text, "[ກ-ຮະາຳເ-ໄ]") do
		table.insert(charTbl, mw.ustring.lower(c))
	end
	table.sort(charTbl)

	return table.concat(charTbl, "")

end

function export.process(frame)

	local data = require("Module:test/raw data")
	local hashData = {}
	local hashKey

	-- collect data
	for _, word in ipairs(data) do
		hashKey = hash(word)
		if mw.ustring.len(hashKey) > 1 then
			if not hashData[hashKey] then
				hashData[hashKey] = {}
			end
			if not contains(hashData[hashKey], word) then
				table.insert(hashData[hashKey], word)
			end
		end
	end

	-- remove isolated data
	for key, list in pairs(hashData) do
		if #list < 2 then
			hashData[key] = nil
		end
	end

	return require("Module:debug").dump(hashData)

end

function export.show(frame)

	local args = frame:getParent().args
	local head = ((frame.args[1] == "" or frame.args[1] == nil) and PAGENAME or frame.args[1])
	local hashKey = hash(head)

	local output = {}
	local list = require("Module:test/processed data")[hashKey]

	if list then
		for _, term in ipairs(list) do
			if term ~= head then
				table.insert(output, links.full_link({lang = lang, term = term, sc = script}))
			end
		end
	end

	return "<ul><li>" .. table.concat(output, ", ") .. "</li></ul>"

end

return export