Jump to content

Module:tl-bay sc

From Wiktionary, the free dictionary
The following documentation is located at Module:tl-bay sc/documentation. [edit]
Useful links: subpage list • links • transclusions • testcases • sandbox

This module powers {{tl-bay sc}}, which is used to automatically generate Baybayin forms of Tagalog words. 


-- Based on [[Module:tl-pron]] by [[User:TagaSanPedroAko]]. 
-- Adaptation by [[User:Ysrael214]].

local export = {}

local lang = require("Module:languages").getByCode("tl")
local sc_Tglg = require("Module:scripts").getByCode("Tglg")
local tl_utils = require("Module:tl-utilities")

local u = require("Module:string/char")
local rfind = mw.ustring.find
local rsubn = mw.ustring.gsub
local rsplit = mw.text.split
local ulower = mw.ustring.lower

local AC = u(0x0301) -- acute =  ́
local GR = u(0x0300) -- grave =  ̀
local CFLEX = u(0x0302) -- circumflex =  ̂
local MACRON = u(0x0304) -- macron 

local vowel = "aeəiou" -- vowel
local V = "[" .. vowel .. "]"
local accent = AC .. GR .. CFLEX .. MACRON
local separator = accent ..  "# ./"
local C = "[^" .. vowel .. separator .. "]" -- consonant
local supported_chars = "a-zA-Záéíóúâêîôûàèìòùë%-.ñŋ#'/,"

local baybayin_chars = { 
	["a"] = "ᜀ", 
	["i"] = "ᜁ", 
	["u"] = "ᜂ",
	["b"] = "ᜊ", 
	["k"] = "ᜃ", 
	["d"] = "ᜇ", 
	["g"] = "ᜄ", 
	["h"] = "ᜑ", 
	["l"] = "ᜎ",
	["m"] = "ᜋ",
	["n"] = "ᜈ",
	["ŋ"] = "ᜅ",
	["p"] = "ᜉ",
	["r"] = "ᜍ",
	["s"] = "ᜐ",
	["t"] = "ᜆ",
	["w"] = "ᜏ",
	["y"] = "ᜌ"
}

local baybayin_marks = {
	["a"] = "",
	["i"] = "ᜒ",
	["u"] = "ᜓ",
	["+"] = "᜔",
	["/"] = "᜕"
}

local special_words = {
	["ng"] = "nang",
	["mga"] = "manga"
}

-- version of rsubn() that discards all but the first return value
local function rsub(term, foo, bar)
	local retval = rsubn(term, foo, bar)
	return retval
end

-- apply rsub() repeatedly until no change
local function rsub_repeatedly(term, foo, bar)
	while true do
		local new_term = rsub(term, foo, bar)
		if new_term == term then
			return term
		end
		term = new_term
	end
end

-- ĵ, ɟ and ć are used internally to represent [d͡ʒ], [j] and [t͡ʃ]

