292 lines
8 KiB
MQL5
292 lines
8 KiB
MQL5
//+------------------------------------------------------------------+
| |
//| JsonUnescape.mqh |
| |
//| Copyright 2026, Niquel Mendoza. |
| |
//| https://www.mql5.com |
| |
//+------------------------------------------------------------------+
| |
#property copyright "Copyright 2026, Niquel Mendoza."
| |
#property link "https://www.mql5.com"
| |
#property strict
| |
| |
#ifndef JSONPARSERBYLEO_SRC_JSONUNESCAPE_MQH
| |
#define JSONPARSERBYLEO_SRC_JSONUNESCAPE_MQH
| |
| |
//+------------------------------------------------------------------+
| |
//| |
| |
//+------------------------------------------------------------------+
| |
//--- incluyte al parser y defines.mqh
| |
#include "JsonParser.mqh"
| |
#include <TSN\\BSFL\\Utils.mqh>
| |
| |
//+------------------------------------------------------------------+
| |
//| |
| |
//+------------------------------------------------------------------+
| |
namespace TSN
| |
{
| |
//+------------------------------------------------------------------+
| |
//| Version que retorna string |
| |
//+------------------------------------------------------------------+
| |
static bool CJsonParser::MakeString(const uchar &in[], int i, int len, string& res)
| |
{
| |
//---
| |
StringInit(res, len, ' ');
| |
int pos = 0;
| |
| |
//---
| |
len += i;
| |
for(; i < len; i++)
| |
{
| |
//---
| |
const uchar ch = in[i];
| |
if(ch == '\\')
| |
{
| |
const uchar next = g_tsn_table_json_unescape_table[in[++i]];
| |
switch(next)
| |
{
| |
case TSN_TABLE_UNESCAPE_UNICODE:
| |
{
| |
if(i + 4 >= len)
| |
return false;
| |
| |
//---
| |
DOMBASEULTIS_MAKESTRING_CODE(code, i)
| |
| |
//--- Vefificamos low\high surrogate
| |
if(code >= 0xD800 && code <= 0xDBFF)
| |
{
| |
if(i + 6 < len && in[i + 1] == '\\' && in[i + 2] == 'u')
| |
{
| |
int j = i + 2;
| |
DOMBASEULTIS_MAKESTRING_CODE(low, j)
| |
//---
| |
if(low >= 0xDC00 && low <= 0xDFFF)
| |
{
| |
res.SetChar(pos++, code);
| |
res.SetChar(pos++, low);
| |
i = j;
| |
break;
| |
}
| |
}
| |
//---
| |
// if(sizeof(TStrict) == JSONUNESCAPE_STRICT)
| |
// return def;
| |
res.SetChar(pos++, 0xFFFD);
| |
}
| |
else
| |
if(code >= 0xDC00 && code <= 0xDFFF)
| |
{
| |
//if(sizeof(TStrict) == JSONUNESCAPE_STRICT)
| |
//return def;
| |
res.SetChar(pos++, 0xFFFD);
| |
}
| |
else
| |
res.SetChar(pos++, code);
| |
break;
| |
}
| |
case TSN_TABLE_UNESCAPE_INVALID:
| |
return false;
| |
default:
| |
res.SetChar(pos++, next);
| |
break;
| |
}
| |
continue;
| |
}
| |
//---
| |
res.SetChar(pos++, ch);
| |
}
| |
//---
| |
res.Truncate(pos);
| |
return true;
| |
}
| |
| |
//+------------------------------------------------------------------+
| |
//| |
| |
//+------------------------------------------------------------------+
| |
static int CJsonParser::MakeUArray(const uchar &in[], int i, int len, uchar &res[], int pos = 0)
| |
{
| |
//---
| |
ArrayResize(res, len);
| |
//---
| |
len += i;
| |
for(; i < len; i++)
| |
{
| |
//---
| |
const uchar ch = in[i];
| |
if(ch == '\\')
| |
{
| |
const uchar next = g_tsn_table_json_unescape_table[in[++i]];
| |
switch(next)
| |
{
| |
case TSN_TABLE_UNESCAPE_UNICODE:
| |
{
| |
if(i + 4 >= len)
| |
return -1; // error
| |
| |
//---
| |
DOMBASEULTIS_MAKESTRING_CODE(code, i)
| |
| |
//---
| |
if(code < 0x80)
| |
{
| |
res[pos++] = uchar(code);
| |
continue;
| |
}
| |
else
| |
if(code < 0x800)
| |
{
| |
res[pos++] = uchar(0xC0 | (code >> 6));
| |
res[pos++] = uchar(0x80 | (code & 0x3F));
| |
continue;
| |
}
| |
| |
//---
| |
uint cp = code;
| |
if(code >= 0xD800 && code <= 0xDBFF) // Esta en rango buscamos otro mas.
| |
{
| |
if(i + 6 < len && in[i + 1] == '\\' && in[i + 2] == 'u')
| |
{
| |
int j = i + 2;
| |
DOMBASEULTIS_MAKESTRING_CODE(low, j)
| |
if(low >= 0xDC00 && low <= 0xDFFF)
| |
{
| |
cp = 0x10000 + ((code - 0xD800) << 10) + (low - 0xDC00);
| |
i = j;
| |
| |
//--- emoji
| |
res[pos++] = uchar(0xF0 | (cp >> 18));
| |
res[pos++] = uchar(0x80 | ((cp >> 12) & 0x3F));
| |
res[pos++] = uchar(0x80 | ((cp >> 6) & 0x3F));
| |
res[pos++] = uchar(0x80 | (cp & 0x3F));
| |
continue;
| |
}
| |
}
| |
| |
//---
| |
// if(sizeof(TStrict) == JSONUNESCAPE_STRICT)
| |
// return -1;
| |
code = 0xFFFD; // huerfano, no hay low surrogate despues
| |
}
| |
else
| |
if(code >= 0xDC00 && code <= 0xDFFF)
| |
{
| |
// if(sizeof(TStrict) == JSONUNESCAPE_STRICT)
| |
// return -1;
| |
code = 0xFFFD;
| |
}
| |
| |
//---
| |
res[pos++] = uchar(0xE0 | (code >> 12));
| |
res[pos++] = uchar(0x80 | ((code >> 6) & 0x3F));
| |
res[pos++] = uchar(0x80 | (code & 0x3F));
| |
continue;
| |
}
| |
case TSN_TABLE_UNESCAPE_INVALID:
| |
return -1; // error
| |
default:
| |
res[pos++] = next;
| |
continue;
| |
}
| |
}
| |
//---
| |
res[pos++] = ch;
| |
}
| |
| |
//---
| |
return ArrayResize(res, pos);
| |
}
| |
| |
| |
| |
//+------------------------------------------------------------------+
| |
//| |
| |
//+------------------------------------------------------------------+
| |
static bool CJsonParser::EscapePointer(const string &in, int &i, int len, ulong &hash)
| |
{
| |
//---
| |
hash = 14695981039346656037ULL;
| |
for(; i < len; i++) // nota aqui el " se nos garantiza pero igual en uncidoe hay que vertiicar el len
| |
{
| |
//---
| |
const ushort ch = in[i];
| |
if(ch == '\\')
| |
{
| |
const uchar next = g_tsn_table_json_unescape_table[in[++i]];
| |
switch(next)
| |
{
| |
case TSN_TABLE_UNESCAPE_UNICODE:
| |
{
| |
if(i + 4 >= len)
| |
return false;
| |
| |
//---
| |
DOMBASEULTIS_MAKESTRING_CODE(code, i)
| |
| |
//--- Vefificamos low\high surrogate
| |
if(code >= 0xD800 && code <= 0xDBFF)
| |
{
| |
if(i + 6 < len && in[i + 1] == '\\' && in[i + 2] == 'u')
| |
{
| |
int j = i + 2;
| |
DOMBASEULTIS_MAKESTRING_CODE(low, j)
| |
//---
| |
if(low >= 0xDC00 && low <= 0xDFFF)
| |
{
| |
DOMBASEULTIS_MKH_ITER(code)
| |
DOMBASEULTIS_MKH_ITER(low)
| |
i = j;
| |
break;
| |
}
| |
}
| |
//---
| |
// if(sizeof(TStrict) == JSONUNESCAPE_STRICT)
| |
// return def;
| |
DOMBASEULTIS_MKH_ITER(0xFFFD)
| |
}
| |
else
| |
if(code >= 0xDC00 && code <= 0xDFFF)
| |
{
| |
//if(sizeof(TStrict) == JSONUNESCAPE_STRICT)
| |
//return def;
| |
DOMBASEULTIS_MKH_ITER(0xFFFD)
| |
}
| |
else
| |
{
| |
DOMBASEULTIS_MKH_ITER(code)
| |
}
| |
break;
| |
}
| |
case TSN_TABLE_UNESCAPE_INVALID:
| |
return false;
| |
default:
| |
DOMBASEULTIS_MKH_ITER(next)
| |
break;
| |
}
| |
continue;
| |
}
| |
if(ch == '/')
| |
return true;
| |
if(ch == '~')
| |
{
| |
const ushort n = in[++i];
| |
if(n == '1')
| |
{
| |
DOMBASEULTIS_MKH_ITER('/')
| |
continue;
| |
}
| |
else
| |
if(n == '0')
| |
{
| |
DOMBASEULTIS_MKH_ITER('~')
| |
continue;
| |
}
| |
return false; // escape invalido
| |
}
| |
| |
//---
| |
DOMBASEULTIS_MKH_ITER(ch)
| |
}
| |
return true;
| |
}
| |
| |
//--- end namespace
| |
}
| |
#endif // JSONPARSERBYLEO_SRC_JSONUNESCAPE_MQH
|