Annotation of embedaddon/php/ext/json/json.c, revision 1.1.1.4

1.1       misho       1: /*
                      2:   +----------------------------------------------------------------------+
                      3:   | PHP Version 5                                                        |
                      4:   +----------------------------------------------------------------------+
1.1.1.4 ! misho       5:   | Copyright (c) 1997-2014 The PHP Group                                |
1.1       misho       6:   +----------------------------------------------------------------------+
                      7:   | This source file is subject to version 3.01 of the PHP license,      |
                      8:   | that is bundled with this package in the file LICENSE, and is        |
                      9:   | available through the world-wide-web at the following url:           |
                     10:   | http://www.php.net/license/3_01.txt                                  |
                     11:   | If you did not receive a copy of the PHP license and are unable to   |
                     12:   | obtain it through the world-wide-web, please send a note to          |
                     13:   | license@php.net so we can mail you a copy immediately.               |
                     14:   +----------------------------------------------------------------------+
                     15:   | Author: Omar Kilani <omar@php.net>                                   |
                     16:   +----------------------------------------------------------------------+
                     17: */
                     18: 
1.1.1.2   misho      19: /* $Id$ */
1.1       misho      20: 
                     21: #ifdef HAVE_CONFIG_H
                     22: #include "config.h"
                     23: #endif
                     24: 
                     25: #include "php.h"
                     26: #include "php_ini.h"
                     27: #include "ext/standard/info.h"
1.1.1.3   misho      28: #include "ext/standard/html.h"
1.1       misho      29: #include "ext/standard/php_smart_str.h"
                     30: #include "JSON_parser.h"
                     31: #include "php_json.h"
1.1.1.2   misho      32: #include <zend_exceptions.h>
1.1       misho      33: 
                     34: static PHP_MINFO_FUNCTION(json);
                     35: static PHP_FUNCTION(json_encode);
                     36: static PHP_FUNCTION(json_decode);
                     37: static PHP_FUNCTION(json_last_error);
                     38: 
                     39: static const char digits[] = "0123456789abcdef";
                     40: 
1.1.1.4 ! misho      41: PHP_JSON_API zend_class_entry *php_json_serializable_ce;
1.1.1.2   misho      42: 
1.1       misho      43: ZEND_DECLARE_MODULE_GLOBALS(json)
                     44: 
                     45: /* {{{ arginfo */
                     46: ZEND_BEGIN_ARG_INFO_EX(arginfo_json_encode, 0, 0, 1)
                     47:        ZEND_ARG_INFO(0, value)
                     48:        ZEND_ARG_INFO(0, options)
                     49: ZEND_END_ARG_INFO()
                     50: 
                     51: ZEND_BEGIN_ARG_INFO_EX(arginfo_json_decode, 0, 0, 1)
                     52:        ZEND_ARG_INFO(0, json)
                     53:        ZEND_ARG_INFO(0, assoc)
                     54:        ZEND_ARG_INFO(0, depth)
1.1.1.2   misho      55:        ZEND_ARG_INFO(0, options)
1.1       misho      56: ZEND_END_ARG_INFO()
                     57: 
                     58: ZEND_BEGIN_ARG_INFO(arginfo_json_last_error, 0)
                     59: ZEND_END_ARG_INFO()
                     60: /* }}} */
                     61: 
                     62: /* {{{ json_functions[] */
1.1.1.2   misho      63: static const zend_function_entry json_functions[] = {
1.1       misho      64:        PHP_FE(json_encode, arginfo_json_encode)
                     65:        PHP_FE(json_decode, arginfo_json_decode)
                     66:        PHP_FE(json_last_error, arginfo_json_last_error)
                     67:        PHP_FE_END
                     68: };
                     69: /* }}} */
                     70: 
1.1.1.2   misho      71: /* {{{ JsonSerializable methods */
                     72: ZEND_BEGIN_ARG_INFO(json_serialize_arginfo, 0)
                     73:        /* No arguments */
                     74: ZEND_END_ARG_INFO();
                     75: 
                     76: static const zend_function_entry json_serializable_interface[] = {
                     77:        PHP_ABSTRACT_ME(JsonSerializable, jsonSerialize, json_serialize_arginfo)
                     78:        PHP_FE_END
                     79: };
                     80: /* }}} */
                     81: 
