Moduł:Wikisłownikarz:Xoristzatziki:klucz/el

Dokumentacja dla tego modułu może zostać utworzona pod nazwą Moduł:Wikisłownikarz:Xoristzatziki:klucz/el/opis

export = {}

export['klucz'] = function (thetext)
	local lc = {}
	lc['klucz'] = ''
	if mw.ustring.len(thetext) < 2 then
		if (thetext == '-') or (thetext == "'") then
			return thetext
		end
	end
    --tylko grecki alphabet
    -- np. nie «ϐ» bo to symbol
	
	lc['nieakcentowane'] = mw.ustring.toNFD( thetext )
	for c in mw.ustring.gcodepoint( lc['nieakcentowane'] ) do
		if c>912 then-- >= «Α»
			if c < 938 then -- <= «Ω»
				lc['klucz'] = lc['klucz'] .. mw.ustring.lower(mw.ustring.char(c))
			end
			if c >944 then -- >= «α»
				if c<970 then-- <=ω 
					if c == 962 then -- «ς» -> «σ»
						lc['klucz'] = lc['klucz'] .. mw.ustring.char(960)
					else
						lc['klucz'] = lc['klucz'] .. mw.ustring.char(c)
					end
				end
			end
		end
	end
	return lc['klucz']
end

--[==[próby:
=p['klucz']("ἀϋτή")
=p['klucz']("λοπαδοτεμαχοσελαχογαλεοκρανιολειψανοδριμυποτριμματοσιλφιοκαραβομελιτοκατακεχυμενοκιχλεπικοσσυφοφαττοπεριστεραλεκτρυονοπτοκεφαλλιοκιγκλοπελειολαγῳοσιραιοβαφητραγανοπτερύγων")
=p['klucz']("-Ἀθηνᾷ")
]==]

return export