Module:Buffer - Revision history

Mr. Stradivarius: Protected Module:Buffer: High-risk Lua module ([Edit=Allow only template editors and admins] (indefinite) [Move=Allow only template editors and admins] (indefinite))

2015-05-15T16:15:29Z

Protected Module:Buffer: High-risk Lua module ([Edit=Allow only template editors and admins] (indefinite) [Move=Allow only template editors and admins] (indefinite))

← Previous revision	Revision as of 16:15, 15 May 2015
(No difference)

Codehydro: more changes than can fit in this summary; held back update for months to avoid flooding job queue

2015-04-29T21:58:04Z

more changes than can fit in this summary; held back update for months to avoid flooding job queue

Show changes

Codehydro: slight performance improvement

2015-02-18T19:09:35Z

slight performance improvement

← Previous revision		Revision as of 19:09, 18 February 2015
Line 1:		Line 1:
	--[[=============================		--[[=============================
	This Module was written by English wikipedia User:Codehydro		This Module was written by English wikipedia User:Codehydro
	All methods were developed independently and any ~~resemblence~~ to other string buffer libraries would be coincidental.		All methods were developed independently and any resemblance to other string buffer libraries would be coincidental.

	Licensed under Creative Commons Attribution-ShareAlike 3.0 Unported License		Licensed under Creative Commons Attribution-ShareAlike 3.0 Unported License
Line 108:		Line 108:
	_inHTML = function(self, ...)		_inHTML = function(self, ...)
	local HTML, meta = mw.html.create(...), getmetatable(self)		local HTML, meta = mw.html.create(...), getmetatable(self)
	if not buffHTMLmeta then		if not rawget(_G, 'buffHTMLmeta') then
	local mwHTMLmeta = getmetatable(mw.html.create())		local mwHTMLmeta = getmetatable(mw.html.create())
	buffHTMLmeta, mwHTMLfunc = rawset(mw.clone(mwHTMLmeta), mw.html, mwHTMLmeta), mwHTMLmeta.__index		buffHTMLmeta, mwHTMLfunc = rawset(mw.clone(mwHTMLmeta), mw.html, mwHTMLmeta), mwHTMLmeta.__index
Line 147:		Line 147:
	if k=='node' or type(v)~='table' then mwHTMLfunc[k](HTML, v)		if k=='node' or type(v)~='table' then mwHTMLfunc[k](HTML, v)
	else		else
	for x, y in ~~next,~~ v do		for _, y in mbpairs(v) do
			if y and y~=true then mwHTMLfunc[k](HTML, y) end
			end
			for x, y in mbpairs(v, false) do
	if y and y~=true then mwHTMLfunc[k](HTML, x, y) end		if y and y~=true then mwHTMLfunc[k](HTML, x, y) end
	end		end
Line 170:		Line 173:
	buffHTMLmeta.__index[k] = function(t, ...)		buffHTMLmeta.__index[k] = function(t, ...)
	local HTML = func(t, ...)		local HTML = func(t, ...)
	if not HTML[next] then makeNodesBuffer(setmetatable(rawset(HTML, next, t), buffHTMLmeta)) end		if not (HTML.selfClosing or HTML[next]) then makeNodesBuffer(setmetatable(rawset(HTML, next, t), buffHTMLmeta)) end
	return HTML		return HTML
	end		end
Line 221:		Line 224:
	end,		end,
	__pairs = function(t, ...)--pairs always iterates in order		__pairs = function(t, ...)--pairs always iterates in order
	if not ~~map~~ then		if not map_i then
	~~map~~ = ~~setmetatable({},~~ {__mode='k'})		local mk = {__mode='k'}
			map_i, map_n, map_o = setmetatable({}, mk), setmetatable({}, mk), setmetatable({}, mk)--reduces table lookups
⚫	function ~~mBuffIter~~(t, i) i = ~~map~~[t].i[nil==i and 1 or ~~map~~[t].n[i]] return i, t[i] end
	function ~~mBuffOther~~(t, i) i = ~~map~~[t].o[nil==i and 1 or ~~map~~[t].o[i]] return i, t[i] end		function mBuffIter(t, i) i = map_i[t][nil==i and 1 or map_n[t][i]] return i, t[i] end
		⚫	function mBuffOther(t, i) i = map_o[t][nil==i and 1 or map_o[t][i]] return i, t[i] end
	function mBuffMap(t)		function mBuffMap(t)
	local ti, tn, to, n = {}, {}, {}, #t--reduces table lookups		local ti, tn, to, n = {}, {}, {}, #t--reduces table lookups
	~~map~~[t] = {i = ti, ~~n =~~ tn, ~~o =~~ to}		map_i[t], map_n[t], map_o[t] = ti, tn, to
	for k = 1, n do		for k = 1, n do
	table.insert(ti, k)		table.insert(ti, k)
Line 242:		Line 246:
	end		end
	end		end
	~~end~~		if #ti~=n then
	~~if #~~ti~~~=n then~~		table.sort(ti)
		⚫	for k, v in next, ti do tn[v] = k + 1 end
	table.sort(ti)
			end
⚫	for k, v in next, ti do tn[v] = k + 1 end
	end		end
	end		end
	end		end
	~~local n =~~ select('#', ...)		if select('#', ...)==0 or ...==true then mBuffMap(t) end
	if ...==true or n==0 then mBuffMap(t) end
	return ...==nil and mBuffIter or mBuffOther, t		return ...==nil and mBuffIter or mBuffOther, t
	end,		end,
	__ipairs = pairs		__ipairs = pairs
	},{__tostring = function()return'~~Module:Buffer~~'end,		},{__tostring = function()return''end,
	__call = function(self, ...)		__call = function(self, ...)
	if not rawget(_G, 'libFunc') then--adds string and mw libraries; also add global functions if passed; rawget avoids error when reading nil global		if not rawget(_G, 'libFunc') then--adds string and mw libraries; also add global functions if passed; rawget avoids error when reading nil global

Codehydro: slight performance improvement

2015-02-18T00:55:38Z

slight performance improvement

← Previous revision		Revision as of 00:55, 18 February 2015
Line 26:		Line 26:
	__index = {		__index = {
	_ = function(self, v, ...)		_ = function(self, v, ...)
	local at, raw ~~= ...~~		local at, raw
	if select('#', ...)==1 and at==not not at then raw~~, at~~ = ~~at end~~		if select('#', ...)==1 and ...==not not... then raw = ...
			else at, raw = ... end
	if raw then self[rawset] = math.huge else v = getmetatable(self)[type](v) end		if raw then self[rawset] = math.huge else v = getmetatable(self)[type](v) end
	if v or raw then		if v or raw then
	if at then		if at then
	at ~~= math.max(1, (~~tostring(at)==at or at ~~< 1) and~~ #self + at ~~or at)~~		if tostring(at)==at then at = #self + at end
	if at > #self + 1 then self[rawset] = self[rawset] and math.max(at, self[rawset]) or at end		if at < 1 then self[rawset] = math.huge
			elseif at > #self + 1 then self[rawset] = self[rawset] and math.max(at, self[rawset]) or at end
	end		end
	self.last_concat = table.insert(self, select(at and 1 or 2, at, v))		self.last_concat = table.insert(self, select(at and 1 or 2, at, v))
Line 40:		Line 42:
	_nil = function(self, at, v2)		_nil = function(self, at, v2)
	if v2~=true and v2~=false then--faster than type(v2) ~= 'boolean'		if v2~=true and v2~=false then--faster than type(v2) ~= 'boolean'
	self~~[rawset]~~ = ~~math.huge~~		self.last_concat = nil
			if at=='0' or at==nil then
⚫	at ~~= math.max(1, at and (~~tostring(at)==at or at ~~< 1) and~~ #self + at ~~or at or #self)~~
	~~if v2 then~~ self[at] = v2 ~~else table.remove(self, at) end~~		self[#self] = v2
			if v2 then self[rawset] = math.huge end
			else
		⚫	if tostring(at)==at then at = #self + at end
			if v2 or self[rawset] or at < 1 or at > #self + 1 then self[at], self[rawset] = v2, math.huge
			else table.remove(self, at) end
			end
	end		end
	return self		return self
Line 50:		Line 58:
	if valKey then		if valKey then
	for k, v in getmetatable(self).__pairs(t, false) do		for k, v in getmetatable(self).__pairs(t, false) do
	if tonumber(v)~~==v~~ then self:_(k, v) end		if tonumber(v) then self:_(k, v) end
	end		end
	end		end

Codehydro: comments

2015-02-17T17:51:45Z

comments

← Previous revision		Revision as of 17:51, 17 February 2015
Line 248:		Line 248:
	},{__tostring = function()return'Module:Buffer'end,		},{__tostring = function()return'Module:Buffer'end,
	__call = function(self, ...)		__call = function(self, ...)
	if not rawget(_G, 'libFunc') then--adds string and mw libraries; also add global functions if passed		if not rawget(_G, 'libFunc') then--adds string and mw libraries; also add global functions if passed; rawget avoids error when reading nil global
	rawset(_G, 'libFunc', {__call = function(t, self, ...) return t[1](type(self)~='table' and self or self:_str(), ...) end})		rawset(_G, 'libFunc', {__call = function(t, self, ...) return t[1](type(self)~='table' and self or self:_str(), ...) end})
	for _, library in ipairs{mw.text, string, mw.ustring} do		for _, library in ipairs{mw.text, string, mw.ustring} do
Line 274:		Line 274:
	end		end
	end		end
	if new_G and ... and (...)==new_G then--~~rawget~~ ~~circumvents~~ ~~'attempt~~ to ~~read~~ ~~nil~~ ~~global'~~ ~~error~~		if new_G and ... and (...)==new_G then--avoid error when passing _G to buffer a second time
	local new, name = setmetatable({}, self), select(2, ...)		local new, name = setmetatable({}, self), select(2, ...)
	if name and type(name)=='string' then new_G[name] = new end		if name and type(name)=='string' then new_G[name] = new end

Codehydro: bug with nil global

2015-02-17T17:46:00Z

bug with nil global

← Previous revision		Revision as of 17:46, 17 February 2015
Line 1:		Line 1:
			--[[=============================
			This Module was written by English wikipedia User:Codehydro
			All methods were developed independently and any resemblence to other string buffer libraries would be coincidental.

			Licensed under Creative Commons Attribution-ShareAlike 3.0 Unported License
			https://en.wikipedia.org/wiki/Wikipedia:Text_of_Creative_Commons_Attribution-ShareAlike_3.0_Unported_License

			https://en.wikipedia.org/wiki/Module:Buffer
			https://en.wikipedia.org/wiki/User:Codehydro
			=============================--]]
	return setmetatable({[type] = function(v)		return setmetatable({[type] = function(v)
	if v and v~=true then--reject nil/boolean; faster than 2 type() comparisons		if v and v~=true then--reject nil/boolean; faster than 2 type() comparisons
Line 238:		Line 248:
	},{__tostring = function()return'Module:Buffer'end,		},{__tostring = function()return'Module:Buffer'end,
	__call = function(self, ...)		__call = function(self, ...)
	if not libFunc then--adds string and mw libraries; also add global functions if passed		if not rawget(_G, 'libFunc') then--adds string and mw libraries; also add global functions if passed
	~~libFunc~~ = {__call = function(t, self, ...) return t[1](type(self)~='table' and self or self:_str(), ...) end}		rawset(_G, 'libFunc', {__call = function(t, self, ...) return t[1](type(self)~='table' and self or self:_str(), ...) end})
	for _, library in ipairs{mw.text, string, mw.ustring} do		for _, library in ipairs{mw.text, string, mw.ustring} do
	for k, func in pairs(library) do self.__index[library==mw.ustring and k .. '_' or k] = setmetatable({func}, libFunc) end		for k, func in pairs(library) do self.__index[library==mw.ustring and k .. '_' or k] = setmetatable({func}, libFunc) end
	end		end
	~~new_G~~ = ... and type(...)=='table' and (...)._G==... and ...~=_G and (...).mw and (...).mw.log==mw.log and ...		rawset(_G, 'new_G', ... and type(...)=='table' and (...)._G==... and ...~=_G and (...).mw and (...).mw.log==mw.log and ...)
	if new_G then		if new_G then
			rawset(_G, 'gfuncs', {--stored as global for Buffer:_inHTML
	gfuncs = {
	_G = function(self, name, var)		_G = function(self, name, var)
	if rawget(new_G, name) then		if rawget(new_G, name) then
Line 260:		Line 270:
	_R = function(self, name, var) new_G[name] = var return self end,		_R = function(self, name, var) new_G[name] = var return self end,
	_B = function(self, var) return var or var~=false and self end		_B = function(self, var) return var or var~=false and self end
	}		})
	for k, v in pairs(gfuncs) do self.__index[k] = v end		for k, v in pairs(gfuncs) do self.__index[k] = v end
	end		end

Codehydro: many many new features

2015-02-16T22:19:19Z

many many new features

Show changes

Codehydro: move out to meta

2015-01-30T13:46:48Z

move out to meta

@@ Line 21: / Line 21: @@
 			return setmetatable({
 				parent = self,
 				getmetatable(self).check(v)
 			}, getmetatable(self))
 		end
 	},

Codehydro at 03:03, 30 January 2015

2015-01-30T03:03:50Z

← Previous revision		Revision as of 03:03, 30 January 2015
Line 12:		Line 12:
	__index = {		__index = {
	_ = function(self, v)		_ = function(self, v)
	~~table.insert(self,~~ getmetatable(self).check(v))		local valid = getmetatable(self).check(v)
			if valid then
			table.insert(self, valid)
			end
	return self		return self
	end,		end,

Codehydro at 03:02, 30 January 2015

2015-01-30T03:02:17Z

@@ Line 1: / Line 1: @@
 return setmetatable({
 	__index = {
 		_ = function(self, v)
-			table.insert(self, self.check(v))
+			table.insert(self, getmetatable(self).check(v))
 			return self
 		end,
@@ Line 27: / Line 27: @@
 					return parent or child
 				end,
-				self.check(v)
+				getmetatable(self).check(v)
 			}, getmetatable(self))
 		end