1.1       misho      82: /* {{{ MINIT */
                     83: static PHP_MINIT_FUNCTION(json)
                     84: {
1.1.1.2   misho      85:        zend_class_entry ce;
                     86: 
                     87:        INIT_CLASS_ENTRY(ce, "JsonSerializable", json_serializable_interface);
                     88:        php_json_serializable_ce = zend_register_internal_interface(&ce TSRMLS_CC);
                     89: 
1.1       misho      90:        REGISTER_LONG_CONSTANT("JSON_HEX_TAG",  PHP_JSON_HEX_TAG,  CONST_CS | CONST_PERSISTENT);
                     91:        REGISTER_LONG_CONSTANT("JSON_HEX_AMP",  PHP_JSON_HEX_AMP,  CONST_CS | CONST_PERSISTENT);
                     92:        REGISTER_LONG_CONSTANT("JSON_HEX_APOS", PHP_JSON_HEX_APOS, CONST_CS | CONST_PERSISTENT);
                     93:        REGISTER_LONG_CONSTANT("JSON_HEX_QUOT", PHP_JSON_HEX_QUOT, CONST_CS | CONST_PERSISTENT);
                     94:        REGISTER_LONG_CONSTANT("JSON_FORCE_OBJECT", PHP_JSON_FORCE_OBJECT, CONST_CS | CONST_PERSISTENT);
                     95:        REGISTER_LONG_CONSTANT("JSON_NUMERIC_CHECK", PHP_JSON_NUMERIC_CHECK, CONST_CS | CONST_PERSISTENT);
1.1.1.2   misho      96:        REGISTER_LONG_CONSTANT("JSON_UNESCAPED_SLASHES", PHP_JSON_UNESCAPED_SLASHES, CONST_CS | CONST_PERSISTENT);
                     97:        REGISTER_LONG_CONSTANT("JSON_PRETTY_PRINT", PHP_JSON_PRETTY_PRINT, CONST_CS | CONST_PERSISTENT);
                     98:        REGISTER_LONG_CONSTANT("JSON_UNESCAPED_UNICODE", PHP_JSON_UNESCAPED_UNICODE, CONST_CS | CONST_PERSISTENT);
1.1       misho      99: 
                    100:        REGISTER_LONG_CONSTANT("JSON_ERROR_NONE", PHP_JSON_ERROR_NONE, CONST_CS | CONST_PERSISTENT);
                    101:        REGISTER_LONG_CONSTANT("JSON_ERROR_DEPTH", PHP_JSON_ERROR_DEPTH, CONST_CS | CONST_PERSISTENT);
                    102:        REGISTER_LONG_CONSTANT("JSON_ERROR_STATE_MISMATCH", PHP_JSON_ERROR_STATE_MISMATCH, CONST_CS | CONST_PERSISTENT);
                    103:        REGISTER_LONG_CONSTANT("JSON_ERROR_CTRL_CHAR", PHP_JSON_ERROR_CTRL_CHAR, CONST_CS | CONST_PERSISTENT);
                    104:        REGISTER_LONG_CONSTANT("JSON_ERROR_SYNTAX", PHP_JSON_ERROR_SYNTAX, CONST_CS | CONST_PERSISTENT);
                    105:        REGISTER_LONG_CONSTANT("JSON_ERROR_UTF8", PHP_JSON_ERROR_UTF8, CONST_CS | CONST_PERSISTENT);
                    106: 
1.1.1.2   misho     107:        REGISTER_LONG_CONSTANT("JSON_OBJECT_AS_ARRAY",          PHP_JSON_OBJECT_AS_ARRAY,               CONST_CS | CONST_PERSISTENT);
                    108:        REGISTER_LONG_CONSTANT("JSON_BIGINT_AS_STRING",         PHP_JSON_BIGINT_AS_STRING,              CONST_CS | CONST_PERSISTENT);
                    109: 
1.1       misho     110:        return SUCCESS;
                    111: }
                    112: /* }}} */
                    113: 
                    114: /* {{{ PHP_GINIT_FUNCTION
                    115: */
                    116: static PHP_GINIT_FUNCTION(json)
                    117: {
1.1.1.2   misho     118:        json_globals->encoder_depth = 0;
1.1       misho     119:        json_globals->error_code = 0;
                    120: }
                    121: /* }}} */
                    122: 
                    123: 
                    124: /* {{{ json_module_entry
                    125:  */
                    126: zend_module_entry json_module_entry = {
                    127:        STANDARD_MODULE_HEADER,
                    128:        "json",
                    129:        json_functions,
                    130:        PHP_MINIT(json),
                    131:        NULL,
                    132:        NULL,
                    133:        NULL,
                    134:        PHP_MINFO(json),
                    135:        PHP_JSON_VERSION,
                    136:        PHP_MODULE_GLOBALS(json),
                    137:        PHP_GINIT(json),
                    138:        NULL,
                    139:        NULL,
                    140:        STANDARD_MODULE_PROPERTIES_EX
                    141: };
                    142: /* }}} */
                    143: 
                    144: #ifdef COMPILE_DL_JSON
                    145: ZEND_GET_MODULE(json)
                    146: #endif
                    147: 
                    148: /* {{{ PHP_MINFO_FUNCTION
                    149:  */
                    150: static PHP_MINFO_FUNCTION(json)
                    151: {
                    152:        php_info_print_table_start();
                    153:        php_info_print_table_row(2, "json support", "enabled");
                    154:        php_info_print_table_row(2, "json version", PHP_JSON_VERSION);
                    155:        php_info_print_table_end();
                    156: }
                    157: /* }}} */
                    158: 
                    159: static void json_escape_string(smart_str *buf, char *s, int len, int options TSRMLS_DC);
                    160: 
                    161: static int json_determine_array_type(zval **val TSRMLS_DC) /* {{{ */
                    162: {
                    163:        int i;
                    164:        HashTable *myht = HASH_OF(*val);
                    165: 
                    166:        i = myht ? zend_hash_num_elements(myht) : 0;
                    167:        if (i > 0) {
                    168:                char *key;
                    169:                ulong index, idx;
                    170:                uint key_len;
                    171:                HashPosition pos;
                    172: 
                    173:                zend_hash_internal_pointer_reset_ex(myht, &pos);
                    174:                idx = 0;
                    175:                for (;; zend_hash_move_forward_ex(myht, &pos)) {
                    176:                        i = zend_hash_get_current_key_ex(myht, &key, &key_len, &index, 0, &pos);
1.1.1.2   misho     177:                        if (i == HASH_KEY_NON_EXISTANT) {
1.1       misho     178:                                break;
1.1.1.2   misho     179:                        }
1.1       misho     180: 
                    181:                        if (i == HASH_KEY_IS_STRING) {
                    182:                                return 1;
                    183:                        } else {
                    184:                                if (index != idx) {
                    185:                                        return 1;
                    186:                                }
                    187:                        }
                    188:                        idx++;
                    189:                }
                    190:        }
                    191: 
                    192:        return PHP_JSON_OUTPUT_ARRAY;
                    193: }
                    194: /* }}} */
                    195: 
