423
edits
Changes
From KIproBatt Wiki
Updated with content from Extension:OpenSemanticLab version 0.0.3
-- Module:SMW
local p = {}
-- another example, subobject used inside another function
function p.create_object( frame, args )
--page = frame:getParent()
local page = nil
if args['page'] == nil then page = mw.title.getCurrentTitle()
else page = mw.title.new(args['page']) end
local namespace = mw.site.namespaces[page.namespace]
mw.log(namespace.name) --or page.nsText
if args['custom_id'] ~= nil and args['custom_id'] ~= "" and args['custom_id_pattern'] ~= nil and args['custom_id_replace'] then
args['custom_id'] = string.gsub(args['custom_id'], args['custom_id_pattern'], args['custom_id_replace'])
end
local subobjectId = args['id']
local objectType = args['type']
if objectType == "from_mapping" then objectType = p.getPredecessor( page.fullText .. "#" .. subobjectId ) end --query predecessor material / object
local isInstance = true
if page.nsText ~= "LabObject" then isInstance = false end
local isGlobal = false
if args['global'] ~= nil and args['global'] ~= "" then isGlobal = true end
local display_label = args['label'];
if (args['use_as_label'] == "custom_id") and isInstance == true then display_label = args['custom_id'] --don't use id as label in process types
elseif (args['use_as_label'] == "id") then display_label = args['id'] end
-- OBJECT PROPERTIES
local properties = {}
if args['custom_id'] ~= nil and args['custom_id'] ~= "" then properties['HasId'] = args['custom_id']
else properties['HasId'] = string.gsub(page.fullText, page.nsText .. ":", "") .. "#" .. args['id'] end --LabObject:1ef4...#O0001 -> 1ef4...#O0001
--properties['HasName'] = args['name']
if args['label'] ~= nil then
properties['HasLabel'] = args['label'] .. "@en"
properties['Display title of'] = display_label
end
if isInstance == true then properties['IsInstanceOf'] = objectType
else properties['IsA'] = objectType end
if isGlobal == true and isInstance == true then
properties['@category'] = {
'LabProcess/Object',
'LabProcessObject',
'LabProcess/GlobalObject',
'LabProcessOutput'
}
else
properties['@category'] = {
'LabProcess/Object',
'LabProcessObject'
}
end
mw.logObject(properties)
local result = mw.smw.subobject( properties, subobjectId )
if result == true then
-- everything ok
mw.log('Your data was stored successfully in a subobject')
else
-- error message to be found in result.error
mw.log('An error occurred during the subobject storage process. Message reads ' .. result.error)
end
-- PAGE PROPERTIES
local page_properties = {}
page_properties['HasObject'] = page.fullText .. "#" .. subobjectId
if global == true then
page_properties['HasOutput'] = page.fullText .. "#" .. subobjectId
end
result = mw.smw.set( page_properties )
if result == true then
-- everything ok
return subobjectId .. ";"
else
-- error message to be found in result.error
end
end
-- replaces a number patter with an index, e. g.
-- Object0000 -index=32-> Object0013
function p.indexed_string(string_pattern, index)
--local pattern = string.match(string_pattern, "%d+")
local pattern = string.reverse(string.match(string.reverse(string_pattern), "%d+")) --select the last number group
--local pattern = ""
--for word in string.gmatch("string_pattern", "%d+") do pattern = word end --select the last number group
--local offset = tonumber(pattern)
--index = index + offset
pattern = string.gsub(pattern, "%d", "0") --reset to e. g. 0001 to 0000
local pattern_len = string.len(pattern)
local index_string = "" .. index
if (string.len(index_string) < pattern_len) then --auto grow pattern
index_string = string.sub(pattern .. index, -pattern_len)
end
local result = string.reverse(string.gsub(string.reverse(string_pattern), "%d+", string.reverse(index_string), 1)) --replace only the last number group
return result
end
-- from https://stackoverflow.com/questions/640642/how-do-you-copy-a-lua-table-by-value
function p.copy(obj, seen)
if type(obj) ~= 'table' then return obj end
if seen and seen[obj] then return seen[obj] end
local s = seen or {}
local res = setmetatable({}, getmetatable(obj))
s[obj] = res
for k, v in pairs(obj) do res[p.copy(k, s)] = p.copy(v, s) end
return res
end
function p.object( frame, reference_only )
local args = p.copy(frame.args) --frame.args is a metatable so we have to create a normal table as copy to edit it
if args['count'] == nil or args['count'] == "" then args['count'] = "1" end
local count = tonumber(args['count'])
if args['id'] == nil then args['id'] = "O0000" end
if args['label'] == nil then args['label'] = "Object 0" end
local object_ids = ""
local custom_id_offset = 0
local id_offset = 0
local label_offset = 0
if count > 1 then
if args['custom_id'] ~= nil and args['custom_id'] ~= "" then
if string.match(args['custom_id'], "%d+") == nil then args['custom_id'] = args['custom_id'] .. "0" end -- e. g. "O" -> "O0"
end
if string.match(args['id'], "%d+") == nil then args['id'] = args['id'] .. "0" end
if string.match(args['label'], "%d+") == nil then args['label'] = args['label'] .. "0" end
if args['offset'] == nil or args['offset'] == "" then
if args['custom_id'] ~= nil and args['custom_id'] ~= "" then
custom_id_offset = tonumber(string.reverse(string.match(string.reverse("" .. args['custom_id']), "%d+")))
end
id_offset = tonumber(string.reverse(string.match(string.reverse("" .. args['id']), "%d+")))
label_offset = tonumber(string.reverse(string.match(string.reverse("" .. args['label']), "%d+")))
else
custom_id_offset = tonumber(args['offset'])
id_offset = tonumber(args['offset'])
label_offset = tonumber(args['offset'])
end
end
for index = 0, count - 1 do
if count > 1 then
if args['custom_id'] ~= nil and args['custom_id'] ~= "" then
args['custom_id'] = p.indexed_string( args['custom_id'], index + custom_id_offset + 1)
end
args['id'] = p.indexed_string( args['id'], index + id_offset)
args['label'] = p.indexed_string( args['label'], index + label_offset)
end
--object_ids = object_ids .. args['id']
if reference_only then object_ids = object_ids .. args['id'] .. ";"
else object_ids = object_ids .. p.create_object(frame, args) end
end
return object_ids
end
function p.reference( frame )
return p.object( frame, true )
end
function p.getPredecessor(obj)
--mw.logObject(obj)
-- please note the unlinking of properties 'page authors', and mainlabel '?' by using the #- operator
-- note also: unlinking via parameter link is not supported at this point
local query = "[[IsObjectParameterOf::" .. obj .. "]] |?HasPredecessor.IsInstanceOf.-HasPredecessor#-=predecessor |mainlabel=- |headers=hide |format=plain"
local result = mw.smw.ask( query )
if result ~= nil then
--mw.logObject(result)
result = result[1]['predecessor']
--mw.logObject(result)
end
return result
end
return p
--DEBUG
--[[
frame = mw.getCurrentFrame() -- Get a frame object
newFrame = frame:newChild{ -- Get one with args
title = 'LabObject:OSL02344d31ba6d4e49acc75772946f1ba1' ,
args = {
["page"] = "LabObject:OSL02344d31ba6d4e49acc75772946f1ba1",
["id"] = "O0001",
["custom_id"] = "220504-sist-0100-pi",
["count"] = 3,
label="Sample0",
use_as_label="custom_id",
custom_id_pattern="(%d+)-(%a+)-(%d+)-(%a+)",
custom_id_replace="%1-%2-%3-mi",
offset="",
}
}
mw.log(p.object( newFrame ) )
--]]
local p = {}
-- another example, subobject used inside another function
function p.create_object( frame, args )
--page = frame:getParent()
local page = nil
if args['page'] == nil then page = mw.title.getCurrentTitle()
else page = mw.title.new(args['page']) end
local namespace = mw.site.namespaces[page.namespace]
mw.log(namespace.name) --or page.nsText
if args['custom_id'] ~= nil and args['custom_id'] ~= "" and args['custom_id_pattern'] ~= nil and args['custom_id_replace'] then
args['custom_id'] = string.gsub(args['custom_id'], args['custom_id_pattern'], args['custom_id_replace'])
end
local subobjectId = args['id']
local objectType = args['type']
if objectType == "from_mapping" then objectType = p.getPredecessor( page.fullText .. "#" .. subobjectId ) end --query predecessor material / object
local isInstance = true
if page.nsText ~= "LabObject" then isInstance = false end
local isGlobal = false
if args['global'] ~= nil and args['global'] ~= "" then isGlobal = true end
local display_label = args['label'];
if (args['use_as_label'] == "custom_id") and isInstance == true then display_label = args['custom_id'] --don't use id as label in process types
elseif (args['use_as_label'] == "id") then display_label = args['id'] end
-- OBJECT PROPERTIES
local properties = {}
if args['custom_id'] ~= nil and args['custom_id'] ~= "" then properties['HasId'] = args['custom_id']
else properties['HasId'] = string.gsub(page.fullText, page.nsText .. ":", "") .. "#" .. args['id'] end --LabObject:1ef4...#O0001 -> 1ef4...#O0001
--properties['HasName'] = args['name']
if args['label'] ~= nil then
properties['HasLabel'] = args['label'] .. "@en"
properties['Display title of'] = display_label
end
if isInstance == true then properties['IsInstanceOf'] = objectType
else properties['IsA'] = objectType end
if isGlobal == true and isInstance == true then
properties['@category'] = {
'LabProcess/Object',
'LabProcessObject',
'LabProcess/GlobalObject',
'LabProcessOutput'
}
else
properties['@category'] = {
'LabProcess/Object',
'LabProcessObject'
}
end
mw.logObject(properties)
local result = mw.smw.subobject( properties, subobjectId )
if result == true then
-- everything ok
mw.log('Your data was stored successfully in a subobject')
else
-- error message to be found in result.error
mw.log('An error occurred during the subobject storage process. Message reads ' .. result.error)
end
-- PAGE PROPERTIES
local page_properties = {}
page_properties['HasObject'] = page.fullText .. "#" .. subobjectId
if global == true then
page_properties['HasOutput'] = page.fullText .. "#" .. subobjectId
end
result = mw.smw.set( page_properties )
if result == true then
-- everything ok
return subobjectId .. ";"
else
-- error message to be found in result.error
end
end
-- replaces a number patter with an index, e. g.
-- Object0000 -index=32-> Object0013
function p.indexed_string(string_pattern, index)
--local pattern = string.match(string_pattern, "%d+")
local pattern = string.reverse(string.match(string.reverse(string_pattern), "%d+")) --select the last number group
--local pattern = ""
--for word in string.gmatch("string_pattern", "%d+") do pattern = word end --select the last number group
--local offset = tonumber(pattern)
--index = index + offset
pattern = string.gsub(pattern, "%d", "0") --reset to e. g. 0001 to 0000
local pattern_len = string.len(pattern)
local index_string = "" .. index
if (string.len(index_string) < pattern_len) then --auto grow pattern
index_string = string.sub(pattern .. index, -pattern_len)
end
local result = string.reverse(string.gsub(string.reverse(string_pattern), "%d+", string.reverse(index_string), 1)) --replace only the last number group
return result
end
-- from https://stackoverflow.com/questions/640642/how-do-you-copy-a-lua-table-by-value
function p.copy(obj, seen)
if type(obj) ~= 'table' then return obj end
if seen and seen[obj] then return seen[obj] end
local s = seen or {}
local res = setmetatable({}, getmetatable(obj))
s[obj] = res
for k, v in pairs(obj) do res[p.copy(k, s)] = p.copy(v, s) end
return res
end
function p.object( frame, reference_only )
local args = p.copy(frame.args) --frame.args is a metatable so we have to create a normal table as copy to edit it
if args['count'] == nil or args['count'] == "" then args['count'] = "1" end
local count = tonumber(args['count'])
if args['id'] == nil then args['id'] = "O0000" end
if args['label'] == nil then args['label'] = "Object 0" end
local object_ids = ""
local custom_id_offset = 0
local id_offset = 0
local label_offset = 0
if count > 1 then
if args['custom_id'] ~= nil and args['custom_id'] ~= "" then
if string.match(args['custom_id'], "%d+") == nil then args['custom_id'] = args['custom_id'] .. "0" end -- e. g. "O" -> "O0"
end
if string.match(args['id'], "%d+") == nil then args['id'] = args['id'] .. "0" end
if string.match(args['label'], "%d+") == nil then args['label'] = args['label'] .. "0" end
if args['offset'] == nil or args['offset'] == "" then
if args['custom_id'] ~= nil and args['custom_id'] ~= "" then
custom_id_offset = tonumber(string.reverse(string.match(string.reverse("" .. args['custom_id']), "%d+")))
end
id_offset = tonumber(string.reverse(string.match(string.reverse("" .. args['id']), "%d+")))
label_offset = tonumber(string.reverse(string.match(string.reverse("" .. args['label']), "%d+")))
else
custom_id_offset = tonumber(args['offset'])
id_offset = tonumber(args['offset'])
label_offset = tonumber(args['offset'])
end
end
for index = 0, count - 1 do
if count > 1 then
if args['custom_id'] ~= nil and args['custom_id'] ~= "" then
args['custom_id'] = p.indexed_string( args['custom_id'], index + custom_id_offset + 1)
end
args['id'] = p.indexed_string( args['id'], index + id_offset)
args['label'] = p.indexed_string( args['label'], index + label_offset)
end
--object_ids = object_ids .. args['id']
if reference_only then object_ids = object_ids .. args['id'] .. ";"
else object_ids = object_ids .. p.create_object(frame, args) end
end
return object_ids
end
function p.reference( frame )
return p.object( frame, true )
end
function p.getPredecessor(obj)
--mw.logObject(obj)
-- please note the unlinking of properties 'page authors', and mainlabel '?' by using the #- operator
-- note also: unlinking via parameter link is not supported at this point
local query = "[[IsObjectParameterOf::" .. obj .. "]] |?HasPredecessor.IsInstanceOf.-HasPredecessor#-=predecessor |mainlabel=- |headers=hide |format=plain"
local result = mw.smw.ask( query )
if result ~= nil then
--mw.logObject(result)
result = result[1]['predecessor']
--mw.logObject(result)
end
return result
end
return p
--DEBUG
--[[
frame = mw.getCurrentFrame() -- Get a frame object
newFrame = frame:newChild{ -- Get one with args
title = 'LabObject:OSL02344d31ba6d4e49acc75772946f1ba1' ,
args = {
["page"] = "LabObject:OSL02344d31ba6d4e49acc75772946f1ba1",
["id"] = "O0001",
["custom_id"] = "220504-sist-0100-pi",
["count"] = 3,
label="Sample0",
use_as_label="custom_id",
custom_id_pattern="(%d+)-(%a+)-(%d+)-(%a+)",
custom_id_replace="%1-%2-%3-mi",
offset="",
}
}
mw.log(p.object( newFrame ) )
--]]
