picojson.hxx

/*
 * Copyright 2009-2010 Cybozu Labs, Inc.
 * Copyright 2011 Kazuho Oku
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *
 * 1. Redistributions of source code must retain the above copyright notice,
 *    this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright notice,
 *    this list of conditions and the following disclaimer in the documentation
 *    and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY CYBOZU LABS, INC. ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
 * EVENT SHALL CYBOZU LABS, INC. OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 *
 * The views and conclusions contained in the software and documentation are
 * those of the authors and should not be interpreted as representing official
 * policies, either expressed or implied, of Cybozu Labs, Inc.
 *
 */
#ifndef picojson_h
#define picojson_h

#include <cassert>
#include <cmath>
#include <cstdio>
#include <cstdlib>
#include <cstring>
#include <iostream>
#include <iterator>
#include <string>
#include <algorithm>
#include <utility>

#include <boost/container/flat_map.hpp>
#include <boost/container/vector.hpp>
#include <boost/flyweight/flyweight.hpp>
#include <boost/flyweight/no_locking.hpp>
#include <boost/flyweight/refcounted.hpp>
#include <boost/flyweight/hashed_factory.hpp>
#include <boost/flyweight/static_holder.hpp>
#include <boost/lexical_cast.hpp>
#include <boost/move/move.hpp>

#ifdef _MSC_VER
#define SNPRINTF _snprintf_s
#pragma warning(push)
#pragma warning(disable : 4244) // conversion from int to char
#else
#define SNPRINTF snprintf
#endif


class picojson {
public:
    enum {
		null_type,
		boolean_type,
		number_type,
		string_type,
		array_type,
		object_type
    };

    struct null {};
    typedef boost::flyweights::flyweight<std::string, boost::flyweights::no_locking> object_key;
	typedef object_key string;
    typedef boost::container::vector<picojson> array;
    typedef boost::container::flat_map<object_key, picojson> object;

    typedef picojson value;
protected:
    int type_;
    union {
		bool boolean_;
		double number_;
		string* string_;
		array* array_;
		object* object_;
    };
public:
    picojson();
    picojson(int type, bool);
    explicit picojson(bool b);
    explicit picojson(double n);
    explicit picojson(const std::string& s);
    explicit picojson(const object_key& s);
    explicit picojson(const array& a);
    explicit picojson(const object& o);
    explicit picojson(const char* s);
    picojson(const char* s, size_t len);
    ~picojson();
    picojson(const picojson& x);
    picojson(BOOST_RV_REF(picojson) x);
    picojson& operator=(const picojson& x);
	template<class T> picojson& operator=(const T& x);
    template <typename T> bool is() const;
    template <typename T> const T& get() const;
    template <typename T> T& get();
    bool evaluate_as_boolean() const;
    const picojson& get(size_t idx) const;
    const picojson& get(const std::string& key) const;
    const picojson& get(const object_key& key) const;
    picojson& get(size_t idx);
    picojson& get(const std::string& key);
    picojson& get(const object_key& key);
    bool contains(size_t idx) const;
    bool contains(const std::string& key) const;
    bool contains(const object_key& key) const;
    std::string to_str() const;
    template <typename Iter> void serialize(Iter os) const;
    std::string serialize() const;

	template<class T> picojson const& operator[](T const& v) const;
	template<class T> picojson& operator[](T const& v);


	// obsolete, use the version below
	template <typename Iter> static std::string parse(picojson& out, Iter& pos, const Iter& last);

	template <typename Iter> static Iter parse(picojson& out, const Iter& first, const Iter& last, std::string* err);
	static std::string parse(picojson& out, std::istream& is);
	template <typename Iter> class input;

	class deny_parse_context;
	class default_parse_context;
	class null_parse_context;
	template <typename T> struct last_error_t;

