presence.nvim/lua/deps/msgpack.lua

local table = require("table")
local string = require("string")
local luabit = require("bit")
local tostr = string.char

local double_decode_count = 0
local double_encode_count = 0

-- cache bitops
local band, rshift = luabit.band, luabit.brshift
if not rshift then -- luajit differ from luabit
	rshift = luabit.rshift
end

local function byte_mod(x, v)
	if x < 0 then
		x = x + 256
	end
	return (x % v)
end

-- buffer
local strbuf = "" -- for unpacking
local strary = {} -- for packing

local function strary_append_int16(n, h)
	if n < 0 then
		n = n + 65536
	end
	table.insert(strary, tostr(h, math.floor(n / 256), n % 256))
end

local function strary_append_int32(n, h)
	if n < 0 then
		n = n + 4294967296
	end
	table.insert(
		strary,
		tostr(h, math.floor(n / 16777216), math.floor(n / 65536) % 256, math.floor(n / 256) % 256, n % 256)
	)
end

local doubleto8bytes
local strary_append_double = function(n)
	-- assume double
	double_encode_count = double_encode_count + 1
	local b = doubleto8bytes(n)
	table.insert(strary, tostr(0xcb))
	table.insert(strary, string.reverse(b)) -- reverse: make big endian double precision
end

--- IEEE 754

-- out little endian
doubleto8bytes = function(x)
	local function grab_byte(v)
		return math.floor(v / 256), tostr(math.fmod(math.floor(v), 256))
	end
	local sign = 0
	if x < 0 then
		sign = 1
		x = -x
	end
	local mantissa, exponent = math.frexp(x)
	if x == 0 then -- zero
		mantissa, exponent = 0, 0
	elseif x == 1 / 0 then
		mantissa, exponent = 0, 2047
	else
		mantissa = (mantissa * 2 - 1) * math.ldexp(0.5, 53)
		exponent = exponent + 1022
	end

	local v, byte = "" -- convert to bytes
	x = mantissa
	for _ = 1, 6 do
		_, byte = grab_byte(x)
		v = v .. byte -- 47:0
	end
	x, byte = grab_byte(exponent * 16 + x)
	v = v .. byte -- 55:48
	x, byte = grab_byte(sign * 128 + x)
	v = v .. byte -- 63:56
	return v, x
end

local function bitstofrac(ary)
	local x = 0
	local cur = 0.5
	for _, v in ipairs(ary) do
		x = x + cur * v
		cur = cur / 2
	end
	return x
end

local function bytestobits(ary)
	local out = {}
	for _, v in ipairs(ary) do
		for j = 0, 7, 1 do
			table.insert(out, band(rshift(v, 7 - j), 1))
		end
	end
	return out
end

-- get little endian
local function bytestodouble(v)
	-- sign:1bit
	-- exp: 11bit (2048, bias=1023)
	local sign = math.floor(v:byte(8) / 128)
	local exp = band(v:byte(8), 127) * 16 + rshift(v:byte(7), 4) - 1023 -- bias
	-- frac: 52 bit
	local fracbytes = {
		band(v:byte(7), 15),
		v:byte(6),
		v:byte(5),
		v:byte(4),
		v:byte(3),
		v:byte(2),
		v:byte(1), -- big endian
	}
	local bits = bytestobits(fracbytes)

	for _ = 1, 4 do
		table.remove(bits, 1)
	end

	if sign == 1 then
		sign = -1
	else
		sign = 1
	end

	local frac = bitstofrac(bits)
	if exp == -1023 and frac == 0 then
		return 0
	end
	if exp == 1024 and frac == 0 then
		return 1 / 0 * sign
	end

	local real = math.ldexp(1 + frac, exp)

	return real * sign
end

--- packers

local packers = {}

packers.dynamic = function(data)
	local t = type(data)
	return packers[t](data)
end

packers["nil"] = function()
	table.insert(strary, tostr(0xc0))
end

packers.boolean = function(data)
	if data then -- pack true
		table.insert(strary, tostr(0xc3))
	else -- pack false
		table.insert(strary, tostr(0xc2))
	end
end

packers.number = function(n)
	if math.floor(n) == n then -- integer
		if n >= 0 then -- positive integer
			if n < 128 then -- positive fixnum
				table.insert(strary, tostr(n))
			elseif n < 256 then -- uint8
				table.insert(strary, tostr(0xcc, n))
			elseif n < 65536 then -- uint16
				strary_append_int16(n, 0xcd)
			elseif n < 4294967296 then -- uint32
				strary_append_int32(n, 0xce)
			else -- lua cannot handle uint64, so double
				strary_append_double(n)
			end
		else -- negative integer
			if n >= -32 then -- negative fixnum
				table.insert(strary, tostr(0xe0 + ((n + 256) % 32)))
			elseif n >= -128 then -- int8
				table.insert(strary, tostr(0xd0, byte_mod(n, 0x100)))
			elseif n >= -32768 then -- int16
				strary_append_int16(n, 0xd1)
			elseif n >= -2147483648 then -- int32
				strary_append_int32(n, 0xd2)
			else -- lua cannot handle int64, so double
				strary_append_double(n)
			end
		end
	else -- floating point
		strary_append_double(n)
	end