1.1.1.2   misho     196: /* {{{ Pretty printing support functions */
                    197: 
                    198: static inline void json_pretty_print_char(smart_str *buf, int options, char c TSRMLS_DC) /* {{{ */
                    199: {
                    200:        if (options & PHP_JSON_PRETTY_PRINT) {
                    201:                smart_str_appendc(buf, c);
                    202:        }
                    203: }
                    204: /* }}} */
                    205: 
                    206: static inline void json_pretty_print_indent(smart_str *buf, int options TSRMLS_DC) /* {{{ */
                    207: {
                    208:        int i;
                    209: 
                    210:        if (options & PHP_JSON_PRETTY_PRINT) {
                    211:                for (i = 0; i < JSON_G(encoder_depth); ++i) {
                    212:                        smart_str_appendl(buf, "    ", 4);
                    213:                }
                    214:        }
                    215: }
                    216: /* }}} */
                    217: 
                    218: /* }}} */
                    219: 
1.1       misho     220: static void json_encode_array(smart_str *buf, zval **val, int options TSRMLS_DC) /* {{{ */
                    221: {
1.1.1.4 ! misho     222:        int i, r, need_comma = 0;
1.1       misho     223:        HashTable *myht;
                    224: 
                    225:        if (Z_TYPE_PP(val) == IS_ARRAY) {
                    226:                myht = HASH_OF(*val);
                    227:                r = (options & PHP_JSON_FORCE_OBJECT) ? PHP_JSON_OUTPUT_OBJECT : json_determine_array_type(val TSRMLS_CC);
                    228:        } else {
                    229:                myht = Z_OBJPROP_PP(val);
                    230:                r = PHP_JSON_OUTPUT_OBJECT;
                    231:        }
                    232: 
                    233:        if (myht && myht->nApplyCount > 1) {
                    234:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "recursion detected");
                    235:                smart_str_appendl(buf, "null", 4);
                    236:                return;
                    237:        }
                    238: 
                    239:        if (r == PHP_JSON_OUTPUT_ARRAY) {
                    240:                smart_str_appendc(buf, '[');
                    241:        } else {
                    242:                smart_str_appendc(buf, '{');
                    243:        }
                    244: 
1.1.1.2   misho     245:        ++JSON_G(encoder_depth);
                    246: 
