From e7134ab3ad7c982a35a8dd992a20e926f8792265 Mon Sep 17 00:00:00 2001
From: Kevin Lyles <kevinlyles@gmail.com>
Date: Wed, 27 Jan 2010 05:55:43 -0600
Subject: [PATCH] Added code to sort item information

---
 sort.lua |   70 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 70 insertions(+)
 create mode 100644 sort.lua

diff --git a/sort.lua b/sort.lua
new file mode 100644
index 0000000..fdc6888
--- /dev/null
+++ b/sort.lua
@@ -0,0 +1,70 @@
+local function mixedSort(e1, e2)
+	if type(e1) == type(e2) then
+		return e1 < e2
+	end
+	return type(e1) < type(e2)
+end
+
+local function output(str)
+	if str then
+		io.write(str)
+	end
+	io.write("\n")
+end
+
+local function quotedString(str)
+	return string.gsub(string.format("%q", str), "\n", "n")
+end
+
+local function varName(name)
+	if type(name) == "number" then
+		return string.format("[%d]", name)
+	elseif type(name) == "string" then
+		if name:find("^%a[%w_]+$") then
+			return name
+		else
+			return string.format("[%s]", quotedString(name))
+		end
+	else
+		return string.format("Unhandled name type: %q", type(name))
+	end
+end
+
+function sort(tbl, name, indent)
+	local indentStr
+	if indent then
+		indentStr = string.rep("\t", indent)
+	else
+		indent = 0
+		indentStr = ""
+	end
+
+	output(string.format("%s%s = {", indentStr, varName(name)))
+
+	local indexTable = {}
+	for index, value in pairs(tbl) do
+		table.insert(indexTable, index)
+	end
+	table.sort(indexTable, mixedSort)
+
+	for _, index in ipairs(indexTable) do
+		local value = tbl[index]
+		if type(value) == "string" then
+			output(string.format("%s\t%s = %s,", indentStr, varName(index), quotedString(value)))
+		elseif type(value) == "number" then
+			value = string.gsub(string.format("%f", value), "%.?0+$", "")
+			output(string.format("%s\t%s = %s,", indentStr, varName(index), value))
+		elseif type(value) == "table" then
+			sort(value, index, indent + 1)
+		elseif type(value) == "boolean" then
+			output(string.format("%s\t%s = %s,", indentStr, varName(index), value and "true" or "false"))
+		else
+			output(string.format("%s\tUnhandled value type: %q", indentStr, type(value)))
+		end
+	end
+	if indent > 0 then
+		output(string.format("%s},", indentStr))
+	else
+		output("}")
+	end
+end
-- 
1.7.9.5