Modul:Begrep
Hopp til navigering
Hopp til søk
Dokumentasjon for denne modulen kan opprettes på Modul:Begrep/dok
local capiunto = require 'capiunto'
local p = {} --p stands for package
local felles = mw.loadData( 'Module:Felles' )
-- one function for values which are in their own namespace (i.e autocompleted from namespace)
local function createMediawikiLinkNS( value )
if value and value ~= ""
then return mw.getCurrentFrame()
:callParserFunction(
'#arraymap:'.. value,
felles.separator,
'x',
"[[".. felles.namespace .. ':x' .. "]]",
" , ",
" og " )
end
end
local function createMediawikiLink( value )
if value and value ~= ""
then return mw.getCurrentFrame()
:callParserFunction(
'#arraymap:'.. value,
felles.separator,
'x',
"[[" .. 'x' .. "]]",
", ",
" og " )
end
end
local function addOptionalRow ( t, label, value, ... )
-- error ( " label" .. label .. "v: " .. value )
if value and value ~= ""
then return t:addRow(label, value, ...)
else return t
end
end
-- For å skrive smwproperties som wikitext som kan listes til SemanticScribunto
-- se dataStoreType2 https://github.com/SemanticMediaWiki/SemanticScribunto/blob/master/docs/mw.smw.set.md
local function smwproperty( property, value )
local resultvalue = value or ""
return property .. "=" .. resultvalue
end
-- add namespace to value -https://phabricator.wikimedia.org/T254624
local function smwpropertyns( property, value )
if (value == "" or value == nil)
then return ""
else
local newvalue = mw.getCurrentFrame():callParserFunction(
'#arraymap:'.. value, felles.separator, 'x', felles.namespace .. ':x', felles.separator )
return smwproperty( property, newvalue )
end
end
local function smwlangproperty( property, value, lang )
local resultvalue
if (value and lang)
then resultvalue = ( value .. "@" .. lang )
else resultvalue = ""
end
return property .. "=" .. resultvalue
end
local function smwwritetriples( relasjoner )
local result = mw.smw.set( relasjoner )
if result == true then
-- everything ok
else error( tostring(result.error) )
-- error message to be found in result.error
end
return
end
local function dump(o)
if type(o) == 'table' then
local s = '{ '
for k,v in pairs(o) do
if type(k) ~= 'number' then k = '"'..k..'"' end
s = s .. '['..k..'] = ' .. dump(v) .. ','
end
return s .. '} '
else
return tostring(o)
end
end
local function getskillevalue(namespace, property)
-- build query
local query = {}
table.insert( query, '[[Category:Skos:Collection]]')
table.insert( query, '?dct:identifier=id')
table.insert( query, '?' .. property .. '=skille')
local result = mw.smw.ask( query )
local skille = false
for _, v in pairs(result) do
if v["id"] == namespace then
skille = v["skille"]
break;
end
end
return skille
end
-- global vars
-- Write triples for template Begrep
-- Begin Triples for form Begrep
-- Write triples for template relasjon
function p.relasjonsseksjon ( frame )
local relasjon = frame:getParent()
local relasjontripler = {
smwpropertyns("Skos:semanticRelation", relasjon.args["semantisk relasjon"]),
felles.sep,
}
smwwritetriples( relasjontripler )
-- infobox
local hasrelasjon = false
for k, v in pairs( relasjon.args ) do
if (k == "semantisk relasjon") and v
then hasrelasjon = true
break;
elseif k
then hasrelasjon = true
break;
end
end
if (hasrelasjon)
then
local terminfobox = capiunto.create( {
bodyStyle = "width:60em; background:#f3f3f3; margin: 0 0 0 0; margin-top: 25px;"
} )
:addHeader( "RELASJON", "mw-infobox-capiunto-title-1" )
terminfobox = addOptionalRow( terminfobox,
'semantisk Relasjon',
createMediawikiLinkNS( relasjon.args["semantisk relasjon"] ) )
:getHtml()
return tostring(terminfobox)
end
end
-- Write triples for relasjon template
function p.relasjon( frame )
local args = frame.args
local relasjonsheading = args.relasjonsheading
local relasjonargs = frame:getParent().args
assert ( relasjonsheading ~= nil, "named param 'relasjonsheading' must be set when invoking begrep:relasjon" )
local skille = false
if args.namespace then
local namespace = args.namespace
skille = getskillevalue(namespace, "skosp:skilleGeneriskPartitiv")
end
local relasjonstype = relasjonargs.type
if relasjonstype == nil then relasjonstype = "" end
if ( relasjonargs.begrep )
then
-- flat triple
local relasjonskey = nil
if skille then
relasjonskey = relasjonsheading .. relasjonstype
else
relasjonskey = relasjonsheading
end
smwwritetriples( smwpropertyns( felles.relasjonstable[relasjonskey], relasjonargs.begrep ) )
-- qualification triples: TODO Adapt to new Version of skosno; with skille
if ( relasjonstype ~= "" or relasjonargs.inndelingskriterium or relasjonargs.merknad )
then
local relasjonslug = mw.ustring.match(felles.relasjonstable[relasjonskey], ":(.*)")
local urivarname = relasjonslug .. "termCounter"
local LuaVarTermCounter = mw.ext.VariablesLua.var( urivarname )
local counter = (LuaVarTermCounter and LuaVarTermCounter ~= '') and LuaVarTermCounter or 1
mw.ext.VariablesLua.vardefine(urivarname, tonumber(counter) + 1)
local slug = relasjonskey .. " " .. counter
local sourceslug = slug .. "source"
local id_subobject = felles.fullpagename .. "#" .. slug
-- from subobject
local qualification_triples = {
smwproperty("@category", "skosp:Relation"),
smwproperty("Dct:source", felles.fullpagename .. sourceslug ),
smwpropertyns("skosp:begrep", relasjonargs.begrep),
smwproperty("skosno:inndelingskriterium", relasjonargs.inndelingskriterium ),
felles.sep,
smwproperty("skos:note", relasjonargs.merknad),
}
mw.smw.subobject( qualification_triples, id_subobject )
-- to subobject, adapt to new version of skosno
smwwritetriples( smwproperty( "skosp:qualifiedRelation", id_subobject ) )
end
-- terminfobox
if relasjonargs
then
local terminfobox = capiunto.create( {
bodyStyle = "width:60em; background:#f3f3f3; margin: 0 0 0 0;"
} )
:addHeader( relasjonsheading, "mw-infobox-capiunto-title-2" )
:addRow( 'begrep', createMediawikiLinkNS( relasjonargs.begrep ) )
if skille then
terminfobox = addOptionalRow( terminfobox, "type", relasjonargs.type )
end
terminfobox = addOptionalRow( terminfobox, "inndelingskriterium", relasjonargs.inndelingskriterium )
terminfobox = addOptionalRow( terminfobox, "merknad", relasjonargs.merknad )
:getHtml()
return tostring(terminfobox)
end
end
end
-- Write triples for template begrep
function p.begrep ( frame )
local begrep = frame:getParent()
local begreptripler = {
smwproperty( "Dct:modified", frame:preprocess(
"{{#time: Y-m-d'T'H:i:s|{{REVISIONTIMESTAMP}}}}{{#time:P|{{REVISIONTIMESTAMP}}|nb|true}}" )),
smwproperty( "Skosp:memberOf", begrep.args.medlem ),
smwproperty( "Skos:scopeNote", begrep.args.kommentar ),
smwproperty( "Dct:subject", begrep.args['bruksområde'] ),
felles.sep,
smwproperty( "Skosp:domene", begrep.args.domene ),
smwproperty( "Skosp:publisere", begrep.args.publisere ),
smwproperty( "Dct:identifier", begrep.args.identifikator ),
smwproperty( "Skosp:previousIdentifier", begrep.args['tidligere id'] )
}
smwwritetriples( begreptripler )
-- infobox
-- infobox
local terminfobox = capiunto.create( {
bodyStyle = "width:60em;background:#f3f3f3; margin: 0 0 0 0;"
} )
:addHeader( "INFORMASJON", "mw-infobox-capiunto-title-1" )
terminfobox = addOptionalRow( terminfobox, 'referanse', begrep.args["kommentar:referanse"] ) -- obsolete?
terminfobox = addOptionalRow( terminfobox, 'domene', begrep.args.domene )
terminfobox = addOptionalRow( terminfobox, 'bruksområde', begrep.args["bruksområde"] )
terminfobox = addOptionalRow( terminfobox, 'merknad', begrep.args.kommentar )
terminfobox = addOptionalRow( terminfobox, 'merknad (intern)', begrep.args["merknad internt"] )
terminfobox = addOptionalRow( terminfobox, 'status', begrep.args.status )
terminfobox = addOptionalRow( terminfobox, 'publisere', begrep.args.publisere )
:getHtml()
return tostring(terminfobox)
end
-- Coalesce on displaytitle from prefLabel
function p.displaytitle( term )
-- local prefixedtitle = mw.title.getCurrentTitle().prefixedText
-- local term = mw.getCurrentFrame():getParent().args.term
-- local currentdisplaytitle = mw.ext.displaytitle.get(prefixedtitle)
local isset = mw.getCurrentFrame():callParserFunction( '#var', { 'dtisset' } )
-- om term finnes og display title er tittel med namespace, sett displaytitle
if (isset == "" and term ~= nil)
then
mw.ext.displaytitle.set(term)
-- sett info om at at term finnes via wiki parserfuncstions siden en ikke kan ha state mellom invocations i LUA
mw.getCurrentFrame():callParserFunction( '#vardefine', { 'dtisset', term } )
end
return
end
-- Termseksjon
function p.termseksjon( frame )
local args = frame.args
local seksjonargs = frame:getParent().args
local lc = args.lc
local lcname = args.lcname
assert(lc and lcname,"alle termseksjon må ha en lc og tittel" .. lcname )
local hasspraak = false
for k, v in pairs( seksjonargs ) do
if (k == "ekvivalens")
then hasspraak = false
elseif (k == "ekvivalens merknad") and v
then hasspraak = true
break;
elseif k then
hasspraak = true
break;
end
end
-- infobox
if hasspraak then
local terminfobox = capiunto.create( {
bodyStyle = "width:60em;background:#f3f3f3; margin: 0 0 0 0; margin-top: 25px;"
} )
:addHeader( lcname, "mw-infobox-capiunto-title-1" )
terminfobox = addOptionalRow( terminfobox, 'ekvivalens', seksjonargs.ekvivalens )
terminfobox = addOptionalRow( terminfobox, 'merknad', seksjonargs.merknad )
:getHtml()
return tostring(terminfobox)
end
end
function p.kontekst(frame)
local args = frame.args
local lc = args.lc
local kontekstargs = frame:getParent().args
assert (lc ~= nil, "named param lc must be set when invoking function begrep:kontekst")
-- infobox
local terminfobox = capiunto.create( {
bodyStyle = "width:60em;background:#f3f3f3; margin: 0 0 0 0;"
} )
:addHeader( "Kontekst", "mw-infobox-capiunto-title-2" )
:addRow( 'kontekst av', kontekstargs['kontekst av'] )
:addRow( 'kontekst', kontekstargs.kontekst )
terminfobox = addOptionalRow( terminfobox, 'referanse', kontekstargs.referanse )
:getHtml()
return tostring(terminfobox)
end
function p.definisjon(frame)
local args = frame.args
local lc = args.lc
local definisjonargs = frame:getParent().args
assert (lc ~= nil, "named param lc must be set when invoking function begrep:definisjon")
-- infobox
local terminfobox = capiunto.create( {
bodyStyle = "width:60em;background:#f3f3f3; margin: 0 0 0 0;"
} )
:addHeader( "Definisjon", "mw-infobox-capiunto-title-2" )
:addRow( 'definisjon', definisjonargs.definisjon )
terminfobox = addOptionalRow( terminfobox, 'referanse', definisjonargs.referanse )
terminfobox = addOptionalRow( terminfobox, 'merknad', definisjonargs.merknad )
:getHtml()
return tostring(terminfobox)
-- local slug = 'definisjon ' .. spraakkode
-- local begreptripler = {
-- smwproperty("Skosno:definisjon", felles.fullpagename ..'#'.. slug )
-- }
-- smwwritetriples( begreptripler )
-- -- definisjon subobject -- uri er original # + slug. samme som brukes til definisjon
-- local defref = termseksjon.args['definisjon:referanse']
--
-- -- håndter nøstet referanse på definisjon
-- if (defref)
-- then
-- local definisjonrefslug = slug .. " referanse"
-- local definisjonref = felles.fullpagename .. definisjonrefslug
-- local definisjonsreftripler = {
-- smwlangproperty("Skosp:label", defref, spraakkode )
-- }
-- mw.smw.subobject( definisjonsreftripler, definisjonrefslug )
--
-- local definisjontripler =
-- {
-- smwproperty( "@category","Skosno:Definisjon" ),
-- smwlangproperty("Skosp:label", termseksjon.args['definisjon'], spraakkode),
-- smwproperty("Dct:source", definisjonref ------)
--
-- }
-- -- andre parameter er (relativ ) uri å bruke som navn for subobject, appender # og slug på sidenavn
-- mw.smw.subobject( definisjontripler, slug )
end
--return
--end
function p.term( frame )
local args = frame.args
local termargs = frame:getParent().args
local langcode = args.lc
local heading = args.heading
local skille = false
if args.namespace then
local namespace = args.namespace
skille = getskillevalue(namespace, "skosp:skilleForkortelsestyper")
end
assert ( langcode ~= nil, "named param lc must be set when invoking module begrep:term")
assert ( heading ~= nil , "named param heading must be set when invoking module begrep:term" )
if ( termargs.term )
then
-- langcode = term.args['språkkode']
-- forventer alltid å få inn en en relasjon på type prefix:tekst
local relasjonslug = mw.ustring.match(felles.languagetable[heading], ":(.*)")
local urivarname = relasjonslug .. "termCounter" .. langcode
local LuaVarTermCounter = mw.ext.VariablesLua.var( urivarname )
-- error(type(LuaVarTermCounter))
local counter = (LuaVarTermCounter and LuaVarTermCounter ~= '') and LuaVarTermCounter or 1
mw.ext.VariablesLua.vardefine(urivarname, tonumber(counter) + 1)
local slug = relasjonslug .. " " .. langcode .. " " .. counter
local sourceslug = slug .. "source"
local termtripler = {
smwlangproperty("Skosxl:literalForm", termargs.term, langcode ),
smwproperty("Dct:source", felles.fullpagename .. sourceslug ),
smwproperty("@category", "Skosxl:Label" )
}
mw.smw.subobject( termtripler, slug )
if (relasjonslug == "prefLabel") then
p.displaytitle( termargs.term )
end
local relasjonstripler = {
smwproperty(felles.languagetable[heading], felles.fullpagename .. "#" .. slug)
}
smwwritetriples(relasjonstripler)
--
if (termargs.term and termargs["term:referanse"] )
then
local kildetripler = {
smwlangproperty("Rdfs:label", termargs['term:referanse'], langcode),
smwlangproperty("Skos:scopeNote", termargs['kommentar'], langcode)
}
-- result = mw.smw.subobject( definisjontripler, sourceslug )
end
local terminfobox = capiunto.create( {
bodyStyle = "width:60em;background:#f3f3f3; margin: 0 0 0 0;"
} )
:addHeader( heading, "mw-infobox-capiunto-title-2" )
:addRow( 'term',termargs.term )
terminfobox = addOptionalRow( terminfobox, 'referanse', termargs['term:referanse'] )
terminfobox = addOptionalRow( terminfobox, 'kollokasjon', termargs.kollokasjon )
if termargs.forkortelsep == "Ja"
then
terminfobox = addOptionalRow( terminfobox, 'forkortelse av', termargs['forkortelse av'] )
if skille then
terminfobox = addOptionalRow( terminfobox, 'forkortelsestype', termargs.forkortelsestype )
end
end
terminfobox = addOptionalRow( terminfobox, 'merknad', termargs.kommentar )
:getHtml()
return tostring(terminfobox)
end
-- error ((string.match(property, ":(.*)$")) .. " " ..spraakkode)
-- return error (string.match(property, ":(.*)$") .. term.args.spraakkode)
end
return p