Moduuli:sanarivi/adjektiivi

Kohteesta Wikisanakirja
Siirry navigaatioon Siirry hakuun

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

--- [[Malline:adjektiivi]]-mallineen toimintalogiikka.

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 = paramtext.ryhma, paramtext.muuttuja, paramtext.luettelo

local function hae_alimoduuli(lang)
    local success, sub = pcall(require, "Moduuli:sanarivi/" .. lang)
    if success then
        return sub
    end
    return nil
end


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)

    return paramtext.muotoile(
        ryhma("",
              srlib.hakusana(hakusana, lang, kirj), " ",
              srlib.sukuteksti(args.suku), " ",
              ryhma("(", srlib.latmerkkaus(args.lat), ")"), " ",
              ryhma("(",
                    ryhma("''kyrillinen'' ", var(args.kyr), ""), ", ", 
              ")"), 
        "")), 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
    
    -- 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 = hae_alimoduuli(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"))   
    luokat.asetaAakkostajalla(lang, luokat.kielenLuokka(lang, "adjektiivit"))   

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

return p