function export.transcribe(text, trad, diph, force_r)
	
	text = ulower(text)
    -- canonicalize multiple spaces and remove leading and trailing spaces
	local function canon_spaces(text)
		text = rsub(text, "%s+", " ")
		text = rsub(text, "^ ", "")
		text = rsub(text, " $", "")
		return text
	end
	
    text = canon_spaces(text)
    
    -- Convert punctuation to kulit
    text = rsub(text, "%s*[,–—]", "/")
    text = rsub(text, "([^%s])%s*[!?]", "%1 //")
	
	local words = rsplit(text, " ")
	
	for i, word in ipairs(words) do
		if special_words[word] then
			words[i] = special_words[word]
		end
		words[i] = rsub(words[i], "^%-(" .. V .. ")", "◌%1") -- suffix/infix if vowel, remove glottal stop at start
	end

	text = table.concat(words, " ")
	
	-- Convert slashes to bantasan, kulit divider
	text = rsub(text, "//", " ᜶ ")
	text = rsub(text, "/", trad and ' ᜶ ' or " ᜵ ")

	-- Convert hyphens to dot
	text = rsub(text, "%-", ".")
	-- canonicalize multiple spaces again, which may have been introduced by hyphens
	text = canon_spaces(text)
	-- now eliminate punctuation
	text = rsub(text, "[!?']", "")
	-- put # at word beginning and end and double ## at text/foot boundary beginning/end
	text = rsub(text, " | ", "# | #")
	text = "##" .. rsub(text, " ", "# #") .. "##"
	
	-- Move this early for now
	--c, gü/gu+e or i, q
	text = rsub(text, "c([iey])", "s%1")
	text = rsub(text, "([aeëiou])gü([ie])", "%1ɡw%2")
	text = rsub(text, "gü([ie])", "ɡuw%1")
	text = rsub(text, "gu([e])", "ɡ%1") -- Only e, so words like "biguin" will not be read as "bigin"
	text = rsub(text, "qu([ie])", "k%1")
	text = rsub(text, "ü", "u") 
	
	--ll
	text = rsub(text, "ll([i]?)([aeëiou])", "ly%2")
	
	-- Correction for vowels with in-between glottal stop, now default
	text = rsub_repeatedly(text, "(" .. V .. ")(" .. V .. ")", "%1.%2")
	
	-- Reenable "j" sound be equivalent to "dy"
	-- Ex. gaja = ga(r)ya not gariya
	text = rsub(text, "([d]?)j(".. V .. ")"  , "dy%2")

	-- handle certain combinations; ch ng and sh handling needs to go first
	text = rsub(text, "([t]?)ch", "ts") --not the real sound
	text = rsub(text, "([n]?)g̃", "ŋ") -- Spanish spelling support
	text = rsub(text, "ng", "ŋ")
	text = rsub(text, "sh", "ʃ")
	
	--ck
	text = rsub(text, "ck", "k") -- foreign sound in case

	--x
	text = rsub(text, "([#])x([aeëiou])", "%1s%2")
	text = rsub(text, "x", "ks")

	--alphabet-to-phoneme
	text = rsub(text, "[cgjñqrvz7]",
	--["g"]="ɡ":  U+0067 LATIN SMALL LETTER G → U+0261 LATIN SMALL LETTER SCRIPT G
		{ ["c"] = "k", ["g"] = "ɡ", ["j"] = "ĵ", ["ñ"] = "ɲ", ["q"] = "k", ["v"] = "b", ["z"] = "s"})

	text = rsub(text, "ɲ", "ny") -- ñ
	text = rsub(text, "rr", "r") -- r
	
	--determining whether "y" is a consonant or a vowel
	--Baybayin treats as consonant regardless
	text = rsub(text, "y(" .. V .. ")", "ɟ%1") -- not the real sound
	text = rsub(text,"y([ˈˌ.]?)([bćĉdɡhjĵklmnɲŋpɾrsʃtwɟʔ])(" .. V .. ")","i%1%2%3")
	text = rsub(text, "y#", "i")
	text = rsub(text, "w(" .. V .. ")","w%1")
	-- text = rsub(text,"w([ˈˌ]?)([bćĉdɡhjĵklmnɲŋpɾrsʃtwɟʔ])","u%1%2")
	-- text = rsub(text, "(" .. C .. ")w#","%1u")

	text = rsub(text, "ŋ", "Ŋ")
	text = rsub(text, "ë", "e") -- mark as e for now
	text = tl_utils.syllabify_from_spelling(text, text)
    text = rsub(text, "Ŋ", "ŋ")
	
	-- Remove accent marks
	text = tl_utils.remove_accents(text)
	
	text = rsub(text, "sh", "ʃ")
	text = rsub(text, "ts", "ĉ") -- ts-not the real sound

	if (not diph) then
    	--Corrections for diphthongs
	    text = rsub(text,"([aeəou])i","%1j") --y
	    text = rsub(text,"([aeəio])u","%1w") --w
    end
    
    text = rsub(text,"d[.]ĵ",".ĵ") --/d/ before /j/ 
    text = rsub_repeatedly(text,"(n)([.]?)([kg])","ŋ%2%3") -- /n/ before /k/ (some proper nouns)
    
    -- After processing pronunciation, Baybayin Start Translate
    text = rsub(text, "[əei]", "i")
    text = rsub(text, "[ou]", "u")
     
    -- Check if there are errors with vowels again
    text = rsub(text,"([aiu])([^.]?)([aəiu])","%1.%2%3")
    
    local function baybay_syllable(syll, post, last_vowel)
    	local syll2 = ""
    	
		local bay_double = {
			["ĉ"] = "t", ["ĵ"] = "d",
			["ɲ"] = "n", ["ʃ"] = "s",
			["ɡ"] = "g", ["ŋ"] = "N",
		}
			
    	local function baybay(character)
    		local bay_soundpre = ''
			character = rsub(character, "[ɡ]", "g")
			
			if character == 'ĉ' 
			or character == 'ĵ' 
			or character == 'ɲ' 
			or character == 'ʃ' then
    			bay_soundpre = bay_double[character]
    			bay_soundpre = baybayin_chars[bay_soundpre] .. baybayin_marks[trad and 'i' or '+']
    			
    			if character == 'ĉ' then
    				if trad then bay_soundpre = '' end
    				character = rsub(character, "[" .. character .. "]", "s")
    			else
    				character = rsub(character, "[" .. character .. "]", "y")
    			end
			end

			if not force_r or trad then
				character = rsub(character, "[r]", "d")
			end
			
    		character = rsub(character, "[f]", "p")
    		character = rsub(character, "[ɟj]", "y")
    		character = rsub(character, "[N]", "ŋ")

    		return bay_soundpre .. baybayin_chars[character]
    	end
  
		if not trad then
			-- Remove /h/ as it is not pronounced in between
			syll = rsub(syll, "([^h]+)(h+)", "%1")
			post = rsub(post, "(h+)", "")
			
			post = rsub(post, "ŋ", bay_double["ŋ"])
			post = rsub(post, "ɲ", bay_double["ɲ"])
			post = rsub(post, "ɡ", bay_double["ɡ"])
			post = rsub(post, "ʃ", bay_double["ʃ"])
			post = rsub(post, "ĵ", bay_double["ĵ"] .. 's')
			post = rsub(post, "ĉ", bay_double["ĉ"] .. 's')
			
			for c in post:gmatch('.') do
				syll2 = syll2 .. baybay(c) .. baybayin_marks['+']
			end
		end
    	syll = rsub(syll, "(" .. C .. "*)(" .. V .. "+)",
			function(consonant, vowel)
				local bay_char = ''
				
				if string.len(consonant) == 0 then
					bay_char = baybay(vowel)
				elseif string.len(consonant) == 1 or string.match(consonant, "[ĉĵɲŋʃɡ]") and string.len(consonant) == 2 then
					bay_char = baybay(consonant) .. baybayin_marks[vowel]
				elseif string.match(consonant, "^(.*)ll$") then
					for c in consonant:gmatch('^(.)ll$') do
						bay_char = bay_char .. baybay(c) .. baybayin_marks[trad and vowel or '+']
					end
					
					bay_char = bay_char .. baybay("l") .. baybayin_marks[trad and "i" or '+']
					bay_char = bay_char .. baybay("y") .. baybayin_marks[vowel]
				else
					-- Two character unicode problems
					consonant = rsub(consonant, "ŋ", bay_double["ŋ"])
					consonant = rsub(consonant, "ɲ", bay_double["ɲ"])
					consonant = rsub(consonant, "ɡ", bay_double["ɡ"])
					consonant = rsub(consonant, "ʃ", bay_double["ʃ"])
					consonant = rsub(consonant, "ĉ", bay_double["ĉ"] .. (trad and 'y' or 's'))
					consonant = rsub(consonant, "ɟ", "y")

					if consonant == "◌" then
						bay_char = bay_char .. (vowel == "a" and "◌" or "") .. baybayin_marks[trad and (last_vowel or vowel) or '+']
						last_vowel = nil
					else
						for c in consonant:gmatch('.') do
							bay_char = bay_char .. baybay(c) .. baybayin_marks[trad and (last_vowel or vowel) or '+']
							last_vowel = nil
						end
					end
					
					bay_char = rsub(bay_char, baybayin_marks['+'] .. "$", baybayin_marks[vowel])
				end
				return bay_char
			end
		)
		
    	return syll .. syll2
    end
   
    local words = rsplit(text, " ")
	for i, word in ipairs(words) do
		
		-- (C)/y/ and --(C)w fixes
		-- /h/ being pronounced like fahm, paham
		if trad then
			word = rsub(word, "([^w" .. vowel .. separator .. "])(w)(" .. V .. ")(" .. C .. "*)([.#]+)", "%1u.%2%3%4%5")
			word = rsub(word, "([^ɟ" .. vowel .. separator .. "])(ɟ)(" .. V .. ")(" .. C .. "*)([.#]+)", "%1i.%2%3%4%5")
			word = rsub(word, "(" .. C .. "*)(" .. V .. ")(h)(" .. C .. "+)([.#]+)", "%1%2.%3%2%4%5")
		end
		
		local syllables = rsplit(word, "[.]")
		local last_vowel = nil
		
		for j = 1, #syllables do
			if string.match(syllables[j], V) then
				syllables[j] = rsub(syllables[j], "^([#]*)(" .. C .. "*)(" .. V .. "+)(" .. C .. "*)([#]*)$",
					function(temp1 ,pre, vowel, post, temp2)
						retval = temp1 .. baybay_syllable(pre .. vowel, post, last_vowel) .. temp2
						last_vowel = string.match(post, "[mn]") and vowel or nil
						return retval
					end
				)
			elseif not string.match(syllables[j], "[᜵᜶]") then
				-- This is only a fallback when no vowel is entered
				syllables[j] = rsub(syllables[j], "^([#]*)(" .. C .. "+)([#]*)$",
					function(temp1 , consonant , temp2)
						if trad then
							return temp1 .. baybay_syllable(consonant .. "a", "") .. temp2
						else
							return temp1 .. baybay_syllable("", consonant) .. temp2
						end
					end
				)
			end
		end
		words[i] = table.concat(syllables, "")
	end
    
    text = table.concat(words, " ")

	-- remove # symbols at word and text boundaries
	text = rsub(text, "#", "")
	
	text = canon_spaces(text)

	return mw.ustring.toNFC(text)