1.1       misho     247:        i = myht ? zend_hash_num_elements(myht) : 0;
                    248: 
                    249:        if (i > 0)
                    250:        {
                    251:                char *key;
                    252:                zval **data;
                    253:                ulong index;
                    254:                uint key_len;
                    255:                HashPosition pos;
                    256:                HashTable *tmp_ht;
                    257: 
                    258:                zend_hash_internal_pointer_reset_ex(myht, &pos);
                    259:                for (;; zend_hash_move_forward_ex(myht, &pos)) {
                    260:                        i = zend_hash_get_current_key_ex(myht, &key, &key_len, &index, 0, &pos);
                    261:                        if (i == HASH_KEY_NON_EXISTANT)
                    262:                                break;
                    263: 
                    264:                        if (zend_hash_get_current_data_ex(myht, (void **) &data, &pos) == SUCCESS) {
                    265:                                tmp_ht = HASH_OF(*data);
                    266:                                if (tmp_ht) {
                    267:                                        tmp_ht->nApplyCount++;
                    268:                                }
                    269: 
                    270:                                if (r == PHP_JSON_OUTPUT_ARRAY) {
                    271:                                        if (need_comma) {
                    272:                                                smart_str_appendc(buf, ',');
                    273:                                        } else {
                    274:                                                need_comma = 1;
                    275:                                        }
1.1.1.2   misho     276: 
1.1.1.4 ! misho     277:                                        json_pretty_print_char(buf, options, '\n' TSRMLS_CC);
1.1.1.2   misho     278:                                        json_pretty_print_indent(buf, options TSRMLS_CC);
1.1       misho     279:                                        php_json_encode(buf, *data, options TSRMLS_CC);
                    280:                                } else if (r == PHP_JSON_OUTPUT_OBJECT) {
                    281:                                        if (i == HASH_KEY_IS_STRING) {
                    282:                                                if (key[0] == '\0' && Z_TYPE_PP(val) == IS_OBJECT) {
                    283:                                                        /* Skip protected and private members. */
                    284:                                                        if (tmp_ht) {
                    285:                                                                tmp_ht->nApplyCount--;
                    286:                                                        }
                    287:                                                        continue;
                    288:                                                }
                    289: 
                    290:                                                if (need_comma) {
                    291:                                                        smart_str_appendc(buf, ',');
                    292:                                                } else {
                    293:                                                        need_comma = 1;
                    294:                                                }
                    295: 
1.1.1.4 ! misho     296:                                                json_pretty_print_char(buf, options, '\n' TSRMLS_CC);
1.1.1.2   misho     297:                                                json_pretty_print_indent(buf, options TSRMLS_CC);
                    298: 
1.1       misho     299:                                                json_escape_string(buf, key, key_len - 1, options & ~PHP_JSON_NUMERIC_CHECK TSRMLS_CC);
                    300:                                                smart_str_appendc(buf, ':');
                    301: 
1.1.1.2   misho     302:                                                json_pretty_print_char(buf, options, ' ' TSRMLS_CC);
1.1.1.3   misho     303: 
1.1       misho     304:                                                php_json_encode(buf, *data, options TSRMLS_CC);
                    305:                                        } else {
                    306:                                                if (need_comma) {
                    307:                                                        smart_str_appendc(buf, ',');
                    308:                                                } else {
                    309:                                                        need_comma = 1;
                    310:                                                }
                    311: 
1.1.1.4 ! misho     312:                                                json_pretty_print_char(buf, options, '\n' TSRMLS_CC);
1.1.1.2   misho     313:                                                json_pretty_print_indent(buf, options TSRMLS_CC);
                    314: 
1.1       misho     315:                                                smart_str_appendc(buf, '"');
                    316:                                                smart_str_append_long(buf, (long) index);
                    317:                                                smart_str_appendc(buf, '"');
                    318:                                                smart_str_appendc(buf, ':');
                    319: 
1.1.1.2   misho     320:                                                json_pretty_print_char(buf, options, ' ' TSRMLS_CC);
1.1.1.3   misho     321: 
1.1       misho     322:                                                php_json_encode(buf, *data, options TSRMLS_CC);
                    323:                                        }
                    324:                                }
                    325: 
                    326:                                if (tmp_ht) {
                    327:                                        tmp_ht->nApplyCount--;
                    328:                                }
                    329:                        }
                    330:                }
                    331:        }
1.1.1.3   misho     332: 
1.1.1.2   misho     333:        --JSON_G(encoder_depth);
1.1.1.4 ! misho     334: 
        !           335:        /* Only keep closing bracket on same line for empty arrays/objects */
        !           336:        if (need_comma) {
        !           337:                json_pretty_print_char(buf, options, '\n' TSRMLS_CC);
        !           338:                json_pretty_print_indent(buf, options TSRMLS_CC);
        !           339:        }
1.1       misho     340: 
                    341:        if (r == PHP_JSON_OUTPUT_ARRAY) {
                    342:                smart_str_appendc(buf, ']');
                    343:        } else {
                    344:                smart_str_appendc(buf, '}');
                    345:        }
                    346: }
                    347: /* }}} */
                    348: 
1.1.1.3   misho     349: static int json_utf8_to_utf16(unsigned short *utf16, char utf8[], int len) /* {{{ */
                    350: {
                    351:        size_t pos = 0, us;
                    352:        int j, status;
                    353: 
                    354:        if (utf16) {
                    355:                /* really convert the utf8 string */
                    356:                for (j=0 ; pos < len ; j++) {
                    357:                        us = php_next_utf8_char((const unsigned char *)utf8, len, &pos, &status);
                    358:                        if (status != SUCCESS) {
                    359:                                return -1;
                    360:                        }
                    361:                        /* From http://en.wikipedia.org/wiki/UTF16 */
                    362:                        if (us >= 0x10000) {
                    363:                                us -= 0x10000;
                    364:                                utf16[j++] = (unsigned short)((us >> 10) | 0xd800);
                    365:                                utf16[j] = (unsigned short)((us & 0x3ff) | 0xdc00);
                    366:                        } else {
                    367:                                utf16[j] = (unsigned short)us;
                    368:                        }
                    369:                }
                    370:        } else {
                    371:                /* Only check if utf8 string is valid, and compute utf16 lenght */
                    372:                for (j=0 ; pos < len ; j++) {
                    373:                        us = php_next_utf8_char((const unsigned char *)utf8, len, &pos, &status);
                    374:                        if (status != SUCCESS) {
                    375:                                return -1;
                    376:                        }
                    377:                        if (us >= 0x10000) {
                    378:                                j++;
                    379:                        }
                    380:                }
                    381:        }
                    382:        return j;
                    383: }
                    384: /* }}} */
                    385: 
