Module:User:Sarri.greek/grk-stems

Hello, you have come here looking for the meaning of the word Module:User:Sarri.greek/grk-stems. In DICTIOUS you will not only get to know all the dictionary meanings for the word Module:User:Sarri.greek/grk-stems, but we will also tell you about its etymology, its characteristics and you will know how to say Module:User:Sarri.greek/grk-stems in singular and plural. Everything you need to know about the word Module:User:Sarri.greek/grk-stems you have here. The definition of the word Module:User:Sarri.greek/grk-stems will help you to be more precise and correct when speaking or writing your texts. Knowing the definition ofModule:User:Sarri.greek/grk-stems, as well as those of other words, enriches your vocabulary and provides you with more and better linguistic resources.
The following documentation is located at Module:User:Sarri.greek/grk-stems/documentation.
Useful links: root page • root page’s subpages • links • transclusions • testcases • user page • user talk page • userspace

User:Sarri.greek (CAT) » Module grk-stems doc » /data doc

  • FAIL {{#invoke:User:Sarri.greek/grk-stems|stem0_i|lemma=πράυνση}}
    expected: πραϋνση
    = πραϋνση1

-- 2024.03.04. ] 
--[=[
]
CREATE STEMS for any Greek ] pr ] (explanations at bottom of the /data page)
	All data at ]
Example: from word ] we extract the stem δημοκρατί
we use ] function word_minus_1end_i  by writing
require("Module:User:Sarri.greek/stems").word_minus_1end_i(lemma=δημοκρατία)
Create variations with the following functions:
* stem = the stem as it appears at PAGENAME or lemma= of our choice. δημοκρατί
* stem0 = the stem with NO accents = δημοκρατι
* stem1 = the stem0 with accent on the 1st syllable from the end (the last syllable ultima) δημοκρατί
* stem2 = the stem0 with accent on the 2nd syllable from the end (penultima) δημοκράτι -- does not occur
* stem3 = the stem0 with accent on the 3rd syllable from the end δημόκρατι -- does not occur
* ox = oxia (]) e.g. stem1ox
* per = perispomeni (]) e.g. stem1per
To do this, we first NEED to KNOW 
if there are 2-vowel-sequences called diphthongs (2 vowels together) or digraphs (2 vowels not pronounced together)
	and if there is a ] for digraphs (this is not for Ancient Greek)
Check 
* ] & ]
** also see ]
* ] & ]
* check ] & tables at ]
* Unicode Block “Greek and Coptic” = https://www.compart.com/en/unicode/block/U+0370
* Unicode Block “Combining Diacritical Marks” = https://www.compart.com/en/unicode/block/U+0300
* Unicode Block “Greek Extended” (polytonic) = https://www.compart.com/en/unicode/block/U+1F00

CONTENTS
	a) FUNCTIONS
		1. removeaccent has zero accent_0 
		2. accent_1 = put accent on the ultima (last syllable)
		3. accent_2 = put accent on the penultima (2nd syllable before last) without ]
		4. accent_2syn = put accent on the penultima, asking editor for synizesis number 
		5. Convert perispomene_to_oxia (] to ])
		6. Convert oxia_to_perispomene (acute to circumflex)
	b) export functions 
	word0 word1 word2syn word2 word_ox 
	Get stems with  ]
	c) export functions for stems (with minus= letters from end)
	stem, stem0, stem1, stem2syn, stem2, stem_ox, stem_p
]=]--

local export = {}

local module_path = 'Module:User:Sarri.greek/grk-stems'
local m_data = require(module_path .."/data") -- all character conversions & explanations


--------------------------------------------------------------------------
--                           a) FUNCTIONS                               --
--------------------------------------------------------------------------

-- ===================== remove accent = accent_0 for stem0 - see b) EXPORTs
function removeaccent(word)
    -- for every character
    local wordproduced = ''
    for codepoint in mw.ustring.gcodepoint( word ) do -- BUG It does not read capitals+diacritics like Ἶσις -- NEVERMIND