end

packers.string = function(data)
	local n = #data
	if n < 32 then
		table.insert(strary, tostr(0xa0 + n))
	elseif n < 65536 then
		strary_append_int16(n, 0xda)
	elseif n < 4294967296 then
		strary_append_int32(n, 0xdb)
	else
		error("overflow")
	end
	table.insert(strary, data)
end

packers["function"] = function()
	error("unimplemented:function")
end

packers.userdata = function()
	error("unimplemented:userdata")
end

packers.thread = function()
	error("unimplemented:thread")
end

packers.table = function(data)
	local is_map, ndata, nmax = false, 0, 0
	for k, _ in pairs(data) do
		if type(k) == "number" then
			if k > nmax then
				nmax = k
			end
		else
			is_map = true
		end
		ndata = ndata + 1
	end
	if is_map then -- pack as map
		if ndata < 16 then
			table.insert(strary, tostr(0x80 + ndata))
		elseif ndata < 65536 then
			strary_append_int16(ndata, 0xde)
		elseif ndata < 4294967296 then
			strary_append_int32(ndata, 0xdf)
		else
			error("overflow")
		end
		for k, v in pairs(data) do
			packers[type(k)](k)
			packers[type(v)](v)
		end
	else -- pack as array
		if nmax < 16 then
			table.insert(strary, tostr(0x90 + nmax))
		elseif nmax < 65536 then
			strary_append_int16(nmax, 0xdc)
		elseif nmax < 4294967296 then
			strary_append_int32(nmax, 0xdd)
		else
			error("overflow")
		end
		for i = 1, nmax do
			packers[type(data[i])](data[i])
		end
	end
end

-- types decoding

local types_map = {
	[0xc0] = "nil",
	[0xc2] = "false",
	[0xc3] = "true",
	[0xca] = "float",
	[0xcb] = "double",
	[0xcc] = "uint8",
	[0xcd] = "uint16",
	[0xce] = "uint32",
	[0xcf] = "uint64",
	[0xd0] = "int8",
	[0xd1] = "int16",
	[0xd2] = "int32",
	[0xd3] = "int64",
	[0xda] = "raw16",
	[0xdb] = "raw32",
	[0xdc] = "array16",
	[0xdd] = "array32",
	[0xde] = "map16",
	[0xdf] = "map32",
}

local type_for = function(n)
	if types_map[n] then
		return types_map[n]
	elseif n < 0xc0 then
		if n < 0x80 then
			return "fixnum_posi"
		elseif n < 0x90 then
			return "fixmap"
		elseif n < 0xa0 then
			return "fixarray"
		else
			return "fixraw"
		end
	elseif n > 0xdf then
		return "fixnum_neg"
	else
		return "undefined"
	end
end

local types_len_map = {
	uint16 = 2,
	uint32 = 4,
	uint64 = 8,
	int16 = 2,
	int32 = 4,
	int64 = 8,
	float = 4,
	double = 8,
}

--- unpackers

local unpackers = {}

local unpack_number = function(offset, ntype, nlen)
	local b1, b2, b3, b4, b5, b6, b7, b8
	if nlen >= 2 then
		b1, b2 = string.byte(strbuf, offset + 1, offset + 2)
	end
	if nlen >= 4 then
		b3, b4 = string.byte(strbuf, offset + 3, offset + 4)
	end
	if nlen >= 8 then
		b5, b6, b7, b8 = string.byte(strbuf, offset + 5, offset + 8)
	end

	if ntype == "uint16_t" then
		return b1 * 256 + b2
	elseif ntype == "uint32_t" then
		return b1 * 65536 * 256 + b2 * 65536 + b3 * 256 + b4
	elseif ntype == "int16_t" then
		local n = b1 * 256 + b2
		local nn = (65536 - n) * -1
		if nn == -65536 then
			nn = 0
		end
		return nn
	elseif ntype == "int32_t" then
		local n = b1 * 65536 * 256 + b2 * 65536 + b3 * 256 + b4
		local nn = (4294967296 - n) * -1
		if nn == -4294967296 then
			nn = 0
		end
		return nn
	elseif ntype == "double_t" then
		local s = tostr(b8, b7, b6, b5, b4, b3, b2, b1)
		double_decode_count = double_decode_count + 1
		local n = bytestodouble(s)
		return n
	else
		error("unpack_number: not impl:" .. ntype)
	end
end

local function unpacker_number(offset)
	local obj_type = type_for(string.byte(strbuf, offset + 1, offset + 1))
	local nlen = types_len_map[obj_type]
	local ntype
	if obj_type == "float" then
		error("float is not implemented")
	else
		ntype = obj_type .. "_t"
	end
	return offset + nlen + 1, unpack_number(offset + 1, ntype, nlen)