1.1       misho     386: 
                    387: static void json_escape_string(smart_str *buf, char *s, int len, int options TSRMLS_DC) /* {{{ */
                    388: {
1.1.1.2   misho     389:        int pos = 0, ulen = 0;
1.1       misho     390:        unsigned short us;
                    391:        unsigned short *utf16;
1.1.1.3   misho     392:        size_t newlen;
1.1       misho     393: 
                    394:        if (len == 0) {
                    395:                smart_str_appendl(buf, "\"\"", 2);
                    396:                return;
                    397:        }
                    398: 
                    399:        if (options & PHP_JSON_NUMERIC_CHECK) {
                    400:                double d;
                    401:                int type;
                    402:                long p;
                    403: 
                    404:                if ((type = is_numeric_string(s, len, &p, &d, 0)) != 0) {
                    405:                        if (type == IS_LONG) {
                    406:                                smart_str_append_long(buf, p);
                    407:                        } else if (type == IS_DOUBLE) {
                    408:                                if (!zend_isinf(d) && !zend_isnan(d)) {
                    409:                                        char *tmp;
                    410:                                        int l = spprintf(&tmp, 0, "%.*k", (int) EG(precision), d);
                    411:                                        smart_str_appendl(buf, tmp, l);
                    412:                                        efree(tmp);
                    413:                                } else {
                    414:                                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "double %.9g does not conform to the JSON spec, encoded as 0", d);
                    415:                                        smart_str_appendc(buf, '0');
                    416:                                }
                    417:                        }
                    418:                        return;
                    419:                }
1.1.1.3   misho     420: 
1.1       misho     421:        }
1.1.1.3   misho     422: 
1.1.1.2   misho     423:        utf16 = (options & PHP_JSON_UNESCAPED_UNICODE) ? NULL : (unsigned short *) safe_emalloc(len, sizeof(unsigned short), 0);
1.1.1.3   misho     424:        ulen = json_utf8_to_utf16(utf16, s, len);
1.1.1.2   misho     425:        if (ulen <= 0) {
1.1       misho     426:                if (utf16) {
                    427:                        efree(utf16);
                    428:                }
1.1.1.2   misho     429:                if (ulen < 0) {
1.1       misho     430:                        JSON_G(error_code) = PHP_JSON_ERROR_UTF8;
                    431:                        if (!PG(display_errors)) {
                    432:                                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Invalid UTF-8 sequence in argument");
                    433:                        }
                    434:                        smart_str_appendl(buf, "null", 4);
                    435:                } else {
                    436:                        smart_str_appendl(buf, "\"\"", 2);
                    437:                }
                    438:                return;
                    439:        }
1.1.1.2   misho     440:        if (!(options & PHP_JSON_UNESCAPED_UNICODE)) {
                    441:                len = ulen;
                    442:        }
1.1       misho     443: 
1.1.1.3   misho     444:        /* pre-allocate for string length plus 2 quotes */
                    445:        smart_str_alloc(buf, len+2, 0);
1.1       misho     446:        smart_str_appendc(buf, '"');
                    447: 
                    448:        while (pos < len)
                    449:        {
1.1.1.2   misho     450:                us = (options & PHP_JSON_UNESCAPED_UNICODE) ? s[pos++] : utf16[pos++];
1.1       misho     451: 
                    452:                switch (us)
                    453:                {
                    454:                        case '"':
                    455:                                if (options & PHP_JSON_HEX_QUOT) {
                    456:                                        smart_str_appendl(buf, "\\u0022", 6);
                    457:                                } else {
                    458:                                        smart_str_appendl(buf, "\\\"", 2);
                    459:                                }
                    460:                                break;
                    461: 
                    462:                        case '\\':
                    463:                                smart_str_appendl(buf, "\\\\", 2);
                    464:                                break;
                    465: 
                    466:                        case '/':
1.1.1.2   misho     467:                                if (options & PHP_JSON_UNESCAPED_SLASHES) {
                    468:                                        smart_str_appendc(buf, '/');
                    469:                                } else {
                    470:                                        smart_str_appendl(buf, "\\/", 2);
                    471:                                }
1.1       misho     472:                                break;
                    473: 
                    474:                        case '\b':
                    475:                                smart_str_appendl(buf, "\\b", 2);
                    476:                                break;
                    477: 
                    478:                        case '\f':
                    479:                                smart_str_appendl(buf, "\\f", 2);
                    480:                                break;
                    481: 
                    482:                        case '\n':
                    483:                                smart_str_appendl(buf, "\\n", 2);
                    484:                                break;
                    485: 
                    486:                        case '\r':
                    487:                                smart_str_appendl(buf, "\\r", 2);
                    488:                                break;
                    489: 
                    490:                        case '\t':
                    491:                                smart_str_appendl(buf, "\\t", 2);
                    492:                                break;
                    493: 
                    494:                        case '<':
                    495:                                if (options & PHP_JSON_HEX_TAG) {
                    496:                                        smart_str_appendl(buf, "\\u003C", 6);
                    497:                                } else {
                    498:                                        smart_str_appendc(buf, '<');
                    499:                                }
                    500:                                break;
                    501: 
                    502:                        case '>':
                    503:                                if (options & PHP_JSON_HEX_TAG) {
                    504:                                        smart_str_appendl(buf, "\\u003E", 6);
                    505:                                } else {
                    506:                                        smart_str_appendc(buf, '>');
                    507:                                }
                    508:                                break;
                    509: 
                    510:                        case '&':
                    511:                                if (options & PHP_JSON_HEX_AMP) {
                    512:                                        smart_str_appendl(buf, "\\u0026", 6);
                    513:                                } else {
                    514:                                        smart_str_appendc(buf, '&');
                    515:                                }
                    516:                                break;
                    517: 
                    518:                        case '\'':
                    519:                                if (options & PHP_JSON_HEX_APOS) {
                    520:                                        smart_str_appendl(buf, "\\u0027", 6);
                    521:                                } else {
                    522:                                        smart_str_appendc(buf, '\'');
                    523:                                }
                    524:                                break;
                    525: 
                    526:                        default:
1.1.1.2   misho     527:                                if (us >= ' ' && ((options & PHP_JSON_UNESCAPED_UNICODE) || (us & 127) == us)) {
1.1       misho     528:                                        smart_str_appendc(buf, (unsigned char) us);
                    529:                                } else {
                    530:                                        smart_str_appendl(buf, "\\u", 2);
1.1.1.3   misho     531:                                        smart_str_appendc(buf, digits[(us & 0xf000) >> 12]);
                    532:                                        smart_str_appendc(buf, digits[(us & 0xf00)  >> 8]);
                    533:                                        smart_str_appendc(buf, digits[(us & 0xf0)   >> 4]);
                    534:                                        smart_str_appendc(buf, digits[(us & 0xf)]);
1.1       misho     535:                                }
                    536:                                break;
                    537:                }
                    538:        }
                    539: 
                    540:        smart_str_appendc(buf, '"');