-- ADD HERE the block for digraphs with dialytics
	-- e.g. accented πράυνσ- ρόιδο  to unaccented πραϋνσ- ροϊδο
    -- for every combination with accent+dialytics
    -- e.g DO I NEED capitals =   = 'αϊ',     = 'εϊ',     = 'οϊ',     = 'αϋ',     = 'εϋ',     = 'οϋ'
    for doubleaccented, newvalue in pairs(m_data.digraphs_accented_to_unaccented) do
        beginning, ending = mw.ustring.find(word, doubleaccented)
        if beginning ~= nil then
            return mw.ustring.gsub(word, doubleaccented, newvalue, 1) --replace once
            	--accent was found and moved according to the rules
        end        
    end
    -- if dialytics are not found, we start from the end looking for an accent
    stempoint = mw.ustring.len(word)

--    accentNotFound = true
--    while accentNotFound do

-- MUST WRITE mychar = something NOTTTTTTTTTTTTTTTT this one it repeats the character.
--       mychar = mw.ustring.sub(word, stempoint, stempoint)
       
       
       -- /data page accented_to_unaccenter are e.g.  = 'α',     = 'Α',    = 'ᾳ',
--       newchar = m_data.accented_to_unaccented
--       if newchar ~= nil then
--           wordproduced = newchar .. wordproduced
--           accentNotFound = false
--       else

--           wordproduced = mychar .. wordproduced
--       end

       stempoint = stempoint  -1 -- stempoint -1 gives πραϋνση1 what is that 1 next to the word???
--    end

        -- replace it according to instructions at /data
-- MUSTT WRITE mychar=
        mychar = mw.ustring.char(codepoint)
        --  m_data.accented_to_unaccented are e.g.  = 'α',  = 'Α',  = 'α',  = 'ᾳ',  = 'ᾳ',
        convertedchar = m_data.accented_to_unaccented            
        -- if an accented character is found that needs conversion
        if convertedchar ~= nil then
            -- add it
            wordproduced = wordproduced .. convertedchar
        else
            -- let it be
            wordproduced = wordproduced .. mychar        
        end
    end
    return wordproduced
end



-- ===================== accent_ultima, place accent OXIA on the last vowel
-- for Template:stem1 -- apply on stem0 to get oxia at last vowel
--[=[
-- previously at el.wiktionary by ]
The function begins at the last letter of stem going backwards.
	When it reaches the first unaccented vowel, it adds accent
	The stem parameters should not have any accented vowels.
]=]--
function accent_1(word)
    stempoint = mw.ustring.len(word)
    wordproduced = ""
    while stempoint > 0 do
       mychar = mw.ustring.sub(word, stempoint, stempoint)
       newchar = m_data.unaccented_to_oxia
       if newchar ~= nil then
          if stempoint > 1 then
              return mw.ustring.sub(word, 1, stempoint-1 ) .. newchar .. wordproduced
          else
              return newchar .. wordproduced
          end
       else
           wordproduced = mychar .. wordproduced
           stempoint = stempoint -1
       end
    end
    return wordproduced
end


-- ===================== accent_2 to penulitma, no synizesis
function accent_2(stem)
    stempoint = mw.ustring.len(stem)
    wordproduced = ""
    profound = false
    while stempoint > 0 do
       mychar = mw.ustring.sub(stem, stempoint, stempoint)
       newchar = m_data.unaccented_to_oxia
       if newchar ~= nil and profound then
            if stempoint > 1 then
                return mw.ustring.sub(stem, 1, stempoint-1 ) .. newchar .. wordproduced
            else
                return newchar .. wordproduced
            end
       else
       	   if newchar ~= nil then profound = true end
           wordproduced = mychar .. wordproduced
           stempoint = stempoint -1
       end
    end
    return wordproduced
end


