|
if lc['πρότυπο'] == 'ιε' then return Lf['ινδοευρωπαϊκή ρίζα'](lc) end
if lc['πρότυπο'] == 'ετυμ-επιθ' then return Lf['επίθημα'](lc) end
--δοκιμαστικό πρότυπο Πρότυπο:Χρήστης/Xoristzatziki/τεσταρχ με {{#invoke:Πρότυπο:ετυμ|βασική}} και στο λήμμα {{Χρήστης/Xoristzatziki/τεσταρχ...
if lc['πρότυπο'] == 'Χρήστης/Xoristzatziki/τεσταρχ' then return Lf['τεσταρχ'](lc) end
--δοκιμαστικό πρότυπο Πρότυπο:Χρήστης/Xoristzatziki/τεστιε με {{#invoke:Πρότυπο:ετυμ|βασική}} και στο λήμμα {{Χρήστης/Xoristzatziki/τεστιε...
if lc['πρότυπο'] == 'Χρήστης/Xoristzatziki/τεστιε' then return Lf['ινδοευρωπαϊκή ρίζα'](lc) end
--δοκιμαστικό πρότυπο Πρότυπο:Χρήστης/Xoristzatziki/τεστυποκ με {{#invoke:Πρότυπο:ετυμ|βασική}} και στο λήμμα {{Χρήστης/Xoristzatziki/τεστυποκ|υποκ...
if lc['πρότυπο'] == 'Χρήστης/Xoristzatziki/τεστυποκ' then return Lf['υποκοριστικό'](lc) end
--για τα υπόλοιπα:
--αν η πρώτη παράμετρος είναι κάποια από τις:
--αρχ, μσν, ελνστ, ιε ΙΣΩΣ να πήγαινει στις παραπάνω συναρτήσεις
--αλλά θέλει αλλαγές στις παραμέτρους (στη σειρά τους δηλαδή)
--ή μπορεί να κάνουμε ενδιάμεση συνάρτηση που να δημιουργεί νέες παραμέτρους
--αν η πρώτη αριθμητική παράμετρος είναι κενή επίστρεψε σφάλμα
--(δεν υπάρχει ακόμα κάποια χρήση για τέτοιες περιπτώσεις...)
--==== hinders warnings
--if lc['παράμετροι λήμματος'][1] == nil then
--error( 'Δεν δόθηκε καμία παράμετρος!' .. "#" .. type(frame.args) .. "#" .. type(frame.getParent) .. "#" .. lc['πρότυπο'] .. "#")
--end
--αν είναι υποκ
--(ή κάποιες που μπορεί να προστεθούν αργότερα όπως πρόθημα, επίθημα κλπ κατά τα αγγλικά Template:suffix κλπ.)
--πήγαινε στην αντίστοιχη συνάρτηση (δες εκεί για τις υπόλοιπες παραμέτρους)
--Αλλιώς θεώρησε ότι είναι το iso της γλώσσας του ετύμου
--και η επόμενη είναι το iso της γλώσσας του λήμματος
--τότε η τρίτη παράμετρος θα είναι το λήμμα για παραπομπή
--και η τέταρτη ίσως είναι το τι θα εμφανίζει
if lc['παράμετροι λήμματος'][1] == 'υποκ' then return Lf['υποκοριστικό'](lc) end
if lc['παράμετροι λήμματος'][1] == 'επίθημα' then return Lf['επίθημα'](lc) end
--περίπτωση κανονικής ετυμολόγησης
return Lf['απλή ετυμολόγηση'](lc)
end
--------------------------------------------------------------------------
--δεν λειτουργεί
--ΔΟΚΙΜΑΣΤΙΚΑ ΓΙΑ ΑΡΧΙΚΟ ΕΛΕΓΧΟ. ΝΑ ΑΦΑΙΡΕΘΟΥΝ. --------------------------
Lf['τεσταρχ'] = function(lc)
return Lf['αρχαία'](lc)
end
Lf['τεστυποκ'] = function(lc)
return Lf['αρχαία'](lc)
end
--ΤΕΛΟΣ ΤΟΥ ΝΑ ΑΦΑΙΡΕΘΟΥΝ. ------------------------------------------------
--ΚΥΡΙΕΣ ΣΥΝΑΡΤΗΣΕΙΣ ΓΙΑ ΤΗΝ ΕΤΥΜΟΛΟΓΗΣΗ
--ΚΛΑΣΙΚΑ ΠΡΟΤΥΠΑ
Lf['αρχαία'] = function(lc)
lc['κείμενο'] = "[[w:Αρχαία ελληνική γλώσσα|''αρχαία ελληνική'']] "
end
-- δεν λειτουργεί
Lf['ελληνιστική'] = function(lc)
lc['κείμενο'] = "[[w:Ελληνική γλώσσα#Ελληνιστική κοινή|''ελληνιστική κοινή'']] "
return Lf['αρχαία τελικό'](lc)
end
Lf['επίθημα'] = function(lc)
lc['λέξη'] = lc['παράμετροι λήμματος'][1] or ''
lc['επίθημα'] = lc['παράμετροι λήμματος'][2] or ''
lc['iso γλώσσας'] = lc['παράμετροι λήμματος'][3] or ''
lc['εμφάνιση'] = lc['παράμετροι λήμματος'][4] or ''
--αν δεν υπάρχει iso γλώσσας τότε υποθέτουμε (κακώς;) ελληνικά
if lc['iso γλώσσας'] == '' then lc['iso γλώσσας'] = 'el' end
lc['κείμενο'] = Lf['σφάλμα']('Δόθηκαν λάθος παράμετροι.')
if (lc['iso γλώσσας'] ~= '') and (Ld['γλώσσες'][lc['iso γλώσσας']] ~= nil) then
lc['ενότητα γλώσσας'] = Ld['γλώσσες'][lc['iso γλώσσας']]['link']
if lc['εμφάνιση'] == '' then lc['εμφάνιση'] = lc['λέξη'] end
if lc['λέξη'] ~= '' then
--if lc['iso γλώσσας'] == 'el' then
--lc['κείμενο'] = "[[" .. lc['εμφάνιση'] .. "]]"
--else
lc['κείμενο'] = "[[" .. lc['λέξη'] .. "#" .. lc['ενότητα γλώσσας'] .. "|" .. lc['εμφάνιση'] .. "]]"
--end
if lc['επίθημα'] ~= '' then
--lc['παραπομπή επιθήματος'] = "[[-" .. lc['επίθημα']
--if lc['iso γλώσσας'] == 'el' then
--lc['παραπομπή επιθήματος'] = lc['παραπομπή επιθήματος'] .. "]]"
--else
lc['παραπομπή επιθήματος'] = "[[-" .. lc['επίθημα'] .. '#' .. lc['ενότητα γλώσσας'] .. "|-" .. lc['επίθημα'] .. "]]"
--end
lc['κείμενο'] = lc['κείμενο'] .. " + επίθημα " .. lc['παραπομπή επιθήματος']
if mw.ustring.sub(lc['τίτλος λήμματος'],-mw.ustring.len(lc['επίθημα'])) == lc['επίθημα'] then
lc['κείμενο'] = lc['κείμενο'] .. "[[Κατηγορία:" .. Ld['γλώσσες'][lc['iso γλώσσας']]['words'] .. " με επίθημα: -" .. lc['επίθημα'] .. "]]"
--Αν χρειαστεί να αφαιρέσουμε το "Ελληνικές λέξεις"
--if lc['iso γλώσσας'] == 'el' then
--lc['κείμενο'] = lc['κείμενο'] .. "]]"
--else
--lc['κείμενο'] = lc['κείμενο'] .. " (" .. Ld['γλώσσες'][lc['iso γλώσσας']]['name'] .. ")]]"
--end
else
mw.addWarning('Η ετυμολόγηση του επιθήματος δεν αναφέρεται στο λήμμα!')
end
else
mw.addWarning('Δεν δώσατε τιμή στη δεύτερη παράμετρο (επίθημα).')
end
else
mw.addWarning('Δεν δώσατε τιμή στην πρώτη παράμετρο.')
end
else
mw.addWarning('Δώσατε λάθος τιμή στην παράμετρο iso γλώσσας της ετυμολογούμενης λέξης.')
end
return lc['κείμενο']
end
Lf['αρχαία τελικό'] = function(lc)
--για παραμέτρους που θα δείχνουν άλλη λέξη από τη λέξη παραπομπής
--και για παραμέτρους που θα περιέχουν τη γλώσσα του ετυμολογούμενου λήμματος
--καλύτερα να μπουν ονομαστικά
--π.χ. γλ και λ:
--γλ=la (ή it ή de κλπ.)
--λ=λέξησεάλληπτώση
if lc['παράμετροι λήμματος'][1] == nil then return lc['κείμενο'] end
if lc['παράμετροι λήμματος'][1] == '' then
lc['παραπομπή στο λήμμα'] = lc['τίτλος λήμματος']
else
lc['παραπομπή στο λήμμα'] = lc['παράμετροι λήμματος'][1]
end
lc['κείμενο'] = lc['κείμενο'] .. "[[" .. lc['παραπομπή στο λήμμα'] .. "#" .. Ld['γλώσσες']['grc']['link'] .. "|" .. lc['παραπομπή στο λήμμα'] .. "]]"
return lc['κείμενο']
end
end
-- δεν λειτουργεί
Lf['ινδοευρωπαϊκή ρίζα'] = function(lc)
--αν επεκτεθεί ώστε να προστεθούν διαφορετικές σελίδες σε διαφορετικές οικογένειες
lc['κείμενο'] = lc['κείμενο'] .. "[[Παράρτημα:Αμάρτυρες λέξεις/ιε/*" .. lc['παραπομπή στο παράρτημα'] .. "|*" .. lc['παραπομπή στο παράρτημα'] .. "]]"
return lc['κείμενο']
end
--ΥΠΟΠΕΡΙΠΤΩΣΕΙΣ
-- 2019.04.11. πήραμε από εδώ, το Υποκοριστικό
export['δάνεια'] = function(frame)
lc = {}
lc['σφάλμα:άδειο'] = "[[Κατηγορία:Επιτήρηση:Πρότυπο:δάνεια χωρίς παραμέτρους]]"
lc['σφάλμα:iso'] = "[[Κατηγορία:Επιτήρηση:Πρότυπο:δάνεια με λάθος σε γλώσσα]]"
--lc['σφάλμα:χωρις 1'] = "[[Κατηγορία:Επιτήρηση:Πρότυπο:δάνεια χωρίς πρώτη παράμετρο]]"
lc['παράμετροι λήμματος'] = frame:getParent().args
lc['τίτλος λήμματος'] = mw.title.getCurrentTitle().text
lc['iso γλώσσας δανείου'] = lc['παράμετροι λήμματος'][1] or ''
--lc['iso γλώσσας παραπομπής'] = lc['παράμετροι λήμματος'][2] or ''
lc['παραπομπή γλώσσας δανείου'], lc['σφάλμα 1'] = export['εμφάνιση γλώσσας 1'](lc['iso γλώσσας δανείου'])
if lc['παραπομπή γλώσσας δανείου'] == '' then
return lc['σφάλμα:άδειο'] .. lc['σφάλμα:iso']
end
--έχουμε να στείλουμε κάποια γλώσσα, συνεχίζουμε.
lc['κατηγορία γλώσσας δανείου'] = Ld['γλώσσες'][lc['iso γλώσσας δανείου']].cat or ''
--η γλώσσα είναι έτοιμη να σταλεί: lc['παραπομπή γλώσσας δανείου']
--δημιουργία κατηγορίας
--δημιουργία λεκτικού «από»
lc['από'] = Ld['γλώσσες'][lc['iso γλώσσας δανείου']].apo or ''
if lc['από'] == '' then
lc['για τα'] = Ld['γλώσσες'][lc['iso γλώσσας δανείου']].name or ''
if lc['για τα'] ~= '' then
lc['από'] = 'τα ' .. lc['για τα']
end
end
if lc['παράμετροι λήμματος'][2] == nil then
--δεν έχει δεύτερη παράμετρο, δεν γνωρίζουμε τη γλώσσα αναφοράς στο λήμμα
return lc['παραπομπή γλώσσας δανείου']
else
--έχει δεύτερη παράμετρο
lc['iso γλώσσας λήμματος'] = lc['παράμετροι λήμματος'][2] or ''
if lc['iso γλώσσας λήμματος'] == '' then
--θεωρούμε ότι αφορά Δάνεια της ελληνικής γλώσσας
lc['iso γλώσσας λήμματος'] = 'el'
lc['κατηγορία'] = '[[Κατηγορία:Δάνεια από ' .. lc['από'] .. ']]'
else
--υπάρχει iso για τη γλώσσα του λήμματος
lc['γλώσσα κατηγορίας'] = Ld['γλώσσες'][lc['iso γλώσσας λήμματος']].name or ''
if lc['γλώσσα κατηγορίας']~= '' then
--αν έχει name το βάζουμε
lc['κατηγορία'] = '[[Κατηγορία:Δάνεια από ' .. lc['από'] .. " (" .. lc['γλώσσα κατηγορίας'] .. ")" .. ']]'
else
--αλλιώς δεν δημιουργούμε κατηγορία
lc['κατηγορία'] = ''
end
end
end
--έλεγχος αν έχουμε λήμμα για παραπομπή
local args2 = {}
args2['λήμμα'] = lc['παράμετροι λήμματος'][3]
--args2['λήμμα'] = 'for'
args2['iso'] = lc['iso γλώσσας δανείου']
args2['προεπιλεγμένο iso'] = 'el'
lc['παραπομπή'] , lc['σφάλμα 2'] = export['παραπομπή'](args2)
if lc['παραπομπή'] == '' then
--δεν υπάρχει, επίστρεψε μόνο τη γλώσσα και την κατηγορία
return lc['παραπομπή γλώσσας δανείου'] .. lc['κατηγορία']
end
return lc['παραπομπή γλώσσας δανείου'] .. ' ' .. lc['παραπομπή'] .. lc['κατηγορία']
end
| 