The R Project SVN – R-packages – /trunk/RJSONIO/src/libjson/Source/internalJSONNode.cpp

#include "internalJSONNode.h"
#include "NumberToString.h"  //So that I can convert numbers into strings
#include "JSONNode.h"  //To fill in the foreward declaration
#include "JSONWorker.h"  //For fetching and parsing and such
#include "JSONGlobals.h"

internalJSONNode::internalJSONNode(const internalJSONNode & orig) json_nothrow :
    _type(orig._type), _name(orig._name), _name_encoded(orig._name_encoded),
    _string(orig._string), _string_encoded(orig._string_encoded), _value(orig._value)
    initializeMutex(0)
    initializeRefCount(1)
    initializeFetch(orig.fetched)
    initializeComment(orig._comment)
    initializeChildren(0){


    LIBJSON_COPY_CTOR;
    if (isContainer()){
       CHILDREN = jsonChildren::newChildren();
       if (json_likely(!orig.CHILDREN -> empty())){
          CHILDREN -> reserve(orig.CHILDREN -> size());
          json_foreach(orig.CHILDREN, myrunner){
             CHILDREN -> push_back(JSONNode::newJSONNode((*myrunner) -> duplicate()));
          }
       }
    }
    #ifdef JSON_MUTEX_CALLBACKS /*-> JSON_MUTEX_CALLBACKS */
       _set_mutex(orig.mylock, false);
    #endif /*<- */
}

#ifdef JSON_PREPARSE /*-> JSON_PREPARSE */
    #define SetFetchedFalseOrDo(code) code
#else /*<- else */
    #define SetFetchedFalseOrDo(code) SetFetched(false)
#endif /*<- */

//this one is specialized because the root can only be array or node
#ifdef JSON_READ_PRIORITY /*-> JSON_READ_PRIORITY */
internalJSONNode::internalJSONNode(const json_string & unparsed) json_nothrow : _type(), _name(),_name_encoded(false), _string(unparsed), _string_encoded(), _value()
    initializeMutex(0)
    initializeRefCount(1)
    initializeFetch(false)
    initializeComment(json_global(EMPTY_JSON_STRING))
    initializeChildren(0){

    LIBJSON_CTOR;
    switch (unparsed[0]){
       case JSON_TEXT('{'):  //node
          _type = JSON_NODE;
          CHILDREN = jsonChildren::newChildren();
          #ifdef JSON_PREPARSE
             FetchNode();
          #endif
          break;
       case JSON_TEXT('['):  //array
          _type = JSON_ARRAY;
          CHILDREN = jsonChildren::newChildren();
          #ifdef JSON_PREPARSE
             FetchArray();
          #endif
          break;
       default:
          JSON_FAIL_SAFE(JSON_TEXT("root not starting with either { or ["), Nullify(););
          break;
    }
}

#ifndef JSON_STRICT 
    #define LETTERCASE(x, y)\
       case JSON_TEXT(x):\
       case JSON_TEXT(y)
#else
    #define LETTERCASE(x, y)\
       case JSON_TEXT(x)
#endif

internalJSONNode::internalJSONNode(const json_string & name_t, const json_string & value_t) json_nothrow : _type(), _name(JSONWorker::FixString(name_t, NAME_ENCODED)), _name_encoded(), _string(), _string_encoded(), _value()
    initializeMutex(0)
    initializeRefCount(1)
    initializeFetch(false)
    initializeComment(json_global(EMPTY_JSON_STRING))
    initializeChildren(0){

    LIBJSON_CTOR;

    #ifdef JSON_STRICT
       JSON_ASSERT_SAFE(!value_t.empty(), JSON_TEXT("empty node"), Nullify(); return;);
    #else 
       if (json_unlikely(value_t.empty())){
          _type = JSON_NULL;
          SetFetched(true);
          return;
       }
    #endif

    _string = value_t;

    const json_char firstchar = value_t[0];
    #if defined JSON_DEBUG || defined JSON_SAFE
       const json_char lastchar = value_t[value_t.length() - 1];
    #endif

    switch (firstchar){
        case JSON_TEXT('\"'):  //a json_string literal, still escaped and with leading and trailing quotes
            JSON_ASSERT_SAFE(lastchar == JSON_TEXT('\"'), JSON_TEXT("Unterminated quote"), Nullify(); return;);
            _type = JSON_STRING;
            SetFetchedFalseOrDo(FetchString());
            break;
        case JSON_TEXT('{'):  //a child node, or set of children
            JSON_ASSERT_SAFE(lastchar == JSON_TEXT('}'), JSON_TEXT("Missing }"), Nullify(); return;);
            _type = JSON_NODE;
            CHILDREN = jsonChildren::newChildren();
            SetFetchedFalseOrDo(FetchNode());
            break;
        case JSON_TEXT('['):  //an array
            JSON_ASSERT_SAFE(lastchar == JSON_TEXT(']'), JSON_TEXT("Missing ]"), Nullify(); return;);
            _type = JSON_ARRAY;
            CHILDREN = jsonChildren::newChildren();
            SetFetchedFalseOrDo(FetchArray());
            break;
        LETTERCASE('t', 'T'):
            JSON_ASSERT_SAFE(value_t == json_global(CONST_TRUE), json_string(json_global(ERROR_UNKNOWN_LITERAL) + value_t).c_str(), Nullify(); return;);
            _value._bool = true;
            _type = JSON_BOOL;
            SetFetched(true);
            break;
        LETTERCASE('f', 'F'):
            JSON_ASSERT_SAFE(value_t == json_global(CONST_FALSE), json_string(json_global(ERROR_UNKNOWN_LITERAL) + value_t).c_str(), Nullify(); return;);
            _value._bool = false;
            _type = JSON_BOOL;
            SetFetched(true);
            break;
        LETTERCASE('n', 'N'):
            JSON_ASSERT_SAFE(value_t == json_global(CONST_NULL), json_string(json_global(ERROR_UNKNOWN_LITERAL) + value_t).c_str(), Nullify(); return;);
            _type = JSON_NULL;
            SetFetched(true);
            break;
        default:
            JSON_ASSERT_SAFE(NumberToString::isNumeric(value_t), json_string(json_global(ERROR_UNKNOWN_LITERAL) + value_t).c_str(), Nullify(); return;);
            _type = JSON_NUMBER;
            SetFetchedFalseOrDo(FetchNumber());
            break;
    }
}