1.1.1.2   misho     541:        if (utf16) {
                    542:                efree(utf16);
                    543:        }
                    544: }
                    545: /* }}} */
                    546: 
                    547: 
                    548: static void json_encode_serializable_object(smart_str *buf, zval *val, int options TSRMLS_DC) /* {{{ */
                    549: {
                    550:        zend_class_entry *ce = Z_OBJCE_P(val);
                    551:        zval *retval = NULL, fname;
1.1.1.3   misho     552:        HashTable* myht;
                    553: 
                    554:        if (Z_TYPE_P(val) == IS_ARRAY) {
                    555:                myht = HASH_OF(val);
                    556:        } else {
                    557:                myht = Z_OBJPROP_P(val);
                    558:        }
                    559: 
                    560:        if (myht && myht->nApplyCount > 1) {
                    561:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "recursion detected");
                    562:                smart_str_appendl(buf, "null", 4);
                    563:                return;
                    564:        }
1.1.1.2   misho     565: 
                    566:        ZVAL_STRING(&fname, "jsonSerialize", 0);
                    567: 
                    568:        if (FAILURE == call_user_function_ex(EG(function_table), &val, &fname, &retval, 0, NULL, 1, NULL TSRMLS_CC) || !retval) {
                    569:                zend_throw_exception_ex(NULL, 0 TSRMLS_CC, "Failed calling %s::jsonSerialize()", ce->name);
                    570:                smart_str_appendl(buf, "null", sizeof("null") - 1);
                    571:                return;
1.1.1.3   misho     572:     }
1.1.1.2   misho     573: 
                    574:        if (EG(exception)) {
                    575:                /* Error already raised */
                    576:                zval_ptr_dtor(&retval);
                    577:                smart_str_appendl(buf, "null", sizeof("null") - 1);
                    578:                return;
                    579:        }
                    580: 
                    581:        if ((Z_TYPE_P(retval) == IS_OBJECT) &&
                    582:                (Z_OBJ_HANDLE_P(retval) == Z_OBJ_HANDLE_P(val))) {
                    583:                /* Handle the case where jsonSerialize does: return $this; by going straight to encode array */
                    584:                json_encode_array(buf, &retval, options TSRMLS_CC);
                    585:        } else {
                    586:                /* All other types, encode as normal */
                    587:                php_json_encode(buf, retval, options TSRMLS_CC);
                    588:        }
                    589: 
                    590:        zval_ptr_dtor(&retval);
