Moduuli:sanarivi/adpositio

Tämän moduulin ohjeistuksen voi tehdä sivulle Moduuli:sanarivi/adpositio/ohje

local p = {}

local kirjoitusjarjestelmat = require("Moduuli:Kirjoitusjärjestelmät")
local luokat    = require("Moduuli:luokittelu")
local apu       = require("Moduuli:Mallinetyokalut")
local srlib     = require("Moduuli:LibSanarivi")
local paramtext = require("Moduuli:ParametrisoituTeksti")
local ryhma, var, luettelo, tai = paramtext.ryhma, paramtext.muuttuja, paramtext.luettelo, paramtext.tai


local function muotoile_sanarivi(frame, luokat)
    local args     = frame.args 
    local hakusana = apu.ensimmainen_ei_tyhja{ frame.args.paino, 
                                               frame.args.vok, 
                                               frame.args[2], 
                                               mw.title.getCurrentTitle().text }        
    local lang = frame.args[1]
    local kirj = kirjoitusjarjestelmat.yleinenKirjoitusjarjestelma(lang)

    local vertailu
    if frame.args.vert == "-" then
        frame.args.vert = "ei vertailuasteita"
    end
    
    return paramtext.muotoile(
        ryhma("",
              tai(
                  var(frame.args["sanarivi"]), 
                  srlib.hakusana(hakusana, lang, kirj)
              ), " ",
              ryhma("(", srlib.latmerkkaus(args.lat), ")"), " ",
              ryhma("(",
                    ryhma("''kyrillinen'' ", var(args.kyr), ""),
                    ")"), " ", 
              ryhma("(+''", var(frame.args.p), "'')"),
              "")), luokat
end     


--- Pääohjelma.
-- @param frame: Jos kutsu sisältää parametrin frame=parent, käytetään
--     kutsuvan mallineen parametreja moduulin parametrien sijasta.
--     1. nimetön on kielikoodi
--     2. nimetön on valinnainen sanarivillä näytettävä teksti sivun otsikon sijaan.
function p.Sanarivi(frame)
    local alkup_frame = frame
    local sanalk = alkup_frame.args.sanaluokka
    
    -- Haetaan malline tai moduuli, jonka parametreja käytetään.
    while frame.args.frame == 'parent' do
        frame = frame:getParent()
    end
    
    -- Kielikoodi.
    local lang  = frame.args[1]
    assert ( lang, "Pakollinen kielikoodi puuttuu (parametri 1)" )
    
    -- Haetaan kielelle määritetty oma moduuli, jos sellainen on.
    local sub = require("Moduuli:sanarivi/alimoduulit").hae_kielikohtainen_moduuli(lang)
    

    -- Jos alimoduuli toteuttaa Sanarivi-funktion, annetaan koko
    -- hoito sen hoidettavaksi.
    if sub and sub.Sanarivi then
        return sub.Sanarivi(alkup_frame)
    end
    
    -- Yleiset sanaluokkaluokat.
    luokat.asetaAakkostajalla(lang, luokat.kielenLuokka(lang, "sanat"))

    if sanalk == "postpositio" then
        luokat.asetaAakkostajalla(lang, luokat.kielenLuokka(lang, "postpositiot"))
    elseif sanalk == "prepositio" then
        luokat.asetaAakkostajalla(lang, luokat.kielenLuokka(lang, "prepositiot"))
    else
        luokat.asetaAakkostajalla(lang, luokat.kielenLuokka(lang, "adpositiot"))
    end

    
    -- Jos kielikohtaisessa modulissa on määritelty lisaluokat-funktio, kutsutaan
    -- sitä. Lisaluokat-funktiossa voi lisätä ylimääräisiä luokkia.
    if sub and sub.lisaluokat then
        sub.lisaluokat(frame, luokat)
    end
    

    -- Käytetään kielen omassa moduulissa määriteltyä sopivaa funktiota, jos
    -- sellainen on.
    if sub and sub[sanalk] then
        return sub[sanalk](frame, luokat)
    elseif sub and sub.adpositio then
        return sub.adpositio(frame, luokat)
    elseif sub and sub.sana then
        return sub.sana(sanalk, frame, luokat)
    end
    
    -- Muuten käytetään yleistä funktiota.
    return muotoile_sanarivi(frame), luokat
end

return p