	static void set_last_error(const std::string& s);

private:
	template<typename Iter> static int _parse_quadhex(input<Iter> &in);
	template<typename String, typename Iter> static bool _parse_codepoint(String& out, input<Iter>& in);
	template<typename String, typename Iter> static bool _parse_string(String& out, input<Iter>& in);
	template <typename Context, typename Iter> static bool _parse_array(Context& ctx, input<Iter>& in);
	template <typename Context, typename Iter> static bool _parse_object(Context& ctx, input<Iter>& in);
	template <typename Iter> static bool _parse_number(double& out, input<Iter>& in);
	template <typename Context, typename Iter> static bool _parse(Context& ctx, input<Iter>& in);
	template <typename Context, typename Iter> static Iter _parse(Context& ctx, const Iter& first, const Iter& last, std::string* err);
	static const std::string& get_last_error();
	template <typename Iter> static void copy(const std::string& s, Iter oi);
	template <typename Iter> static void serialize_str(const std::string& s, Iter oi);

    template <typename T> picojson(const T*); // intentionally defined to block implicit conversion of pointer to bool
};

inline picojson::picojson() : type_(null_type) {}

inline picojson::picojson(int type, bool) : type_(type) {
    switch (type) {
#define INIT(p, v) case p##type: p = v; break
		INIT(boolean_, false);
		INIT(number_, 0.0);
		INIT(string_, new string());
		INIT(array_, new array());
		INIT(object_, new object());
#undef INIT
    default: break;
    }
}

inline picojson::picojson(bool b) : type_(boolean_type) {
    boolean_ = b;
}

inline picojson::picojson(double n) : type_(number_type) {
    number_ = n;
}

inline picojson::picojson(const std::string& s) : type_(string_type) {
    string_ = new string(s);
}

inline picojson::picojson(const string& s) : type_(string_type) {
    string_ = new string(s);
}

inline picojson::picojson(const array& a) : type_(array_type) {
    array_ = new array(a);
}

inline picojson::picojson(const object& o) : type_(object_type) {
    object_ = new object(o);
}

inline picojson::picojson(const char* s) : type_(string_type) {
    string_ = new string(s);
}

inline picojson::picojson(const char* s, size_t len) : type_(string_type) {
    string_ = new string(std::string(s, len));
}

inline picojson::~picojson() {
    switch (type_) {
#define DEINIT(p) case p##type: delete p; break
		DEINIT(string_);
		DEINIT(array_);
		DEINIT(object_);
#undef DEINIT
    default: break;
    }
}

inline picojson::picojson(const picojson& x) : type_(x.type_) {
    switch (type_) {
#define INIT(p, v) case p##type: p = v; break
		INIT(boolean_, x.boolean_);
		INIT(number_, x.number_);
		INIT(string_, new string(*x.string_));
		INIT(array_, new array(*x.array_));
		INIT(object_, new object(*x.object_));
#undef INIT
    default: break;
    }
}
inline picojson::picojson(BOOST_RV_REF(picojson) x) {
	std::memset(this, 0, sizeof(picojson));
	this->type_ = null_type;
	using std::swap;
	swap(type_, x.type_);
    switch (type_) {
#define INIT(p, v) case p##type: swap(p, v); break
		INIT(boolean_, x.boolean_);
		INIT(number_, x.number_);
		INIT(string_, x.string_);
		INIT(array_, x.array_);
		INIT(object_, x.object_);
#undef INIT
    default: break;
    }
}

inline picojson& picojson::operator=(const picojson& x) {
    if (this != &x) {
		this->~value();
		new (this) value(x);
    }
    return *this;
}

template<class T>
inline picojson& picojson::operator=(const T& x) {
	this->get<T>() = x;
    return *this;
}

#define IS(ctype, jtype)								\
	template <> inline bool picojson::is<ctype>() const {	\
		return type_ == jtype##_type;					\
	}
IS(picojson::null, null)
IS(bool, boolean)
IS(int, number)
IS(double, number)
IS(picojson::string, string)
IS(std::string, string)
IS(picojson::array, array)
IS(picojson::object, object)
#undef IS

#define GET(ctype, var)												\
	template <> inline const ctype& picojson::get<ctype>() const {	\
		assert("type mismatch! call vis<type>() before get<type>()" \
			   && is<ctype>());										\
		return var;													\
	}																\
	template <> inline ctype& picojson::get<ctype>() {				\
		assert("type mismatch! call is<type>() before get<type>()"	\
			   && is<ctype>());										\
		return var;													\
	}
GET(bool, boolean_)
GET(double, number_)
GET(picojson::string, *string_)
GET(picojson::array, *array_)
GET(picojson::object, *object_)
#undef GET

