ufo_data/pjson.h
Richard Geldreich 4a6cd91da7 new files
2023-02-03 13:31:18 -05:00

2295 lines
84 KiB
C++

// File: pjson.h - written by Rich Geldreich 2012 - License: Unlicense http://unlicense.org/
#ifndef PURPLE_JSON_H
#define PURPLE_JSON_H
#ifdef WIN32
#pragma once
#endif
#include <string>
#include <vector>
#include <limits>
#include <assert.h>
// ---- Macros
#define PJSON_ASSERT assert
#define PJSON_FORCEINLINE __forceinline
#define PJSON_PARSE_STATS 0
#define PJSON_DEFAULT_MIN_CHUNK_SIZE 4096
#define PJSON_MAX_CHUNK_GROW_SIZE 8*1024*1024
#define PJSON_DEFAULT_MAX_BYTES_TO_PRESERVE_ACROSS_RESETS 16*1024*1024
#define PJSON_MIN(a, b) (((a) < (b)) ? (a) : (b))
#define PJSON_MAX(a, b) (((a) < (b)) ? (b) : (a))
namespace pjson
{
// ---- Types
typedef unsigned char uint8;
typedef unsigned int uint;
typedef signed int int32;
typedef unsigned int uint32;
typedef signed __int64 int64;
typedef unsigned __int64 uint64;
class document;
class value_variant;
struct value_variant_data;
struct key_value_t;
typedef std::vector<char> char_vec_t;
typedef std::string string_t;
// Memory allocation
inline void* pjson_malloc(size_t size) { return malloc(size); }
inline void* pjson_realloc(void* p, size_t size) { return realloc(p, size); }
inline void pjson_free(void* p) { free(p); }
// Misc. Helpers
template<typename T> inline void swap(T& l, T& r) { T temp(l); l = r; r = temp; }
inline bool is_power_of_2(uint32 x) { return x && ((x & (x - 1U)) == 0U); }
inline uint32 next_pow2(uint32 val) { val--; val |= val >> 16; val |= val >> 8; val |= val >> 4; val |= val >> 2; val |= val >> 1; return val + 1; }
inline int pjson_stricmp(const char* p, const char* q) { return _stricmp(p, q); }
// ---- Global Arrays
// This template utilizes the One Definition Rule to create global arrays in a header.
template<typename unused=void>
struct globals_struct
{
static const uint8 s_str_serialize_flags[256];
static const double s_pow10_table[63];
static const uint8 s_parse_flags[256];
};
typedef globals_struct<> globals;
template<typename unused>
const uint8 globals_struct<unused>::s_str_serialize_flags[256] =
{
// 0 1 2 3 4 5 6 7 8 9 A B C D E F
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 0
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, // 1
0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 2
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 1
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 4
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, // 5
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 6
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 7
// 128-255
0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0
};
template<typename unused>
const double globals_struct<unused>::s_pow10_table[63] =
{
1.e-031,1.e-030,1.e-029,1.e-028,1.e-027,1.e-026,1.e-025,1.e-024,1.e-023,1.e-022,1.e-021,1.e-020,1.e-019,1.e-018,1.e-017,1.e-016,
1.e-015,1.e-014,1.e-013,1.e-012,1.e-011,1.e-010,1.e-009,1.e-008,1.e-007,1.e-006,1.e-005,1.e-004,1.e-003,1.e-002,1.e-001,1.e+000,
1.e+001,1.e+002,1.e+003,1.e+004,1.e+005,1.e+006,1.e+007,1.e+008,1.e+009,1.e+010,1.e+011,1.e+012,1.e+013,1.e+014,1.e+015,1.e+016,
1.e+017,1.e+018,1.e+019,1.e+020,1.e+021,1.e+022,1.e+023,1.e+024,1.e+025,1.e+026,1.e+027,1.e+028,1.e+029,1.e+030,1.e+031
};
// bit 0 (1) - set if: \0 cr lf " \
// bit 1 (2) - set if: \0 cr lf
// bit 2 (4) - set if: whitespace
// bit 3 (8) - set if: 0-9
// bit 4 (0x10) - set if: 0-9 e E .
template<typename unused>
const uint8 globals_struct<unused>::s_parse_flags[256] =
{
// 0 1 2 3 4 5 6 7 8 9 A B C D E F
7, 4, 4, 4, 4, 4, 4, 4, 4, 4, 7, 4, 4, 7, 4, 4, // 0
4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, // 1
4, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0x10,0, // 2
0x18,0x18,0x18,0x18,0x18,0x18,0x18,0x18, 0x18,0x18,0, 0, 0, 0, 0, 0, // 3
0, 0, 0, 0, 0, 0x10,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 4
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, // 5
0, 0, 0, 0, 0, 0x10,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 6
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 7
// 128-255
0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0
};
// ---- Pool Allocator
struct pool_allocator
{
inline pool_allocator(uint initial_size = 0, uint min_chunk_size = PJSON_DEFAULT_MIN_CHUNK_SIZE, size_t max_bytes_to_preserve_across_resets = PJSON_DEFAULT_MAX_BYTES_TO_PRESERVE_ACROSS_RESETS) :
m_pActive_chunks(NULL),
m_pFree_chunks(NULL),
m_total_free_bytes(0),
m_initial_size(initial_size),
m_min_chunk_size(min_chunk_size),
m_cur_grow_size(min_chunk_size),
m_max_to_preserve_across_resets(max_bytes_to_preserve_across_resets)
{
if (initial_size)
{
m_pActive_chunks = static_cast<chunk*>(pjson_malloc(sizeof(chunk) + initial_size));
m_pActive_chunks->m_pNext = NULL;
m_pActive_chunks->m_ofs = 0;
m_pActive_chunks->m_size = initial_size;
}
}
inline ~pool_allocator()
{
clear();
}
// Release all active/free chunks
void clear()
{
free_chunk_chain(m_pActive_chunks);
m_pActive_chunks = NULL;
free_chunk_chain(m_pFree_chunks);
m_pFree_chunks = NULL;
m_total_free_bytes = 0;
m_cur_grow_size = m_min_chunk_size;
}
inline size_t get_total_free_bytes() const { return m_total_free_bytes; }
inline uint get_min_chunk_size() const { return m_min_chunk_size; }
inline size_t get_max_bytes_to_preserve_across_resets() const { return m_max_to_preserve_across_resets; }
inline void set_min_chunk_size(uint s) { m_min_chunk_size = m_cur_grow_size = s; }
inline void set_max_bytes_to_preserve_across_resets(size_t s) { m_max_to_preserve_across_resets = s; }
inline uint get_cur_grow_size() const { return m_cur_grow_size; }
inline void* Alloc(size_t size)
{
size = (size + 3) & ~3;
if ((!m_pActive_chunks) || ((m_pActive_chunks->m_size - m_pActive_chunks->m_ofs) < size))
{
chunk* pNew_chunk = m_pFree_chunks;
if ((pNew_chunk) && (pNew_chunk->m_size >= size))
{
PJSON_ASSERT(m_total_free_bytes >= pNew_chunk->m_size);
m_total_free_bytes -= pNew_chunk->m_size;
m_pFree_chunks = pNew_chunk->m_pNext;
PJSON_ASSERT(!pNew_chunk->m_ofs);
}
else
{
size_t alloc_size = PJSON_MAX(size, m_cur_grow_size);
m_cur_grow_size = PJSON_MIN(m_cur_grow_size * 2, PJSON_MAX_CHUNK_GROW_SIZE);
pNew_chunk = static_cast<chunk*>(pjson_malloc(sizeof(chunk) + alloc_size));
pNew_chunk->m_size = alloc_size;
pNew_chunk->m_ofs = 0;
}
pNew_chunk->m_pNext = m_pActive_chunks;
m_pActive_chunks = pNew_chunk;
}
void* pRet = (uint8*)m_pActive_chunks + sizeof(chunk) + m_pActive_chunks->m_ofs;
m_pActive_chunks->m_ofs += size;
PJSON_ASSERT(m_pActive_chunks->m_ofs <= m_pActive_chunks->m_size);
return pRet;
}
inline void* Realloc(void* p, size_t new_size, size_t cur_size)
{
if (!p)
return Alloc(new_size);
new_size = (new_size + 3) & ~3;
cur_size = (cur_size + 3) & ~3;
if (new_size == cur_size)
return p;
uint8* pTop = (uint8*)m_pActive_chunks + sizeof(chunk) + m_pActive_chunks->m_ofs;
if ((static_cast<uint8*>(p) + cur_size) == pTop)
{
if (new_size > cur_size)
{
size_t bytes_needed = new_size - cur_size;
if ((m_pActive_chunks->m_size - m_pActive_chunks->m_ofs) >= bytes_needed)
{
m_pActive_chunks->m_ofs += bytes_needed;
PJSON_ASSERT(m_pActive_chunks->m_ofs <= m_pActive_chunks->m_size);
return p;
}
}
else
{
PJSON_ASSERT(m_pActive_chunks->m_ofs >= (cur_size - new_size));
m_pActive_chunks->m_ofs -= (cur_size - new_size);
return new_size ? p : NULL;
}
}
if (!new_size)
return NULL;
void* pNew_block = Alloc(new_size);
memcpy(pNew_block, p, cur_size);
return pNew_block;
}
// Move all active chunks to the free chunk list, then free any chunks if we're over the preserve limit.
inline void reset()
{
if (!m_pActive_chunks)
return;
chunk* pCur_active_tail = m_pActive_chunks;
size_t total_allocated_bytes = 0;
for ( ; ; )
{
total_allocated_bytes += pCur_active_tail->m_size;
pCur_active_tail->m_ofs = 0;
if (!pCur_active_tail->m_pNext)
break;
pCur_active_tail = pCur_active_tail->m_pNext;
}
pCur_active_tail->m_pNext = m_pFree_chunks;
m_pFree_chunks = m_pActive_chunks;
m_pActive_chunks = NULL;
m_total_free_bytes += total_allocated_bytes;
while (m_total_free_bytes > m_max_to_preserve_across_resets)
{
PJSON_ASSERT(m_pFree_chunks);
chunk* pNext_free = m_pFree_chunks->m_pNext;
PJSON_ASSERT(m_total_free_bytes >= m_pFree_chunks->m_size);
m_total_free_bytes -= m_pFree_chunks->m_size;
pjson_free(m_pFree_chunks);
m_pFree_chunks = pNext_free;
}
m_cur_grow_size = m_min_chunk_size;
}
struct stats_t
{
size_t m_total_allocated;
uint m_num_active_chunks;
size_t m_num_active_bytes_allocated;
size_t m_num_active_bytes_avail;
size_t m_max_active_chunk_size;
uint m_num_free_chunks;
size_t m_num_free_chunk_bytes_avail;
size_t m_max_free_chunk_size;
};
inline void get_stats(stats_t& s) const
{
memset(&s, 0, sizeof(s));
chunk* pChunk = m_pActive_chunks;
while (pChunk)
{
s.m_num_active_chunks++;
s.m_total_allocated += pChunk->m_size;
s.m_num_active_bytes_allocated += pChunk->m_ofs;
s.m_num_active_bytes_avail += (pChunk->m_size - pChunk->m_ofs);
s.m_max_active_chunk_size = PJSON_MAX(s.m_max_active_chunk_size, pChunk->m_size);
pChunk = pChunk->m_pNext;
}
pChunk = m_pFree_chunks;
while (pChunk)
{
s.m_num_free_chunks++;
s.m_total_allocated += pChunk->m_size;
PJSON_ASSERT(!pChunk->m_ofs);
s.m_num_free_chunk_bytes_avail += pChunk->m_size;
s.m_max_free_chunk_size = PJSON_MAX(s.m_max_free_chunk_size, pChunk->m_size);
pChunk = pChunk->m_pNext;
}
PJSON_ASSERT(s.m_num_free_chunk_bytes_avail == m_total_free_bytes);
}
private:
pool_allocator(const pool_allocator&);
pool_allocator& operator= (const pool_allocator&);
struct chunk
{
chunk* m_pNext;
size_t m_size;
size_t m_ofs;
};
chunk* m_pActive_chunks;
chunk* m_pFree_chunks;
size_t m_total_free_bytes;
uint m_initial_size;
uint m_min_chunk_size;
size_t m_max_to_preserve_across_resets;
uint m_cur_grow_size;
inline void free_chunk_chain(chunk* pChunk)
{
while (pChunk)
{
chunk* pNext_chunk = pChunk->m_pNext;
pjson_free(pChunk);
pChunk = pNext_chunk;
}
}
};
// ---- Simple vector (growable array)
template<typename T>
struct simple_vector_default_copy_construction_policy
{
inline static void copy_construct(void *pDst, const T& init, pool_allocator& alloc) { alloc; new (pDst) T(init); }
inline static void assign(void *pDst, const T& src, pool_allocator& alloc) { alloc; *static_cast<T*>(pDst) = src; }
};
template<typename T>
struct simple_vector_allocator_copy_construction_policy
{
inline static void copy_construct(void *pDst, const T& init, pool_allocator& alloc) { alloc; new (pDst) T(init, alloc); }
inline static void assign(void *pDst, const T& src, pool_allocator& alloc) { static_cast<T*>(pDst)->assign(src, alloc); }
};
template <typename T> inline T* construct(T* p) { return new (static_cast<void*>(p)) T; }
template <typename T> inline void construct_array(T* p, uint n) { T* q = p + n; for ( ; p != q; ++p) new (static_cast<void*>(p)) T; }
template<typename T>
struct elemental_vector
{
typedef T value_type;
typedef T& reference;
typedef const T& const_reference;
typedef T* pointer;
typedef const T* const_pointer;
T* m_p;
uint32 m_size;
};
template<typename T, bool UseConstructor, typename ConstructionPolicy = simple_vector_default_copy_construction_policy<T> >
struct simple_vector : elemental_vector<T>
{
typedef elemental_vector<T> base;
inline simple_vector() { construct(); }
inline simple_vector(const simple_vector& other, pool_allocator& alloc) { construct(other, alloc); }
// Manual constructor methods
inline void construct() { base::m_p = NULL; base::m_size = 0; }
inline void construct(uint size, pool_allocator& alloc) { construct(); enlarge(size, alloc, false); }
inline void construct(const T* p, uint size, pool_allocator& alloc)
{
base::m_size = size;
base::m_p = NULL;
if (size)
{
uint num_bytes = sizeof(T) * size;
base::m_p = static_cast<T*>(alloc.Alloc(num_bytes));
if (UseConstructor)
{
T* pDst = base::m_p;
T* pDst_end = pDst + size;
const T* pSrc = p;
while (pDst != pDst_end)
ConstructionPolicy::copy_construct(pDst++, *pSrc++, alloc);
}
else
memcpy(base::m_p, p, num_bytes);
}
}
inline void construct(const simple_vector& other, pool_allocator& alloc)
{
construct(other.m_p, other.m_size, alloc);
}
inline uint size() const { return base::m_size; }
inline uint size_in_bytes() const { return base::m_size * sizeof(T); }
inline const T& operator[] (uint i) const { PJSON_ASSERT(i < base::m_size); return base::m_p[i]; }
inline T& operator[] (uint i) { PJSON_ASSERT(i < base::m_size); return base::m_p[i]; }
inline const T* get_ptr() const { return base::m_p; }
inline T* get_ptr() { return base::m_p; }
inline const T* get_ptr(const T* pDef) const { return base::m_p ? base::m_p : pDef; }
inline T* get_ptr(T* pDef) { return base::m_p ? base::m_p : pDef; }
inline void clear() { base::m_p = NULL; base::m_size = 0; }
inline void resize(uint new_size, pool_allocator& alloc)
{
if (new_size > base::m_size)
{
grow(new_size, alloc);
if (UseConstructor)
construct_array(base::m_p + base::m_size, new_size - base::m_size);
}
base::m_size = new_size;
}
inline void shrink(uint new_size)
{
base::m_size = new_size;
}
inline T* enlarge_no_construct(uint n, pool_allocator& alloc)
{
PJSON_ASSERT(n);
uint cur_size = base::m_size, new_size = base::m_size + n;
grow(new_size, alloc);
base::m_size = new_size;
return base::m_p + cur_size;
}
inline T* enlarge(uint n, pool_allocator& alloc)
{
T* p = enlarge_no_construct(n, alloc);
if (UseConstructor)
construct_array(p, n);
return p;
}
inline void push_back(const T& obj, pool_allocator& alloc)
{
PJSON_ASSERT(!base::m_p || (&obj < base::m_p) || (&obj >= (base::m_p + base::m_size)));
grow(base::m_size + 1, alloc);
if (UseConstructor)
ConstructionPolicy::copy_construct(base::m_p + base::m_size, obj, alloc);
else
memcpy(base::m_p + base::m_size, &obj, sizeof(T));
base::m_size++;
}
inline void push_back(const T* p, uint n, pool_allocator& alloc)
{
PJSON_ASSERT(!base::m_p || ((p + n) <= base::m_p) || (p >= (base::m_p + base::m_size)));
T* pDst = enlarge_no_construct(n, alloc);
if (UseConstructor)
{
T* pDst_end = pDst + n;
const T* pSrc = p;
while (pDst != pDst_end)
ConstructionPolicy::copy_construct(pDst, *pSrc++, alloc);
}
else
memcpy(pDst, p, sizeof(T) * n);
}
inline void assign(const T* p, uint n, pool_allocator& alloc)
{
PJSON_ASSERT(!base::m_p || ((p + n) <= base::m_p) || (p >= (base::m_p + base::m_size)));
const uint num_to_assign = PJSON_MIN(base::m_size, n);
if (num_to_assign)
{
if (UseConstructor)
{
for (uint i = 0; i < num_to_assign; ++i)
ConstructionPolicy::assign(&base::m_p[i], p[i], alloc);
}
else
memcpy(base::m_p, p, sizeof(T) * num_to_assign);
}
if (n > base::m_size)
push_back(p + num_to_assign, n - num_to_assign, alloc);
else
shrink(n);
}
inline void assign(const simple_vector& other, pool_allocator& alloc)
{
assign(other.m_p, other.m_size, alloc);
}
inline void erase(uint start, uint n)
{
PJSON_ASSERT((start + n) <= base::m_size);
if ((!n) || ((start + n) > base::m_size))
return;
const uint num_to_move = base::m_size - (start + n);
T* pDst = base::m_p + start;
memmove(pDst, base::m_p + start + n, num_to_move * sizeof(T));
base::m_size -= n;
}
inline void swap(simple_vector& other)
{
pjson::swap(base::m_p, other.m_p);
pjson::swap(base::m_size, other.m_size);
}
inline void grow(uint new_size, pool_allocator& alloc)
{
if (new_size > base::m_size)
base::m_p = static_cast<T*>(alloc.Realloc(base::m_p, sizeof(T) * new_size, base::m_size * sizeof(T)));
}
};
enum json_value_type_t
{
cJSONValueTypeNull = 0,
cJSONValueTypeBool,
cJSONValueTypeInt,
cJSONValueTypeDouble,
// All types that follow require storage. Do not change the relative order of these types.
cJSONValueTypeString,
cJSONValueTypeArray,
cJSONValueTypeObject,
};
// ---- struct value_variant_data
typedef simple_vector<char, false> string_vec_t;
typedef simple_vector<key_value_t, true, simple_vector_allocator_copy_construction_policy<key_value_t> > key_value_vec_t;
typedef simple_vector<value_variant, true, simple_vector_allocator_copy_construction_policy<value_variant> > value_variant_vec_t;
#pragma pack(push, 4)
struct value_variant_data
{
union json_value_data_t
{
elemental_vector<key_value_vec_t::value_type> m_object;
elemental_vector<value_variant_vec_t::value_type> m_array;
elemental_vector<string_vec_t::value_type> m_string;
int64 m_nVal;
double m_flVal;
};
json_value_data_t m_data;
json_value_type_t m_type;
inline const string_vec_t& get_string() const { return (const string_vec_t&)m_data.m_string; }
inline string_vec_t& get_string() { return (string_vec_t&)m_data.m_string; }
inline const char* get_string_ptr() const { return get_string().get_ptr(""); }
inline const value_variant_vec_t& get_array() const { return (const value_variant_vec_t&)m_data.m_array; }
inline value_variant_vec_t& get_array() { return (value_variant_vec_t&)m_data.m_array; }
inline const key_value_vec_t& get_object() const { return (const key_value_vec_t&)m_data.m_object; }
inline key_value_vec_t& get_object() { return (key_value_vec_t&)m_data.m_object; }
};
// ---- struct key_value_t
struct key_value_t
{
inline key_value_t() { }
inline key_value_t(const key_value_t& other, pool_allocator& alloc);
inline void assign(const key_value_t& src, pool_allocator& alloc);
inline const string_vec_t& get_key() const { return m_key; }
inline string_vec_t& get_key() { return m_key; }
inline const value_variant& get_value() const { return (const value_variant&)m_value_data; }
inline value_variant& get_value() { return (value_variant&)m_value_data; }
string_vec_t m_key;
value_variant_data m_value_data;
};
#pragma pack(pop)
// ---- class char_vector_print_helper
class char_vector_print_helper
{
char_vector_print_helper(const char_vector_print_helper&);
char_vector_print_helper& operator= (const char_vector_print_helper&);
public:
inline char_vector_print_helper(char_vec_t& buf) : m_buf(buf) { }
inline void resize(size_t new_size) { m_buf.resize(new_size); }
inline size_t size() const { return m_buf.size(); }
inline char* get_ptr() const { return &m_buf[0]; }
inline const char_vec_t& get_buf() const { return m_buf; }
inline char_vec_t& get_buf() { return m_buf; }
inline void puts(const char* pStr, size_t l) { m_buf.insert(m_buf.end(), pStr, pStr + l); }
inline void print_tabs(size_t n) { m_buf.insert(m_buf.end(), n, '\t'); }
inline void print_char(char c) { m_buf.push_back(c); }
void print_escaped(const string_vec_t& str)
{
const char* pStr = str.m_p;
uint len = str.m_size; len;
static const char* s_to_hex = "0123456789abcdef";
print_char('\"');
while (*pStr)
{
uint8 c = *pStr++;
if ((c >= ' ') && (c != '\"') && (c != '\\'))
print_char(c);
else
{
print_char('\\');
switch (c)
{
case '\b': print_char('b'); break;
case '\r': print_char('r'); break;
case '\t': print_char('t'); break;
case '\f': print_char('f'); break;
case '\n': print_char('n'); break;
case '\\': print_char('\\'); break;
case '\"': print_char('\"'); break;
default: puts("u00", 3); print_char(s_to_hex[c >> 4]); print_char(s_to_hex[c & 0xF]); break;
}
}
}
print_char('\"');
}
private:
char_vec_t& m_buf;
};
// ---- class char_buf_print_helper
class char_buf_print_helper
{
char_buf_print_helper(const char_buf_print_helper&);
char_buf_print_helper& operator= (const char_buf_print_helper&);
public:
inline char_buf_print_helper(char* pBuf, size_t buf_size) : m_pDst(pBuf), m_pStart(pBuf), m_pEnd(pBuf + buf_size) { }
inline void resize(size_t new_size) { PJSON_ASSERT(new_size <= (size_t)(m_pEnd - m_pStart)); m_pDst = m_pStart + new_size; }
inline size_t size() const { return m_pDst - m_pStart; }
inline char* get_ptr() const { return m_pStart; }
inline void puts(const char* pStr, size_t l) { memcpy(m_pDst, pStr, l = PJSON_MIN(l, (size_t)(m_pEnd - m_pDst))); m_pDst += l; }
inline void print_tabs(size_t n) { n = PJSON_MIN(n, (size_t)(m_pEnd - m_pDst)); memset(m_pDst, '\t', n); m_pDst += n; }
inline void print_char(char c) { if (m_pDst < m_pEnd) *m_pDst++ = c; }
void print_escaped(const string_vec_t& str)
{
static const char* s_to_hex = "0123456789abcdef";
const char* pStr = str.m_p;
char* pDst = m_pDst;
char* pEnd = m_pEnd;
uint len = str.m_size;
// If len!=0, it includes the terminating null, so this expression is conservative.
if (static_cast<size_t>(pEnd - pDst) < (len + 2)) { m_pDst = pEnd; return; }
*pDst++ = '\"';
uint8 c = 0; if (pStr) c = pStr[0];
while (!globals::s_str_serialize_flags[c])
{
pDst[0] = c; c = pStr[1]; if (globals::s_str_serialize_flags[c]) { ++pStr, ++pDst; break; }
pDst[1] = c; c = pStr[2]; if (globals::s_str_serialize_flags[c]) { pStr += 2, pDst += 2; break; }
pDst[2] = c; c = pStr[3]; if (globals::s_str_serialize_flags[c]) { pStr += 3, pDst += 3; break; }
pDst[3] = c; c = pStr[4]; pStr += 4, pDst += 4;
}
while (c)
{
if ((pEnd - pDst) < 7)
{
m_pDst = pEnd;
return;
}
if (!globals::s_str_serialize_flags[c])
*pDst++ = c;
else
{
pDst[0] = '\\';
switch (c)
{
case '\b': pDst[1] = 'b'; break;
case '\r': pDst[1] = 'r'; break;
case '\t': pDst[1] = 't'; break;
case '\f': pDst[1] = 'f'; break;
case '\n': pDst[1] = 'n'; break;
case '\\': pDst[1] = '\\'; break;
case '\"': pDst[1] = '\"'; break;
default: pDst[1] = 'u', pDst[2] = '0', pDst[3] = '0', pDst[4] = s_to_hex[c >> 4], pDst[5] = s_to_hex[c & 0xF]; pDst += 3; break;
}
pDst += 2;
}
c = *pStr++;
}
*pDst++ = '\"';
PJSON_ASSERT(pDst <= pEnd);
m_pDst = pDst;
}
private:
char* m_pDst, *m_pStart, *m_pEnd;
};
// ---- class serialize_helper
template<typename T>
class serialize_helper : public T
{
public:
typedef T base;
template<typename I> inline serialize_helper(I& init) : T(init) { }
template<typename I, typename J> inline serialize_helper(I& init1, J& init2) : T(init1, init2) { }
inline void puts(const char* pStr) { T::puts(pStr, strlen(pStr)); }
inline void puts(const char* pStr, size_t l) { T::puts(pStr, l); }
};
// ---- class value_variant
#pragma pack(push, 4)
class value_variant : public value_variant_data
{
friend document;
friend key_value_t;
value_variant(const value_variant&);
value_variant& operator= (const value_variant&);
public:
inline value_variant() { m_type = cJSONValueTypeNull; m_data.m_nVal = 0; }
inline value_variant(bool val) { m_type = cJSONValueTypeBool; m_data.m_nVal = val; }
inline value_variant(int32 nVal) { m_type = cJSONValueTypeInt; m_data.m_nVal = nVal; }
inline value_variant(uint32 nVal) { m_type = cJSONValueTypeInt; m_data.m_nVal = nVal; }
inline value_variant(int64 nVal) { m_type = cJSONValueTypeInt; m_data.m_nVal = nVal; }
inline value_variant(double flVal) { m_type = cJSONValueTypeDouble; m_data.m_flVal = flVal; }
inline value_variant(const char* pStr, pool_allocator& alloc)
{
m_type = cJSONValueTypeString;
if (!pStr) pStr = "";
get_string().construct(pStr, static_cast<uint>(strlen(pStr)) + 1, alloc);
}
inline value_variant(json_value_type_t type)
{
construct(type);
}
inline value_variant(const value_variant& other, pool_allocator& alloc)
{
construct(other, alloc);
}
inline value_variant &assign(const value_variant& rhs, pool_allocator& alloc)
{
if (this == &rhs)
return *this;
if ((m_type >= cJSONValueTypeString) && (m_type == rhs.m_type))
{
if (is_string())
get_string().assign(rhs.get_string(), alloc);
else if (is_object())
get_object().assign(rhs.get_object(), alloc);
else
get_array().assign(rhs.get_array(), alloc);
}
else
{
construct(rhs, alloc);
}
return *this;
}
inline json_value_type_t get_type() const { return m_type; }
inline bool is_null() const { return m_type == cJSONValueTypeNull; }
inline bool is_valid() const { return m_type != cJSONValueTypeNull; }
inline bool is_bool() const { return m_type == cJSONValueTypeBool; }
inline bool is_int() const { return m_type == cJSONValueTypeInt; }
inline bool is_double() const { return m_type == cJSONValueTypeDouble; }
inline bool is_numeric() const { return (m_type == cJSONValueTypeInt) || (m_type == cJSONValueTypeDouble); }
inline bool is_string() const { return m_type == cJSONValueTypeString; }
inline bool is_object_or_array() const { return m_type >= cJSONValueTypeArray; }
inline bool is_object() const { return m_type == cJSONValueTypeObject; }
inline bool is_array() const { return m_type == cJSONValueTypeArray; }
inline void clear() { set_to_null(); }
inline void assume_ownership(value_variant& src_val) { set_to_null(); swap(src_val); }
inline void release_ownership(value_variant& dst_value) { dst_value.set_to_null(); dst_value.swap(*this); }
inline value_variant& set_to_object() { construct(cJSONValueTypeObject); return *this; }
inline value_variant& set_to_array() { construct(cJSONValueTypeArray); return *this; }
inline value_variant& set_to_node(bool is_object) { construct(is_object ? cJSONValueTypeObject : cJSONValueTypeArray); return *this; }
inline value_variant& set_to_null() { m_data.m_nVal = 0; m_type = cJSONValueTypeNull; return *this; }
inline value_variant& set(bool val) { m_data.m_nVal = val; m_type = cJSONValueTypeBool; return *this; }
inline value_variant& set(int32 nVal) { m_data.m_nVal = nVal; m_type = cJSONValueTypeInt; return *this; }
inline value_variant& set(int64 nVal) { m_data.m_nVal = nVal; m_type = cJSONValueTypeInt; return *this; }
inline value_variant& set(uint32 nVal) { set(static_cast<int64>(nVal)); return *this; }
inline value_variant& set(double flVal) { m_data.m_flVal = flVal; m_type = cJSONValueTypeDouble; return *this; }
inline value_variant& set(const char* pStr, pool_allocator& alloc)
{
if (!pStr) pStr = "";
uint l = static_cast<uint>(strlen(pStr)) + 1;
if (!is_string())
{
m_type = cJSONValueTypeString;
get_string().construct(pStr, l, alloc);
}
else
get_string().assign(pStr, l, alloc);
return *this;
}
inline value_variant& set_assume_ownership(char* pStr, uint len)
{
m_type = cJSONValueTypeString;
string_vec_t& str = get_string();
str.m_p = pStr;
str.m_size = len;
return *this;
}
inline value_variant& set(const value_variant* pVals, uint n, pool_allocator& alloc)
{
if (!is_array())
{
m_type = cJSONValueTypeArray;
get_array().construct(pVals, n, alloc);
}
else
get_array().assign(pVals, n, alloc);
return *this;
}
inline value_variant& set_assume_ownership(value_variant* pVals, uint n)
{
m_type = cJSONValueTypeArray;
value_variant_vec_t& arr = get_array();
arr.m_p = pVals;
arr.m_size = n;
return *this;
}
inline value_variant& set(const key_value_t* pKey_values, uint n, pool_allocator& alloc)
{
if (!is_object())
{
m_type = cJSONValueTypeObject;
get_object().construct(pKey_values, n, alloc);
}
else
get_object().assign(pKey_values, n, alloc);
return *this;
}
inline value_variant& set_assume_ownership(key_value_t* pKey_values, uint n)
{
m_type = cJSONValueTypeObject;
key_value_vec_t& obj = get_object();
obj.m_p = pKey_values;
obj.m_size = n;
return *this;
}
inline value_variant &operator=(bool val) { set(val); return *this; }
inline value_variant &operator=(int32 nVal) { set(nVal); return *this; }
inline value_variant &operator=(uint32 nVal) { set(nVal); return *this; }
inline value_variant &operator=(int64 nVal) { set(nVal); return *this; }
inline value_variant &operator=(double flVal) { set(flVal); return *this; }
inline bool get_bool_value(bool& val, bool def = false) const { if (is_bool()) { val = (m_data.m_nVal != 0); return true; } else return convert_to_bool(val, def); }
inline bool get_numeric_value(int32& val, int32 def = 0) const { if ((is_int()) && (m_data.m_nVal == static_cast<int32>(m_data.m_nVal))) { val = static_cast<int32>(m_data.m_nVal); return true; } else return convert_to_int32(val, def); }
inline bool get_numeric_value(int64& val, int64 def = 0) const { if (is_int()) { val = m_data.m_nVal; return true; } else return convert_to_int64(val, def); }
inline bool get_numeric_value(float& val, float def = 0.0f) const { if (is_double()) { val = static_cast<float>(m_data.m_flVal); return true; } else return convert_to_float(val, def); }
inline bool get_numeric_value(double& val, double def = 0.0f) const { if (is_double()) { val = m_data.m_flVal; return true; } else return convert_to_double(val, def); }
inline bool get_string_value(string_t& val, const char* pDef = "") const { if (is_string()) { val = get_string_ptr(); return true; } else return convert_to_string(val, pDef); }
inline bool as_bool(bool def = false) const { bool result; get_bool_value(result, def); return result; }
inline int as_int32(int32 def = 0) const { int32 result; get_numeric_value(result, def); return result; }
inline int64 as_int64(int64 def = 0) const { int64 result; get_numeric_value(result, def); return result; }
inline float as_float(float def = 0.0f) const { float result; get_numeric_value(result, def); return result; }
inline double as_double(double def = 0.0f) const { double result; get_numeric_value(result, def); return result; }
// Returns value as a string, or the default string if the value cannot be converted.
inline string_t as_string(const char* pDef = "") const { string_t result; get_string_value(result, pDef); return result; }
// Returns pointer to null terminated string or NULL if the value is not a string.
inline const char* as_string_ptr() const { return is_string() ? get_string_ptr() : NULL; }
inline void swap(value_variant& other)
{
pjson::swap(m_type, other.m_type);
get_object().swap(other.get_object());
}
inline uint size() const { PJSON_ASSERT(is_object_or_array()); return is_object_or_array() ? get_array().size() : 0; }
inline const char *get_key_name_at_index(uint index) const { PJSON_ASSERT(is_object()); return get_object()[index].get_key().get_ptr(""); }
inline const value_variant *find_child_array(const char *pName) const
{
int index = find_key(pName);
if ((index >= 0) && (get_object()[index].get_value().is_array()))
return &get_object()[index].get_value();
return NULL;
}
inline const value_variant *find_child_object(const char *pName) const
{
int index = find_key(pName);
if ((index >= 0) && (get_object()[index].get_value().is_object()))
return &get_object()[index].get_value();
return NULL;
}
inline const value_variant *find_value_variant(const char *pName) const
{
int index = find_key(pName);
return (index < 0) ? NULL : &get_object()[index].get_value();
}
inline int find_key(const char *pName) const
{
if (!is_object())
{
PJSON_ASSERT(0);
return -1;
}
const uint n = get_array().size();
const key_value_vec_t &obj = get_object();
for (uint i = 0; i < n; i++)
if (strcmp(pName, obj[i].get_key().get_ptr("")) == 0)
return i;
return -1;
}
inline bool has_key(const char *pName) const
{
return find_key(pName) >= 0;
}
inline bool as_bool(const char *pName, bool def = false) const
{
int index = find_key(pName);
return (index < 0) ? def : get_object()[index].get_value().as_bool(def);
}
inline int as_int32(const char *pName, int32 def = 0) const
{
int index = find_key(pName);
return (index < 0) ? def : get_object()[index].get_value().as_int32(def);
}
inline int64 as_int64(const char *pName, int64 def = 0) const
{
int index = find_key(pName);
return (index < 0) ? def : get_object()[index].get_value().as_int64(def);
}
inline float as_float(const char *pName, float def = 0.0f) const
{
int index = find_key(pName);
return (index < 0) ? def : get_object()[index].get_value().as_float(def);
}
inline double as_double(const char *pName, double def = 0.0f) const
{
int index = find_key(pName);
return (index < 0) ? def : get_object()[index].get_value().as_double(def);
}
inline const char* as_string_ptr(const char *pName, const char *pDef = "") const
{
int index = find_key(pName);
if (index < 0)
return pDef;
const char *p = get_object()[index].get_value().as_string_ptr();
return p ? p : pDef;
}
inline value_variant& get_value_at_index(uint index) { PJSON_ASSERT(is_object_or_array()); return is_object() ? get_object()[index].get_value() : get_array()[index]; }
inline const value_variant& get_value_at_index(uint index) const { PJSON_ASSERT(is_object_or_array()); return is_object() ? get_object()[index].get_value() : get_array()[index]; }
inline value_variant& operator[](uint index) { PJSON_ASSERT(is_object_or_array()); return is_object() ? get_object()[index].get_value() : get_array()[index]; }
inline const value_variant& operator[](uint index) const { PJSON_ASSERT(is_object_or_array()); return is_object() ? get_object()[index].get_value() : get_array()[index]; }
inline json_value_type_t get_value_type_at_index(uint index) const { return get_value_at_index(index).get_type(); }
inline bool is_child_at_index(uint index) const { return get_value_type_at_index(index) >= cJSONValueTypeArray; }
inline bool has_children() const
{
if (is_object())
{
const key_value_vec_t& obj = get_object();
const uint s = obj.size();
for (uint i = 0; i < s; ++i)
if (obj[i].get_value().is_object_or_array())
return true;
}
else if (is_array())
{
const value_variant_vec_t& arr = get_array();
const uint s = arr.size();
for (uint i = 0; i < s; ++i)
if (arr[i].is_object_or_array())
return true;
}
return false;
}
inline void clear_object_or_array()
{
PJSON_ASSERT(is_object_or_array());
if (is_object())
get_object().clear();
else if (is_array())
get_array().clear();
}
inline void resize(uint n, pool_allocator& alloc)
{
PJSON_ASSERT(is_object_or_array());
if (is_object())
get_object().resize(n, alloc);
else if (is_array())
get_array().resize(n, alloc);
}
inline void set_key_name_at_index(uint index, const char *pKey, uint key_len, pool_allocator& alloc)
{
PJSON_ASSERT(is_object());
string_vec_t& str = get_object()[index].get_key();
str.assign(pKey, key_len + 1, alloc);
}
inline void set_key_name_at_index(uint index, const char *pKey, pool_allocator& alloc)
{
set_key_name_at_index(index, pKey, static_cast<uint>(strlen(pKey)) + 1, alloc);
}
inline value_variant& add_key_value(const char* pKey, uint key_len, const value_variant& val, pool_allocator& alloc)
{
PJSON_ASSERT(is_object());
key_value_vec_t& obj = get_object();
key_value_t* pKey_value = obj.enlarge_no_construct(1, alloc);
pKey_value->get_key().construct(pKey, key_len + 1, alloc);
pKey_value->get_value().construct(val, alloc);
return *this;
}
inline value_variant& add_key_value(const char* pKey, const value_variant& val, pool_allocator& alloc)
{
return add_key_value(pKey, static_cast<uint>(strlen(pKey)), val, alloc);
}
inline value_variant& add_value(const value_variant& val, pool_allocator& alloc)
{
PJSON_ASSERT(is_array());
get_array().enlarge_no_construct(1, alloc)->construct(val, alloc);
return *this;
}
bool serialize(char* pBuf, size_t buf_size, size_t* pSize = NULL, bool formatted = true, bool null_terminate = true) const
{
serialize_helper<char_buf_print_helper> helper(pBuf, buf_size);
serialize_internal(helper, formatted, null_terminate, 0);
if (pSize)
*pSize = helper.size();
return (helper.size() < buf_size);
}
bool serialize(char_vec_t& buf, bool formatted = true, bool null_terminate = true) const
{
serialize_helper<char_vector_print_helper> helper(buf);
serialize_internal(helper, formatted, null_terminate, 0);
return true;
}
protected:
// Manual constructor
inline void construct(json_value_type_t type)
{
m_type = type;
memset(&m_data, 0, sizeof(m_data));
}
// Assumes variant has NOT been constructed yet.
inline void construct(const value_variant& other, pool_allocator& alloc)
{
m_type = other.m_type;
m_data.m_nVal = other.m_data.m_nVal;
if (m_type >= cJSONValueTypeString)
{
if (m_type == cJSONValueTypeObject)
get_object().construct(other.get_object(), alloc);
else if (m_type == cJSONValueTypeArray)
get_array().construct(other.get_array(), alloc);
else
get_string().construct(other.get_string(), alloc);
}
}
inline bool convert_to_bool(bool& val, bool def) const
{
switch (m_type)
{
case cJSONValueTypeBool:
case cJSONValueTypeInt:
{
val = (m_data.m_nVal != 0);
return true;
}
case cJSONValueTypeDouble:
{
val = (m_data.m_flVal != 0);
return true;
}
case cJSONValueTypeString:
{
if (!pjson_stricmp(get_string_ptr(), "false"))
{
val = false;
return true;
}
else if (!pjson_stricmp(get_string_ptr(), "true"))
{
val = true;
return true;
}
val = (atof(get_string_ptr()) != 0.0f);
return true;
}
}
val = def;
return false;
}
inline bool convert_to_int32(int32& val, int32 def) const
{
val = def;
int64 val64;
if (!convert_to_int64(val64, def))
return false;
if ((val64 < std::numeric_limits<int32>::min()) || (val64 > std::numeric_limits<int32>::max()))
return false;
val = static_cast<int32>(val64);
return true;
}
inline bool convert_to_int64(int64& val, int64 def) const
{
switch (m_type)
{
case cJSONValueTypeBool:
case cJSONValueTypeInt:
{
val = m_data.m_nVal;
return true;
}
case cJSONValueTypeDouble:
{
val = static_cast<int64>(m_data.m_flVal);
return true;
}
case cJSONValueTypeString:
{
if (!pjson_stricmp(get_string_ptr(), "false"))
{
val = 0;
return true;
}
else if (!pjson_stricmp(get_string_ptr(), "true"))
{
val = 1;
return true;
}
double flVal = floor(atof(get_string_ptr()));
if ((flVal >= std::numeric_limits<int64>::min()) && (flVal <= std::numeric_limits<int64>::max()))
{
val = static_cast<int64>(flVal);
return true;
}
break;
}
}
val = def;
return false;
}
inline bool convert_to_float(float& val, float def) const
{
switch (m_type)
{
case cJSONValueTypeBool:
case cJSONValueTypeInt:
{
val = static_cast<float>(m_data.m_nVal);
return true;
}
case cJSONValueTypeDouble:
{
val = static_cast<float>(m_data.m_flVal);
return true;
}
case cJSONValueTypeString:
{
if (!pjson_stricmp(get_string_ptr(), "false"))
{
val = 0;
return true;
}
else if (!pjson_stricmp(get_string_ptr(), "true"))
{
val = 1;
return true;
}
val = static_cast<float>(atof(get_string_ptr()));
return true;
}
}
val = def;
return false;
}
inline bool convert_to_double(double& val, double def) const
{
switch (m_type)
{
case cJSONValueTypeBool:
case cJSONValueTypeInt:
{
val = static_cast<double>(m_data.m_nVal);
return true;
}
case cJSONValueTypeDouble:
{
val = m_data.m_flVal;
return true;
}
case cJSONValueTypeString:
{
if (!pjson_stricmp(get_string_ptr(), "false"))
{
val = 0;
return true;
}
else if (!pjson_stricmp(get_string_ptr(), "true"))
{
val = 1;
return true;
}
val = atof(get_string_ptr());
return true;
}
}
val = def;
return false;
}
inline bool convert_to_string(char* pBuf, size_t buf_size) const
{
switch (m_type)
{
case cJSONValueTypeNull:
{
pBuf[0] = 'n', pBuf[1] = 'u', pBuf[2] = 'l', pBuf[3] = 'l', pBuf[4] = '\0';
return true;
}
case cJSONValueTypeBool:
{
if (m_data.m_nVal)
pBuf[0] = 't', pBuf[1] = 'r', pBuf[2] = 'u', pBuf[3] = 'e', pBuf[4] = '\0';
else
pBuf[0] = 'f', pBuf[1] = 'a', pBuf[2] = 'l', pBuf[3] = 's', pBuf[4] = 'e', pBuf[5] = '\0';
return true;
}
case cJSONValueTypeInt:
{
char* pDst = pBuf;
int64 n = m_data.m_nVal;
uint64 s = static_cast<uint64>(n >> 63);
*pDst = '-';
pDst -= s;
n = (n ^ s) - s;
char* pLeft = pDst;
do
{
*pDst++ = '0' + (n % 10);
n /= 10;
} while (n);
*pDst = '\0';
do
{
char c = *--pDst;
*pDst = *pLeft;
*pLeft++ = c;
} while (pDst > pLeft);
return true;
}
case cJSONValueTypeDouble:
{
return 0 == _gcvt_s(pBuf, buf_size, m_data.m_flVal, 15);
}
}
return false;
}
inline bool convert_to_string(string_t& val, const char* pDef) const
{
char buf[64];
if (m_type == cJSONValueTypeString)
val = get_string_ptr();
else
{
if (!convert_to_string(buf, sizeof(buf)))
{
val.assign(pDef);
return false;
}
val.assign(buf);
}
return true;
}
inline uint8 get_end_char() const { return (m_type == cJSONValueTypeArray) ? ']' : '}'; }
template<typename serializer>
void serialize_node(serializer& out, bool formatted, uint cur_indent) const
{
char buf[64];
const uint size = get_array().size();
if (!size)
{
static const char* g_empty_object_strs[4] = { "[]", "[ ]", "{}", "{ }" };
out.puts(g_empty_object_strs[is_object() * 2 + formatted], 2 + formatted);
return;
}
if (formatted && is_array() && !has_children())
{
size_t start_of_line_ofs = out.size();
out.puts("[ ", 2);
const uint cMaxLineLen = 100;
for (uint i = 0; i < size; i++)
{
const value_variant& child_val = get_value_at_index(i);
if (child_val.is_string())
out.print_escaped(child_val.get_string());
else
{
child_val.convert_to_string(buf, sizeof(buf));
out.puts(buf);
}
if (i != size - 1)
out.puts(", ", 2);
if (((out.size() - start_of_line_ofs) > cMaxLineLen) && (i != size - 1))
{
out.print_char('\n');
out.print_tabs(cur_indent + 1);
start_of_line_ofs = out.size();
}
}
out.puts(" ]", 2);
return;
}
out.print_char(is_object() ? '{' : '[');
if (formatted)
out.print_char('\n');
cur_indent++;
for (uint i = 0; i < size; i++)
{
const value_variant& child_val = get_value_at_index(i);
if (formatted)
out.print_tabs(cur_indent);
if (is_object())
{
out.print_escaped(get_object()[i].get_key());
if (formatted)
out.puts(" : ", 3);
else
out.print_char(':');
}
json_value_type_t val_type = child_val.get_type();
if (val_type >= cJSONValueTypeArray)
child_val.serialize_node(out, formatted, cur_indent);
else if (val_type == cJSONValueTypeString)
out.print_escaped(child_val.get_string());
else
{
child_val.convert_to_string(buf, sizeof(buf));
out.puts(buf);
}
if (i != size - 1)
out.print_char(',');
if (formatted)
out.print_char('\n');
}
cur_indent--;
if (formatted)
out.print_tabs(cur_indent);
out.print_char(is_object() ? '}' : ']');
}
template<typename serializer>
void serialize_internal(serializer& out, bool formatted, bool null_terminate, uint cur_indent) const
{
if (formatted)
out.print_tabs(cur_indent);
if (is_object_or_array())
{
serialize_node(out, formatted, cur_indent);
if (formatted)
out.print_char('\n');
}
else
{
if (is_string())
out.print_escaped(get_string());
else
{
string_t str;
if (get_string_value(str))
out.puts(str.c_str(), str.length());
}
}
if (null_terminate)
out.print_char('\0');
}
template<typename T> value_variant(T*);
template<typename T> value_variant(const T*);
template<typename T> value_variant& operator= (T*);
template<typename T> value_variant& operator= (const T*);
};
#pragma pack(pop)
inline key_value_t::key_value_t(const key_value_t& other, pool_allocator& alloc) :
m_key(other.get_key(), alloc)
{
get_value().construct(other.get_value(), alloc);
}
inline void key_value_t::assign(const key_value_t& src, pool_allocator& alloc)
{
get_key().assign(src.get_key(), alloc);
get_value().assign(src.get_value(), alloc);
}
// ---- class error_info
class error_info
{
public:
inline error_info() : m_ofs(0), m_pError_message(NULL) { }
inline void set(size_t ofs, const char* pMsg) { m_ofs = ofs; m_pError_message = pMsg; }
size_t m_ofs;
const char* m_pError_message;
};
// ---- class growable_stack
class growable_stack
{
public:
inline growable_stack(uint initial_size) :
m_pBuf(NULL),
m_size(initial_size),
m_ofs(0)
{
if (initial_size)
m_pBuf = static_cast<uint8*>(pjson_malloc(initial_size));
}
inline ~growable_stack()
{
pjson_free(m_pBuf);
}
inline void clear()
{
pjson_free(m_pBuf);
m_pBuf = NULL;
m_size = 0;
m_ofs = 0;
}
inline uint8* get_top_ptr() { return reinterpret_cast<uint8*>(m_pBuf) + m_ofs; }
template<typename T> inline T* get_top_obj() { return reinterpret_cast<T*>(m_pBuf + m_ofs - sizeof(T)); }
inline void reset() { m_ofs = 0; }
inline size_t get_ofs() { return m_ofs; }
template<typename T>
PJSON_FORCEINLINE T* push(uint num)
{
const size_t bytes_needed = sizeof(T) * num;
T* pResult = reinterpret_cast<T*>(m_pBuf + m_ofs);
m_ofs += bytes_needed;
if (m_ofs > m_size)
{
m_ofs -= bytes_needed;
m_size = PJSON_MAX(1, m_size * 2);
while(m_size <= (m_ofs + bytes_needed))
m_size *= 2;
m_pBuf = static_cast<uint8*>(pjson_realloc(m_pBuf, m_size));
pResult = reinterpret_cast<T*>(m_pBuf + m_ofs);
m_ofs += bytes_needed;
}
PJSON_ASSERT(m_ofs <= m_size);
return pResult;
}
template<typename T>
inline T* pop(uint num)
{
size_t bytes_needed = sizeof(T) * num;
PJSON_ASSERT(bytes_needed <= m_ofs);
m_ofs -= bytes_needed;
return reinterpret_cast<T*>(m_pBuf + m_ofs);
}
private:
uint8* m_pBuf;
size_t m_size;
size_t m_ofs;
};
// ---- class document
class document : public value_variant
{
document(const document&);
document& operator= (const document&);
public:
inline document(uint initial_pool_size = 0, uint min_pool_chunk_size = PJSON_DEFAULT_MIN_CHUNK_SIZE, uint initial_stack_size = 0) :
m_allocator(initial_pool_size, min_pool_chunk_size),
m_initial_stack_size(initial_stack_size),
m_stack(initial_stack_size)
{
#if PJSON_PARSE_STATS
m_parse_stats.clear();
#endif
}
inline ~document()
{
}
const pool_allocator& get_allocator() const { return m_allocator; }
pool_allocator& get_allocator() { return m_allocator; }
void clear()
{
set_to_null();
m_allocator.clear();
m_stack.clear();
#if PJSON_PARSE_STATS
m_parse_stats.clear();
#endif
}
bool deserialize_in_place(char* pStr)
{
return deserialize_start((uint8*)pStr);
}
#if PJSON_PARSE_STATS
struct parse_stats_t
{
size_t m_num_string, m_num_string_chars;
size_t m_num_numeric, m_num_numeric_chars;
size_t m_num_whitespace_blocks, m_num_whitespace_chars;
size_t m_num_control;
size_t m_num_comment, m_num_comment_chars;
size_t m_num_value_pop, m_value_pop_bytes;
size_t m_num_bool_chars;
size_t m_num_escape_breaks;
size_t m_num_unicode_escapes;
void clear() { memset(this, 0, sizeof(*this)); }
};
const parse_stats_t& get_parse_stats() const { return m_parse_stats; }
parse_stats_t& get_parse_stats() { return m_parse_stats; }
#endif
const error_info& get_error_info() const { return m_error_info; }
private:
pool_allocator m_allocator;
uint m_initial_stack_size;
growable_stack m_stack;
error_info m_error_info;
const uint8* m_pStart;
const uint8* m_pStr;
inline bool set_error(const uint8* pStr, const char* pMsg)
{
m_pStr = pStr;
m_error_info.set(m_pStr - m_pStart, pMsg);
return false;
}
#if PJSON_PARSE_STATS
parse_stats_t m_parse_stats;
#endif
#if PJSON_PARSE_STATS
#define PJSON_INCREMENT_STAT(x) do { ++m_parse_stats.x; } while(0)
#define PJSON_UPDATE_STAT(x, n) do { m_parse_stats.x += n; } while(0)
#else
#define PJSON_INCREMENT_STAT(x) do { } while(0)
#define PJSON_UPDATE_STAT(x, n) do { } while(0)
#endif
#define PJSON_SKIP_WHITESPACE \
while (globals::s_parse_flags[*pStr] & 4) \
{ \
PJSON_INCREMENT_STAT(m_num_whitespace_blocks); \
do { \
if (!(globals::s_parse_flags[pStr[1]] & 4)) { ++pStr; PJSON_INCREMENT_STAT(m_num_whitespace_chars); break; } \
if (!(globals::s_parse_flags[pStr[2]] & 4)) { pStr += 2; PJSON_UPDATE_STAT(m_num_whitespace_chars, 2); break; } \
if (!(globals::s_parse_flags[pStr[3]] & 4)) { pStr += 3; PJSON_UPDATE_STAT(m_num_whitespace_chars, 3); break; } \
pStr += 4; PJSON_UPDATE_STAT(m_num_whitespace_chars, 4); \
} while (globals::s_parse_flags[*pStr] & 4); \
if ((*pStr != '/') || (pStr[1] != '/')) break; \
pStr += 2; PJSON_INCREMENT_STAT(m_num_comment); PJSON_UPDATE_STAT(m_num_comment_chars, 2); \
while ((*pStr) && (*pStr != '\n') && (*pStr != '\r')) { PJSON_INCREMENT_STAT(m_num_comment_chars); ++pStr; } \
}
inline const uint8* skip_whitespace(const uint8* p)
{
uint8 c;
while ((c = *p) != '\0')
{
if ((c == ' ') || (c == '\t'))
{
do
{
PJSON_INCREMENT_STAT(m_num_whitespace_chars);
} while (*++p == c);
continue;
}
if ((c == '/') && (p[1] == '/'))
{
p += 2; PJSON_INCREMENT_STAT(m_num_comment); PJSON_UPDATE_STAT(m_num_comment_chars, 2);
while ((*p) && (*p != '\n') && (*p != '\r'))
{
PJSON_UPDATE_STAT(m_num_comment_chars, 2);
++p;
}
continue;
}
else if (c > ' ')
break;
PJSON_INCREMENT_STAT(m_num_whitespace_chars);
++p;
}
return p;
}
bool deserialize_internal()
{
static const uint8 g_utf8_first_byte[7] = { 0x00, 0x00, 0xC0, 0xE0, 0xF0, 0xF8, 0xFC };
m_stack.reset();
memcpy(m_stack.push<value_variant>(1), static_cast<value_variant*>(this), sizeof(value_variant));
const uint8* pStr = ++m_pStr;
PJSON_UPDATE_STAT(m_num_control, 1);
bool cur_is_object = is_object();
uint8 cur_end_char = get_end_char();
uint cur_num_elements = 0;
for ( ; ; )
{
PJSON_SKIP_WHITESPACE;
uint8 c = *pStr;
if (c == ',')
{
if (!cur_num_elements)
return set_error(pStr, "Unexpected comma");
++pStr;
PJSON_UPDATE_STAT(m_num_control, 1);
PJSON_SKIP_WHITESPACE;
c = *pStr;
}
else if ((cur_num_elements) && (c != cur_end_char))
return set_error(pStr, "Expected comma or object/array end character");
while (c == cur_end_char)
{
PJSON_UPDATE_STAT(m_num_control, 1);
++pStr;
for ( ; ; )
{
uint n = cur_num_elements, num_bytes = cur_num_elements * (cur_is_object ? sizeof(key_value_t) : sizeof(value_variant));
void* pSrc = m_stack.pop<uint8>(num_bytes);
PJSON_INCREMENT_STAT(m_num_value_pop);
PJSON_UPDATE_STAT(m_value_pop_bytes, num_bytes);
// The top of the stack (after popping the current array/object) could contain either a value_variant (if cur_is_object is set),
// or a key_value_t, which ends in a value_variant. So all we need to do is look at the very end, which always has a value_variant.
value_variant* pCur_variant = m_stack.get_top_obj<value_variant>();
value_variant_vec_t& arr = pCur_variant->get_array();
cur_is_object = (arr.m_p != NULL);
cur_end_char = cur_is_object ? '}' : ']';
cur_num_elements = arr.m_size;
arr.m_size = n;
arr.m_p = NULL;
if (num_bytes)
memcpy(arr.m_p = static_cast<value_variant*>(m_allocator.Alloc(num_bytes)), pSrc, num_bytes);
if (m_stack.get_ofs() <= sizeof(value_variant))
{
PJSON_ASSERT(m_stack.get_ofs() == sizeof(value_variant));
memcpy(static_cast<value_variant*>(this), m_stack.pop<value_variant>(1), sizeof(value_variant));
m_pStr = pStr;
return true;
}
PJSON_SKIP_WHITESPACE;
if (*pStr == ',')
{
PJSON_UPDATE_STAT(m_num_control, 1);
++pStr;
PJSON_SKIP_WHITESPACE;
c = *pStr;
break;
}
if (*pStr++ != cur_end_char)
return set_error(pStr, "Unexpected character within object or array");
PJSON_UPDATE_STAT(m_num_control, 1);
}
}
++cur_num_elements;
value_variant* pChild_variant;
if (!cur_is_object)
pChild_variant = m_stack.push<value_variant>(1);
else
{
if (c != '\"')
return set_error(pStr, "Expected quoted key string");
++pStr; PJSON_INCREMENT_STAT(m_num_string); PJSON_INCREMENT_STAT(m_num_string_chars);
uint8* pBuf = (uint8*)pStr;
c = *pStr++; PJSON_INCREMENT_STAT(m_num_string_chars);
if (!(globals::s_parse_flags[c] & 1))
{
do
{
c = pStr[0]; if (globals::s_parse_flags[c] & 1) { ++pStr; PJSON_UPDATE_STAT(m_num_string_chars, 1); break; }
c = pStr[1]; if (globals::s_parse_flags[c] & 1) { pStr += 2; PJSON_UPDATE_STAT(m_num_string_chars, 2); break; }
c = pStr[2]; if (globals::s_parse_flags[c] & 1) { pStr += 3; PJSON_UPDATE_STAT(m_num_string_chars, 3); break; }
c = pStr[3];
pStr += 4; PJSON_UPDATE_STAT(m_num_string_chars, 4);
} while (!(globals::s_parse_flags[c] & 1));
}
uint8* pDst = (uint8*)pStr - 1;
if (c != '\"') PJSON_INCREMENT_STAT(m_num_escape_breaks);
while (c != '\"')
{
if (globals::s_parse_flags[c] & 2)
return set_error(pStr, "Missing end quote");
c = *pStr++; PJSON_INCREMENT_STAT(m_num_string_chars);
if (c == 'u')
{
PJSON_INCREMENT_STAT(m_num_unicode_escapes);
uint u = 0;
for (uint i = 0; i < 4; i++)
{
u <<= 4;
int cc = *pStr++; PJSON_INCREMENT_STAT(m_num_string_chars);
if ((cc >= 'A') && (cc <= 'F'))
u += cc - 'A' + 10;
else if ((cc >= 'a') && (cc <= 'f'))
u += cc - 'a' + 10;
else if ((cc >= '0') && (cc <= '9'))
u += cc - '0';
else
return set_error(pStr, "Invalid Unicode escape");
}
uint len = 3; if ((u) && (u < 0x80)) len = 1; else if (u < 0x800) len = 2;
pDst += len;
uint8* q = pDst;
switch (len)
{
case 3: *--q = static_cast<uint8>((u | 0x80) & 0xBF); u >>= 6; // falls through
case 2: *--q = static_cast<uint8>((u | 0x80) & 0xBF); u >>= 6; // falls through
case 1: *--q = static_cast<uint8>(u | g_utf8_first_byte[len]);
}
}
else
{
switch (c)
{
case 'b': c = '\b'; break;
case 'f': c = '\f'; break;
case 'n': c = '\n'; break;
case 'r': c = '\r'; break;
case 't': c = '\t'; break;
case '\\': case '\"': case '/': break;
case '\0': return set_error(pStr, "Incomplete string escape");
default: { *pDst++ = '\\'; break; } // unrecognized escape, so forcefully escape the backslash (not standard)
}
*pDst++ = c;
}
c = *pStr++; PJSON_INCREMENT_STAT(m_num_string_chars);
while (!(globals::s_parse_flags[c] & 1))
{
pDst[0] = c;
c = pStr[0]; if (globals::s_parse_flags[c] & 1) { ++pDst; ++pStr; PJSON_INCREMENT_STAT(m_num_string_chars); break; }
pDst[1] = c;
c = pStr[1]; if (globals::s_parse_flags[c] & 1) { pDst += 2; pStr += 2; PJSON_UPDATE_STAT(m_num_string_chars, 2); break; }
pDst[2] = c;
c = pStr[2]; if (globals::s_parse_flags[c] & 1) { pDst += 3; pStr += 3; PJSON_UPDATE_STAT(m_num_string_chars, 3); break; }
pDst[3] = c;
pDst += 4;
c = pStr[3];
pStr += 4; PJSON_UPDATE_STAT(m_num_string_chars, 4);
}
}
*pDst++ = '\0';
key_value_t* pKey_value = m_stack.push<key_value_t>(1);
pChild_variant = &pKey_value->get_value();
pKey_value->get_key().m_p = (char*)pBuf;
pKey_value->get_key().m_size = static_cast<uint>(pDst - pBuf);
PJSON_SKIP_WHITESPACE;
if (*pStr != ':')
return set_error(pStr, "Missing colon after key");
++pStr; PJSON_INCREMENT_STAT(m_num_control);
PJSON_SKIP_WHITESPACE;
c = *pStr;
}
switch (c)
{
case '{':
case '[':
{
++pStr; PJSON_INCREMENT_STAT(m_num_control);
pChild_variant->m_type = (c == '{') ? cJSONValueTypeObject : cJSONValueTypeArray;
pChild_variant->m_data.m_object.m_size = cur_num_elements;
pChild_variant->m_data.m_object.m_p = (key_value_t*)cur_is_object;
cur_is_object = (c == '{');
cur_num_elements = 0;
cur_end_char = c + 2;
break;
}
case '\"':
{
++pStr; PJSON_INCREMENT_STAT(m_num_string); PJSON_INCREMENT_STAT(m_num_string_chars);
uint8* pBuf = (uint8*)pStr;
c = *pStr++; PJSON_INCREMENT_STAT(m_num_string_chars);
if (!(globals::s_parse_flags[c] & 1))
{
do
{
c = pStr[0]; if (globals::s_parse_flags[c] & 1) { ++pStr; PJSON_INCREMENT_STAT(m_num_string_chars); break; }
c = pStr[1]; if (globals::s_parse_flags[c] & 1) { pStr += 2; PJSON_UPDATE_STAT(m_num_string_chars, 2); break; }
c = pStr[2]; if (globals::s_parse_flags[c] & 1) { pStr += 3; PJSON_UPDATE_STAT(m_num_string_chars, 3); break; }
c = pStr[3];
pStr += 4; PJSON_UPDATE_STAT(m_num_string_chars, 4);
} while (!(globals::s_parse_flags[c] & 1));
}
uint8* pDst = (uint8*)pStr - 1;
if (c != '\"') PJSON_INCREMENT_STAT(m_num_escape_breaks);
while (c != '\"')
{
if (globals::s_parse_flags[c] & 2)
return set_error(pStr, "Missing end quote");
c = *pStr++; PJSON_INCREMENT_STAT(m_num_string_chars);
if (c == 'u')
{
PJSON_INCREMENT_STAT(m_num_unicode_escapes);
uint u = 0;
for (uint i = 0; i < 4; i++)
{
u <<= 4;
int cc = *pStr++; PJSON_INCREMENT_STAT(m_num_string_chars);
if ((cc >= 'A') && (cc <= 'F'))
u += cc - 'A' + 10;
else if ((cc >= 'a') && (cc <= 'f'))
u += cc - 'a' + 10;
else if ((cc >= '0') && (cc <= '9'))
u += cc - '0';
else
return set_error(pStr, "Invalid Unicode escape");
}
uint len = 3; if ((u) && (u < 0x80)) len = 1; else if (u < 0x800) len = 2;
pDst += len;
uint8* q = pDst;
switch (len)
{
case 3: *--q = static_cast<uint8>((u | 0x80) & 0xBF); u >>= 6; // falls through
case 2: *--q = static_cast<uint8>((u | 0x80) & 0xBF); u >>= 6; // falls through
case 1: *--q = static_cast<uint8>(u | g_utf8_first_byte[len]);
}
}
else
{
switch (c)
{
case 'b': c = '\b'; break;
case 'f': c = '\f'; break;
case 'n': c = '\n'; break;
case 'r': c = '\r'; break;
case 't': c = '\t'; break;
case '\\': case '\"': case '/': break;
case '\0': return set_error(pStr, "Incomplete string escape");
default: { *pDst++ = '\\'; break; } // unrecognized escape, so forcefully escape the backslash (not standard)
}
*pDst++ = c;
}
c = *pStr++; PJSON_INCREMENT_STAT(m_num_string_chars);
while (!(globals::s_parse_flags[c] & 1))
{
pDst[0] = c;
c = pStr[0]; if (globals::s_parse_flags[c] & 1) { ++pDst; ++pStr; PJSON_INCREMENT_STAT(m_num_string_chars); break; }
pDst[1] = c;
c = pStr[1]; if (globals::s_parse_flags[c] & 1) { pDst += 2; pStr += 2; PJSON_UPDATE_STAT(m_num_string_chars, 2); break; }
pDst[2] = c;
c = pStr[2]; if (globals::s_parse_flags[c] & 1) { pDst += 3; pStr += 3; PJSON_UPDATE_STAT(m_num_string_chars, 3); break; }
pDst[3] = c;
pDst += 4;
c = pStr[3];
pStr += 4; PJSON_UPDATE_STAT(m_num_string_chars, 4);
}
}
*pDst++ = '\0';
pChild_variant->m_type = cJSONValueTypeString;
string_vec_t& str = pChild_variant->get_string();
str.m_p = (char*)pBuf;
str.m_size = static_cast<uint>(pDst - pBuf);
break;
}
case 'n':
{
if ((pStr[1] == 'u') && (pStr[2] == 'l') && (pStr[3] == 'l'))
{
pStr += 4; PJSON_UPDATE_STAT(m_num_bool_chars, 4);
pChild_variant->construct(cJSONValueTypeNull);
}
else
return set_error(pStr, "Unrecognized character");
break;
}
case 't':
{
if ((pStr[1] == 'r') && (pStr[2] == 'u') && (pStr[3] == 'e'))
{
pStr += 4; PJSON_UPDATE_STAT(m_num_bool_chars, 4);
pChild_variant->construct(cJSONValueTypeBool);
pChild_variant->m_data.m_nVal = 1;
}
else
return set_error(pStr, "Unrecognized character");
break;
}
case 'f':
{
if ((pStr[1] == 'a') && (pStr[2] == 'l') && (pStr[3] == 's') && (pStr[4] == 'e'))
{
pStr += 5; PJSON_UPDATE_STAT(m_num_bool_chars, 5);
pChild_variant->construct(cJSONValueTypeBool);
}
else
return set_error(pStr, "Unrecognized character");
break;
}
case '0': case '1': case '2': case '3': case '4': case '5':
case '6': case '7': case '8': case '9': case '-': case '.':
{
PJSON_INCREMENT_STAT(m_num_numeric);
if (c == '-') PJSON_INCREMENT_STAT(m_num_numeric_chars);
uint32 n32 = 0;
int is_neg = (c == '-');
c = *(pStr += is_neg);
if (globals::s_parse_flags[c] & 8)
{
n32 = c - '0'; c = *++pStr; PJSON_UPDATE_STAT(m_num_numeric_chars, 1);
if (globals::s_parse_flags[c] & 8)
{
n32 = (n32 * 10U) + (c - '0'); c = *++pStr; PJSON_UPDATE_STAT(m_num_numeric_chars, 1);
if (globals::s_parse_flags[c] & 8)
{
n32 = (n32 * 10U) + (c - '0'); c = *++pStr; PJSON_UPDATE_STAT(m_num_numeric_chars, 1);
if (globals::s_parse_flags[c] & 8)
{
n32 = (n32 * 10U) + (c - '0'); c = *++pStr; PJSON_UPDATE_STAT(m_num_numeric_chars, 1);
if (globals::s_parse_flags[c] & 8)
{
n32 = (n32 * 10U) + (c - '0'); c = *++pStr; PJSON_UPDATE_STAT(m_num_numeric_chars, 1);
if (globals::s_parse_flags[c] & 8)
{
n32 = (n32 * 10U) + (c - '0'); c = *++pStr; PJSON_UPDATE_STAT(m_num_numeric_chars, 1);
if (globals::s_parse_flags[c] & 8)
{
n32 = (n32 * 10U) + (c - '0'); c = *++pStr; PJSON_UPDATE_STAT(m_num_numeric_chars, 1);
if (globals::s_parse_flags[c] & 8)
{
n32 = (n32 * 10U) + (c - '0'); c = *++pStr; PJSON_UPDATE_STAT(m_num_numeric_chars, 1);
}
}
}
}
}
}
}
}
if (!(globals::s_parse_flags[c] & 0x10))
{
pChild_variant->m_type = cJSONValueTypeInt;
pChild_variant->m_data.m_nVal = is_neg + (static_cast<int32>(n32) ^ (-is_neg));
}
else
{
uint64 n64 = n32;
while (globals::s_parse_flags[c] & 8)
{
n64 = n64 * 10U + (c - '0'); PJSON_INCREMENT_STAT(m_num_numeric_chars); c = *++pStr;
if ((!(globals::s_parse_flags[c] & 8)) || (n64 > 0xCCCCCCCCCCCCCCBULL))
break;
n64 = n64 * 10U + (c - '0'); PJSON_INCREMENT_STAT(m_num_numeric_chars); c = *++pStr;
if (n64 > 0xCCCCCCCCCCCCCCBULL)
break;
}
if (!(globals::s_parse_flags[c] & 0x10))
{
pChild_variant->m_type = cJSONValueTypeInt;
pChild_variant->m_data.m_nVal = is_neg + (static_cast<int64>(n64) ^ (-is_neg));
}
else
{
double f = static_cast<double>(n64);
int scale = 0, escalesign = 1, escale = 0;
while (globals::s_parse_flags[c] & 8)
{
f = f * 10.0f + (c - '0'); PJSON_INCREMENT_STAT(m_num_numeric_chars); c = *++pStr;
if (!(globals::s_parse_flags[c] & 8))
break;
f = f * 10.0f + (c - '0'); PJSON_INCREMENT_STAT(m_num_numeric_chars); c = *++pStr;
}
if (c == '.')
{
PJSON_INCREMENT_STAT(m_num_numeric_chars); c = *++pStr;
while (globals::s_parse_flags[c] & 8)
{
scale--; f = f * 10.0f + (c - '0'); PJSON_INCREMENT_STAT(m_num_numeric_chars); c = *++pStr;
if (!(globals::s_parse_flags[c] & 8))
break;
scale--; f = f * 10.0f + (c - '0'); PJSON_INCREMENT_STAT(m_num_numeric_chars); c = *++pStr;
}
}
if ((c == 'e') || (c == 'E'))
{
PJSON_INCREMENT_STAT(m_num_numeric_chars);
c = *++pStr;
if (c == '-')
{
escalesign = -1;
PJSON_INCREMENT_STAT(m_num_numeric_chars); c = *++pStr;
}
else if (c == '+')
{
PJSON_INCREMENT_STAT(m_num_numeric_chars); c = *++pStr;
}
while (globals::s_parse_flags[c] & 8)
{
if (escale > 0xCCCCCCB)
return set_error(pStr, "Failed parsing numeric value");
escale = escale * 10 + (c - '0');
PJSON_INCREMENT_STAT(m_num_numeric_chars); c = *++pStr;
}
}
static const float s_neg[2] = { 1.0f, -1.0f };
double v = f * s_neg[is_neg];
int64 final_scale = scale + escale * escalesign;
if (static_cast<uint64>(final_scale + 31) <= 62)
v *= globals::s_pow10_table[static_cast<int>(final_scale) + 31];
else
{
if ((final_scale < INT32_MIN) || (final_scale > INT32_MAX))
return set_error(pStr, "Failed parsing numeric value");
v *= pow(10.0, static_cast<int>(final_scale));
}
pChild_variant->m_type = cJSONValueTypeDouble;
pChild_variant->m_data.m_flVal = v;
}
}
break;
}
case '\0':
return set_error(pStr, "Premature end of string (expected name or value)");
default:
return set_error(pStr, "Unrecognized character");
}
}
}
bool deserialize_start(uint8* pStr)
{
set_to_null();
#if PJSON_PARSE_STATS
m_parse_stats.clear();
#endif
m_allocator.reset();
m_pStart = pStr;
m_pStr = skip_whitespace(pStr);
if (!*m_pStr)
return set_error(m_pStr, "Nothing to deserialize");
bool success = false;
uint8 c = *m_pStr;
if ((c == '{') || (c == '['))
{
set_to_node(c == '{'); PJSON_INCREMENT_STAT(m_num_control);
success = deserialize_internal();
}
else
return set_error(m_pStr, "Root value must be an object or array");
if (success)
{
m_pStr = skip_whitespace(m_pStr);
success = !*m_pStr;
if (!success)
set_error(m_pStr, "Unknown data at end of document");
}
return success;
}
};
} // namespace pjson
#endif // PJSON_H