Mô đun:ja-link/multi

local export = {}

local lang
-- This is based on the function in [[Module:translations/multi]].
local function get_args(template_content)
	local args = {}
	local i = 0
	
	for arg in mw.text.gsplit(template_content, "¦", true) do
		local name, value = arg:match("^(.-)=(.-)$")
		if name then
			if value ~= "" then
				name = tonumber(name) or name
				args[name] = value
			end
		elseif arg == "" then
			i = i + 1
			args[i] = nil
		else
			i = i + 1
			args[i] = arg
		end
	end
	
	return args
end

local script_data = mw.loadData "Module:scripts/data"
local kana = script_data.Kana.characters .. script_data.Hira.characters
local kana_pattern = "^[" .. kana .. "%W]+$"
local function is_kana(str)
	return mw.ustring.find(str, kana_pattern) ~= nil
end

local ja_link = require "Module:ja-link".link
local function process_ja_r_template(template_content)
	local args = get_args(template_content)
	
	-- This logic is copied from [[Module:ja-link]].
	local kana = args[2]
	if not kana then
		kana = args[1]
		if not (kana and is_kana(kana)) then
			-- error
		end
	end
	
	local data = {
		lang = lang,
		lemma = args[1],
		kana = kana,
		gloss = args[3],
		lit = args["lit"],
		pos = args["pos"],
		linkto = args["linkto"],
		transliteration = args["rom"],
	}
	
	local options = {
		caps = args["caps"],
		hist = args["hist"],
	}
	
	return ja_link(data, options)
end

function export.main(frame)
	lang = require("Module:languages").getByCode(frame.args[1] or "ja")
	local lang_code = lang:getCode()
	local wikicode = frame:getParent().args["data"]
	
	if not wikicode then
		return ""
	else
		local result = (mw.ustring.gsub(wikicode, "⦃⦃" .. lang_code .. "%-r¦([^⦃⦄]+)⦄⦄", process_ja_r_template))
		return result
	end
end

return export