template<> inline const std::string& picojson::get<std::string>() const {
	assert("type mismatch! call is<type>() before get<type>()"
		   && is<std::string>());
	return string_->get();
}

inline bool picojson::evaluate_as_boolean() const {
    switch (type_) {
    case null_type:
		return false;
    case boolean_type:
		return boolean_;
    case number_type:
		return number_ != 0;
    case string_type:
		return ! string_->get().empty();
    default:
		return true;
    }
}

inline const picojson& picojson::get(size_t idx) const {
    static value s_null;
    if(is<array>()) {
		return idx < array_->size() ? (*array_)[idx] : s_null;
	} else if(is<object>()) {
		return get(boost::lexical_cast<size_t>(idx));
	} else {
		assert(false);
		return s_null;
	}
}

inline const picojson& picojson::get(const std::string& key) const {
    return get(object_key(key));
}
inline const picojson& picojson::get(const object_key& key) const {
    static picojson s_null;
    assert(is<object>());
    object::const_iterator i = object_->find(key);
    return i != object_->end() ? i->second : s_null;
}

template<class T>
inline picojson const& picojson::operator[](T const& v) const { return get(v); }
template<class T>
inline picojson& picojson::operator[](T const& v) { return get(v); }

inline picojson& picojson::get(size_t idx) {
    if(is<array>()) {
		if(idx >= array_->size()) {
			array_->resize(idx + 1);
		}
		return (*array_)[idx];
	} else if(is<object>()) {
		return get(boost::lexical_cast<size_t>(idx));
	} else {
    static picojson s_null;
		assert(false);
		return s_null;
	}
}

inline picojson& picojson::get(const std::string& key) {
    return get(object_key(key));
}
inline picojson& picojson::get(const object_key& key) {
    assert(is<object>());
    return (*object_)[key];
}

inline bool picojson::contains(size_t idx) const {
    assert(is<array>());
    return idx < array_->size();
}

inline bool picojson::contains(const std::string& key) const {
    return contains(object_key(key));
}
inline bool picojson::contains(const object_key& key) const {
    assert(is<object>());
    object::const_iterator i = object_->find(key);
    return i != object_->end();
}

inline std::string picojson::to_str() const {
    switch (type_) {
    case null_type:      return "null";
    case boolean_type:   return boolean_ ? "true" : "false";
    case number_type:    {
		char buf[256];
		double tmp;
		SNPRINTF(buf, sizeof(buf), fabs(number_) < (1ULL << 53) && modf(number_, &tmp) == 0 ? "%.f" : "%.17g", number_);
		return buf;
    }
    case string_type:    return *string_;
    case array_type:     return "array";
    case object_type:    return "object";
    default:             assert(0);
#ifdef _MSC_VER
		__assume(0);
#endif
		return "";
    }
}

template <typename Iter> void picojson::serialize(Iter oi) const {
    switch (type_) {
    case string_type:
		serialize_str(string_->get(), oi);
		break;
    case array_type: {
		*oi++ = '[';
		for (array::const_iterator i = array_->begin(); i != array_->end(); ++i) {
			if (i != array_->begin()) {
				*oi++ = ',';
			}
			i->serialize(oi);
		}
		*oi++ = ']';
		break;
    }
    case object_type: {
		*oi++ = '{';
		for (object::const_iterator i = object_->begin();
			 i != object_->end();
			 ++i) {
			if (i != object_->begin()) {
				*oi++ = ',';
			}
			serialize_str(i->first.get(), oi);
			*oi++ = ':';
			i->second.serialize(oi);
		}
		*oi++ = '}';
		break;
    }
    default:
		copy(to_str(), oi);
		break;
    }
}

inline std::string picojson::serialize() const {
    std::string s;
    serialize(std::back_inserter(s));
    return s;
}