#endif /*<- */


internalJSONNode::~internalJSONNode(void) json_nothrow {
    LIBJSON_DTOR;
    #ifdef JSON_MUTEX_CALLBACKS 
       _unset_mutex();
    #endif /*<- */
    DELETE_CHILDREN();
}

#ifdef JSON_READ_PRIORITY
    void internalJSONNode::FetchString(void) const json_nothrow {
       JSON_ASSERT_SAFE(!_string.empty(), JSON_TEXT("JSON json_string type is empty?"), Nullify(); return;);
       JSON_ASSERT_SAFE(_string[0] == JSON_TEXT('\"'), JSON_TEXT("JSON json_string type doesn't start with a quotation?"), Nullify(); return;);
       JSON_ASSERT_SAFE(_string[_string.length() - 1] == JSON_TEXT('\"'), JSON_TEXT("JSON json_string type doesn't end with a quotation?"), Nullify(); return;);
       _string = JSONWorker::FixString(json_string(_string.begin() + 1, _string.end() - 1), STRING_ENCODED);
       #ifdef JSON_LESS_MEMORY
          JSON_ASSERT(_string.capacity() == _string.length(), JSON_TEXT("_string object too large 2"));
       #endif 
    }

    void internalJSONNode::FetchNode(void) const json_nothrow {
       JSON_ASSERT_SAFE(!_string.empty(), JSON_TEXT("JSON node type is empty?"), Nullify(); return;);
       JSON_ASSERT_SAFE(_string[0] == JSON_TEXT('{'), JSON_TEXT("JSON node type doesn't start with a bracket?"), Nullify(); return;);
       JSON_ASSERT_SAFE(_string[_string.length() - 1] == JSON_TEXT('}'), JSON_TEXT("JSON node type doesn't end with a bracket?"), Nullify(); return;);
       JSONWorker::DoNode(this, _string);
       clearString(_string);
    }

    void internalJSONNode::FetchArray(void) const json_nothrow {
       JSON_ASSERT_SAFE(!_string.empty(), JSON_TEXT("JSON node type is empty?"), Nullify(); return;);
       JSON_ASSERT_SAFE(_string[0] == JSON_TEXT('['), JSON_TEXT("JSON node type doesn't start with a square bracket?"), Nullify(); return;);
       JSON_ASSERT_SAFE(_string[_string.length() - 1] == JSON_TEXT(']'), JSON_TEXT("JSON node type doesn't end with a square bracket?"), Nullify(); return;);
       JSONWorker::DoArray(this, _string);
       clearString(_string);
    }

#endif

//This one is used by as_int and as_float, so even non-readers need it
void internalJSONNode::FetchNumber(void) const json_nothrow {
    #ifdef JSON_STRICT
        _value._number = NumberToString::_atof(_string.c_str());
    #else 
       #ifdef JSON_UNICODE
          const size_t len = _string.length();
          #if defined(_MSC_VER) && defined(JSON_SAFE) 
             const size_t bytes = (len * (sizeof(json_char) / sizeof(char))) + 1;
             json_auto<char> temp(bytes);
             size_t res;
             errno_t err = wcstombs_s(&res, temp.ptr, bytes, _string.c_str(), len);
             if (err != 0){
                _value._number = (json_number)0.0;
                return;
             }
          #elif defined(JSON_SAFE)
             const size_t bytes = (len * (sizeof(json_char) / sizeof(char))) + 1;
             json_auto<char> temp(bytes);
             size_t res = std::wcstombs(temp.ptr, _string.c_str(), len);
             if (res == (size_t)-1){
                _value._number = (json_number)0.0;
                return;
             }
          #else 
             json_auto<char> temp(len + 1);
             size_t res = std::wcstombs(temp.ptr, _string.c_str(), len);
          #endif 
          temp.ptr[res] = '\0';
          _value._number = (json_number)std::atof(temp.ptr);
       #else
          _value._number = (json_number)std::atof(_string.c_str());
       #endif
    #endif
    #if((!defined(JSON_CASTABLE) && defined(JSON_LESS_MEMORY)) && !defined(JSON_WRITE_PRIORITY))
       clearString(_string);
    #endif
}