1.1       misho     591: }
                    592: /* }}} */
                    593: 
                    594: PHP_JSON_API void php_json_encode(smart_str *buf, zval *val, int options TSRMLS_DC) /* {{{ */
                    595: {
                    596:        switch (Z_TYPE_P(val))
                    597:        {
                    598:                case IS_NULL:
                    599:                        smart_str_appendl(buf, "null", 4);
                    600:                        break;
                    601: 
                    602:                case IS_BOOL:
                    603:                        if (Z_BVAL_P(val)) {
                    604:                                smart_str_appendl(buf, "true", 4);
                    605:                        } else {
                    606:                                smart_str_appendl(buf, "false", 5);
                    607:                        }
                    608:                        break;
                    609: 
                    610:                case IS_LONG:
                    611:                        smart_str_append_long(buf, Z_LVAL_P(val));
                    612:                        break;
                    613: 
                    614:                case IS_DOUBLE:
                    615:                        {
                    616:                                char *d = NULL;
                    617:                                int len;
                    618:                                double dbl = Z_DVAL_P(val);
                    619: 
                    620:                                if (!zend_isinf(dbl) && !zend_isnan(dbl)) {
                    621:                                        len = spprintf(&d, 0, "%.*k", (int) EG(precision), dbl);
                    622:                                        smart_str_appendl(buf, d, len);
                    623:                                        efree(d);
                    624:                                } else {
                    625:                                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "double %.9g does not conform to the JSON spec, encoded as 0", dbl);
                    626:                                        smart_str_appendc(buf, '0');
                    627:                                }
                    628:                        }
                    629:                        break;
                    630: 
                    631:                case IS_STRING:
                    632:                        json_escape_string(buf, Z_STRVAL_P(val), Z_STRLEN_P(val), options TSRMLS_CC);
                    633:                        break;
                    634: 
                    635:                case IS_OBJECT:
1.1.1.2   misho     636:                        if (instanceof_function(Z_OBJCE_P(val), php_json_serializable_ce TSRMLS_CC)) {
                    637:                                json_encode_serializable_object(buf, val, options TSRMLS_CC);
                    638:                                break;
                    639:                        }
                    640:                        /* fallthrough -- Non-serializable object */
                    641:                case IS_ARRAY:
1.1       misho     642:                        json_encode_array(buf, &val, options TSRMLS_CC);
                    643:                        break;
                    644: 
                    645:                default:
                    646:                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "type is unsupported, encoded as null");
                    647:                        smart_str_appendl(buf, "null", 4);
                    648:                        break;
                    649:        }
                    650: 
                    651:        return;
                    652: }
                    653: /* }}} */
                    654: 
1.1.1.2   misho     655: PHP_JSON_API void php_json_decode_ex(zval *return_value, char *str, int str_len, int options, long depth TSRMLS_DC) /* {{{ */
1.1       misho     656: {
                    657:        int utf16_len;
                    658:        zval *z;
                    659:        unsigned short *utf16;
                    660:        JSON_parser jp;
                    661: 
                    662:        utf16 = (unsigned short *) safe_emalloc((str_len+1), sizeof(unsigned short), 1);
                    663: 
1.1.1.3   misho     664:        utf16_len = json_utf8_to_utf16(utf16, str, str_len);
1.1       misho     665:        if (utf16_len <= 0) {
                    666:                if (utf16) {
                    667:                        efree(utf16);
                    668:                }
                    669:                JSON_G(error_code) = PHP_JSON_ERROR_UTF8;
                    670:                RETURN_NULL();
                    671:        }
                    672: 
                    673:        if (depth <= 0) {
                    674:                php_error_docref(NULL TSRMLS_CC, E_WARNING, "Depth must be greater than zero");
                    675:                efree(utf16);
                    676:                RETURN_NULL();
                    677:        }
                    678: 
                    679:        ALLOC_INIT_ZVAL(z);
                    680:        jp = new_JSON_parser(depth);
1.1.1.2   misho     681:        if (parse_JSON_ex(jp, z, utf16, utf16_len, options TSRMLS_CC)) {
1.1       misho     682:                *return_value = *z;
                    683:        }
                    684:        else
                    685:        {
                    686:                double d;
1.1.1.3   misho     687:                int type, overflow_info;
1.1       misho     688:                long p;
1.1.1.4 ! misho     689:                char *trim = str;
        !           690:                int trim_len = str_len;
        !           691: 
        !           692:                /* Increment trimmed string pointer to strip leading whitespace */
        !           693:                /* JSON RFC says to consider as whitespace: space, tab, LF or CR */
        !           694:                while (trim_len && (*trim == ' ' || *trim == '\t' || *trim == '\n' || *trim == '\r')) {
        !           695:                        trim++;
        !           696:                        trim_len--;
        !           697:                }
        !           698: 
        !           699:                /* Decrement trimmed string length to strip trailing whitespace */
        !           700:                while (trim_len && (trim[trim_len - 1] == ' ' || trim[trim_len - 1] == '\t' || trim[trim_len - 1] == '\n' || trim[trim_len - 1] == '\r')) {
        !           701:                        trim_len--;
        !           702:                }
1.1       misho     703: 
                    704:                RETVAL_NULL();
1.1.1.4 ! misho     705:                if (trim_len == 4) {
        !           706:                        if (!strncasecmp(trim, "null", trim_len)) {
1.1       misho     707:                                /* We need to explicitly clear the error because its an actual NULL and not an error */
                    708:                                jp->error_code = PHP_JSON_ERROR_NONE;
                    709:                                RETVAL_NULL();
1.1.1.4 ! misho     710:                        } else if (!strncasecmp(trim, "true", trim_len)) {
1.1       misho     711:                                RETVAL_BOOL(1);
                    712:                        }
1.1.1.4 ! misho     713:                } else if (trim_len == 5 && !strncasecmp(trim, "false", trim_len)) {
1.1       misho     714:                        RETVAL_BOOL(0);
                    715:                }
                    716: 
1.1.1.4 ! misho     717:                if ((type = is_numeric_string_ex(trim, trim_len, &p, &d, 0, &overflow_info)) != 0) {
1.1       misho     718:                        if (type == IS_LONG) {
                    719:                                RETVAL_LONG(p);
                    720:                        } else if (type == IS_DOUBLE) {
1.1.1.3   misho     721:                                if (options & PHP_JSON_BIGINT_AS_STRING && overflow_info) {
                    722:                                        /* Within an object or array, a numeric literal is assumed
                    723:                                         * to be an integer if and only if it's entirely made up of
                    724:                                         * digits (exponent notation will result in the number
                    725:                                         * being treated as a double). We'll match that behaviour
                    726:                                         * here. */
                    727:                                        int i;
                    728:                                        zend_bool is_float = 0;
                    729: 
1.1.1.4 ! misho     730:                                        for (i = (trim[0] == '-' ? 1 : 0); i < trim_len; i++) {
1.1.1.3   misho     731:                                                /* Not using isdigit() because it's locale specific,
                    732:                                                 * but we expect JSON input to always be UTF-8. */
1.1.1.4 ! misho     733:                                                if (trim[i] < '0' || trim[i] > '9') {
1.1.1.3   misho     734:                                                        is_float = 1;
                    735:                                                        break;
                    736:                                                }
                    737:                                        }
                    738: 
                    739:                                        if (is_float) {
                    740:                                                RETVAL_DOUBLE(d);
                    741:                                        } else {
1.1.1.4 ! misho     742:                                                RETVAL_STRINGL(trim, trim_len, 1);
1.1.1.3   misho     743:                                        }
                    744:                                } else {
                    745:                                        RETVAL_DOUBLE(d);
                    746:                                }
1.1       misho     747:                        }
                    748:                }
                    749: 
                    750:                if (Z_TYPE_P(return_value) != IS_NULL) {
                    751:                        jp->error_code = PHP_JSON_ERROR_NONE;
                    752:                }
                    753: 
                    754:                zval_dtor(z);
                    755:        }
                    756:        FREE_ZVAL(z);
                    757:        efree(utf16);
                    758:        JSON_G(error_code) = jp->error_code;
                    759:        free_JSON_parser(jp);
                    760: }
                    761: /* }}} */
                    762: 