template <typename Iter> class picojson::input {
protected:
    Iter cur_, end_;
    int last_ch_;
    bool ungot_;
    int line_;
public:
    input(const Iter& first, const Iter& last) : cur_(first), end_(last), last_ch_(-1), ungot_(false), line_(1) {}
    int getc() {
		if (ungot_) {
			ungot_ = false;
			return last_ch_;
		}
		if (cur_ == end_) {
			last_ch_ = -1;
			return -1;
		}
		if (last_ch_ == '\n') {
			line_++;
		}
		last_ch_ = *cur_++ & 0xff;
		return last_ch_;
    }
    void ungetc() {
		if (last_ch_ != -1) {
			assert(! ungot_);
			ungot_ = true;
		}
    }
    Iter cur() const { return cur_; }
    int line() const { return line_; }
    void skip_ws() {
		while (1) {
			int ch = getc();
			if (! (ch == ' ' || ch == '\t' || ch == '\n' || ch == '\r')) {
				ungetc();
				break;
			}
		}
    }
    int expect(int expect) {
		skip_ws();
		if (getc() != expect) {
			ungetc();
			return false;
		}
		return true;
    }
    bool match(const std::string& pattern) {
		for (std::string::const_iterator pi(pattern.begin());
			 pi != pattern.end();
			 ++pi) {
			if (getc() != *pi) {
				ungetc();
				return false;
			}
		}
		return true;
    }
};


// obsolete, use the version below
template <typename Iter> inline std::string picojson::parse(picojson& out, Iter& pos, const Iter& last) {
	std::string err;
	pos = parse(out, pos, last, &err);
	return err;
}

template <typename Iter> inline Iter picojson::parse(picojson& out, const Iter& first, const Iter& last, std::string* err) {
	default_parse_context ctx(&out);
	return _parse(ctx, first, last, err);
}

inline std::string picojson::parse(picojson& out, std::istream& is) {
	std::string err;
	parse(out, std::istreambuf_iterator<char>(is.rdbuf()),
		  std::istreambuf_iterator<char>(), &err);
	return err;
}

template<typename Iter> inline int picojson::_parse_quadhex(input<Iter> &in) {
	int uni_ch = 0, hex;
	for (int i = 0; i < 4; i++) {
		if ((hex = in.getc()) == -1) {
			return -1;
		}
		if ('0' <= hex && hex <= '9') {
			hex -= '0';
		} else if ('A' <= hex && hex <= 'F') {
			hex -= 'A' - 0xa;
		} else if ('a' <= hex && hex <= 'f') {
			hex -= 'a' - 0xa;
		} else {
			in.ungetc();
			return -1;
		}
		uni_ch = uni_ch * 16 + hex;
	}
	return uni_ch;
}

template<typename String, typename Iter> inline bool picojson::_parse_codepoint(String& out, input<Iter>& in) {
	int uni_ch;
	if ((uni_ch = _parse_quadhex(in)) == -1) {
		return false;
	}
	if (0xd800 <= uni_ch && uni_ch <= 0xdfff) {
		if (0xdc00 <= uni_ch) {
			// a second 16-bit of a surrogate pair appeared
			return false;
		}
		// first 16-bit of surrogate pair, get the next one
		if (in.getc() != '\\' || in.getc() != 'u') {
			in.ungetc();
			return false;
		}
		int second = _parse_quadhex(in);
		if (! (0xdc00 <= second && second <= 0xdfff)) {
			return false;
		}
		uni_ch = ((uni_ch - 0xd800) << 10) | ((second - 0xdc00) & 0x3ff);
		uni_ch += 0x10000;
	}
	if (uni_ch < 0x80) {
		out.push_back(uni_ch);
	} else {
		if (uni_ch < 0x800) {
			out.push_back(0xc0 | (uni_ch >> 6));
		} else {
			if (uni_ch < 0x10000) {
				out.push_back(0xe0 | (uni_ch >> 12));
			} else {
				out.push_back(0xf0 | (uni_ch >> 18));
				out.push_back(0x80 | ((uni_ch >> 12) & 0x3f));
			}
			out.push_back(0x80 | ((uni_ch >> 6) & 0x3f));
		}
		out.push_back(0x80 | (uni_ch & 0x3f));
	}
	return true;
}

