JsonParserByLeo/Src/DLL/Parser.h

//+------------------------------------------------------------------+
//|                                                       Parser.cpp |
//|                                  Copyright 2026, Niquel Mendoza. |
//|                                            https://www.mql5.com/ |
//+------------------------------------------------------------------+

//+------------------------------------------------------------------+
//| Pre-Defines                                                      |
//+------------------------------------------------------------------+
#pragma once
#define TSNPARSERIN_CPP_DLL
#define TSN_TARGET_AVX2

//+------------------------------------------------------------------+
//| Includes                                                         |
//+------------------------------------------------------------------+
//--- Includes extra
#include "..\\..\\..\\BasesParserSLan\\Src\\Def.mqh"
#include "..\\JsonDefines.mqh"
#include <cstdio>

//--- Definiciones base
#if defined(TSN_TARGET_AVX512)
#include <immintrin.h>
// kernel con __m512i, _mm512_*, 1 carga de 64 bytes

#elif defined(TSN_TARGET_AVX2)
#include <immintrin.h>
// kernel con __m256i, _mm256_*, 2 cargas de 32 bytes (lo que ya armamos)

#elif defined(TSN_TARGET_SSE42)
#include <nmmintrin.h>
// kernel con __m128i, _mm_*, 4 cargas de 16 bytes

#else
#error "Debes definir TSN_TARGET_AVX512, TSN_TARGET_AVX2 o TSN_TARGET_SSE42"
#endif

#include <cstdarg> 

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
using ulong = uint64_t;
using uchar = uint8_t;

//--- mascaras
#define TSNTABLES_MASK_IMPARES_F (0xAAAAAAAAAAAAAAAA)
#define TSNTABLES_MASK_PARES_F   (0x5555555555555555)

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
// Defines especificos para avanzar
//--- Se usa solo luego de un cor ini aqui peuden ir " [ { t\f\n (1-9\-) ]
#define TSN_JSON_NEXT_COR_INI \
    while(true) \
    {  \
      const uchar _c = m_raw[(*m_pos)];\
     if(_c < 33)  \
     { \
      (*m_pos)++; \
      continue; \
     } \
    m_next = g_table_json_tokens[_c];\
    if(((1 << m_next) & TSN_JSON_F_VAL_COR) == 0)\
    { \
     *m_last_err= TSN_JSON_ERR_MALFORDMED_JSON; \
     return false; \
    }\
    break; \
   }

//--- Luego de una coma en array
// Luego de una , y KEY siempre siempre valor
#define TSN_JSON_NEXT_VALUE_COMM_KEY \
    while(true) \
    {  \
      const uchar _c = m_raw[(*m_pos)];\
     if(_c < 33)  \
     { \
       (*m_pos)++; \
      continue; \
     } \
    m_next = g_table_json_tokens[_c];\
    if(((1 << m_next) & TSN_JSON_F_ALL_I_VAL) == 0)\
    { \
     *m_last_err= TSN_JSON_ERR_MALFORDMED_JSON; \
     return false; \
    }\
    break; \
   }

#define JSONPARSERBYLEO_FULL_NEXT \
        (*m_pos) = m_index[sp++]; \
        m_next = g_table_json_tokens[m_raw[(*m_pos)]];\
        if(((1 << m_next) & m_stak_curr_state) == 0)\
         {\
          *m_last_err = TSN_JSON_ERR_MALFORDMED_JSON;\
          return false;\
         }
         
//--- macro para parsear numeros
#define JSONPARSERBYLEO_PARSE_NUMBER(mask) \
        int64_t v = 0;\
        uchar ch =  m_raw[(*m_pos)] ^  '0';\
        while(true) \
         { \
          v = (v << 3) + (v << 1) + ch; \
          (*m_pos)++; \
          ch = m_raw[(*m_pos)]  ^ '0'; \
          if(ch < 10) \
            continue; \
          else \
            if(ch == 30 || (ch | 0x20) == 117)  \
             { \
              double val = double(v); \
              if(ch == 30) \
               { \
                (*m_pos)++; \
                int64_t frac_int = 0; \
                int fract_digits = 0; \
                while(true) \
                 { \
                  const uchar c = m_raw[(*m_pos)] ^ '0'; \
                  if(c > 9) \
                    break; \
                  frac_int = (frac_int << 3) + (frac_int << 1) + c; \
                  fract_digits++; \
                  (*m_pos)++; \
                 } \
                val += frac_int * g_Exp10[fract_digits]; \
               } \
              if((m_raw[(*m_pos)] | 0x20) == 'e') \
               { \
                (*m_pos)++; \
                bool exp_sign = true; \
                uchar _c = m_raw[(*m_pos)]; \
                if(_c == '-') \
                 { \
                  exp_sign = false; \
                  (*m_pos)++; \
                 } \
                else \
                  if(_c == '+') \
                   { \
                    (*m_pos)++; \
                   } \
                _c = m_raw[(*m_pos)] ^ '0'; \
                int exp_val = 0; \
                while(true) \
                 { \
                  exp_val = (exp_val << 3) + (exp_val << 1) + _c; \
                  (*m_pos)++; \
                  _c = m_raw[(*m_pos)] ^ '0'; \
                  if(_c > 9) \
                    break; \
                 } \
                val *= (exp_sign) ?  g_Pow10[exp_val] : g_Exp10[exp_val]; \
               } \
              TsnBitInterprete bit; \
              bit.double_value = val; \
              bit.long_value ^= (mask & (1LL << 63)); \
              m_cinta[(*m_cinta_pos)++] = JSON_VTYPE_REAL; \
              m_cinta[(*m_cinta_pos)++] = bit.long_value; \
              break; \
             } \
            else \
             { \
              m_cinta[(*m_cinta_pos)++] = JSON_VTYPE_INTEGER; \
              m_cinta[(*m_cinta_pos)++] = (v ^ mask) - mask; \
              break;  \
             } \
         }

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
extern "C" __declspec(dllexport)
// array ya allocado tambein raw solo hace falta rellenar
bool __stdcall JsonParserResolve(const uint8_t * m_raw, const int len, int* m_last_err, int* m_cinta_pos,
                                 int* m_pos, const int m_offset, int64_t * m_cinta, int* m_index);
//+------------------------------------------------------------------+