มอดูล:ug-common

This มอดูล lacks a documentation subpage. Please create it.

Useful links: subpage list • links • transclusions • testcases • sandbox

---

local export = {}
local find = mw.ustring.find
local sub = mw.ustring.sub
local gsub = mw.ustring.gsub
local match = mw.ustring.match
local length = mw.ustring.len
local vowels = "اەېىوۇۆۈ"
local vowelsBack = "اوۇ"
local vowelsFront = "ەۆۈ"
-- local vowelsCentral = "ېى"
local consonBack = "خغق"
local consonFront = "كگ"
local consonJsiz = "پتچخسشفقكھغگبد"

function export.getLast(str)
	local base, v, c = match(str, "(.*[^" .. vowels .. "]+)([" .. vowels .. "]+)([^" .. vowels .. "]*)$")
	return base, v, c
end
function export.checkTongue(str)
  local isChe = find(str, "چە$")
  if isChe then str = gsub(str, "چە$", "") end 
  local tongue = export.checkFrontBack(str)
  if tongue then return tongue end
  if isChe then return checkChe(str) end
  return export.checkCentral(str)
end
function export.checkFrontBack(str)
	local base, v = match(str, "(.+)([" .. vowels .. "]+)[^" .. vowels .. "]*$")
	if v then
		if find(v, "[" .. vowelsBack .. "]$") then return "back" end
		if find(v, "[" .. vowelsFront .. "]$") then return "front" end
		return export.checkFrontBack(base)
	else
		return nil
	end
end
function export.checkCentral(str)
	--exceptions
	for k, data in pairs(require('Module:ug-common/data').tongue) do
		if match(str, k) then return data end
	end
	
	if match(str,"[" .. consonBack .. "]") then return "back" end
	if match(str,"[" .. consonFront .. "]") then return "front" end
	return nil
end
function checkChe(str)
  local ff =  match(str,"(.-)[" .. consonBack .. "]")
  if ff then return "back" else return "front" end
end

return export