Method write_bjdata_ndarray

Source/external/json.hpp:16533–16640

! @return false if the object is successfully converted to a bjdata ndarray, true if the type or size is invalid */

	@return false if the object is successfully converted to a bjdata ndarray, true if the type or size is invalid
	*/
	bool write_bjdata_ndarray(const typename BasicJsonType::object_t& value, const bool use_count, const bool use_type)
	{
		std::map<string_t, CharType> bjdtype = {{"uint8", 'U'},  {"int8", 'i'},  {"uint16", 'u'}, {"int16", 'I'},
			{"uint32", 'm'}, {"int32", 'l'}, {"uint64", 'M'}, {"int64", 'L'}, {"single", 'd'}, {"double", 'D'}, {"char", 'C'}
		};

		string_t key = "_ArrayType_";
		auto it = bjdtype.find(static_cast<string_t>(value.at(key)));
		if (it == bjdtype.end())
		{
			return true;
		}
		CharType dtype = it->second;

		key = "_ArraySize_";
		std::size_t len = (value.at(key).empty() ? 0 : 1);
		for (const auto& el : value.at(key))
		{
			len *= static_cast<std::size_t>(el.m_value.number_unsigned);
		}

		key = "_ArrayData_";
		if (value.at(key).size() != len)
		{
			return true;
		}

		oa->write_character('[');
		oa->write_character('$');
		oa->write_character(dtype);
		oa->write_character('#');

		key = "_ArraySize_";
		write_ubjson(value.at(key), use_count, use_type, true,  true);

		key = "_ArrayData_";
		if (dtype == 'U' || dtype == 'C')
		{
			for (const auto& el : value.at(key))
			{
				write_number(static_cast<std::uint8_t>(el.m_value.number_unsigned), true);
			}
		}
		else if (dtype == 'i')
		{
			for (const auto& el : value.at(key))
			{
				write_number(static_cast<std::int8_t>(el.m_value.number_integer), true);
			}
		}
		else if (dtype == 'u')
		{
			for (const auto& el : value.at(key))
			{
				write_number(static_cast<std::uint16_t>(el.m_value.number_unsigned), true);
			}
		}
		else if (dtype == 'I')