template<typename String, typename Iter> inline bool picojson::_parse_string(String& out, input<Iter>& in) {
	while (1) {
		int ch = in.getc();
		if (ch < ' ') {
			in.ungetc();
			return false;
		} else if (ch == '"') {
			return true;
		} else if (ch == '\\') {
			if ((ch = in.getc()) == -1) {
				return false;
			}
			switch (ch) {
#define MAP(sym, val) case sym: out.push_back(val); break
				MAP('"', '\"');
				MAP('\\', '\\');
				MAP('/', '/');
				MAP('b', '\b');
				MAP('f', '\f');
				MAP('n', '\n');
				MAP('r', '\r');
				MAP('t', '\t');
#undef MAP
			case 'u':
				if (! _parse_codepoint(out, in)) {
					return false;
				}
				break;
			default:
				return false;
			}
		} else {
			out.push_back(ch);
		}
	}
	return false;
}

template <typename Context, typename Iter> inline bool picojson::_parse_array(Context& ctx, input<Iter>& in) {
	if (! ctx.parse_array_start()) {
		return false;
	}
	if (in.expect(']')) {
		return true;
	}
	size_t idx = 0;
	do {
		if (! ctx.parse_array_item(in, idx)) {
			return false;
		}
		idx++;
	} while (in.expect(','));
	return in.expect(']');
}

template <typename Context, typename Iter> inline bool picojson::_parse_object(Context& ctx, input<Iter>& in) {
	if (! ctx.parse_object_start()) {
		return false;
	}
	if (in.expect('}')) {
		return true;
	}
	do {
		std::string key;
		if (! in.expect('"')
			|| ! _parse_string(key, in)
			|| ! in.expect(':')) {
			return false;
		}
		if (! ctx.parse_object_item(in, key)) {
			return false;
		}
	} while (in.expect(','));
	return in.expect('}');
}

template <typename Iter> inline bool picojson::_parse_number(double& out, input<Iter>& in) {
	std::string num_str;
	while (1) {
		int ch = in.getc();
		if (('0' <= ch && ch <= '9') || ch == '+' || ch == '-' || ch == '.'
			|| ch == 'e' || ch == 'E') {
			num_str.push_back(ch);
		} else {
			in.ungetc();
			break;
		}
	}
	char* endp;
	out = strtod(num_str.c_str(), &endp);
	return endp == num_str.c_str() + num_str.size();
}

template <typename Context, typename Iter> inline bool picojson::_parse(Context& ctx, input<Iter>& in) {
	in.skip_ws();
	int ch = in.getc();
	switch (ch) {
#define IS(ch, text, op) case ch:				\
		if (in.match(text) && op) {				\
			return true;						\
		} else {								\
			return false;						\
		}
		IS('n', "ull", ctx.set_null());
		IS('f', "alse", ctx.set_bool(false));
		IS('t', "rue", ctx.set_bool(true));
#undef IS
	case '"':
		return ctx.parse_string(in);
	case '[':
		return _parse_array(ctx, in);
	case '{':
		return _parse_object(ctx, in);
	default:
		if (('0' <= ch && ch <= '9') || ch == '-') {
			in.ungetc();
			double f;
			if (_parse_number(f, in)) {
				ctx.set_number(f);
				return true;
			} else {
				return false;
			}
		}
		break;
	}
	in.ungetc();
	return false;
}

class picojson::deny_parse_context {
public:
	bool set_null() { return false; }
	bool set_bool(bool) { return false; }
	bool set_number(double) { return false; }
	template <typename Iter> bool parse_string(input<Iter>&) { return false; }
	bool parse_array_start() { return false; }
	template <typename Iter> bool parse_array_item(input<Iter>&, size_t) {
		return false;
	}
	bool parse_object_start() { return false; }
	template <typename Iter> bool parse_object_item(input<Iter>&, const std::string&) {
		return false;
	}
};