-- ===================== accent_2syn to penulitma + check synizesis
-- previously at el.wiktionary by Flyax, 2013
-- put accent to penultima (2nd last syllable) + check synizesis for Modern Greek 
function accent_2syn(word, syniz)
    local wordproduced = ""
    -- for every combination with accent+dialytics
    -- for doubleaccented, newvalue in pairs(m_data.digraphs2) do
    -- digraphs_accented_to_unaccented  are like    = 'αϊ',   = 'εϊ',    = 'οϊ', ...
    for doubleaccented, newvalue in pairs(m_data.digraphs_accented_to_unaccented) do
        beginning, ending = mw.ustring.find(word, doubleaccented)
        if beginning ~= nil then
            return mw.ustring.gsub(word, doubleaccented, newvalue, 1) --replace once
            --accent was found and moved
        end        
    end
    -- if dialytics are not found, we start from the end looking for an accent
    stempoint = mw.ustring.len(word)
    accentNotFound = true
    while accentNotFound do
       mychar = mw.ustring.sub(word, stempoint, stempoint)
       newchar = m_data.accented_to_unaccented
       if newchar ~= nil then
           wordproduced = newchar .. wordproduced
           accentNotFound = false
       else
           wordproduced = mychar .. wordproduced
       end
       stempoint = stempoint -1
    end
    -- check if there is synizesis: for modern VERBS, editor MUST define
    -- EXAMPLES: αιφνιδιάζω (syniz=nil), μεριάζω (syniz=1), αδειάζω (syniz=2) (number of vowels counting as one)
    if syniz ~= nil then
        syniz = tonumber(syniz)
        wordproduced = mw.ustring.sub(word, stempoint+1-syniz, stempoint) .. wordproduced
        stempoint = stempoint - syniz
    end
    -- check if accent was on a digraph
    twoletters = mw.ustring.sub(word, stempoint, stempoint) .. newchar
    for _,v in pairs(m_data.digraphs) do
        if v == twoletters then
            wordproduced = mw.ustring.sub(word, stempoint, stempoint) .. wordproduced
            stempoint = stempoint -1
        end
    end
    return accent_1(mw.ustring.sub(word, 1, stempoint)) .. wordproduced
end


-- ===================== Convert perispomene (circumflex) to oxia (= acute = tonos)
-- EXPORT it.
-- previously at el.wiktionary by ]
-- Changes the perispomeni to oxia. If it does not find a perispomeni, it does nothing.
function export.perispomeni_to_oxia(stem)
    stempoint = mw.ustring.len(stem)
    wordproduced = ""
    while stempoint > 0 do
       mychar = mw.ustring.sub(stem, stempoint, stempoint)
       newchar = m_data.perispomeni_to_oxia
       if newchar ~= nil then
          if stempoint > 1 then
              return mw.ustring.sub(stem, 1, stempoint-1 ) .. newchar .. wordproduced
          else
              return newchar .. wordproduced
          end
       else
           wordproduced = mychar .. wordproduced
           stempoint = stempoint -1
       end
    end
    return wordproduced
end


-- ===================== Convert oxia (acute) to persipomeni (circumflex)
-- Converts oxia to perispomeni. If oxia is not found, it does nothing.
--  If i take away the word export. it does not work
-- but it cannot work for (see below) function wordpi
function export.oxia_to_perispomeni(stem)
    stempoint = mw.ustring.len(stem)
    wordproduced = ""
    while stempoint > 0 do
       mychar = mw.ustring.sub(stem, stempoint, stempoint)
       newchar = m_data.oxia_to_perispomeni
       if newchar ~= nil then
          if stempoint > 1 then
              return mw.ustring.sub(stem, 1, stempoint-1 ) .. newchar .. wordproduced
          else
              return newchar .. wordproduced
          end
       else
           wordproduced = mychar .. wordproduced
           stempoint = stempoint -1
       end
    end
    return wordproduced
end

function oxia_to_perispomeni_invoke(stem)
    stempoint = mw.ustring.len(stem)
    wordproduced = ""
    while stempoint > 0 do
       mychar = mw.ustring.sub(stem, stempoint, stempoint)
       newchar = m_data.oxia_to_perispomeni
       if newchar ~= nil then
          if stempoint > 1 then
              return mw.ustring.sub(stem, 1, stempoint-1 ) .. newchar .. wordproduced
          else
              return newchar .. wordproduced
          end
       else
           wordproduced = mychar .. wordproduced
           stempoint = stempoint -1
       end
    end
    return wordproduced