end

local function unpack_map(offset, n)
	local r = {}
	local k, v
	for _ = 1, n do
		offset, k = unpackers.dynamic(offset)
		assert(offset)
		offset, v = unpackers.dynamic(offset)
		assert(offset)
		r[k] = v
	end
	return offset, r
end

local function unpack_array(offset, n)
	local r = {}
	for i = 1, n do
		offset, r[i] = unpackers.dynamic(offset)
		assert(offset)
	end
	return offset, r
end

function unpackers.dynamic(offset)
	if offset >= #strbuf then
		error("need more data")
	end
	local obj_type = type_for(string.byte(strbuf, offset + 1, offset + 1))
	return unpackers[obj_type](offset)
end

function unpackers.undefined()
	error("unimplemented:undefined")
end

unpackers["nil"] = function(offset)
	return offset + 1, nil
end

unpackers["false"] = function(offset)
	return offset + 1, false
end

unpackers["true"] = function(offset)
	return offset + 1, true
end

unpackers.fixnum_posi = function(offset)
	return offset + 1, string.byte(strbuf, offset + 1, offset + 1)
end

unpackers.uint8 = function(offset)
	return offset + 2, string.byte(strbuf, offset + 2, offset + 2)
end

unpackers.uint16 = unpacker_number
unpackers.uint32 = unpacker_number
unpackers.uint64 = unpacker_number

unpackers.fixnum_neg = function(offset)
	-- alternative to cast below:
	local n = string.byte(strbuf, offset + 1, offset + 1)
	local nn = (256 - n) * -1
	return offset + 1, nn
end

unpackers.int8 = function(offset)
	local i = string.byte(strbuf, offset + 2, offset + 2)
	if i > 127 then
		i = (256 - i) * -1
	end
	return offset + 2, i
end

unpackers.int16 = unpacker_number
unpackers.int32 = unpacker_number
unpackers.int64 = unpacker_number

unpackers.float = unpacker_number
unpackers.double = unpacker_number

unpackers.fixraw = function(offset)
	local n = byte_mod(string.byte(strbuf, offset + 1, offset + 1), 0x1f + 1)
	--  print("unpackers.fixraw: offset:", offset, "#buf:", #buf, "n:",n  )
	local b
	if (#strbuf - 1 - offset) < n then
		error("require more data")
	end

	if n > 0 then
		b = string.sub(strbuf, offset + 1 + 1, offset + 1 + 1 + n - 1)
	else
		b = ""
	end
	return offset + n + 1, b
end

unpackers.raw16 = function(offset)
	local n = unpack_number(offset + 1, "uint16_t", 2)
	if (#strbuf - 1 - 2 - offset) < n then
		error("require more data")
	end
	local b = string.sub(strbuf, offset + 1 + 1 + 2, offset + 1 + 1 + 2 + n - 1)
	return offset + n + 3, b
end

unpackers.raw32 = function(offset)
	local n = unpack_number(offset + 1, "uint32_t", 4)
	if (#strbuf - 1 - 4 - offset) < n then
		error("require more data (possibly bug)")
	end
	local b = string.sub(strbuf, offset + 1 + 1 + 4, offset + 1 + 1 + 4 + n - 1)
	return offset + n + 5, b
end

unpackers.fixarray = function(offset)
	return unpack_array(offset + 1, byte_mod(string.byte(strbuf, offset + 1, offset + 1), 0x0f + 1))
end

unpackers.array16 = function(offset)
	return unpack_array(offset + 3, unpack_number(offset + 1, "uint16_t", 2))
end

unpackers.array32 = function(offset)
	return unpack_array(offset + 5, unpack_number(offset + 1, "uint32_t", 4))
end

unpackers.fixmap = function(offset)
	return unpack_map(offset + 1, byte_mod(string.byte(strbuf, offset + 1, offset + 1), 0x0f + 1))
end

unpackers.map16 = function(offset)
	return unpack_map(offset + 3, unpack_number(offset + 1, "uint16_t", 2))
end

unpackers.map32 = function(offset)
	return unpack_map(offset + 5, unpack_number(offset + 1, "uint32_t", 4))
end

-- Main functions

local ljp_pack = function(data)
	strary = {}
	packers.dynamic(data)
	local s = table.concat(strary, "")
	return s
end

local ljp_unpack = function(s, offset)
	if offset == nil then
		offset = 0
	end
	if type(s) ~= "string" then
		return false, "invalid argument"
	end
	local data
	strbuf = s
	offset, data = unpackers.dynamic(offset)
	return offset, data
end

local function ljp_stat()
	return {
		double_decode_count = double_decode_count,
		double_encode_count = double_encode_count,
	}
end

local msgpack = {
	pack = ljp_pack,
	unpack = ljp_unpack,
	stat = ljp_stat,
}

return msgpack