end

function export.show(frame)
	local params = {
		[1] = {},
		["trad"] = {type = "boolean", default = false},
		["diph"] = {type = "boolean", default = false},
		["disp"] = {type = "boolean", default = false},
		["r"] = {type = "boolean", default = false},
		["tr"] = {type = "number", default = 0},
	}

	local parargs = frame:getParent().args
	local args = require("Module:parameters").process(parargs, params)
	local results = ""
	local text = args[1] or mw.title.getCurrentTitle().text
	
	for supported, unsupported in text:gmatch("([" .. supported_chars .. "]*)([^" .. supported_chars .. "]*)") do
		results = results .. export.transcribe(supported, args.trad, args.diph, args.r) .. unsupported
	end
	
	local tr = ""
	-- Baybayin to Latin
	if args.tr == 1 then
		tr = rsub(lang:transliterate(results, sc_Tglg), "%s([,.])", "%1")
	elseif args.tr == 2 then
		tr = text
		tr = rsub(tr, "[.]", "")
		tr = rsub(tr, "//", ".")
		tr = rsub(tr, "/", ",")
	else
		tr = ''
	end
	
	if tr ~= "" then
		tr = ' ' .. '<span class="mention-gloss-paren annotation-paren">(</span>' .. 
			'<span lang="tl-Latn" class="tr Latn">' ..  tr ..  '</span>' ..
			'<span class="mention-gloss-paren annotation-paren">)</span>'
	end
	
	if args.trad then
		results =  rsub_repeatedly(results, "([^᜶]) ([^᜶])", "%1%2")
	end
	
	if args.disp then
		results = '<span class="' .. sc_Tglg:getCode()  ..  '" lang="'  .. lang:getCode()  .. '">' .. results ..  "</span>"
	else
		results = results 
	end
	
	return results ..  tr
end

return export
Retrieved from "https://en.wiktionary.org/w/index.php?title=Module:tl-bay_sc&oldid=82507221"