Module:SimpleHTMLBuilder

Module:SimpleHTMLBuilder has the following documentation.

Simple HTML Builder (SHB) intends to maintain the readability provided by the mw.html interface while reducing the Lua memory usage when building large wikitext tables. It is designed as a near drop-in replacement for mw.html, the HTML library included with the Scribunto Extension.

mw.html	SHB	Differences
mw.html.create( tagName, args )	✔	all tags are closed (</tagName>) args ignored in SHB
mw.html:node( builder )	✔	cannot be called after done() or tostring()
mw.html:wikitext( ... )	✔	only uses first argument in SHB cannot be called after done() or tostring()
mw.html:newline()	✔	cannot be called after done() or tostring()
mw.html:tag( tagName, args )	✔	all tags are closed (</tagName>) args ignored in SHB cannot be called after done() or tostring()
mw.html:attr( name, value ) mw.html:attr( table )	✔ ✔	cannot be called after done() or tostring() passing nil for valueis a no-op instead of an unset operation
mw.html:getAttr( name )	✖
mw.html:addClass( class )	✔	cannot be called after done() or tostring()
mw.html:css( name, value ) mw.html:css( table )	✔ ✔	cannot be called after done() or tostring()
mw.html:cssText( css )	✔	cannot be called after done() or tostring()
mw.html:done()	✔
mw.html:allDone()	✔

Differences to the original mw.html
1. Attributes and tags (and thus nodes) can not be re-edited once closed.
2. Attributes and tags are closed with :done and tostring(). 
   Note: the garbage collector is kinda bugged, possible reason for why mw.html
   is expensive. The collector only collects stuff in specific undefined cases.
   The tag is locked upon using :done for this reason, because after trial and error
   i found out locking it as soon as possible greatly lowered memory consumption,
   even though it otherwise does the same thing as a late tostring().
   However, this is also inconsistent, and leaving it to a late tostring()
   may sometimes do a better job.
   Still, since doing it early seems to have a higher chance, it should be the
   prioritized method.
3. There's no second argument to p.create() and :tag()
4. :wikitext() does not allow multiple arguments (though it can be added,
   but it consumes more memory)
5. There's no :getAttr()

---

local concat	= table.concat
local gsub		= string.gsub
local sub		= string.sub
local nowiki	= mw.text.nowiki

local p = {}
local f = {}

local function return_table(self, index)
	if self[index] == "" then
		self[index] = {count = 0}
	elseif self[index] == nil then
		error("Tag cannot be edited once closed.")
	end
	
	return self[index]
end

function f:node(node)
	self:wikitext(node)

	if node.parents == nil then
		node.parents = {count = 0}
	end
	
	node.parents.count = node.parents.count+1
	node.parents[node.parents.count] = {parent = self, nodePtr = self[11].count}

	return self
end

function f:wikitext(text, text2)
	if text2 ~= nil then
		error("Wikitext does not work with multiple arguments.")
	end
	
	local t = return_table(self, 11)
	
	t.count = t.count + 1
	t[t.count] = text
	
	return self
end

function f:newline()
	return self:wikitext("\n")
end
	
function f:tag(tag, args)
	local node = p.create(tag, args)
	self:node(node)

	return node
end

function attrTable(self, inputTable)
	for i,v in pairs(inputTable) do
		attrFlat(self, i,v)
	end
	
	return self
end

function attrFlat(self, name, value)
	if (value == nil) then
		return self
	end

	if self[1] ~= "<" then
		error("Attempting to create attribute without a tag")
	end

	local t = return_table(self, 9)
	
	t.count = t.count + 1
	t[t.count] = ' '

	t.count = t.count + 1
	t[t.count] = nowiki(name)
	
	t.count = t.count + 1
	t[t.count] = '="'

	t.count = t.count + 1
	t[t.count] = nowiki(value)
	
	t.count = t.count + 1
	t[t.count] = '"'
	
	return self
end

function f:attr(name, value)
	if type(name) == "table" then
		return attrTable(self, name)
	else
		return attrFlat(self, name, value)
	end
end

function f:addClass(value)
	if self[1] ~= "<" then
		error("Attempting to create class without a tag")
	end
	
	local t = return_table(self, 4)
	
	t.count = t.count + 1
	t[t.count] = nowiki(value)
	
	t.count = t.count + 1
	t[t.count] = ' '
	
	return self
end

function f:cssText(value)
	if self[1] ~= "<" then
		error("Attempting to create style without a tag")
	end
	
	local t = return_table(self, 7)
	
	t.count = t.count + 1
	t[t.count] = nowiki(value)
	
	t.count = t.count + 1
	t[t.count] = ';'
	
	return self
end

function f:css(name, value)
	if type(name) == "table" then
		for i,v in pairs(name) do
			self:css(i,v)
		end

		return self
	end

	if self[1] ~= "<" then
		error("Attempting to create style without a tag")
	end
	
	local t = return_table(self, 7)

	t.count = t.count + 1
	t[t.count] = nowiki(name)
	
	t.count = t.count + 1
	t[t.count] = ':'
	
	t.count = t.count + 1
	t[t.count] = nowiki(value)
	
	t.count = t.count + 1
	t[t.count] = ';'
	
	return self
end

function f:done()
	local parent = self.parents and self.parents[self.parents.count].parent or nil
	tostring(self)

	return parent or self
end

function f:allDone()
	local node = self
	
	while node ~= node:done() do
		node = node:done()
	end
	
	return node
end

local meta_main = {
	__index = f,
	__tostring = function(self)
		if self.result then
			return self.result
		end

		if self[4] ~= "" then
			self[3] = ' class="'
			self[4] = concat(self[4])
			self[5] = '"'
		end
		
		if self[7] ~= "" then
			self[6] = ' style="'
			self[7] = concat(self[7])
			self[8] = '"'
		end
		
		if self[9] ~= "" then
			self[9] = concat(self[9])
		end

		if self[11] ~= "" then
			for i = 1, self[11].count do
				if type(self[11][i]) == "table" then
				   self[11][i] = tostring(self[11][i])
				end
			end

			self[11] = concat(self[11])
		end

		self.result = concat(self)
		
		if self.parents ~= nil then
			for i = 1, self.parents.count do
				self.parents[i].parent[11][self.parents[i].nodePtr] = self.result
			end
			
			self.parents = nil
		end

		for i = 1, 11 do
			self[i] = nil
		end

		return self.result
	end,
}

function p.create(tag, args)
	if args ~= nil then
		error("Tag creation does not accept multiple arguments.")
	end

	--struct to give to functions.
	local tag_table

	if tag == nil then
		tag_table = {"", "", "", "", "", "", "", "", "", "", ""}
	else
		-- 3 = class start, 4 = class table, 5 = class end, 6 = css start, 7 = css table, 8 = css end, 9 = attributes table, 11 = text table
		tag_table = {"<", tag, "", "", "", "", "", "", "", ">", "", "</", tag, ">"}
	end

	setmetatable(tag_table, meta_main)

	return tag_table
end

return p