689 lines
20 KiB
C++
689 lines
20 KiB
C++
/*
|
|
==============================================================================
|
|
|
|
This file is part of the JUCE library.
|
|
Copyright (c) 2017 - ROLI Ltd.
|
|
|
|
JUCE is an open source library subject to commercial or open-source
|
|
licensing.
|
|
|
|
The code included in this file is provided under the terms of the ISC license
|
|
http://www.isc.org/downloads/software-support-policy/isc-license. Permission
|
|
To use, copy, modify, and/or distribute this software for any purpose with or
|
|
without fee is hereby granted provided that the above copyright notice and
|
|
this permission notice appear in all copies.
|
|
|
|
JUCE IS PROVIDED "AS IS" WITHOUT ANY WARRANTY, AND ALL WARRANTIES, WHETHER
|
|
EXPRESSED OR IMPLIED, INCLUDING MERCHANTABILITY AND FITNESS FOR PURPOSE, ARE
|
|
DISCLAIMED.
|
|
|
|
==============================================================================
|
|
*/
|
|
|
|
namespace juce
|
|
{
|
|
|
|
struct JSONParser
|
|
{
|
|
static Result parseObjectOrArray (String::CharPointerType t, var& result)
|
|
{
|
|
t = t.findEndOfWhitespace();
|
|
|
|
switch (t.getAndAdvance())
|
|
{
|
|
case 0: result = var(); return Result::ok();
|
|
case '{': return parseObject (t, result);
|
|
case '[': return parseArray (t, result);
|
|
}
|
|
|
|
return createFail ("Expected '{' or '['", &t);
|
|
}
|
|
|
|
static Result parseString (const juce_wchar quoteChar, String::CharPointerType& t, var& result)
|
|
{
|
|
MemoryOutputStream buffer (256);
|
|
|
|
for (;;)
|
|
{
|
|
auto c = t.getAndAdvance();
|
|
|
|
if (c == quoteChar)
|
|
break;
|
|
|
|
if (c == '\\')
|
|
{
|
|
c = t.getAndAdvance();
|
|
|
|
switch (c)
|
|
{
|
|
case '"':
|
|
case '\'':
|
|
case '\\':
|
|
case '/': break;
|
|
|
|
case 'a': c = '\a'; break;
|
|
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 'u':
|
|
{
|
|
c = 0;
|
|
|
|
for (int i = 4; --i >= 0;)
|
|
{
|
|
auto digitValue = CharacterFunctions::getHexDigitValue (t.getAndAdvance());
|
|
|
|
if (digitValue < 0)
|
|
return createFail ("Syntax error in unicode escape sequence");
|
|
|
|
c = (juce_wchar) ((c << 4) + static_cast<juce_wchar> (digitValue));
|
|
}
|
|
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (c == 0)
|
|
return createFail ("Unexpected end-of-input in string constant");
|
|
|
|
buffer.appendUTF8Char (c);
|
|
}
|
|
|
|
result = buffer.toUTF8();
|
|
return Result::ok();
|
|
}
|
|
|
|
static Result parseAny (String::CharPointerType& t, var& result)
|
|
{
|
|
t = t.findEndOfWhitespace();
|
|
auto t2 = t;
|
|
|
|
switch (t2.getAndAdvance())
|
|
{
|
|
case '{': t = t2; return parseObject (t, result);
|
|
case '[': t = t2; return parseArray (t, result);
|
|
case '"': t = t2; return parseString ('"', t, result);
|
|
case '\'': t = t2; return parseString ('\'', t, result);
|
|
|
|
case '-':
|
|
t2 = t2.findEndOfWhitespace();
|
|
if (! CharacterFunctions::isDigit (*t2))
|
|
break;
|
|
|
|
t = t2;
|
|
return parseNumber (t, result, true);
|
|
|
|
case '0': case '1': case '2': case '3': case '4':
|
|
case '5': case '6': case '7': case '8': case '9':
|
|
return parseNumber (t, result, false);
|
|
|
|
case 't': // "true"
|
|
if (t2.getAndAdvance() == 'r' && t2.getAndAdvance() == 'u' && t2.getAndAdvance() == 'e')
|
|
{
|
|
t = t2;
|
|
result = var (true);
|
|
return Result::ok();
|
|
}
|
|
break;
|
|
|
|
case 'f': // "false"
|
|
if (t2.getAndAdvance() == 'a' && t2.getAndAdvance() == 'l'
|
|
&& t2.getAndAdvance() == 's' && t2.getAndAdvance() == 'e')
|
|
{
|
|
t = t2;
|
|
result = var (false);
|
|
return Result::ok();
|
|
}
|
|
break;
|
|
|
|
case 'n': // "null"
|
|
if (t2.getAndAdvance() == 'u' && t2.getAndAdvance() == 'l' && t2.getAndAdvance() == 'l')
|
|
{
|
|
t = t2;
|
|
result = var();
|
|
return Result::ok();
|
|
}
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
|
|
return createFail ("Syntax error", &t);
|
|
}
|
|
|
|
private:
|
|
static Result createFail (const char* const message, const String::CharPointerType* location = nullptr)
|
|
{
|
|
String m (message);
|
|
if (location != nullptr)
|
|
m << ": \"" << String (*location, 20) << '"';
|
|
|
|
return Result::fail (m);
|
|
}
|
|
|
|
static Result parseNumber (String::CharPointerType& t, var& result, const bool isNegative)
|
|
{
|
|
auto oldT = t;
|
|
|
|
int64 intValue = t.getAndAdvance() - '0';
|
|
jassert (intValue >= 0 && intValue < 10);
|
|
|
|
for (;;)
|
|
{
|
|
auto previousChar = t;
|
|
auto c = t.getAndAdvance();
|
|
auto digit = ((int) c) - '0';
|
|
|
|
if (isPositiveAndBelow (digit, 10))
|
|
{
|
|
intValue = intValue * 10 + digit;
|
|
continue;
|
|
}
|
|
|
|
if (c == 'e' || c == 'E' || c == '.')
|
|
{
|
|
t = oldT;
|
|
auto asDouble = CharacterFunctions::readDoubleValue (t);
|
|
result = isNegative ? -asDouble : asDouble;
|
|
return Result::ok();
|
|
}
|
|
|
|
if (CharacterFunctions::isWhitespace (c)
|
|
|| c == ',' || c == '}' || c == ']' || c == 0)
|
|
{
|
|
t = previousChar;
|
|
break;
|
|
}
|
|
|
|
return createFail ("Syntax error in number", &oldT);
|
|
}
|
|
|
|
auto correctedValue = isNegative ? -intValue : intValue;
|
|
|
|
if ((intValue >> 31) != 0)
|
|
result = correctedValue;
|
|
else
|
|
result = (int) correctedValue;
|
|
|
|
return Result::ok();
|
|
}
|
|
|
|
static Result parseObject (String::CharPointerType& t, var& result)
|
|
{
|
|
auto resultObject = new DynamicObject();
|
|
result = resultObject;
|
|
auto& resultProperties = resultObject->getProperties();
|
|
|
|
for (;;)
|
|
{
|
|
t = t.findEndOfWhitespace();
|
|
|
|
auto oldT = t;
|
|
auto c = t.getAndAdvance();
|
|
|
|
if (c == '}')
|
|
break;
|
|
|
|
if (c == 0)
|
|
return createFail ("Unexpected end-of-input in object declaration");
|
|
|
|
if (c == '"')
|
|
{
|
|
var propertyNameVar;
|
|
auto r = parseString ('"', t, propertyNameVar);
|
|
|
|
if (r.failed())
|
|
return r;
|
|
|
|
const Identifier propertyName (propertyNameVar.toString());
|
|
|
|
if (propertyName.isValid())
|
|
{
|
|
t = t.findEndOfWhitespace();
|
|
oldT = t;
|
|
|
|
auto c2 = t.getAndAdvance();
|
|
|
|
if (c2 != ':')
|
|
return createFail ("Expected ':', but found", &oldT);
|
|
|
|
resultProperties.set (propertyName, var());
|
|
var* propertyValue = resultProperties.getVarPointer (propertyName);
|
|
|
|
auto r2 = parseAny (t, *propertyValue);
|
|
|
|
if (r2.failed())
|
|
return r2;
|
|
|
|
t = t.findEndOfWhitespace();
|
|
oldT = t;
|
|
|
|
auto nextChar = t.getAndAdvance();
|
|
|
|
if (nextChar == ',')
|
|
continue;
|
|
|
|
if (nextChar == '}')
|
|
break;
|
|
}
|
|
}
|
|
|
|
return createFail ("Expected object member declaration, but found", &oldT);
|
|
}
|
|
|
|
return Result::ok();
|
|
}
|
|
|
|
static Result parseArray (String::CharPointerType& t, var& result)
|
|
{
|
|
result = var (Array<var>());
|
|
auto* destArray = result.getArray();
|
|
|
|
for (;;)
|
|
{
|
|
t = t.findEndOfWhitespace();
|
|
|
|
auto oldT = t;
|
|
auto c = t.getAndAdvance();
|
|
|
|
if (c == ']')
|
|
break;
|
|
|
|
if (c == 0)
|
|
return createFail ("Unexpected end-of-input in array declaration");
|
|
|
|
t = oldT;
|
|
destArray->add (var());
|
|
auto r = parseAny (t, destArray->getReference (destArray->size() - 1));
|
|
|
|
if (r.failed())
|
|
return r;
|
|
|
|
t = t.findEndOfWhitespace();
|
|
oldT = t;
|
|
|
|
auto nextChar = t.getAndAdvance();
|
|
|
|
if (nextChar == ',')
|
|
continue;
|
|
|
|
if (nextChar == ']')
|
|
break;
|
|
|
|
return createFail ("Expected object array item, but found", &oldT);
|
|
}
|
|
|
|
return Result::ok();
|
|
}
|
|
};
|
|
|
|
//==============================================================================
|
|
struct JSONFormatter
|
|
{
|
|
static void write (OutputStream& out, const var& v,
|
|
int indentLevel, bool allOnOneLine, int maximumDecimalPlaces)
|
|
{
|
|
if (v.isString())
|
|
{
|
|
out << '"';
|
|
writeString (out, v.toString().getCharPointer());
|
|
out << '"';
|
|
}
|
|
else if (v.isVoid())
|
|
{
|
|
out << "null";
|
|
}
|
|
else if (v.isUndefined())
|
|
{
|
|
out << "undefined";
|
|
}
|
|
else if (v.isBool())
|
|
{
|
|
out << (static_cast<bool> (v) ? "true" : "false");
|
|
}
|
|
else if (v.isDouble())
|
|
{
|
|
auto d = static_cast<double> (v);
|
|
|
|
if (juce_isfinite (d))
|
|
{
|
|
out << serialiseDouble (d);
|
|
}
|
|
else
|
|
{
|
|
out << "null";
|
|
}
|
|
}
|
|
else if (v.isArray())
|
|
{
|
|
writeArray (out, *v.getArray(), indentLevel, allOnOneLine, maximumDecimalPlaces);
|
|
}
|
|
else if (v.isObject())
|
|
{
|
|
if (auto* object = v.getDynamicObject())
|
|
object->writeAsJSON (out, indentLevel, allOnOneLine, maximumDecimalPlaces);
|
|
else
|
|
jassertfalse; // Only DynamicObjects can be converted to JSON!
|
|
}
|
|
else
|
|
{
|
|
// Can't convert these other types of object to JSON!
|
|
jassert (! (v.isMethod() || v.isBinaryData()));
|
|
|
|
out << v.toString();
|
|
}
|
|
}
|
|
|
|
static void writeEscapedChar (OutputStream& out, const unsigned short value)
|
|
{
|
|
out << "\\u" << String::toHexString ((int) value).paddedLeft ('0', 4);
|
|
}
|
|
|
|
static void writeString (OutputStream& out, String::CharPointerType t)
|
|
{
|
|
for (;;)
|
|
{
|
|
auto c = t.getAndAdvance();
|
|
|
|
switch (c)
|
|
{
|
|
case 0: return;
|
|
|
|
case '\"': out << "\\\""; break;
|
|
case '\\': out << "\\\\"; break;
|
|
case '\a': out << "\\a"; break;
|
|
case '\b': out << "\\b"; break;
|
|
case '\f': out << "\\f"; break;
|
|
case '\t': out << "\\t"; break;
|
|
case '\r': out << "\\r"; break;
|
|
case '\n': out << "\\n"; break;
|
|
|
|
default:
|
|
if (c >= 32 && c < 127)
|
|
{
|
|
out << (char) c;
|
|
}
|
|
else
|
|
{
|
|
if (CharPointer_UTF16::getBytesRequiredFor (c) > 2)
|
|
{
|
|
CharPointer_UTF16::CharType chars[2];
|
|
CharPointer_UTF16 utf16 (chars);
|
|
utf16.write (c);
|
|
|
|
for (int i = 0; i < 2; ++i)
|
|
writeEscapedChar (out, (unsigned short) chars[i]);
|
|
}
|
|
else
|
|
{
|
|
writeEscapedChar (out, (unsigned short) c);
|
|
}
|
|
}
|
|
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
static void writeSpaces (OutputStream& out, int numSpaces)
|
|
{
|
|
out.writeRepeatedByte (' ', (size_t) numSpaces);
|
|
}
|
|
|
|
static void writeArray (OutputStream& out, const Array<var>& array,
|
|
int indentLevel, bool allOnOneLine, int maximumDecimalPlaces)
|
|
{
|
|
out << '[';
|
|
|
|
if (! array.isEmpty())
|
|
{
|
|
if (! allOnOneLine)
|
|
out << newLine;
|
|
|
|
for (int i = 0; i < array.size(); ++i)
|
|
{
|
|
if (! allOnOneLine)
|
|
writeSpaces (out, indentLevel + indentSize);
|
|
|
|
write (out, array.getReference(i), indentLevel + indentSize, allOnOneLine, maximumDecimalPlaces);
|
|
|
|
if (i < array.size() - 1)
|
|
{
|
|
if (allOnOneLine)
|
|
out << ", ";
|
|
else
|
|
out << ',' << newLine;
|
|
}
|
|
else if (! allOnOneLine)
|
|
out << newLine;
|
|
}
|
|
|
|
if (! allOnOneLine)
|
|
writeSpaces (out, indentLevel);
|
|
}
|
|
|
|
out << ']';
|
|
}
|
|
|
|
enum { indentSize = 2 };
|
|
};
|
|
|
|
//==============================================================================
|
|
var JSON::parse (const String& text)
|
|
{
|
|
var result;
|
|
|
|
if (! parse (text, result))
|
|
result = var();
|
|
|
|
return result;
|
|
}
|
|
|
|
var JSON::fromString (StringRef text)
|
|
{
|
|
var result;
|
|
|
|
if (! JSONParser::parseAny (text.text, result))
|
|
result = var();
|
|
|
|
return result;
|
|
}
|
|
|
|
var JSON::parse (InputStream& input)
|
|
{
|
|
return parse (input.readEntireStreamAsString());
|
|
}
|
|
|
|
var JSON::parse (const File& file)
|
|
{
|
|
return parse (file.loadFileAsString());
|
|
}
|
|
|
|
Result JSON::parse (const String& text, var& result)
|
|
{
|
|
return JSONParser::parseObjectOrArray (text.getCharPointer(), result);
|
|
}
|
|
|
|
String JSON::toString (const var& data, const bool allOnOneLine, int maximumDecimalPlaces)
|
|
{
|
|
MemoryOutputStream mo (1024);
|
|
JSONFormatter::write (mo, data, 0, allOnOneLine, maximumDecimalPlaces);
|
|
return mo.toUTF8();
|
|
}
|
|
|
|
void JSON::writeToStream (OutputStream& output, const var& data, const bool allOnOneLine, int maximumDecimalPlaces)
|
|
{
|
|
JSONFormatter::write (output, data, 0, allOnOneLine, maximumDecimalPlaces);
|
|
}
|
|
|
|
String JSON::escapeString (StringRef s)
|
|
{
|
|
MemoryOutputStream mo;
|
|
JSONFormatter::writeString (mo, s.text);
|
|
return mo.toString();
|
|
}
|
|
|
|
Result JSON::parseQuotedString (String::CharPointerType& t, var& result)
|
|
{
|
|
auto quote = t.getAndAdvance();
|
|
|
|
if (quote == '"' || quote == '\'')
|
|
return JSONParser::parseString (quote, t, result);
|
|
|
|
return Result::fail ("Not a quoted string!");
|
|
}
|
|
|
|
//==============================================================================
|
|
//==============================================================================
|
|
#if JUCE_UNIT_TESTS
|
|
|
|
class JSONTests : public UnitTest
|
|
{
|
|
public:
|
|
JSONTests() : UnitTest ("JSON", "JSON") {}
|
|
|
|
static String createRandomWideCharString (Random& r)
|
|
{
|
|
juce_wchar buffer[40] = { 0 };
|
|
|
|
for (int i = 0; i < numElementsInArray (buffer) - 1; ++i)
|
|
{
|
|
if (r.nextBool())
|
|
{
|
|
do
|
|
{
|
|
buffer[i] = (juce_wchar) (1 + r.nextInt (0x10ffff - 1));
|
|
}
|
|
while (! CharPointer_UTF16::canRepresent (buffer[i]));
|
|
}
|
|
else
|
|
buffer[i] = (juce_wchar) (1 + r.nextInt (0xff));
|
|
}
|
|
|
|
return CharPointer_UTF32 (buffer);
|
|
}
|
|
|
|
static String createRandomIdentifier (Random& r)
|
|
{
|
|
char buffer[30] = { 0 };
|
|
|
|
for (int i = 0; i < numElementsInArray (buffer) - 1; ++i)
|
|
{
|
|
static const char chars[] = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_-:";
|
|
buffer[i] = chars [r.nextInt (sizeof (chars) - 1)];
|
|
}
|
|
|
|
return CharPointer_ASCII (buffer);
|
|
}
|
|
|
|
// Creates a random double that can be easily stringified, to avoid
|
|
// false failures when decimal places are rounded or truncated slightly
|
|
static var createRandomDouble (Random& r)
|
|
{
|
|
return var ((r.nextDouble() * 1000.0) + 0.1);
|
|
}
|
|
|
|
static var createRandomVar (Random& r, int depth)
|
|
{
|
|
switch (r.nextInt (depth > 3 ? 6 : 8))
|
|
{
|
|
case 0: return {};
|
|
case 1: return r.nextInt();
|
|
case 2: return r.nextInt64();
|
|
case 3: return r.nextBool();
|
|
case 4: return createRandomDouble (r);
|
|
case 5: return createRandomWideCharString (r);
|
|
|
|
case 6:
|
|
{
|
|
var v (createRandomVar (r, depth + 1));
|
|
|
|
for (int i = 1 + r.nextInt (30); --i >= 0;)
|
|
v.append (createRandomVar (r, depth + 1));
|
|
|
|
return v;
|
|
}
|
|
|
|
case 7:
|
|
{
|
|
DynamicObject* o = new DynamicObject();
|
|
|
|
for (int i = r.nextInt (30); --i >= 0;)
|
|
o->setProperty (createRandomIdentifier (r), createRandomVar (r, depth + 1));
|
|
|
|
return o;
|
|
}
|
|
|
|
default:
|
|
return {};
|
|
}
|
|
}
|
|
|
|
void runTest() override
|
|
{
|
|
{
|
|
beginTest ("JSON");
|
|
|
|
Random r = getRandom();
|
|
|
|
expect (JSON::parse (String()) == var());
|
|
expect (JSON::parse ("{}").isObject());
|
|
expect (JSON::parse ("[]").isArray());
|
|
expect (JSON::parse ("[ 1234 ]")[0].isInt());
|
|
expect (JSON::parse ("[ 12345678901234 ]")[0].isInt64());
|
|
expect (JSON::parse ("[ 1.123e3 ]")[0].isDouble());
|
|
expect (JSON::parse ("[ -1234]")[0].isInt());
|
|
expect (JSON::parse ("[-12345678901234]")[0].isInt64());
|
|
expect (JSON::parse ("[-1.123e3]")[0].isDouble());
|
|
|
|
for (int i = 100; --i >= 0;)
|
|
{
|
|
var v;
|
|
|
|
if (i > 0)
|
|
v = createRandomVar (r, 0);
|
|
|
|
const bool oneLine = r.nextBool();
|
|
String asString (JSON::toString (v, oneLine));
|
|
var parsed = JSON::parse ("[" + asString + "]")[0];
|
|
String parsedString (JSON::toString (parsed, oneLine));
|
|
expect (asString.isNotEmpty() && parsedString == asString);
|
|
}
|
|
}
|
|
|
|
{
|
|
beginTest ("Float formatting");
|
|
|
|
std::map<double, String> tests;
|
|
tests[1] = "1.0";
|
|
tests[1.1] = "1.1";
|
|
tests[1.01] = "1.01";
|
|
tests[0.76378] = "0.76378";
|
|
tests[-10] = "-10.0";
|
|
tests[10.01] = "10.01";
|
|
tests[0.0123] = "0.0123";
|
|
tests[-3.7e-27] = "-3.7e-27";
|
|
tests[1e+40] = "1.0e40";
|
|
tests[-12345678901234567.0] = "-1.234567890123457e16";
|
|
tests[192000] = "192000.0";
|
|
tests[1234567] = "1.234567e6";
|
|
tests[0.00006] = "0.00006";
|
|
tests[0.000006] = "6.0e-6";
|
|
|
|
for (auto& test : tests)
|
|
expectEquals (JSON::toString (test.first), test.second);
|
|
}
|
|
}
|
|
};
|
|
|
|
static JSONTests JSONUnitTests;
|
|
|
|
#endif
|
|
|
|
} // namespace juce
|