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