end

--------------------------------------------------------------------------
--                   b) EXPORT the 'word' functions                     --
--------------------------------------------------------------------------
-- AVOID, DO NOT create Templates. Invoke directly.

-- ============= word =============== --
-- For word = word as it appears at PAGENAMEs or lemma= of our choice
	-- get it from ], function: cut off any number of letters is needed

-- ============= word0 no accent for Templates OR invoke from another MODULE =============== --
-- remove accent, for Templates
function export.word0(arg)
	if type(arg) == 'table' and type(arg.getParent) == 'function' then
		local frame = arg
		local args = frame:getParent().args
		term = args or ''
	else
		term = arg
	end
    PAGENAME = mw.title.getCurrentTitle().text
    lemma = PAGENAME:match( "^%s*(.-)%s*$" )
	if term ~= '' then lemma = term end
    if lemma == '' then lemma = PAGENAME:match( "^%s*(.-)%s*$" ) end
return removeaccent(lemma)		-- or lemma = (mw.ustring.sub(lemma,1,-1)	
end

-- ============= word0_i =============== --
-- remove accent, direct invoke from PAGES, not from modules
function export.word0_i(frame)
--	local args = frame:getParent().args	-- for Templates
	local args = frame.args				-- invoke
-- lemma
	local lemma = args or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args = PAGENAME:match( "^%s*(.-)%s*$" )	
				-- trim empty spaces ( "^%s*(.-)%s*$" ) from beginning and end. Found at all Modules.
		else lemma = args
	end
return removeaccent(mw.ustring.sub(lemma,1,-1))	
end

-- ============= word1 okseia at 1st syllable from end=============== --
-- accent oxia (acute) on ultima (the last syllable, the last vowel), for Templates
function export.word1(arg)
	if type(arg) == 'table' and type(arg.getParent) == 'function' then
		local frame = arg
		local args = frame:getParent().args
		term = args or ''
	else
		term = arg
	end	
    PAGENAME = mw.title.getCurrentTitle().text
    lemma = PAGENAME:match( "^%s*(.-)%s*$" )
	if term ~= '' then lemma = term end
    if lemma == '' then lemma = PAGENAME:match( "^%s*(.-)%s*$" ) end
return accent_1(removeaccent(lemma))		--or lemma = (mw.ustring.sub(lemma,1,-1)
end

-- ============= word1_i =============== --
-- accent oxia (acute) on ultima (the last syllable, the last vowel), direct invoke
-- the result is precisely word1ox
function export.word1_i(frame)
--	local args = frame:getParent().args	-- for Templates
	local args = frame.args				-- invoke
-- lemma
	local lemma = args or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args = PAGENAME:match( "^%s*(.-)%s*$" )	
				-- trim empty spaces ( "^%s*(.-)%s*$" ) from beginning and end. Found at all Modules.
		else lemma = args
	end
return accent_1(removeaccent(mw.ustring.sub(lemma,1,-1)))	
end


-- do i need word2 WITHOUT checking syniz???
-- ============= word2 okseia at 2nd syllable from end WITHOUT synizesis=============== --
-- accent on penultima, NO check synizesis, for Templates
function export.word2(arg)
	if type(arg) == 'table' and type(arg.getParent) == 'function' then
		local frame = arg
		local args = frame:getParent().args
		term = args or ''
	else
		term = arg
	end	
    PAGENAME = mw.title.getCurrentTitle().text
    lemma = PAGENAME:match( "^%s*(.-)%s*$" )
	if term ~= '' then lemma = term end
    if lemma == '' then lemma = PAGENAME:match( "^%s*(.-)%s*$" ) end
return accent_2(removeaccent(lemma))	-- or lemma = (mw.ustring.sub(lemma,1,-1))
end

-- do i need word2 WITHOUT checking syniz???
-- ============= word2_i =============== --
-- accent on penultima, NO check synizesis, direct invoke
function export.word2_i(frame)
--	local args = frame:getParent().args	-- for Templates
	local args = frame.args				-- invoke
-- lemma
	local lemma = args or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args = PAGENAME:match( "^%s*(.-)%s*$" )	
				-- trim empty spaces ( "^%s*(.-)%s*$" ) from beginning and end. Found at all Modules.
		else lemma = args
	end
return accent_2(removeaccent(mw.ustring.sub(lemma,1,-1)))	
end


-- =============  word_p = oksia to perispomeni for template =============== --
--  for Templates
function export.word_p(arg)
	if type(arg) == 'table' and type(arg.getParent) == 'function' then
		local frame = arg
		local args = frame:getParent().args
		term = args or ''
	else
		term = arg
	end
    PAGENAME = mw.title.getCurrentTitle().text
    lemma = PAGENAME:match( "^%s*(.-)%s*$" )
	if term ~= '' then lemma = term end
    if lemma == '' then lemma = PAGENAME:match( "^%s*(.-)%s*$" ) end
return oxia_to_perispomeni_invoke(lemma)		-- or lemma = (mw.ustring.sub(lemma,1,-1)	
end
-- ============= word_p_i =============== --
-- direct invoke
function export.word_p_i(frame)
--	local args = frame:getParent().args	-- for Templates
	local args = frame.args				-- invoke
-- lemma
	local lemma = args or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args = PAGENAME:match( "^%s*(.-)%s*$" )	
				-- trim empty spaces ( "^%s*(.-)%s*$" ) from beginning and end. Found at all Modules.
		else lemma = args
	end
return oxia_to_perispomeni_invoke(mw.ustring.sub(lemma,1,-1))	
end

--------------------------------------------------------------------------
--              SYNIZESIS   partially used, semiCHECKED                 --
--------------------------------------------------------------------------

-- ============= word2syn =============== --
-- accent on penultima plus synizesis, for Templates
function export.synizesis(arg)
	if type(arg) == 'table' and type(arg.getParent) == 'function' then
		local frame = arg
		local args = frame:getParent().args
		term = args or ''
	else
		term = arg
	end
	if syniz ~= '' then syniz = term end
return term
end
-- [email protected]: ] ΔΙΑΛΥΤΙΚΑ DIALYTICS at κλίση #δύναμη (])
	-- at κλίση #όνομα (], ], ])
-- [email protected]: ancient greek verb δανείζω used at Module:grc-verbs-cong/1 #καταφέρω
function export.word2syn(arg)
	if type(arg) == 'table' and type(arg.getParent) == 'function' then
		local frame = arg
		local args = frame:getParent().args
		term = args or ''
	else
		term = arg
	end	
    PAGENAME = mw.title.getCurrentTitle().text
    lemma = PAGENAME:match( "^%s*(.-)%s*$" )
	if term ~= '' then lemma = term end
    if lemma == '' then lemma = PAGENAME:match( "^%s*(.-)%s*$" ) end
return accent_2syn(lemma, synizesis)	-- or lemma = (mw.ustring.sub(lemma,1,-1))
end


-- ============= word2syn_i =============== --
-- accent on penultima plus synizesis, direct invoke
function export.word2syn_i(frame)
--	local args = frame:getParent().args	-- for Templates
	local args = frame.args				-- invoke
-- lemma
	local lemma = args or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args = PAGENAME:match( "^%s*(.-)%s*$" )	
				-- trim empty spaces ( "^%s*(.-)%s*$" ) from beginning and end. Found at all Modules.
		else lemma = args
	end

    if syniz ~= '' then syniz = args end
return accent_2syn(lemma, syniz)	-- or lemma = (mw.ustring.sub(lemma,1,-1))	
end


-- I DO NOT NEED THIS
-- ============= word_ox =============== --
-- make a persipomeni to oxia on any word
-- the result is precisely word_ox
--[=[
function export.word_ox(frame)
--	local args = frame:getParent().args	-- for Templates
	local args = frame.args				-- invoke
-- lemma
	local lemma = args or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args = PAGENAME:match( "^%s*(.-)%s*$" )	
				-- trim empty spaces ( "^%s*(.-)%s*$" ) from beginning and end. Found at all Modules.
		else lemma = args
	end
return export.perispomeni_to_oxia(word)
end
]=]--

--------------------------------------------------------------------------
--                   c) EXPORT the 'stem' functions                     --
--------------------------------------------------------------------------
-- like 'word' functions but + parameter minus= for editor to cut off last letters.
-- to use at inflection template etc

-- ================= stem for Templates =============== -- THIS is for any language
-- stem as extracted from a PAGENAME or from a whole word of our choice (lemma=)
export = function(frame)		-- for a template
	local args = frame:getParent().args	-- for Templates
--	local args = frame.args				-- invoke
-- lemma
	local lemma = args or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args = PAGENAME:match( "^%s*(.-)%s*$" )
				-- trim empty spaces( "^%s*(.-)%s*$" ) from beginning and end. Found at all Modules.
		else lemma = args
	end

	local minusletters = args or  ''
		-- make empty if editor writes nothing
		args = args or ''
		-- But give some number, or Lua error : attempt to perform arithmetic on field 'minus' (a string value)
		if args == '' or args == nil then args = '0' or '' end
local result -- is this needed?
result =  mw.ustring.sub(args,1,-(args+1)) -- do not write: minusletters
    	-- exmple if editor writes |minus=2 (cut off 2 letters from end)
    	-- 1, -3 = start at 1st letter, stop at 2nd letter from end - stempoint is 3
return result
end -- close function


-- ================= stemi to invoke =============== -- stem_i would be more corret...
-- at any page write:
-- {{#invoke:User:Sarri.greek/grk-stems-test/stemi}} (for PAGNEMAE)
-- (lemma= of your choice, minus= a number for letter to cut)
-- at any Module write:
function export.stemi(frame)
--export = function(frame) -- this DOES NOT WORK
--	local args = frame:getParent().args	-- for Templates
	local args = frame.args				-- invoke
-- lemma
	local lemma = args or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args = PAGENAME:match( "^%s*(.-)%s*$" )	
				-- trim empty spaces ( "^%s*(.-)%s*$" ) from beginning and end. Found at all Modules.
		else lemma = args
	end
	
	local minusletters = args or  ''
		args = args or ''
		if args == '' or args == nil then args = '0' or '' end
local result -- is this needed?
result =  mw.ustring.sub(args,1,-(args+1)) -- do not write: minusletters
    	-- exmple if editor writes |minus=2 (cut off 2 letters from end)
    	-- 1, -3 = start at 1st letter, stop at 2nd letter from end - stempoint is 3
return result
end -- close function



-- ----------------------- Suppose, you have a GREEK stem. You can -----------------

-- ================= stem0 for Templates =============== --
-- REMOVE ACCENTS from a word, stem or a PAGENAME
export = function(frame)		-- for a template
	local args = frame:getParent().args	-- for Templates
--	local args = frame.args				-- invoke
-- lemma
	local lemma = args or ''
	PAGENAME = mw.title.getCurrentTitle().text
	if lemma  == '' or lemma == nil then args = PAGENAME:match( "^%s*(.-)%s*$" )
				-- trim empty spaces( "^%s*(.-)%s*$" ) from beginning and end. Found at all Modules.
		else lemma = args
	end

-- REMOVE ACCENTS with function stem0
	local result1
	-- call word0 from above
	result1= word0(args)
	
-- CUT OFF last letters from result1 TESTWORDS κορόιδο Άλπεις
    	-- exmple if editor writes |minus=2 (cut off 2 letters from end)
    	-- 1, -3 = start at 1st letter, stop at 2nd letter from end - stempoint is 3
	local minusletters = args or  ''
		args = args or ''
		if args == '' or args == nil then args = '0' or '' end
local result -- is this needed?
result =  mw.ustring.sub(result1,1,-(args+1))
return result
end -- close function

return export
Wikious
Boobota
Sagapedia