1.1.1.2   misho     763: 
1.1       misho     764: /* {{{ proto string json_encode(mixed data [, int options])
                    765:    Returns the JSON representation of a value */
                    766: static PHP_FUNCTION(json_encode)
                    767: {
                    768:        zval *parameter;
                    769:        smart_str buf = {0};
                    770:        long options = 0;
                    771: 
                    772:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z|l", &parameter, &options) == FAILURE) {
                    773:                return;
                    774:        }
                    775: 
                    776:        JSON_G(error_code) = PHP_JSON_ERROR_NONE;
                    777: 
                    778:        php_json_encode(&buf, parameter, options TSRMLS_CC);
                    779: 
                    780:        ZVAL_STRINGL(return_value, buf.c, buf.len, 1);
                    781: 
                    782:        smart_str_free(&buf);
                    783: }
                    784: /* }}} */
                    785: 
                    786: /* {{{ proto mixed json_decode(string json [, bool assoc [, long depth]])
                    787:    Decodes the JSON representation into a PHP value */
                    788: static PHP_FUNCTION(json_decode)
                    789: {
                    790:        char *str;
                    791:        int str_len;
                    792:        zend_bool assoc = 0; /* return JS objects as PHP objects by default */
                    793:        long depth = JSON_PARSER_DEFAULT_DEPTH;
1.1.1.2   misho     794:        long options = 0;
1.1       misho     795: 
1.1.1.2   misho     796:        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|bll", &str, &str_len, &assoc, &depth, &options) == FAILURE) {
1.1       misho     797:                return;
                    798:        }
                    799: 
                    800:        JSON_G(error_code) = 0;
                    801: 
                    802:        if (!str_len) {
                    803:                RETURN_NULL();
                    804:        }
                    805: 
1.1.1.2   misho     806:        /* For BC reasons, the bool $assoc overrides the long $options bit for PHP_JSON_OBJECT_AS_ARRAY */
                    807:        if (assoc) {
                    808:                options |=  PHP_JSON_OBJECT_AS_ARRAY;
                    809:        } else {
                    810:                options &= ~PHP_JSON_OBJECT_AS_ARRAY;
                    811:        }
                    812: 
                    813:        php_json_decode_ex(return_value, str, str_len, options, depth TSRMLS_CC);
1.1       misho     814: }
                    815: /* }}} */
                    816: 
                    817: /* {{{ proto int json_last_error()
                    818:    Returns the error code of the last json_decode(). */
                    819: static PHP_FUNCTION(json_last_error)
                    820: {
                    821:        if (zend_parse_parameters_none() == FAILURE) {
                    822:                return;
                    823:        }
                    824: 
                    825:        RETURN_LONG(JSON_G(error_code));
                    826: }
                    827: /* }}} */
                    828: 
                    829: /*
                    830:  * Local variables:
                    831:  * tab-width: 4
                    832:  * c-basic-offset: 4
                    833:  * End:
                    834:  * vim600: noet sw=4 ts=4 fdm=marker
                    835:  * vim<600: noet sw=4 ts=4
                    836:  */

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>