Modul:Sort - Versionsgeschichte

PerfektesChaos: 2024-06-14

2024-06-26T09:54:05Z

2024-06-14

← Nächstältere Version		Version vom 26. Juni 2024, 11:54 Uhr
Zeile 1:		Zeile 1:
	local Sort = { suite = "Sort",		local Sort = { suite = "Sort",
	serial = "2024-01-01",		serial = "2024-06-14",
	item = 24205172 }		item = 24205172 }
	--[=[		--[=[
	Sort		Sort
	]=]		]=]


	local Failsafe = Sort		local Failsafe = Sort
	local GlobalMod = Sort		local GlobalMod = Sort
Zeile 342:		Zeile 340:
	-- Returns string -- with queried version/item, also if problem		-- Returns string -- with queried version/item, also if problem
	-- false -- if appropriate		-- false -- if appropriate
	-- ~~2020~~-08-17		-- 2024-03-01
	local since = atleast		local since = atleast
	local last = ( since == "~" )		local last = ( since == "~" )
Zeile 378:		Zeile 376:
	end		end
	end		end
			elseif link then
			r = false
	end		end
	end		end
Zeile 478:		Zeile 478:
	return Failsafe		return Failsafe
	end } )		end } )

	return p		return p

PerfektesChaos: 2024-01-01

2024-02-03T10:12:46Z

2024-01-01

← Nächstältere Version		Version vom 3. Februar 2024, 12:12 Uhr
Zeile 1:		Zeile 1:
	local Sort = { suite = "Sort",		local Sort = { suite = "Sort",
	serial = "~~2019~~-10-29",		serial = "2024-01-01",
	item = 24205172 }		item = 24205172 }
	--[=[		--[=[
	Sort		Sort
	]=]		]=]


	local Failsafe = Sort		local Failsafe = Sort
	local GlobalMod = Sort		local GlobalMod = Sort
Zeile 20:		Zeile 22:
	-- Postcondition:		-- Postcondition:
	-- Returns whatever, probably table		-- Returns whatever, probably table
	-- ~~2019~~-10-29		-- 2020-01-01
	local storage = access		local storage = access
	local finer = function ()		local finer = function ()
Zeile 55:		Zeile 57:
	end		end
	if not lucky and alert then		if not lucky and alert then
	error( "Missing or invalid page: " .. storage~~, 0~~ )		error( "Missing or invalid page: " .. storage )
	end		end
	end		end
Zeile 335:		Zeile 337:
	-- 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
	-- ~~2019~~-10-15		-- 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
Zeile 391:		Zeile 406:
	"latin",		"latin",
	frame.args.v )		frame.args.v )
	return r;		return r
	end -- p.Tlatin		end -- p.Tlatin

Zeile 412:		Zeile 427:
	tonumber( frame.args.z ),		tonumber( frame.args.z ),
	frame.args.m == "1" )		frame.args.m == "1" )
	return r;		return r
	end -- p.Tn		end -- p.Tn



			p.textOrder = function ( frame )
			-- order text
			-- {{{1}}} -- first text
			-- {{{2}}} -- second text
			-- Not empty if {{{1}}} is before {{{2}}}
			local t1 = frame.args[ 1 ] or ""
			local t2 = frame.args[ 2 ] or ""
			local r
			if t1 < t2 then
			r = "1"
			else
			r = ""
			end
			return r
			end -- p.textOrder


Zeile 441:		Zeile 474:
	end -- p.Sort		end -- p.Sort

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

PerfektesChaos: 2019-10-29

2019-10-29T15:15:00Z

2019-10-29

