Modul:TemplUtl - Versionsgeschichte

PerfektesChaos: 2022-05-16

2022-05-17T14:07:36Z

2022-05-16

← Nächstältere Version		Version vom 17. Mai 2022, 16:07 Uhr
Zeile 1:		Zeile 1:
	local TemplUtl = { suite = "TemplUtl",		local TemplUtl = { suite = "TemplUtl",
	serial = "2022-05-15",		serial = "2022-05-16",
	item = 52364930 };		item = 52364930 };
	--[=[		--[=[
Zeile 95:		Zeile 95:
	r = mw.text.decode( r );		r = mw.text.decode( r );
	end		end
	r = ~~mw.text.trim(~~ mw.ustring.gsub( r, "[%s%p]+", " " ) );		r = mw.ustring.gsub( r, "[%s%p%c]+", " " );
			r = mw.text.trim( r );
	return r;		return r;
	end -- TemplUtl.facets()		end -- TemplUtl.facets()

PerfektesChaos: 022-05-15

2022-05-16T19:34:45Z

022-05-15

← Nächstältere Version		Version vom 16. Mai 2022, 21:34 Uhr
Zeile 1:		Zeile 1:
	local TemplUtl = { suite = "TemplUtl",		local TemplUtl = { suite = "TemplUtl",
	serial = "~~2021~~-01-01",		serial = "2022-05-15",
	item = 52364930 };		item = 52364930 };
	--[=[		--[=[
Zeile 18:		Zeile 18:
	local r = adjust;		local r = adjust;
	local c = r:byte( 1, 1 );		local c = r:byte( 1, 1 );
			local lead;
	if c <= 59 and		if c <= 59 and
	( c==35 or c==42 or c==58 or c==59 ) then		( c==35 or c==42 or c==58 or c==59 ) then
		⚫	lead = true;
		⚫	elseif c == 123 or c == 124 then
		⚫	local c2 = r:byte( 2, 1 );
		⚫	if c == 123 and c2 == 124 then
			lead = true;
		⚫	elseif ahead and c == 124 and
			( c2 == 43 or c2 == 45 or c2 == 125 ) then
			lead = true;
		⚫	end
			end
			if lead then
	if ahead then		if ahead then
	r = "\n" .. r;		r = "\n" .. r;
	else		else
	r = mw.text.nowiki( r:sub( 1, 1 ) ) .. r:sub( 2 );		r = mw.text.nowiki( r:sub( 1, 1 ) ) .. r:sub( 2 );
⚫	end
⚫	elseif ~~ahead~~ then
⚫	local c2 = r:byte( 2, 1 );
⚫	if ( ~~c==123~~ and c2==124 ) or
⚫	( c==~~124~~ and c2==45 ) then
⚫	r = ~~"\n" .. r~~;
	end		end
	end		end
Zeile 79:		Zeile 85:
	return TemplUtl.frame;		return TemplUtl.frame;
	end -- framing()		end -- framing()



			TemplUtl.facets = function ( ask, adjust )
			local r = ask;
			if adjust == "%" and r:find( "%%%x%x" ) then
			r = mw.uri.decode( r, "PATH" );
			elseif r:find( "&", 1, true ) then
			r = mw.text.decode( r );
			end
			r = mw.text.trim( mw.ustring.gsub( r, "[%s%p]+", " " ) );
			return r;
			end -- TemplUtl.facets()


Zeile 148:		Zeile 167:
	elseif s == "boolean" then		elseif s == "boolean" then
	r = another;		r = another;
	elseif ~~another~~ == "-" then		elseif s == "string" then
	r = ~~"-"~~;		s = mw.text.trim( another );
	~~else~~		if s == "-" then
	r = ~~TemplUtl.faculty(~~ ~~another~~ );		r = "-";
			elseif s == "" then
			r = true;
			else
			r = TemplUtl.faculty( s );
			end
	end		end
	end		end
Zeile 759:		Zeile 783:
	-- Export		-- Export
	local p = { };		local p = { };

			function p.facets( frame )
			return TemplUtl.facets( frame.args[ 1 ] or "",
			frame.args.decode );
			end -- p.facets

	function p.faculty( frame )		function p.faculty( frame )
	~~return~~ TemplUtl.faculty( frame.args[ 1 ],		local r = TemplUtl.faculty( frame.args[ 1 ],
	frame.args[ 2 ] ) ~~and "1"~~		frame.args[ 2 ] );
	or "";		if r ~= "-" then
			r = r and "1";
			end
			return r or "";
	end -- p.faculty		end -- p.faculty

Zeile 848:		Zeile 880:
	return TemplUtl;		return TemplUtl;
	end -- p.TemplUtl()		end -- p.TemplUtl()

			setmetatable( p, { __call = function ( func, ... )
			setmetatable( p, nil );
			return Failsafe;
			end } );

	return p;		return p;

PerfektesChaos: 2021-01-01

2021-01-24T22:39:46Z

2021-01-01

← Nächstältere Version		Version vom 25. Januar 2021, 00:39 Uhr
Zeile 1:		Zeile 1:
	local TemplUtl = { suite = "TemplUtl",		local TemplUtl = { suite = "TemplUtl",
	serial = "~~2019~~-11-20",		serial = "2021-01-01",
	item = 52364930 };		item = 52364930 };
			--[=[
			Utilities to support template programming.
			]=]
	local Failsafe = TemplUtl;		local Failsafe = TemplUtl;

Zeile 62:		Zeile 65:

	local framing = function ( frame )		local framing = function ( frame )
			-- Ensure availability of frame object
			-- Precondition:
			-- frame -- object; #invoke environment, or false
			-- Postcondition:
			-- Return frame object
	if not TemplUtl.frame then		if not TemplUtl.frame then
	if type( frame ) == "table" then		if type( frame ) == "table" then
Zeile 78:		Zeile 86:
	-- analyze -- string, boolean, number or nil		-- analyze -- string, boolean, number or nil
	-- another -- fallback: string, boolean, or nil		-- another -- fallback: string, boolean, or nil
			-- "-" to test for explicit vocabulary choice
	-- Returns boolean		-- Returns boolean, or "-"
	local s = type( analyze );		local s = type( analyze );
	local r;		local r;
Zeile 86:		Zeile 95:
	r = TemplUtl.faculty( another, nil );		r = TemplUtl.faculty( another, nil );
	elseif r:find( "1", 1, true ) and		elseif r:find( "1", 1, true ) and
	r:match( "^[0%-]1[01%-]$") then		r:match( "^[0%-]1[01%-]$" ) then
	r = true;		r = true;
	elseif r:match( "^[0%-]+$") then		elseif r:match( "^[0%-]+$" ) then
	r = false;		r = false;
	else		else
Zeile 139:		Zeile 148:
	elseif s == "boolean" then		elseif s == "boolean" then
	r = another;		r = another;
			elseif another == "-" then
			r = "-";
	else		else
	r = TemplUtl.faculty( another );		r = TemplUtl.faculty( another );
Zeile 691:		Zeile 702:
	-- Retrieve versioning and check for compliance		-- Retrieve versioning and check for compliance
	-- Precondition:		-- Precondition:
	-- atleast -- string, with required version ~~or "wikidata" or "~"~~		-- atleast -- string, with required version
	-- or false		-- or wikidata\|item\|~\|@ or false
	-- Postcondition:		-- Postcondition:
	-- Returns string -- with queried version, also if problem		-- Returns string -- with queried version/item, also if problem
	-- false -- if appropriate		-- false -- if appropriate
			-- 2020-08-17
⚫	local last = ( ~~atleast~~ == "~" )
	local since = atleast		local since = atleast
		⚫	local last = ( since == "~" )
			local linked = ( since == "@" )
			local link = ( since == "item" )
	local r		local r
	if last or since == "wikidata" then		if last or link or linked or since == "wikidata" then
	local item = Failsafe.item		local item = Failsafe.item
	since = false		since = false
	if type( item ) == "number" and item > 0 then		if type( item ) == "number" and item > 0 then
	local ~~entity~~ = ~~mw.wikibase.getEntity(~~ string.format( "Q%d",		local suited = string.format( "Q%d", item )
			if link then
⚫	~~item ) )~~
	if ~~type(~~ ~~entity~~ ) =~~= "table"~~ ~~then~~		r = suited
			else
	local seek = Failsafe.serialProperty or "P348"
	local ~~vsn~~ = ~~entity:formatPropertyValues~~( ~~seek~~ )		local entity = mw.wikibase.getEntity( suited )
	if type( ~~vsn~~ ) == "table" ~~and~~		if type( entity ) == "table" then
	~~type(~~ ~~vsn.value~~ ) == "~~string~~" ~~and~~		local seek = Failsafe.serialProperty or "P348"
	vsn~~.value~~ ~= "" ~~then~~		local vsn = entity:formatPropertyValues( seek )
	if ~~last~~ ~~and vsn.value~~ == ~~Failsafe.serial~~ ~~then~~		if type( vsn ) == "table" and
	r = ~~false~~		type( vsn.value ) == "string" and
	~~else~~		vsn.value ~= "" then
	r = vsn.value		if last and vsn.value == Failsafe.serial then
			r = false
			elseif linked then
			if mw.title.getCurrentTitle().prefixedText
			== mw.wikibase.getSitelink( suited ) then
		⚫	r = false
			else
			r = suited
			end
			else
			r = vsn.value
			end
	end		end
	end		end

PerfektesChaos: 2019-11-20

2019-11-30T17:52:46Z

2019-11-20

← Nächstältere Version		Version vom 30. November 2019, 19:52 Uhr
Zeile 1:		Zeile 1:
	local TemplUtl = { suite = "TemplUtl",		local TemplUtl = { suite = "TemplUtl",
	serial = "2019-11-12",		serial = "2019-11-20",
	item = 52364930 };		item = 52364930 };
	local Failsafe = TemplUtl;		local Failsafe = TemplUtl;
Zeile 103:		Zeile 103:
	r = false;		r = false;
	else		else
	if not TemplUtl.~~L10N~~ then		if not TemplUtl.boolang then
	~~local~~ ~~lucky;~~		-- TODO: page language
	s = ~~string.format~~( "~~Module:%s~~/~~local~~",		local l, d = pcall( mw.ext.data.get, "i18n/01.tab" );
	~~TemplUtl.suite );~~		if type( d ) == "table" and
	~~lucky,~~ ~~TemplUtl.L10N~~ = ~~pcall~~( mw.~~loadData, s~~ );		type( d.data ) == "table" then
		⚫	local f = function ( at )
		⚫	local e = d.data[ at ];
		⚫	l = e[ 1 ];
		⚫	s = e[ 2 ];
		⚫	if type( l ) == "boolean" and
		⚫	type( s ) == "string" then
			s = mw.text.split( s, "\|" );
		⚫	for i = 1, #s do
		⚫	TemplUtl.boolang[ s[ i ] ] = l;
		⚫	end -- for i
		⚫	end
		⚫	end
		⚫	TemplUtl.boolang = { };
			f( 1 );
			f( 2 );
			else
			TemplUtl.boolang = true;
			end
	end		end
	if type( TemplUtl.~~L10N~~ ) == "table" then		if type( TemplUtl.boolang ) == "table" then
	~~local~~ ~~entry~~;		s = TemplUtl.boolang[ r ];
	if ~~not~~ ~~TemplUtl.lang~~ then		if type( s ) == "boolean" then
	-- ~~TODO:~~ ~~page language~~		r = s;
⚫	~~TemplUtl.lang~~ =
	mw.language.getContentLanguage():getCode();
	end		end
⚫	~~entry~~ = ~~TemplUtl.L10N[~~ TemplUtl.~~lang~~ ];
⚫	if type( ~~entry~~ ) == "~~table~~" then
⚫	s = ~~entry~~[ r ];
⚫	if type( s ) == "boolean" ~~then~~
⚫	r = s;
⚫	~~end~~
⚫	end
⚫	~~else~~
⚫	TemplUtl.~~L10N~~ = ~~true~~;
	end		end
	if type( r ) ~= "boolean" then		if type( r ) ~= "boolean" then
	if type( another ) ~~~= "nil" then~~		s = type( another );
			if s == "nil" then
			r = true;
			elseif s == "boolean" then
			r = another;
			else
	r = TemplUtl.faculty( another );		r = TemplUtl.faculty( another );
⚫	~~else~~
⚫	r = ~~true~~;
	end		end
	end		end
Zeile 696:		Zeile 706:
	item ) )		item ) )
	if type( entity ) == "table" then		if type( entity ) == "table" then
	local ~~vsn~~ = ~~entity:formatPropertyValues(~~ "P348" )		local seek = Failsafe.serialProperty or "P348"
			local vsn = entity:formatPropertyValues( seek )
	if type( vsn ) == "table" and		if type( vsn ) == "table" and
	type( vsn.value ) == "string" and		type( vsn.value ) == "string" and

PerfektesChaos: 2019-11-12

2019-11-18T22:29:07Z

2019-11-12

Änderungen zeigen

Artregor: Änderte den Schutzstatus für „Modul:TemplUtl“ ([Bearbeiten=Nur Sichter] (unbeschränkt) [Verschieben=Nur Administratoren] (unbeschränkt))

2019-06-09T20:26:11Z

Änderte den Schutzstatus für „Modul:TemplUtl“ ([Bearbeiten=Nur Sichter] (unbeschränkt) [Verschieben=Nur Administratoren] (unbeschränkt))

← Nächstältere Version	Version vom 9. Juni 2019, 22:26 Uhr
(kein Unterschied)

PerfektesChaos: 2019-06-09

2019-06-09T17:08:39Z

2019-06-09

@@ Zeile 1: / Zeile 1: @@
 local TemplUtl = { suite  = "TemplUtl",
-                   serial = "2019-06-06" };
+                   serial = "2019-06-09",
@@ Zeile 111: / Zeile 112: @@
-TemplUtl.failsafe = function ( assert )
+TemplUtl.failsafe = function ( atleast )
     local r
-    if not assert  or  assert <= TemplUtl.serial then
+    if since == "wikidata" then
-        r = TemplUtl.serial
+        local item = TemplUtl.item
     end
     return r
@@ Zeile 178: / Zeile 204: @@
             if not mw.title.equals( mw.title.getCurrentTitle(), t )  and
                t.exists then
-                t.getContent();
+                t:getContent();
             end
         end

PerfektesChaos: 2019-06-06

2019-06-09T13:28:18Z

2019-06-06

← Nächstältere Version		Version vom 9. Juni 2019, 15:28 Uhr
Zeile 1:		Zeile 1:
	local TemplUtl = { suite = "TemplUtl",		local TemplUtl = { suite = "TemplUtl",
	serial = "2019-02-20" };		serial = "2019-06-06" };


Zeile 168:		Zeile 168:


	TemplUtl.fake = function ( access~~, frame~~ )		TemplUtl.fake = function ( access )
	-- Simulation of template transclusion		-- Simulation of template transclusion
	-- Precondition:		-- Precondition:
	-- access -- string~~, or nil~~; page name (template)		-- access -- string; page name (template)
	-- frame -- object, or nil
	local s;
	if type( access ) == "string" then		if type( access ) == "string" then
	s = mw.text.trim( access );		local s = mw.text.trim( access );
	if s == "" then		if s ~= "" then
	s = ~~false~~;		local t = mw.title.new( s, 10 );
		⚫	if not mw.title.equals( mw.title.getCurrentTitle(), t ) and
		⚫	t.exists then
		⚫	t.getContent();
		⚫	end
	end		end
	end
	if not s then
	local cnf, lucky;
	s = string.format( "Module:%s/self", TemplUtl.suite );
	lucky, cnf = pcall( mw.loadData, s );
	if type( cnf ) == "table" and
	cnf.loop == true then
⚫	s = mw.title.getCurrentTitle()~~.text;~~
	else
⚫	s = ~~false~~;
⚫	end
	end
	if s then
	local f = function ()
	framing( frame ):expandTemplate{ title = s };
⚫	~~end~~
	pcall( f );
	end		end
	end -- TemplUtl.fake()		end -- TemplUtl.fake()

PerfektesChaos: 2019-02-20

2019-02-20T11:35:51Z

2019-02-20

← Nächstältere Version		Version vom 20. Februar 2019, 13:35 Uhr
Zeile 1:		Zeile 1:
	local TemplUtl = { suite = "TemplUtl",		local TemplUtl = { suite = "TemplUtl",
	serial = "2019-02-19" };		serial = "2019-02-20" };


Zeile 219:		Zeile 219:
	if type( k ) == "number" and		if type( k ) == "number" and
	type( v ) == "string" then		type( v ) == "string" then
	v = mw.text.trim( v );		v = s .. mw.text.trim( v );
	pcall( f, ~~s ..~~ v );		pcall( f, v );
	if answer then		if answer then
	if r then		if r then

PerfektesChaos: 2019-02-19

2019-02-20T11:22:47Z

2019-02-19

← Nächstältere Version		Version vom 20. Februar 2019, 13:22 Uhr
Zeile 1:		Zeile 1:
	local TemplUtl = { suite = "TemplUtl",		local TemplUtl = { suite = "TemplUtl",
	serial = "2019-02-17" };		serial = "2019-02-19" };


Zeile 201:		Zeile 201:


	TemplUtl.fakes = function ( array, frame, ahead )		TemplUtl.fakes = function ( array, frame, ahead, answer )
	-- Simulation of template transclusions		-- Simulation of template transclusions
	-- Precondition:		-- Precondition:
	-- array -- table, with template title strings		-- array -- table, with template title strings
	-- frame -- object, or nil		-- frame -- object, or nil
	-- ahead -- string, or nil, with common prefix		-- ahead -- string, or nil, with common prefix
			-- answer -- true, or nil, for list creation
			-- Postcondition:
			-- Returns string, if answer requested
	local e = framing( frame );		local e = framing( frame );
	local f = function ( a )		local f = function ( a )
Zeile 212:		Zeile 215:
	end		end
	local s = ahead or "";		local s = ahead or "";
		⚫	local r;
	for k, v in pairs( array ) do		for k, v in pairs( array ) do
	if type( k ) == "number" and		if type( k ) == "number" and
	type( v ) == "string" then		type( v ) == "string" then
	v = mw.text.trim( v );		v = mw.text.trim( v );
	pcall( f, s .. v );		pcall( f, s .. v );
			if answer then
			if r then
			r = r .. "\n";
			else
			r = "";
			end
			r = string.format( "%s* [[Template:%s\|%s]]", r, v, v );
			end
	end		end
	end -- for k, v		end -- for k, v
			return r;
	end -- TemplUtl.fakes()		end -- TemplUtl.fakes()

Zeile 662:		Zeile 675:

	function p.fakes( frame )		function p.fakes( frame )
	~~TemplUtl.fakes~~( frame.args, ~~frame,~~ ~~frame.args.prefix~~ );		local list = ( frame.args.list == "1" );
			local r = TemplUtl.fakes( frame.args,
⚫	~~return~~ "";
			frame,
			frame.args.prefix,
			list );
			return r or "";
	end -- p.fakes		end -- p.fakes