# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1552853787 -3600
# Node ID 9d80e679c371b8c1a993ac87211e40f7560031c3
# Parent  aebfd1601ae2da5b6da21a5582253a2e634cbc23
util.serialization: Allow overriding table iterator

Could be useful to eg swap it out with sorted_pairs to get a stable
serialization.

Default to next() wrapper to avoid metatable tricks from pairs().

diff -r aebfd1601ae2 -r 9d80e679c371 util/serialization.lua
--- a/util/serialization.lua	Sun Mar 17 20:40:01 2019 +0100
+++ b/util/serialization.lua	Sun Mar 17 21:16:27 2019 +0100
@@ -33,6 +33,10 @@
 	return (s_gsub(s, ".", char_to_hex));
 end
 
+local function rawpairs(t)
+	return next, t, nil;
+end
+
 local function fatal_error(obj, why)
 	error("Can't serialize "..type(obj) .. (why and ": ".. why or ""));
 end
@@ -122,6 +126,7 @@
 	local freeze = opt.freeze;
 	local maxdepth = opt.maxdepth or 127;
 	local multirefs = opt.multiref;
+	local table_pairs = opt.table_iterator or rawpairs;
 
 	-- serialize one table, recursively
 	-- t - table being serialized
@@ -164,7 +169,7 @@
 		local numkey = 1;
 		local ktyp, vtyp;
 		local had_items = false;
-		for k,v in next,t do
+		for k,v in table_pairs(t) do
 			had_items = true;
 			o[l], l = itemstart, l + 1;
 			o[l], l = indent, l + 1;