mirror of
https://bitbucket.org/CPMADevs/cnq3
synced 2024-11-23 12:32:14 +00:00
365 lines
7 KiB
C++
365 lines
7 KiB
C++
#include "crash.h"
|
|
|
|
|
|
#if defined(_MSC_VER)
|
|
typedef unsigned __int8 u8;
|
|
typedef unsigned __int32 u32;
|
|
#else
|
|
typedef uint8_t u8;
|
|
typedef uint32_t u32;
|
|
#endif
|
|
|
|
|
|
static qbool UTF8_NextCodePoint(u32* codePoint, u32* byteCount, const char* input)
|
|
{
|
|
if (!codePoint || !byteCount || !input || *input == '\0')
|
|
return qfalse;
|
|
|
|
u8 byte0 = (u8)input[0];
|
|
if (byte0 <= 127) {
|
|
*codePoint = (u32)byte0;
|
|
*byteCount = 1;
|
|
return qtrue;
|
|
}
|
|
|
|
// Starts with 110?
|
|
if ((byte0 >> 5) == 6) {
|
|
const u8 byte1 = (u8)input[1];
|
|
*codePoint = ((u32)byte1 & 63) | (((u32)byte0 & 31) << 6);
|
|
*byteCount = 2;
|
|
return qtrue;
|
|
}
|
|
|
|
// Starts with 1110?
|
|
if ((byte0 >> 4) == 14) {
|
|
const u8 byte1 = (u8)input[1];
|
|
const u8 byte2 = (u8)input[2];
|
|
*codePoint = ((u32)byte2 & 63) | (((u32)byte1 & 63) << 6) | (((u32)byte0 & 15) << 12);
|
|
*byteCount = 3;
|
|
return qtrue;
|
|
}
|
|
|
|
// Starts with 11110?
|
|
if ((byte0 >> 3) == 30) {
|
|
const u8 byte1 = (u8)input[1];
|
|
const u8 byte2 = (u8)input[2];
|
|
const u8 byte3 = (u8)input[3];
|
|
*codePoint = ((u32)byte3 & 63) | (((u32)byte2 & 63) << 6) | (((u32)byte1 & 63) << 12) | (((u32)byte0 & 7) << 18);
|
|
*byteCount = 4;
|
|
return qtrue;
|
|
}
|
|
|
|
return qfalse;
|
|
}
|
|
|
|
typedef struct {
|
|
u32 CodePoint;
|
|
char OutputChar;
|
|
} ShortEscape;
|
|
|
|
#define ENTRY(HexValue, Char) { 0x##HexValue, Char }
|
|
static const ShortEscape ShortEscapeCodePoints[] = {
|
|
ENTRY(0022, '"'),
|
|
ENTRY(005C, '\\'),
|
|
ENTRY(002F, '/'),
|
|
ENTRY(0008, 'b'),
|
|
ENTRY(000C, 'f'),
|
|
ENTRY(000A, 'n'),
|
|
ENTRY(000D, 'r'),
|
|
ENTRY(0009, 't')
|
|
};
|
|
#undef ENTRY
|
|
|
|
static const char HexDigits[16] = { '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F' };
|
|
|
|
static qbool UTF8_NeedsEscaping(u32* newLength, u32 codePoint)
|
|
{
|
|
if (!newLength)
|
|
return qfalse;
|
|
|
|
const u32 count = (u32)ARRAY_LEN(ShortEscapeCodePoints);
|
|
for (u32 i = 0; i < count; i++) {
|
|
if (codePoint == ShortEscapeCodePoints[i].CodePoint) {
|
|
*newLength = 2; // Of form: "\A".
|
|
return qtrue;
|
|
}
|
|
}
|
|
|
|
// Range: 0x0000 - 0x001F
|
|
if (codePoint <= 0x001F) {
|
|
*newLength = 6; // Of form: "\uABCD".
|
|
return qtrue;
|
|
}
|
|
|
|
return qfalse;
|
|
}
|
|
|
|
static void UTF8_WriteCodePoint(u32* newLength, char* output, u32 codePoint, const char* input)
|
|
{
|
|
if (!newLength || !output || !input)
|
|
return;
|
|
|
|
const u32 count = (u32)ARRAY_LEN(ShortEscapeCodePoints);
|
|
for (u32 i = 0; i < count; i++) {
|
|
if (codePoint == ShortEscapeCodePoints[i].CodePoint) {
|
|
*newLength = 2;
|
|
output[0] = '\\';
|
|
output[1] = ShortEscapeCodePoints[i].OutputChar;
|
|
return;
|
|
}
|
|
}
|
|
|
|
// Range: 0x0000 - 0x001F
|
|
if (codePoint <= 0x001F) {
|
|
*newLength = 6;
|
|
output[0] = '\\';
|
|
output[1] = 'u';
|
|
output[2] = HexDigits[(codePoint >> 12) & 15];
|
|
output[3] = HexDigits[(codePoint >> 8) & 15];
|
|
output[4] = HexDigits[(codePoint >> 4) & 15];
|
|
output[5] = HexDigits[codePoint & 15];
|
|
return;
|
|
}
|
|
|
|
for (u32 i = 0; i < *newLength; ++i) {
|
|
output[i] = input[i];
|
|
}
|
|
}
|
|
|
|
static u32 UTF8_LengthForJSON(const char* input)
|
|
{
|
|
if (!input)
|
|
return 0;
|
|
|
|
const char* s = input;
|
|
u32 codePoint = 0;
|
|
u32 byteCount = 0;
|
|
u32 newLength = 0;
|
|
while (UTF8_NextCodePoint(&codePoint, &byteCount, s)) {
|
|
s += byteCount;
|
|
UTF8_NeedsEscaping(&byteCount, codePoint);
|
|
newLength += byteCount;
|
|
}
|
|
|
|
return newLength;
|
|
}
|
|
|
|
static void UTF8_CleanForJSON(char* output, const char* input)
|
|
{
|
|
if (!output || !input)
|
|
return;
|
|
|
|
const char* in = input;
|
|
char* out = output;
|
|
u32 codePoint = 0;
|
|
u32 inputByteCount = 0;
|
|
while (UTF8_NextCodePoint(&codePoint, &inputByteCount, in)) {
|
|
u32 outputByteCount = inputByteCount;
|
|
UTF8_WriteCodePoint(&outputByteCount, out, codePoint, in);
|
|
in += inputByteCount;
|
|
out += outputByteCount;
|
|
}
|
|
|
|
*out = '\0';
|
|
}
|
|
|
|
typedef struct {
|
|
unsigned int itemIndices[16];
|
|
FILE* file;
|
|
unsigned int level;
|
|
} JSONWriter;
|
|
|
|
static JSONWriter writer;
|
|
|
|
static void JSONW_Write(const char* string)
|
|
{
|
|
if (!string)
|
|
return;
|
|
|
|
fwrite(string, strlen(string), 1, writer.file);
|
|
}
|
|
|
|
static void JSONW_WriteNewLine()
|
|
{
|
|
JSONW_Write("\n");
|
|
for (u32 i = 0; i < writer.level; i++) {
|
|
JSONW_Write("\t");
|
|
}
|
|
}
|
|
|
|
static void JSONW_WriteClean(const char* string)
|
|
{
|
|
static char buffer[4096];
|
|
|
|
if (!string)
|
|
return;
|
|
|
|
const u32 length = UTF8_LengthForJSON(string);
|
|
if (length >= sizeof(buffer)) {
|
|
JSONW_Write("bufferSizeTooSmall");
|
|
return;
|
|
}
|
|
|
|
UTF8_CleanForJSON(buffer, string);
|
|
JSONW_Write(buffer);
|
|
}
|
|
|
|
void JSONW_BeginFile(FILE* file)
|
|
{
|
|
memset(&writer, 0, sizeof(writer));
|
|
writer.file = file;
|
|
|
|
JSONW_Write("{");
|
|
++writer.level;
|
|
}
|
|
|
|
void JSONW_EndFile()
|
|
{
|
|
JSONW_Write("\r\n}");
|
|
}
|
|
|
|
void JSONW_BeginObject()
|
|
{
|
|
if (writer.itemIndices[writer.level] > 0)
|
|
JSONW_Write(",");
|
|
|
|
JSONW_WriteNewLine();
|
|
JSONW_Write("{");
|
|
++writer.level;
|
|
writer.itemIndices[writer.level] = 0;
|
|
}
|
|
|
|
void JSONW_BeginNamedObject(const char* name)
|
|
{
|
|
if (!name)
|
|
return;
|
|
|
|
if (writer.itemIndices[writer.level] > 0)
|
|
JSONW_Write(",");
|
|
|
|
JSONW_WriteNewLine();
|
|
JSONW_Write("\"");
|
|
JSONW_WriteClean(name);
|
|
JSONW_Write("\":");
|
|
JSONW_WriteNewLine();
|
|
JSONW_Write("{");
|
|
++writer.level;
|
|
writer.itemIndices[writer.level] = 0;
|
|
}
|
|
|
|
void JSONW_EndObject()
|
|
{
|
|
--writer.level;
|
|
JSONW_WriteNewLine();
|
|
JSONW_Write("}");
|
|
++writer.itemIndices[writer.level];
|
|
}
|
|
|
|
void JSONW_BeginArray()
|
|
{
|
|
if (writer.itemIndices[writer.level] > 0)
|
|
JSONW_Write(",");
|
|
|
|
JSONW_WriteNewLine();
|
|
JSONW_Write("[");
|
|
++writer.level;
|
|
writer.itemIndices[writer.level] = 0;
|
|
}
|
|
|
|
void JSONW_BeginNamedArray(const char* name)
|
|
{
|
|
if (!name)
|
|
return;
|
|
|
|
if (writer.itemIndices[writer.level] > 0)
|
|
JSONW_Write(",");
|
|
|
|
JSONW_WriteNewLine();
|
|
JSONW_Write("\"");
|
|
JSONW_WriteClean(name);
|
|
JSONW_Write("\":");
|
|
JSONW_WriteNewLine();
|
|
JSONW_Write("[");
|
|
++writer.level;
|
|
writer.itemIndices[writer.level] = 0;
|
|
}
|
|
|
|
void JSONW_EndArray()
|
|
{
|
|
--writer.level;
|
|
JSONW_WriteNewLine();
|
|
JSONW_Write("]");
|
|
++writer.itemIndices[writer.level];
|
|
}
|
|
|
|
void JSONW_IntegerValue(const char* name, int number)
|
|
{
|
|
if (!name)
|
|
return;
|
|
|
|
JSONW_StringValue(name, "%d", number);
|
|
}
|
|
|
|
void JSONW_HexValue(const char* name, uint64_t number)
|
|
{
|
|
if (!name)
|
|
return;
|
|
|
|
JSONW_StringValue(name, Q_itohex(number, qtrue, qtrue));
|
|
}
|
|
|
|
void JSONW_BooleanValue(const char* name, qbool value)
|
|
{
|
|
JSONW_StringValue(name, value ? "true" : "false");
|
|
}
|
|
|
|
void JSONW_StringValue(const char* name, const char* format, ...)
|
|
{
|
|
static char buffer[4096];
|
|
|
|
if (!name || !format || *format == '\0')
|
|
return;
|
|
|
|
va_list ap;
|
|
va_start(ap, format);
|
|
Q_vsnprintf(buffer, sizeof(buffer), format, ap);
|
|
va_end(ap);
|
|
|
|
if (writer.itemIndices[writer.level] > 0)
|
|
JSONW_Write(", ");
|
|
|
|
JSONW_WriteNewLine();
|
|
JSONW_Write("\"");
|
|
JSONW_Write(name);
|
|
JSONW_Write("\": \"");
|
|
JSONW_WriteClean(buffer);
|
|
JSONW_Write("\"");
|
|
++writer.itemIndices[writer.level];
|
|
}
|
|
|
|
void JSONW_UnnamedHex(uint64_t number)
|
|
{
|
|
JSONW_UnnamedString(Q_itohex(number, qtrue, qtrue));
|
|
}
|
|
|
|
void JSONW_UnnamedString(const char* format, ...)
|
|
{
|
|
static char buffer[4096];
|
|
|
|
if (!format || *format == '\0')
|
|
return;
|
|
|
|
va_list ap;
|
|
va_start(ap, format);
|
|
Q_vsnprintf(buffer, sizeof(buffer), format, ap);
|
|
va_end(ap);
|
|
|
|
if (writer.itemIndices[writer.level] > 0)
|
|
JSONW_Write(", ");
|
|
|
|
JSONW_WriteNewLine();
|
|
JSONW_Write("\"");
|
|
JSONW_WriteClean(buffer);
|
|
JSONW_Write("\"");
|
|
++writer.itemIndices[writer.level];
|
|
}
|