#if !defined(JSON_PREPARSE) && defined(JSON_READ_PRIORITY)
    void internalJSONNode::Fetch(void) const json_nothrow {
       if (fetched) return;
       switch (type()){
          case JSON_STRING:
             FetchString();
             break;
          case JSON_NODE:
             FetchNode();
             break;
          case JSON_ARRAY:
             FetchArray();
             break;
          case JSON_NUMBER:
             FetchNumber();
             break;
          #if defined JSON_DEBUG || defined JSON_SAFE
             default:
                JSON_FAIL(JSON_TEXT("Fetching an unknown type"));
                Nullify();
          #endif 
       }
       fetched = true;
    }
#endif

void internalJSONNode::Set(const json_string & val) json_nothrow {
    makeNotContainer();
    _type = JSON_STRING;
    _string = val;
    shrinkString(_string);
    _string_encoded = true;
    SetFetched(true);
}

#ifdef JSON_LIBRARY
    void internalJSONNode::Set(json_int_t val) json_nothrow {
       makeNotContainer();
       _type = JSON_NUMBER;
       _value._number = (json_number)val;
       #if(defined(JSON_CASTABLE) || !defined(JSON_LESS_MEMORY) || defined(JSON_WRITE_PRIORITY))
          _string = NumberToString::_itoa<json_int_t>(val);
       #else
          clearString(_string);
       #endif
       SetFetched(true);
    }

    void internalJSONNode::Set(json_number val) json_nothrow {
       makeNotContainer();
       _type = JSON_NUMBER;
       _value._number = val;
       #if(defined(JSON_CASTABLE) || !defined(JSON_LESS_MEMORY) || defined(JSON_WRITE_PRIORITY))
          _string = NumberToString::_ftoa(val);
       #else 
          clearString(_string);
       #endif
       SetFetched(true);
    }
#else 
    #if(defined(JSON_CASTABLE) || !defined(JSON_LESS_MEMORY) || defined(JSON_WRITE_PRIORITY))
       #define SET(converter, type)\
          void internalJSONNode::Set(type val) json_nothrow {\
             makeNotContainer();\
             _type = JSON_NUMBER;\
             _value._number = (json_number)val;\
             _string = NumberToString::converter<type>(val);\
             SetFetched(true);\
          }
       #define SET_FLOAT(type) \
          void internalJSONNode::Set(type val) json_nothrow {\
             makeNotContainer();\
             _type = JSON_NUMBER;\
             _value._number = (json_number)val;\
             _string = NumberToString::_ftoa(_value._number);\
             SetFetched(true);\
          }
    #else /*<- else */
       #define SET(converter, type)\
          void internalJSONNode::Set(type val) json_nothrow {\
             makeNotContainer();\
             _type = JSON_NUMBER;\
             _value._number = (json_number)val;\
             clearString(_string);\
             SetFetched(true);\
          }
       #define SET_FLOAT(type) \
          void internalJSONNode::Set(type val) json_nothrow {\
             makeNotContainer();\
             _type = JSON_NUMBER;\
             _value._number = (json_number)val;\
             clearString(_string);\
             SetFetched(true);\
          }
    #endif
    #define SET_INTEGER(type) SET(_itoa, type) SET(_uitoa, unsigned type)

    SET_INTEGER(char)
    SET_INTEGER(short)
    SET_INTEGER(int)
    SET_INTEGER(long)
    #ifndef JSON_ISO_STRICT 
       SET_INTEGER(long long)
       SET_FLOAT(long double)
    #endif

    SET_FLOAT(float)
    SET_FLOAT(double)
#endif

void internalJSONNode::Set(bool val) json_nothrow {
    makeNotContainer();
    _type = JSON_BOOL;
    _value._bool = val;
    #if(defined(JSON_CASTABLE) || !defined(JSON_LESS_MEMORY) || defined(JSON_WRITE_PRIORITY))
       _string = val ? json_global(CONST_TRUE) : json_global(CONST_FALSE);
    #endif
    SetFetched(true);
}

