Salix alba: don't really want to wrap the result in

, better translation of parameters for getBlock

2013-08-07T13:06:24Z

don't really want to wrap the result in <pre>, better translation of parameters for getBlock

← Previous revision		Revision as of 13:06, 7 August 2013
Line 134:		Line 134:
	local p = {};		local p = {};

	function p.getBlock( ~~about~~, ~~ahead~~, alphabetical )		function p.getBlock( pagetitle, namespace, alphabetical )
	-- Precondition:		-- Precondition:
	-- ~~about~~ -- string; page title related to template code		-- pagetitle -- string; page title related to template code
	-- ~~ahead~~ -- string, number or nil; namespace (Template:)		-- namespace -- string, number or nil; namespace (Template:)
	-- alphabetical -- boolean or nil; sort parameter list		-- alphabetical -- boolean or nil; sort parameter list
	-- Uses:		-- Uses:
	-- fun()		-- fun()
	local title = mw.title.makeTitle( ~~ahead~~ or 10, ~~about~~ );		local title = mw.title.makeTitle( namespace or 10, pagetitle );
	local lucky, r = pcall( fun, title, alphabetical );		local lucky, r = pcall( fun, title, alphabetical );
	return r;		return r;
Line 161:		Line 161:
	end		end
	local lucky, r = pcall( fun, mw.title.getCurrentTitle(), luxury );		local lucky, r = pcall( fun, mw.title.getCurrentTitle(), luxury );
	return "<pre>" .. r .. "</pre>";		-- return "<pre>" .. r .. "</pre>";
			return r;

	end -- .f()		end -- .f()

PerfektesChaos: Created from w:de:Module:Vorlage:TemplateDataGenerator

2013-08-05T18:16:28Z

Created from w:de:Module:Vorlage:TemplateDataGenerator

New page

--[=[ 2013-08-05
{{TemplateDataGenerator}}
Basic idea by [[w:en:User:Salix alba]]
]=]

local config = {
luxury = false, -- default alphabetical order for parameter list
start = false, -- preceeding lines
shift = " ", -- (not used now) indentation, like " " or "\t"
suffix = false, -- following lines
scheme = [=["%s":
{ "label": "%s",
"description": "",
"type": "string",
"required": false
}]=]
-- config.scheme has placeholders %s
-- for the parameter name and for "label".
-- One of various indentation styles.
-- Feel free to compose a different one, also using config.shift etc.
};

local function factory( analyze, alphabetical )
-- Make parameter sequence from template source text
-- analyze -- string; template source text
-- alphabetical -- boolean or nil; sort parameter list
-- Return:
-- table (sequence) with parameter names
local i, s;
local r = { };
for s in analyze:gmatch( "{{{([^|}\n]+)" ) do
for i = 1, #r do
if r[ i ] == s then
s = false;
break; -- for i
end
end -- for i
if s then
table.insert( r, s );
end
end -- for s in :gmatch()
if alphabetical then
table.sort( r, nil );
end
return r;
end -- factory()

local function format( analyze, alphabetical )
-- Make JSON code from template source text
-- analyze -- string; template source text
-- alphabetical -- boolean or nil; sort parameter list
-- Return:
-- string with JSON code
-- Uses:
-- > config.shift
-- > config.scheme
-- factory()
local i;
local params = factory( analyze, alphabetical );
local r = '{ "description": "",\n';
-- local shift = config.shift or ""; -- currently unused
local start = " ";
local show, symbol;
r = r .. ' "params": { ';
for i = 1, #params do
if i > 1 then
r = string.format( "%s,\n%s ", r, start );
end
symbol = params[ i ];
if mw.ustring.match( symbol, "^%u%u" ) then
show = mw.ustring.sub( symbol, 1, 1 ) ..
mw.ustring.lower( mw.ustring.sub( symbol, 2 ) );
else
show = "";
end
r = r .. string.format( config.scheme, symbol, show );
-- common JSON pattern is ASCII; string.format() will do
end -- for i
r = string.format( "%s\n%s}\n}", r, start );
return r;
end -- format()

local function fun( attempt, alphabetical )
-- Retrieve used template params and build TemplateData skeleton
-- Precondition:
-- attempt -- mw.title object; related to template code
-- alphabetical -- boolean or nil; sort parameter list
-- Return:
-- string to be applied
-- Uses:
-- > config.luxury
-- > config.start
-- > config.suffix
-- format()
local r;
local source = string.match( attempt.baseText .. "/",
"^([^/]+)/" );
-- ensure top page in NS with no subpage property
-- note that pattern is ASCII; string.match() will do
local title = mw.title.makeTitle( attempt.namespace, source );
if title.exists then
local luxury = config.luxury;
local spec = "%s<templatedata>\n%s\n</templatedata>\n%s";
if type( alphabetical ) == "boolean" then
luxury = alphabetical;
end
if config.start then
r = config.start .. "\n";
else
r = "";
end
r = string.format( spec,
r,
format( title:getContent(), luxury ),
config.suffix or "" );
-- note that format spec is ASCII only; string.format() will do
else -- test only
r = "ERROR * no page " .. title.fullText;
end
return r;
end -- fun()

-- Export
local p = {};

function p.getBlock( about, ahead, alphabetical )
-- Precondition:
-- about -- string; page title related to template code
-- ahead -- string, number or nil; namespace (Template:)
-- alphabetical -- boolean or nil; sort parameter list
-- Uses:
-- fun()
local title = mw.title.makeTitle( ahead or 10, about );
local lucky, r = pcall( fun, title, alphabetical );
return r;
end -- .getBlock()

function p.f( frame )
-- Precondition:
-- frame -- object
-- Invoked on a template page or template subpage.
-- Uses:
-- fun()
local luxury;
local parental = frame:getParent().args;
local sort = parental[ 1 ] or parental[ "1" ] or parental.sort;
if sort then
luxury = ( tonumber( sort) == 1 );
end
local lucky, r = pcall( fun, mw.title.getCurrentTitle(), luxury );
return "<pre>" .. r .. "</pre>";
end -- .f()

return p;

Module:TemplateDataGenerator - Revision history

Salix alba: don't really want to wrap the result in
, better translation of parameters for getBlock

PerfektesChaos: Created from w:de:Module:Vorlage:TemplateDataGenerator