← Nächstältere Version		Version vom 29. Oktober 2019, 17:15 Uhr
Zeile 1:		Zeile 1:
	local Sort = { suite = "Sort",		local Sort = { suite = "Sort",
	serial = "2019-10-27",		serial = "2019-10-29",
	item = 24205172 }		item = 24205172 }
	--[=[		--[=[
Zeile 20:		Zeile 20:
	-- Postcondition:		-- Postcondition:
	-- Returns whatever, probably table		-- Returns whatever, probably table
	-- 2019-10-20		-- 2019-10-29
	local storage = access		local storage = access
	local ~~fun,~~ ~~lucky,~~ r		local finer = function ()
		⚫	if append then
		⚫	storage = string.format( "%s/%s",
			storage,
			append )
		⚫	end
			end
			local fun, lucky, r, suited
	if advanced then		if advanced then
	fun = require		fun = require
Zeile 28:		Zeile 35:
	fun = mw.loadData		fun = mw.loadData
	end		end
		⚫	GlobalMod.globalModules = GlobalMod.globalModules or { }
⚫	if append then
		⚫	suited = GlobalMod.globalModules[ access ]
	storage = string.format( "%s/%s", storage, append )
			if not suited then
			finer()
		⚫	lucky, r = pcall( fun, "Module:" .. storage )
	end		end
⚫	lucky, r = pcall( fun, "Module:" .. storage )
	if not lucky then		if not lucky then
	local suited
⚫	GlobalMod.globalModules = GlobalMod.globalModules or { }
⚫	suited = GlobalMod.globalModules[ access ]
	if not suited and		if not suited and
	type( alt ) == "number" and		type( alt ) == "number" and
Zeile 45:		Zeile 51:
	if type( suited ) == "string" then		if type( suited ) == "string" then
	storage = suited		storage = suited
	~~if append then~~		finer()
⚫	storage = string.format( "%s/%s", ~~storage, append )~~
⚫	end
	lucky, r = pcall( fun, storage )		lucky, r = pcall( fun, storage )
	end		end
Zeile 69:		Zeile 73:
	local r = adjust		local r = adjust
	if adapt or not r:match( "^[ -~]*$" ) then		if adapt or not r:match( "^[ -~]*$" ) then
	local storage = string.format( "Module:%s/", Sort.suite )
	local collate, post, pre		local collate, post, pre
	if apply then		if apply then
Zeile 104:		Zeile 107:
	collate = tmp		collate = tmp
	for i = 1, n do		for i = 1, n do
	~~lucky,~~ tmp = ~~pcall~~( mw.~~loadData~~,		tmp = foreignModule( Sort.suite,
	~~storage~~ ~~.. variants[ i ] )~~		false,
			variants[ i ],
			Sort.item )
	if type( tmp ) == "table" then		if type( tmp ) == "table" then
	var = tmp.single		var = tmp.single
Zeile 135:		Zeile 140:
	end -- for k, v		end -- for k, v
	end		end
	elseif ~~lucky~~ then		elseif type( tmp ) == "string" then
	collate = ~~"Invalid table " .. variants[ i ]~~		collate = tmp
	break -- for i		break -- for i
	else		else
	collate = ~~tmp~~		collate = "Invalid table " .. variants[ i ]
	break -- for i		break -- for i
	end		end
Zeile 160:		Zeile 165:
	s = " "		s = " "
	end		end
	elseif (k >= ~~768~~ and k <= ~~866~~) or		elseif ( k >= 0x0300 and k <= 0x0362 ) or
	(k >= ~~6832~~ and k <= ~~6911~~) or		( k >= 0x1AB0 and k <= 0x1AFF ) or
	(k >= ~~7616~~ and k <= ~~7679~~) or		( k >= 0x1DC0 and k <= 0x1DFF ) or
	(k >= ~~65056~~ and k <= ~~65071~~) then		( k >= 0xFE20 and k <= 0xFE2F ) then
	-- COMBINING ...		-- COMBINING ...
	s = ""		s = ""

PerfektesChaos: 2019-10-27

2019-10-28T14:47:42Z

2019-10-27

Änderungen zeigen

PerfektesChaos: 2018-03-22

2018-03-24T17:47:31Z

2018-03-22

← Nächstältere Version		Version vom 24. März 2018, 19:47 Uhr
Zeile 1:		Zeile 1:
	local Sort = { suite = "Sort",		local Sort = { suite = "Sort",
	serial = "2018-03-16",		serial = "2018-03-22",
	item = 24205172 }		item = 24205172 }
	--[=[		--[=[
Zeile 13:		Zeile 13:
	-- Precondition:		-- Precondition:
	-- adjust -- string to be aligned		-- adjust -- string to be aligned
	-- apply -- string with base		-- apply -- string or table, with base
	-- "latin"		-- "latin"
	-- adapt -- variation, or false		-- adapt -- string or table, with variation, or false
	-- "DIN5007m2" -- DIN 5007 mode "2"		-- "DIN5007m2" -- DIN 5007 mode "2"
	local r = adjust		local r = adjust
	if adapt or not r:match( "^[ -~]*$" ) then		if adapt or not r:match( "^[ -~]*$" ) then
	local storage = "Module:~~Sort~~/"		local storage = string.format( "Module:%s/", Sort.suite )
	local collate, lucky, post, pre		local collate, lucky, post, pre
	if apply then		if apply then
Zeile 26:		Zeile 26:
	collate = "uni"		collate = "uni"
	end		end
	~~lucky,~~ ~~collate = pcall~~( ~~mw.loadData,~~ ~~storage~~ .. ~~collate )~~		if type( collate ) == "string" then
			lucky, collate = pcall( mw.loadData, storage .. collate )
		⚫	end
	if adapt and type( collate ) == "table" then		if adapt and type( collate ) == "table" then
	local variants = type( adapt )		local variants = type( adapt )
Zeile 128:		Zeile 130:
	else		else
	r = "ERROR Sort.lex ** Submodule unavailable " .. collate		r = "ERROR Sort.lex ** Submodule unavailable " .. collate
⚫	end
	if type( post ) == "table" then
	end		end
	end		end

PerfektesChaos: 2018-03-16

2018-03-18T21:39:53Z

2018-03-16

@@ Zeile 1: / Zeile 1: @@
-local Serial = "2016-11-24"
+local Sort = { suite  = "Sort",
 --[=[
 Sort
 ]=]
@@ Zeile 29: / Zeile 28: @@
         lucky, collate = pcall( mw.loadData,  storage .. collate )
         if adapt  and  type( collate ) == "table" then
-            local variants = mw.text.split( adapt, "%s+" )
+            local variants = type( adapt )
-            local n = #variants
+            local n
             if n == 1  and  variants[ 1 ] == "" then
                 n = 0
@@ Zeile 264: / Zeile 271: @@
     return r
 end -- Sort.num()
@@ Zeile 307: / Zeile 351: @@
-function p.failsafe()
+p.failsafe = function ( frame )
 end -- p.failsafe()

PerfektesChaos: 2016-11-24

2016-11-24T12:10:52Z

2016-11-24

← Nächstältere Version		Version vom 24. November 2016, 14:10 Uhr
Zeile 1:		Zeile 1:
			local Serial = "2016-11-24"
	--[=[ 2015-03-30
			--[=[
	Sort		Sort
	]=]		]=]
Zeile 303:		Zeile 304:
	return r;		return r;
	end -- p.Tn		end -- p.Tn



			function p.failsafe()
			return Serial
			end -- p.failsafe()

PerfektesChaos: 2015-03-30

2015-04-12T15:22:38Z

2015-03-30

@@ Zeile 1: / Zeile 1: @@
---[=[ 2015-03-14
+--[=[ 2015-03-30
 Sort
 ]=]
@@ Zeile 18: / Zeile 18: @@
     --                "DIN5007m2"  -- DIN 5007 mode "2"
     local r = adjust
-    if not r:match( "^[ -~]*$" ) then
+    if adapt  or  not r:match( "^[ -~]*$" ) then
-        local lucky
+        local storage = "Module:Sort/"
-        local collate
+        local collate, lucky, post, pre
         if apply then
             collate = apply
@@ Zeile 26: / Zeile 26: @@
             collate = "uni"
         end
-            collate = collate .. adapt
+        if adapt  and  type( collate ) == "table" then
         end
         if type( collate ) == "table" then
             local k, n, s, start
-            local n = mw.ustring.len( r )
+            if type( pre ) == "table" then
             for i = n, 1, -1 do
                 k = mw.ustring.codepoint( r, i, i )
@@ Zeile 41: / Zeile 97: @@
                         s = " "
                     end
-                elseif k >= 768 and  k <= 866 then
+                elseif (k >=   768  and  k <=   866)   or
                     -- COMBINING ...
                     s = ""
@@ Zeile 54: / Zeile 113: @@
                 end
             end    -- for i--
         else
             r = "**ERROR** Sort.lex ** Submodule unavailable " .. collate
         end
     end

PerfektesChaos: 2015-03-14

2015-03-14T19:23:19Z

2015-03-14

← Nächstältere Version		Version vom 14. März 2015, 21:23 Uhr
Zeile 1:		Zeile 1:
	--[=[ ~~2014~~-03-06		--[=[ 2015-03-14
	Sort		Sort
	]=]		]=]
Zeile 41:		Zeile 41:
	s = " "		s = " "
	end		end
			elseif k >= 768 and k <= 866 then
			-- COMBINING ...
			s = ""
	else		else
	s = collate[ k ]		s = collate[ k ]

PerfektesChaos: update

2014-03-06T19:55:36Z

update

← Nächstältere Version		Version vom 6. März 2014, 21:55 Uhr
Zeile 1:		Zeile 1:
	--[=[ ~~2013~~-10-25		--[=[ 2014-03-06
	Sort		Sort
	]=]		]=]
Zeile 206:		Zeile 206:
	-- v -- variant, omitted or "DIN5007m2"		-- v -- variant, omitted or "DIN5007m2"
	local lucky, r = pcall( Sort.lex,		local lucky, r = pcall( Sort.lex,
	frame~~:getParent()~~.args[ 1 ] or ~~"",~~		frame.args[ 1 ] or
			frame:getParent().args[ 1 ] or
			"",
	"latin",		"latin",
	frame.args.v )		frame.args.v )
	return r;		return r;
	end -- p.Tlatin		end -- p.Tlatin



	p.Td = function ( frame )
	-- Template::date
	-- {{{1}}}
	return "not yet ready"
	end -- p.Td


Zeile 231:		Zeile 225:
	-- m -- negative figures by digits; default: by value		-- m -- negative figures by digits; default: by value
	local lucky, r = pcall( Sort.num,		local lucky, r = pcall( Sort.num,
	frame~~:getParent()~~.args[ 1 ] or ~~"",~~		frame.args[ 1 ] or
			frame:getParent().args[ 1 ] or
			"",
	frame.args.d,		frame.args.d,
	frame.args.t,		frame.args.t,