bool internalJSONNode::IsEqualTo(const internalJSONNode * val) const json_nothrow {
    if (this == val) return true;  //same internal object, so they must be equal (not only for ref counting)
    if (type() != val -> type()) return false;   //aren't even same type
    if (_name != val -> _name) return false;  //names aren't the same
    if (type() == JSON_NULL) return true;  //both null, can't be different
    #if !defined(JSON_PREPARSE) && defined(JSON_READ_PRIORITY) 
       Fetch();
       val -> Fetch();
    #endif 
    switch (type()){
       case JSON_STRING:
          return val -> _string == _string;
       case JSON_NUMBER:
          return _floatsAreEqual(val -> _value._number, _value._number);
       case JSON_BOOL:
          return val -> _value._bool == _value._bool;
    };

    JSON_ASSERT(type() == JSON_NODE || type() == JSON_ARRAY, JSON_TEXT("Checking for equality, not sure what type"));
    if (CHILDREN -> size() != val -> CHILDREN -> size()) return false;  //if they arne't he same size then they certainly aren't equal

    //make sure each children is the same
    JSONNode ** valrunner = val -> CHILDREN -> begin();
    json_foreach(CHILDREN, myrunner){
        JSON_ASSERT(*myrunner != NULL, json_global(ERROR_NULL_IN_CHILDREN));
        JSON_ASSERT(*valrunner != NULL, json_global(ERROR_NULL_IN_CHILDREN));
        JSON_ASSERT(valrunner != val -> CHILDREN -> end(), JSON_TEXT("at the end of other one's children, but they're the same size?"));
        if (**myrunner != **valrunner) return false;
        ++valrunner;
    }
    return true;
}

void internalJSONNode::Nullify(void) const json_nothrow {
    _type = JSON_NULL;
    #if(defined(JSON_CASTABLE) || !defined(JSON_LESS_MEMORY) || defined(JSON_WRITE_PRIORITY)) /*-> JSON_CASTABLE || !JSON_LESS_MEMORY || JSON_WRITE_PRIORITY */
       _string = json_global(CONST_NULL);
    #else /*<- else */
       clearString(_string);
    #endif /*<- */
    SetFetched(true);
}

#ifdef JSON_MUTEX_CALLBACKS /*-> JSON_MUTEX_CALLBACKS */
    #define JSON_MUTEX_COPY ,mylock
#else /*<- else */
    #define JSON_MUTEX_COPY
#endif /*<- */

