Modul:Begrep

Fra Termportalen
Revisjon per 31. aug. 2022 kl. 09:46 av OleBangen (diskusjon | bidrag) (Pywikibot 7.1.0)
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( "Dct:created", begrep.args.inndato),
      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