Module:yue-pron/check

--local Han_pattern = ""
local Han_pattern = ""
local initials = {
	b=1,p=1,m=1,f=1,d=1,t=1,n=1,l=1,
	g=1,k=1,ng=1,h=1,gw=1,kw=1,
	z=1,c=1,s=1,j=1,w=1,
}
local finals = {
	aa=1,aai=1,aau=1,aam=1,aan=1,aang=1,aap=1,aat=1,aak=1,
	a=1,ai=1,au=1,am=1,an=1,ang=1,ap=1,at=1,ak=1,
	e=1,ei=1,eu=1,em=1,eng=1,ep=1,ek=1,
	i=1,iu=1,im=1,=1,ing=1,ip=1,it=1,ik=1,
	o=1,oi=1,ou=1,on=1,ong=1,ot=1,ok=1,
	u=1,ui=1,un=1,ung=1,ut=1,uk=1,
	eoi=1,eon=1,eot=1,
	oe=1,oeng=1,oet=1,oek=1,
	yu=1,yun=1,yut=1,
}

local function check_jyutping(syl)
	local s,v = syl:match("^(%l+)(%-??)$")
	if not s or #v == 1 then return false end
	local i,f = s:match("^(?)(+?g?)$")
	if i and initials and finals then return true end
	if finals or s == "m" or s == "ng" then return true end
	return false
end

return function(word, prons)
	local res, word_len = mw.ustring.gsub(word,Han_pattern,"")
	if res ~= "" then
		return false
	end
	for pron in prons:gmatch("+") do
		-- check length
		if pron:find("  ") then
			return false
		end
		if word_len ~= pron:gsub("+",""):len() + 1 then
			return false
		end
		-- check against ]?
		-- check jyutping validity
		for syl in pron:gmatch("+") do
			if not check_jyutping(syl) then
				return false
			end
		end
	end
	return true
end