#ifdef JSON_LIBRARY /*-> JSON_LIBRARY */
void internalJSONNode::push_back(JSONNode * node) json_nothrow {
#else /*<- else */
void internalJSONNode::push_back(const JSONNode & node) json_nothrow {
#endif /*<- */
    JSON_ASSERT_SAFE(isContainer(), json_global(ERROR_NON_CONTAINER) + JSON_TEXT("push_back"), return;);
    #ifdef JSON_LIBRARY /*-> JSON_LIBRARY */
       #ifdef JSON_MUTEX_CALLBACKS /*-> JSON_MUTEX_CALLBACKS */
          if (mylock != 0) node -> set_mutex(mylock);
       #endif /*<- */
       CHILDREN -> push_back(node);
    #else /*<- else */
       CHILDREN -> push_back(JSONNode::newJSONNode(node   JSON_MUTEX_COPY));
    #endif /*<- */
}

void internalJSONNode::push_front(const JSONNode & node) json_nothrow {
    JSON_ASSERT_SAFE(isContainer(), json_global(ERROR_NON_CONTAINER) + JSON_TEXT("push_front"), return;);
    CHILDREN -> push_front(JSONNode::newJSONNode(node   JSON_MUTEX_COPY));
}

JSONNode * internalJSONNode::pop_back(json_index_t pos) json_nothrow {
    JSON_ASSERT_SAFE(isContainer(), json_global(ERROR_NON_CONTAINER) + JSON_TEXT("pop_back"), return 0;);
    JSONNode * result = (*CHILDREN)[pos];
    JSONNode ** temp = CHILDREN -> begin() + pos;
    CHILDREN -> erase(temp);
    return result;
}

JSONNode * internalJSONNode::pop_back(const json_string & name_t) json_nothrow {
    JSON_ASSERT_SAFE(isContainer(), json_global(ERROR_NON_CONTAINER) + JSON_TEXT("pop_back(str)"), return 0;);
    if (JSONNode ** res = at(name_t)){
       JSONNode * result = *res;
       CHILDREN -> erase(res);
       return result;
    }
    return 0;
}

#ifdef JSON_CASE_INSENSITIVE_FUNCTIONS /*-> JSON_CASE_INSENSITIVE_FUNCTIONS */
    JSONNode * internalJSONNode::pop_back_nocase(const json_string & name_t) json_nothrow {
       JSON_ASSERT_SAFE(isContainer(), json_global(ERROR_NON_CONTAINER) + JSON_TEXT("pop_back_nocase"), return 0;);
       if (JSONNode ** res = at_nocase(name_t)){
          JSONNode * result = *res;
          CHILDREN -> erase(res);
          return result;
       }
       return 0;
    }
#endif /*<- */

JSONNode ** internalJSONNode::at(const json_string & name_t) json_nothrow {
    JSON_ASSERT_SAFE(isContainer(), json_global(ERROR_NON_CONTAINER) + JSON_TEXT("at"), return 0;);
    Fetch();
    json_foreach(CHILDREN, myrunner){
       JSON_ASSERT(*myrunner != NULL, json_global(ERROR_NULL_IN_CHILDREN));
       if (json_unlikely((*myrunner) -> name() == name_t)) return myrunner;
    }
    return 0;
}

#ifdef JSON_CASE_INSENSITIVE_FUNCTIONS /*-> JSON_CASE_INSENSITIVE_FUNCTIONS */
    bool internalJSONNode::AreEqualNoCase(const json_char * ch_one, const json_char * ch_two) json_nothrow {
       while (*ch_one){  //only need to check one, if the other one terminates early, the check will cause it to fail
          const json_char c_one = *ch_one;
          const json_char c_two = *ch_two;
          if (c_one != c_two){
             if ((c_two > 64) && (c_two < 91)){  //A - Z
                if (c_one != (json_char)(c_two + 32)) return false;
             } else if ((c_two > 96) && (c_two < 123)){  //a - z
                if (c_one != (json_char)(c_two - 32)) return false;
             } else { //not a letter, so return false
                return false;
             }
          }
          ++ch_one;
          ++ch_two;

       }
       return *ch_two == '\0';  //this one has to be null terminated too, or else json_string two is longer, hence, not equal
    }

    JSONNode ** internalJSONNode::at_nocase(const json_string & name_t) json_nothrow {
       JSON_ASSERT_SAFE(isContainer(), json_global(ERROR_NON_CONTAINER) + JSON_TEXT("at_nocase"), return 0;);
       Fetch();
       json_foreach(CHILDREN, myrunner){
          JSON_ASSERT(*myrunner, json_global(ERROR_NULL_IN_CHILDREN));
          if (json_unlikely(AreEqualNoCase((*myrunner) -> name().c_str(), name_t.c_str()))) return myrunner;
       }
       return 0;
    }
#endif /*<- */

#if !defined(JSON_PREPARSE) && defined(JSON_READ_PRIORITY) /*-> JSON_PREPARSE && JSON_READ_PRIORITY */
    void internalJSONNode::preparse(void) json_nothrow {
       Fetch();
       if (isContainer()){
          json_foreach(CHILDREN, myrunner){
             (*myrunner) -> preparse();
          }
       }
    }
#endif /*<- */

internalJSONNode::operator bool() const json_nothrow {
    Fetch();
    #ifdef JSON_CASTABLE /*-> JSON_CASTABLE */
       switch(type()){
          case JSON_NUMBER:
             return !_floatsAreEqual(_value._number, (json_number)0.0);
          case JSON_NULL:
             return false;
       }
    #endif /*<- */
    JSON_ASSERT(type() == JSON_BOOL, json_global(ERROR_UNDEFINED) + JSON_TEXT("(bool)"));
    return _value._bool;
}

#ifdef JSON_LIBRARY /*-> JSON_LIBRARY */
    internalJSONNode::operator json_number() const json_nothrow {
       Fetch();
       #ifdef JSON_CASTABLE /*-> JSON_CASTABLE */
          switch(type()){
             case JSON_NULL:
                return (json_number)0.0;
             case JSON_BOOL:
                return (json_number)(_value._bool ? 1.0 : 0.0);
             case JSON_STRING:
                FetchNumber();
          }
       #endif /*<- */
       JSON_ASSERT(type() == JSON_NUMBER, json_global(ERROR_UNDEFINED) + JSON_TEXT("as_float"));
       return (json_number)_value._number;
    }

    internalJSONNode::operator json_int_t() const json_nothrow {
       Fetch();
       #ifdef JSON_CASTABLE /*-> JSON_CASTABLE */
          switch(type()){
             case JSON_NULL:
                return 0;
             case JSON_BOOL:
                return _value._bool ? 1 : 0;
             case JSON_STRING:
                FetchNumber();
          }
       #endif /*<- */
       JSON_ASSERT(type() == JSON_NUMBER, json_global(ERROR_UNDEFINED) + JSON_TEXT("as_int"));
       JSON_ASSERT(_value._number == (json_number)((json_int_t)_value._number), json_string(JSON_TEXT("as_int will truncate ")) + _string);
       return (json_int_t)_value._number;
    }
#else /*<- else */
    #ifndef JSON_ISO_STRICT /*-> !JSON_ISO_STRICT */
       internalJSONNode::operator long double() const json_nothrow {
          Fetch();
          #ifdef JSON_CASTABLE /*-> JSON_CASTABLE */
             switch(type()){
                case JSON_NULL:
                    return (long double)0.0;
                case JSON_BOOL:
                    return (long double)(_value._bool ? 1.0 : 0.0);
                case JSON_STRING:
                    FetchNumber();
             }
          #endif /*<- */
          JSON_ASSERT(type() == JSON_NUMBER, json_global(ERROR_UNDEFINED) + JSON_TEXT("(long double)"));
          return (long double)_value._number;
       }
    #else /*<- else */
       internalJSONNode::operator double() const json_nothrow {
          Fetch();
          #ifdef JSON_CASTABLE /*-> JSON_CASTABLE */
             switch(type()){
                case JSON_NULL:
                    return (double)0.0;
                case JSON_BOOL:
                    return (double)(_value._bool ? 1.0 : 0.0);
                case JSON_STRING:
                    FetchNumber();
             }
          #endif /*<- */
          JSON_ASSERT(type() == JSON_NUMBER, json_global(ERROR_UNDEFINED) + JSON_TEXT("(double)"));
          return (double)_value._number;
       }
    #endif /*<- */

    //do whichever one is longer, because it's easy to cast down
    #ifdef JSON_ISO_STRICT /*-> JSON_ISO_STRICT */
       internalJSONNode::operator long() const json_nothrow
    #else /*<- else */
       internalJSONNode::operator long long() const json_nothrow
    #endif /*<- */
    {
       Fetch();
       #ifdef JSON_CASTABLE /*-> JSON_CASTABLE */
          switch(type()){
             case JSON_NULL:
                return 0;
             case JSON_BOOL:
                return _value._bool ? 1 : 0;
             case JSON_STRING:
                FetchNumber();
          }
       #endif /*<- */
       #ifdef JSON_ISO_STRICT /*-> JSON_ISO_STRICT */
          JSON_ASSERT(type() == JSON_NUMBER, json_global(ERROR_UNDEFINED) + JSON_TEXT("(long)"));
          JSON_ASSERT(_value._number > LONG_MIN, _string + json_global(ERROR_LOWER_RANGE) + JSON_TEXT("long"));
          JSON_ASSERT(_value._number < LONG_MAX, _string + json_global(ERROR_UPPER_RANGE) + JSON_TEXT("long"));
          JSON_ASSERT(_value._number == (json_number)((long)_value._number), json_string(JSON_TEXT("(long) will truncate ")) + _string);
          return (long)_value._number;
       #else /*<- else */
          JSON_ASSERT(type() == JSON_NUMBER, json_global(ERROR_UNDEFINED) + JSON_TEXT("(long long)"));
          #ifdef LONG_LONG_MAX           
             JSON_ASSERT(_value._number < LONG_LONG_MAX, _string + json_global(ERROR_UPPER_RANGE) + JSON_TEXT("long long"));
          #elif defined(LLONG_MAX)
             JSON_ASSERT(_value._number < LLONG_MAX, _string + json_global(ERROR_UPPER_RANGE) + JSON_TEXT("long long"));
          #endif
          #ifdef LONG_LONG_MIN
             JSON_ASSERT(_value._number > LONG_LONG_MIN, _string + json_global(ERROR_LOWER_RANGE) + JSON_TEXT("long long"));
          #elif defined(LLONG_MAX)
             JSON_ASSERT(_value._number > LLONG_MIN, _string + json_global(ERROR_LOWER_RANGE) + JSON_TEXT("long long"));
          #endif

          JSON_ASSERT(_value._number == (json_number)((long long)_value._number), json_string(JSON_TEXT("(long long) will truncate ")) + _string);
          return (long long)_value._number;
       #endif /*<- */
    }

    #ifdef JSON_ISO_STRICT /*-> JSON_ISO_STRICT */
       internalJSONNode::operator unsigned long() const json_nothrow
    #else /*<- else */
       internalJSONNode::operator unsigned long long() const json_nothrow
    #endif /*<- */
    {
       Fetch();
       #ifdef JSON_CASTABLE /*-> JSON_CASTABLE */
          switch(type()){
             case JSON_NULL:
                return 0;
             case JSON_BOOL:
                return _value._bool ? 1 : 0;
             case JSON_STRING:
                FetchNumber();
          }
       #endif /*<- */
       #ifdef JSON_ISO_STRICT /*-> JSON_ISO_STRICT */
          JSON_ASSERT(type() == JSON_NUMBER, json_global(ERROR_UNDEFINED) + JSON_TEXT("(unsigned long)"));
          JSON_ASSERT(_value._number > 0, _string + json_global(ERROR_LOWER_RANGE) + JSON_TEXT("unsigned long"));
          JSON_ASSERT(_value._number < ULONG_MAX, _string + json_global(ERROR_UPPER_RANGE) + JSON_TEXT("unsigned long"));
          JSON_ASSERT(_value._number == (json_number)((unsigned long)_value._number), json_string(JSON_TEXT("(unsigend long) will truncate ")) + _string);
          return (unsigned long)_value._number;
       #else /*<- else */
          JSON_ASSERT(type() == JSON_NUMBER, json_global(ERROR_UNDEFINED) + JSON_TEXT("(unsigned long long)"));
          JSON_ASSERT(_value._number > 0, _string + json_global(ERROR_LOWER_RANGE) + JSON_TEXT("unsigned long long"));
          #ifdef ULONG_LONG_MAX
             JSON_ASSERT(_value._number < ULONG_LONG_MAX, _string + json_global(ERROR_UPPER_RANGE) + JSON_TEXT("unsigned long long"));
          #elif defined(ULLONG_MAX)
             JSON_ASSERT(_value._number < ULLONG_MAX, _string + json_global(ERROR_UPPER_RANGE) + JSON_TEXT("unsigned long long"));
          #endif
          JSON_ASSERT(_value._number == (json_number)((unsigned long long)_value._number), json_string(JSON_TEXT("(unsigned long long) will truncate ")) + _string);
          return (unsigned long long)_value._number;
       #endif /*<- */
    }
#endif /*<- */
    
    /*
     These functions are to allow allocation to be completely controlled by the callbacks
     */
    
#ifdef JSON_MEMORY_POOL /*-> JSON_MEMORY_POOL */
    #include "JSONMemoryPool.h"
    static memory_pool<INTERNALNODEPOOL> json_internal_mempool;
#endif /*<- */
    
void internalJSONNode::deleteInternal(internalJSONNode * ptr) json_nothrow {
    #ifdef JSON_MEMORY_POOL /*-> JSON_MEMORY_POOL */
        ptr -> ~internalJSONNode();
        json_internal_mempool.deallocate((void*)ptr);
    #elif defined(JSON_MEMORY_CALLBACKS) /*<- else JSON_MEMORY_CALLBACKS */
        ptr -> ~internalJSONNode();
        libjson_free<internalJSONNode>(ptr);
    #else /*<- else */
        delete ptr;
    #endif /*<- */
}
    
internalJSONNode * internalJSONNode::newInternal(char mytype) {
    #ifdef JSON_MEMORY_POOL /*-> JSON_MEMORY_POOL */
        return new((internalJSONNode*)json_internal_mempool.allocate()) internalJSONNode(mytype);
    #elif defined(JSON_MEMORY_CALLBACKS) /*<- else JSON_MEMORY_CALLBACKS */
        return new(json_malloc<internalJSONNode>(1)) internalJSONNode(mytype);
    #else /*<- else */
        return new internalJSONNode(mytype);
    #endif /*<- */
}
    
#ifdef JSON_READ_PRIORITY /*-> JSON_READ_PRIORITY */
internalJSONNode * internalJSONNode::newInternal(const json_string & unparsed) {
    #ifdef JSON_MEMORY_POOL /*-> JSON_MEMORY_POOL */
        return new((internalJSONNode*)json_internal_mempool.allocate()) internalJSONNode(unparsed);
    #elif defined(JSON_MEMORY_CALLBACKS) /*<- else JSON_MEMORY_CALLBACKS */
        return new(json_malloc<internalJSONNode>(1)) internalJSONNode(unparsed);
    #else /*<- else */
        return new internalJSONNode(unparsed);
    #endif /*<- */
}
    
internalJSONNode * internalJSONNode::newInternal(const json_string & name_t, const json_string & value_t) {
    #ifdef JSON_MEMORY_POOL /*-> JSON_MEMORY_POOL */
        return new((internalJSONNode*)json_internal_mempool.allocate()) internalJSONNode(name_t, value_t);
    #elif defined(JSON_MEMORY_CALLBACKS) /*<- else JSON_MEMORY_CALLBACKS */
        return new(json_malloc<internalJSONNode>(1)) internalJSONNode(name_t, value_t);
    #else /*<- else */
        return new internalJSONNode(name_t, value_t);
    #endif /*<- */
}
    
#endif /*<- */
    
internalJSONNode * internalJSONNode::newInternal(const internalJSONNode & orig) {
    #ifdef JSON_MEMORY_POOL /*-> JSON_MEMORY_POOL */
        return new((internalJSONNode*)json_internal_mempool.allocate()) internalJSONNode(orig);
    #elif defined(JSON_MEMORY_CALLBACKS) /*<- else JSON_MEMORY_CALLBACKS */
        return new(json_malloc<internalJSONNode>(1)) internalJSONNode(orig);
    #else /*<- else */
        return new internalJSONNode(orig);
    #endif /*<- */
}

#ifdef JSON_DEBUG /*-> JSON_MEMORY_POOL */
    #ifndef JSON_LIBRARY /*-> JSON_MEMORY_POOL */
       JSONNode internalJSONNode::Dump(size_t & totalbytes) const json_nothrow {
          JSONNode dumpage(JSON_NODE);
          dumpage.set_name(JSON_TEXT("internalJSONNode"));
          dumpage.push_back(JSON_NEW(JSONNode(JSON_TEXT("this"), (long)this)));

          START_MEM_SCOPE
             size_t memory = sizeof(internalJSONNode);
             memory += _name.capacity() * sizeof(json_char);
             memory += _string.capacity() * sizeof(json_char);
             if (isContainer()){
                memory += sizeof(jsonChildren);
                memory += CHILDREN -> capacity() * sizeof(JSONNode*);
             }
             #ifdef JSON_COMMENTS /*-> JSON_COMMENTS */
                memory += _comment.capacity() * sizeof(json_char);
             #endif /*<- */
             totalbytes += memory;
             dumpage.push_back(JSON_NEW(JSONNode(JSON_TEXT("bytes used"), memory)));
          END_MEM_SCOPE


          #ifdef JSON_REF_COUNT /*-> JSON_REF_COUNT */
             dumpage.push_back(JSON_NEW(JSONNode(JSON_TEXT("refcount"), refcount)));
          #endif /*<- */
          #ifdef JSON_MUTEX_CALLBACKS /*-> JSON_MUTEX_CALLBACKS */
             dumpage.push_back(JSON_NEW(DumpMutex()));
          #endif /*<- */


          #define DUMPCASE(ty)\
             case ty:\
                dumpage.push_back(JSON_NEW(JSONNode(JSON_TEXT("_type"), JSON_TEXT(#ty))));\
                break;

          switch(type()){
             DUMPCASE(JSON_NULL)
             DUMPCASE(JSON_STRING)
             DUMPCASE(JSON_NUMBER)
             DUMPCASE(JSON_BOOL)
             DUMPCASE(JSON_ARRAY)
             DUMPCASE(JSON_NODE)
             default:
                dumpage.push_back(JSON_NEW(JSONNode(JSON_TEXT("_type"), JSON_TEXT("Unknown"))));
          }

          JSONNode str(JSON_NODE);
          str.set_name(JSON_TEXT("_name"));
          str.push_back(JSON_NEW(JSONNode(json_string(JSON_TEXT("value")), _name)));
          str.push_back(JSON_NEW(JSONNode(JSON_TEXT("length"), _name.length())));
          str.push_back(JSON_NEW(JSONNode(JSON_TEXT("capactiy"), _name.capacity())));

          dumpage.push_back(JSON_NEW(JSONNode(JSON_TEXT("_name_encoded"), _name_encoded)));
          dumpage.push_back(JSON_NEW(str));
          dumpage.push_back(JSON_NEW(JSONNode(JSON_TEXT("_string_encoded"), _string_encoded)));
          str.clear();
          str.set_name(JSON_TEXT("_string"));
          str.push_back(JSON_NEW(JSONNode(json_string(JSON_TEXT("value")), _string)));
          str.push_back(JSON_NEW(JSONNode(JSON_TEXT("length"), _string.length())));
          str.push_back(JSON_NEW(JSONNode(JSON_TEXT("capactiy"), _string.capacity())));
          dumpage.push_back(JSON_NEW(str));

          if ((type() == JSON_BOOL) || (type() == JSON_NUMBER)){
             JSONNode unio(JSON_NODE);
             unio.set_name(JSON_TEXT("_value"));
             if (type() == JSON_BOOL){
                unio.push_back(JSON_NEW(JSONNode(JSON_TEXT("_bool"), _value._bool)));
             } else if (type() == JSON_NUMBER){
                unio.push_back(JSON_NEW(JSONNode(JSON_TEXT("_number"), _value._number)));
             }
             dumpage.push_back(JSON_NEW(unio));
          }

          #if !defined(JSON_PREPARSE) && defined(JSON_READ_PRIORITY) /*-> !JSON_PREPARSE && JSON_READ_PRIORITY */
             dumpage.push_back(JSON_NEW(JSONNode(JSON_TEXT("fetched"), fetched)));
          #endif /*<- */

          #ifdef JSON_COMMENTS /*-> JSON_COMMENTS */
             str.clear();
             str.set_name(JSON_TEXT("_comment"));
             str.push_back(JSON_NEW(JSONNode(JSON_TEXT("value"), _comment)));
             str.push_back(JSON_NEW(JSONNode(JSON_TEXT("length"), _comment.length())));
             str.push_back(JSON_NEW(JSONNode(JSON_TEXT("capactiy"), _comment.capacity())));
             dumpage.push_back(JSON_NEW(str));
          #endif /*<- */

          if (isContainer()){
             JSONNode arra(JSON_NODE);
             arra.set_name(JSON_TEXT("Children"));
             arra.push_back(JSON_NEW(JSONNode(JSON_TEXT("size"), CHILDREN -> size())));
             arra.push_back(JSON_NEW(JSONNode(JSON_TEXT("capacity"), CHILDREN -> capacity())));
             JSONNode chil(JSON_ARRAY);
             chil.set_name(JSON_TEXT("array"));
             json_foreach(CHILDREN, it){
                chil.push_back(JSON_NEW((*it) -> dump(totalbytes)));
             }
             arra.push_back(JSON_NEW(chil));
             dumpage.push_back(JSON_NEW(arra));
          }

          return dumpage;
       }
    #endif /*<- */
#endif /*<- */
The R Project SVN R-packages

(root)/trunk/RJSONIO/src/libjson/Source/internalJSONNode.cpp – Rev 7747