class picojson::default_parse_context {
protected:
	value* out_;
public:
	default_parse_context(value* out) : out_(out) {}
	bool set_null() {
		*out_ = value();
		return true;
	}
	bool set_bool(bool b) {
		*out_ = value(b);
		return true;
	}
	bool set_number(double f) {
		*out_ = value(f);
		return true;
	}
	template<typename Iter> bool parse_string(input<Iter>& in) {
		*out_ = value(string_type, false);
		return _parse_string(out_->get<std::string>(), in);
	}
	bool parse_array_start() {
		*out_ = value(array_type, false);
		return true;
	}
	template <typename Iter> bool parse_array_item(input<Iter>& in, size_t) {
		array& a = out_->get<array>();
		a.push_back(value());
		default_parse_context ctx(&a.back());
		return _parse(ctx, in);
	}
	bool parse_object_start() {
		*out_ = value(object_type, false);
		return true;
	}
	template <typename Iter> bool parse_object_item(input<Iter>& in, const std::string& key) {
		return parse_object_item<Iter>(in, object_key(key));
	}
	template <typename Iter> bool parse_object_item(input<Iter>& in, const object_key& key) {
		object& o = out_->get<object>();
		default_parse_context ctx(&o[key]);
		return _parse(ctx, in);
	}
private:
	default_parse_context(const default_parse_context&);
	default_parse_context& operator=(const default_parse_context&);
};

class picojson::null_parse_context {
public:
	struct dummy_str {
		void push_back(int) {}
	};
public:
	null_parse_context() {}
	bool set_null() { return true; }
	bool set_bool(bool) { return true; }
	bool set_number(double) { return true; }
	template <typename Iter> bool parse_string(input<Iter>& in) {
		dummy_str s;
		return _parse_string(s, in);
	}
	bool parse_array_start() { return true; }
	template <typename Iter> bool parse_array_item(input<Iter>& in, size_t) {
		return _parse(*this, in);
	}
	bool parse_object_start() { return true; }
	template <typename Iter> bool parse_object_item(input<Iter>& in, const std::string&) {
		return _parse(*this, in);
	}
private:
	null_parse_context(const null_parse_context&);
	null_parse_context& operator=(const null_parse_context&);
};

template <typename Context, typename Iter> inline Iter picojson::_parse(Context& ctx, const Iter& first, const Iter& last, std::string* err) {
	input<Iter> in(first, last);
	if (! _parse(ctx, in) && err != NULL) {
		char buf[64];
		SNPRINTF(buf, sizeof(buf), "syntax error at line %d near: ", in.line());
		*err = buf;
		while (1) {
			int ch = in.getc();
			if (ch == -1 || ch == '\n') {
				break;
			} else if (ch >= ' ') {
				err->push_back(ch);
			}
		}
	}
	return in.cur();
}

template <typename T> struct picojson::last_error_t {
	static std::string s;
};
template <typename T> std::string picojson::last_error_t<T>::s;

inline void picojson::set_last_error(const std::string& s) {
	last_error_t<bool>::s = s;
}

inline const std::string& picojson::get_last_error() {
	return last_error_t<bool>::s;
}

template <typename Iter> void picojson::copy(const std::string& s, Iter oi) {
	std::copy(s.begin(), s.end(), oi);
}

template <typename Iter> void picojson::serialize_str(const std::string& s, Iter oi) {
	*oi++ = '"';
	for (std::string::const_iterator i = s.begin(); i != s.end(); ++i) {
		switch (*i) {
#define MAP(val, sym) case val: copy(sym, oi); break
			MAP('"', "\\\"");
			MAP('\\', "\\\\");
			MAP('/', "\\/");
			MAP('\b', "\\b");
			MAP('\f', "\\f");
			MAP('\n', "\\n");
			MAP('\r', "\\r");
			MAP('\t', "\\t");
#undef MAP
		default:
			if ((unsigned char)*i < 0x20 || *i == 0x7f) {
				char buf[7];
				SNPRINTF(buf, sizeof(buf), "\\u%04x", *i & 0xff);
				std::copy(buf, buf + 6, oi);
			} else {
				*oi++ = *i;
			}
			break;
		}
	}
	*oi++ = '"';
}

inline bool operator==(const picojson& x, const picojson& y) {
    if (x.is<picojson::null>())
		return y.is<picojson::null>();
#define PICOJSON_CMP(type)										\
    if (x.is<type>())											\
		return y.is<type>() && x.get<type>() == y.get<type>()
    PICOJSON_CMP(bool);
    PICOJSON_CMP(double);
    PICOJSON_CMP(picojson::string);
    PICOJSON_CMP(picojson::array);
    PICOJSON_CMP(picojson::object);
#undef PICOJSON_CMP
    assert(0);
#ifdef _MSC_VER
    __assume(0);
#endif
    return false;
}

inline bool operator!=(const picojson& x, const picojson& y) {
    return ! (x == y);
}

inline std::istream& operator>>(std::istream& is, picojson& x)
{
	picojson::set_last_error(std::string());
	std::string err = picojson::parse(x, is);
	if (! err.empty()) {
		picojson::set_last_error(err);
		is.setstate(std::ios::failbit);
	}
	return is;
}

inline std::ostream& operator<<(std::ostream& os, const picojson& x)
{
	x.serialize(std::ostream_iterator<char>(os));
	return os;
}

#ifdef _MSC_VER
#pragma warning(pop)
#endif

#endif
#ifdef TEST_PICOJSON
#ifdef _MSC_VER
#pragma warning(disable : 4127) // conditional expression is constant
#endif

using namespace std;

static void plan(int num)
{
	printf("1..%d\n", num);
}

static bool success = true;

static void ok(bool b, const char* name = "")
{
	static int n = 1;
	if (! b)
		success = false;
	printf("%s %d - %s\n", b ? "ok" : "ng", n++, name);
}

template <typename T> void is(const T& x, const T& y, const char* name = "")
{
	if (x == y) {
		ok(true, name);
	} else {
		ok(false, name);
	}
}

#include <algorithm>
#include <sstream>
#include <cfloat>
#include <climits>

int main(void)
{
	plan(75);

	// constructors
#define TEST(expr, expected)											\
    is(picojson expr .serialize(), string(expected), "picojson" #expr)

	TEST( (true),  "true");
	TEST( (false), "false");
	TEST( (42.0),   "42");
	TEST( (string("hello")), "\"hello\"");
	TEST( ("hello"), "\"hello\"");
	TEST( ("hello", 4), "\"hell\"");

	{
		double a = 1;
		for (int i = 0; i < 1024; i++) {
			picojson vi(a);
			std::stringstream ss;
			ss << vi;
			picojson vo;
			ss >> vo;
			double b = vo.get<double>();
			if ((i < 53 && a != b) || fabs(a - b) / b > 1e-8) {
				printf("ng i=%d a=%.18e b=%.18e\n", i, a, b);
			}
			a *= 2;
		}
	}

#undef TEST

#define TEST(in, type, cmp, serialize_test) {				\
		picojson v;									\
		const char* s = in;									\
		string err = picojson::parse(v, s, s + strlen(s));	\
		ok(err.empty(), in " no error");					\
		ok(v.is<type>(), in " check type");					\
		is<type>(v.get<type>(), cmp, in " correct output");	\
		is(*s, '\0', in " read to eof");					\
		if (serialize_test) {								\
			is(v.serialize(), string(in), in " serialize");	\
		}													\
	}
	TEST("false", bool, false, true);
	TEST("true", bool, true, true);
	TEST("90.5", double, 90.5, false);
	TEST("1.7976931348623157e+308", double, DBL_MAX, false);
	TEST("\"hello\"", string, string("hello"), true);
	TEST("\"\\\"\\\\\\/\\b\\f\\n\\r\\t\"", string, string("\"\\/\b\f\n\r\t"),
		 true);
	TEST("\"\\u0061\\u30af\\u30ea\\u30b9\"", string,
		 string("a\xe3\x82\xaf\xe3\x83\xaa\xe3\x82\xb9"), false);
	TEST("\"\\ud840\\udc0b\"", string, string("\xf0\xa0\x80\x8b"), false);
#undef TEST

#define TEST(type, expr) {												\
		picojson v;												\
		const char *s = expr;											\
		string err = picojson::parse(v, s, s + strlen(s));				\
		ok(err.empty(), "empty " #type " no error");					\
		ok(v.is<picojson::type>(), "empty " #type " check type");		\
		ok(v.get<picojson::type>().empty(), "check " #type " array size"); \
	}
	TEST(array, "[]");
	TEST(object, "{}");
#undef TEST

	{
		picojson v;
		const char *s = "[1,true,\"hello\"]";
		string err = picojson::parse(v, s, s + strlen(s));
		ok(err.empty(), "array no error");
		ok(v.is<picojson::array>(), "array check type");
		is(v.get<picojson::array>().size(), size_t(3), "check array size");
		ok(v.contains(0), "check contains array[0]");
		ok(v.get(0).is<double>(), "check array[0] type");
		is(v.get(0).get<double>(), 1.0, "check array[0] value");
		ok(v.contains(1), "check contains array[1]");
		ok(v.get(1).is<bool>(), "check array[1] type");
		ok(v.get(1).get<bool>(), "check array[1] value");
		ok(v.contains(2), "check contains array[2]");
		ok(v.get(2).is<string>(), "check array[2] type");
		is(v.get(2).get<string>(), string("hello"), "check array[2] value");
		ok(!v.contains(3), "check not contains array[3]");
	}

	{
		picojson v;
		const char *s = "{ \"a\": true }";
		string err = picojson::parse(v, s, s + strlen(s));
		ok(err.empty(), "object no error");
		ok(v.is<picojson::object>(), "object check type");
		is(v.get<picojson::object>().size(), size_t(1), "check object size");
		ok(v.contains("a"), "check contains property");
		ok(v.get("a").is<bool>(), "check bool property exists");
		is(v.get("a").get<bool>(), true, "check bool property value");
		is(v.serialize(), string("{\"a\":true}"), "serialize object");
		ok(!v.contains("z"), "check not contains property");
	}

#define TEST(json, msg) do {								\
		picojson v;									\
		const char *s = json;								\
		string err = picojson::parse(v, s, s + strlen(s));	\
		is(err, string("syntax error at line " msg), msg);	\
	} while (0)
	TEST("falsoa", "1 near: oa");
	TEST("{]", "1 near: ]");
	TEST("\n\bbell", "2 near: bell");
	TEST("\"abc\nd\"", "1 near: ");
#undef TEST

	{
		picojson v1, v2;
		const char *s;
		string err;
		s = "{ \"b\": true, \"a\": [1,2,\"three\"], \"d\": 2 }";
		err = picojson::parse(v1, s, s + strlen(s));
		s = "{ \"d\": 2.0, \"b\": true, \"a\": [1,2,\"three\"] }";
		err = picojson::parse(v2, s, s + strlen(s));
		ok((v1 == v2), "check == operator in deep comparison");
	}

	{
		picojson v1, v2;
		const char *s;
		string err;
		s = "{ \"b\": true, \"a\": [1,2,\"three\"], \"d\": 2 }";
		err = picojson::parse(v1, s, s + strlen(s));
		s = "{ \"d\": 2.0, \"a\": [1,\"three\"], \"b\": true }";
		err = picojson::parse(v2, s, s + strlen(s));
		ok((v1 != v2), "check != operator for array in deep comparison");
	}

	{
		picojson v1, v2;
		const char *s;
		string err;
		s = "{ \"b\": true, \"a\": [1,2,\"three\"], \"d\": 2 }";
		err = picojson::parse(v1, s, s + strlen(s));
		s = "{ \"d\": 2.0, \"a\": [1,2,\"three\"], \"b\": false }";
		err = picojson::parse(v2, s, s + strlen(s));
		ok((v1 != v2), "check != operator for object in deep comparison");
	}

	{
		picojson v1, v2;
		const char *s;
		string err;
		s = "{ \"b\": true, \"a\": [1,2,\"three\"], \"d\": 2 }";
		err = picojson::parse(v1, s, s + strlen(s));
		picojson::object& o = v1.get<picojson::object>();
		o.erase(picojson::object_key("b"));
		picojson::array& a = o[picojson::object_key("a")].get<picojson::array>();
		picojson::array::iterator i;
		i = std::remove(a.begin(), a.end(), picojson(std::string("three")));
		a.erase(i, a.end());
		s = "{ \"a\": [1,2], \"d\": 2 }";
		err = picojson::parse(v2, s, s + strlen(s));
		ok((v1 == v2), "check erase()");
	}

	ok(picojson(3.0).serialize() == "3",
	   "integral number should be serialized as a integer");

	{
		const char* s = "{ \"a\": [1,2], \"d\": 2 }";
		picojson::null_parse_context ctx;
		string err;
		picojson::_parse(ctx, s, s + strlen(s), &err);
		ok(err.empty(), "null_parse_context");
	}

	return success ? EXIT_SUCCESS : EXIT_FAILURE;
}

#endif